10 DIM A(7)
20 SCREEN 2,1
30 SPRITE$(2)=CHR$(192)+CHR$(128)+CHR$(128)+CHR$(192)
35 SPRITE$(3)=CHR$(48)+CHR$(16)+CHR$(16)+CHR$(48)
40 FOR X=0 TO 140 STEP 20
50    FOR Y=0 TO 140 STEP 20
60         LINE(X,Y)-(X+20,Y+20),,B
70 NEXT Y,X
80 X=10:Y=10:I=7:J=0
90 PUT SPRITE 2,(X-4,Y-5),15,2
95 PUT SPRITE 3,(X-4,Y-5),4,3
100 PUT SPRITE 1,(200,50),,1
110 S=STICK(0)
120 IF S<> 0 THEN GOSUB 500:'Перемещение
130 P$=INKEY$
140 IF P$=" "THEN 200
150 IF P$<>""THEN GOSUB 1000:'Удаление,вставка
160 GOTO 90
200 SCREEN 1
210 PRINT"СПРАЙТ"
220 PRINT:PRINT"DATA":PRINT
230 FOR K=0 TO 7
240 PRINT A(K);
250 IF K<>7 THEN PRINT",";
260 NEXTK
270 PRINT:PRINT
280 PUT SPRITE 0,(120,130),,1
290 END
500 'Управление стрелками
510 IF (S=1 OR S=2 OR S=8) AND Y> 10 THEN Y=Y-20:J=J-1
520 IF (S=2 OR S=3 OR S=4) AND X<150 THEN X=X+20:I=I-1
530 IF (S=4 OR S=5 OR S=6) AND Y<150 THEN Y=Y+20:J=J+1
540 IF (S=6 OR S=7 OR S=8) AND X> 10 THEN X=X-20:I=I+1
550 RETURN
1000 'Удаление и вставка
1010 IF ASC(P$)=18 AND POINT(X,Y)=4 THEN LINE (X-4,Y-4)-(X+4,Y+4),,BF:A(J)=A(J)+2^I
1020 IF ASC(P$)=127 AND POINT(X,Y)=15 THEN LINE (X-4,Y-4)-(X+4,Y+4),4,BF:A(J)=A(J)-2^I
1030 S$=""
1040 FOR K=0 TO 7
1050 S$=S$+CHR$(A(K))
1060 NEXT K
1070 SPRITE$(1)=S$
1080 RETURN