10 CLS 
20 DRAWSTRING "Загрузка...",80,210: REPAINT
30 GELLOAD "L","L.png"
40 DRAWGEL "L",0,20
50 REPAINT
55 SLEEP 2000
60 FOR A%=0 TO 9
80 READ A$
90 READ B$
100 GELLOAD A$,B$
110 SPRITEGEL A$,A$
120 SPRITEMOVE A$,500,500
130 NEXT A%
140 FOR I%=0 TO 4
150 SPRITEGEL "BU"+STR$(I%),"BU"
160 SPRITEMOVE "BU"+STR$(I%),455,455
170 NEXT I%
180 X%=110:Y%=290
190 X1%=5:Y1%=5
200 DIM MOVE%(3)
210 DIM BU%(3)
220 DIM YT%(3)
230 DIM XT%(3)
240 DIM SH%(3)
245 DIM XTB%(3)
250 DIM YTB%(3)
260 FOR I%=0 TO 2
270 YT%(I%)=10
280 SH%(I%)=0
290 NEXT I%
300 XT%(0)=10
310 XT%(1)=100
320 XT%(2)=200
330 FOR I%=0 TO 2
340 SPRITEGEL "T"+STR$(I%),"S1"
350 SPRITEMOVE "T"+STR$(I%),500,500
360 NEXT I%
370 SPRITEGEL "ME","R2"
380 SPRITEMOVE "ME",500,500
390 SETCOLOR 0,0,0
400 FILLRECT 0,0,240,320
410 SETCOLOR 225,225,225
420 T$="Редиска, жми ОК"
430 DRAWSTRING T$,60,140
440 IF FIRE (0) THEN  GOTO 470
450 REPAINT
460 SLEEP 200
465 GOTO 440
470 CLS 
480 SETCOLOR 0,0,0
490 FILLRECT 0,0,240,320
500 GOSUB 1500
510 BU%(0)=RAND(0,9)
520 BU%(1)=RAND(0,9)
530 BU%(2)=RAND(0,9)
540 FOR I%=0 TO 2
550 IF MOVE%(I%)=0 THEN  SPRITEGEL "T"+STR$(I%),"S4":XT%(I%)=XT%(I%)-1
560 IF MOVE%(I%)=1 THEN  SPRITEGEL "T"+STR$(I%),"S3":XT%(I%)=XT%(I%)+1
570 IF MOVE%(I%)=2 THEN  SPRITEGEL "T"+STR$(I%),"S2":YT%(I%)=YT%(I%)-1
580 IF MOVE%(I%)=3 THEN  SPRITEGEL "T"+STR$(I%),"S1":YT%(I%)=YT%(I%)+1
610 NEXT I%
620 FOR I%=0 TO 2
621 IF XT%(I%)<10 THEN XT%(I%)=10
622 IF XT%(I%)>220 THEN XT%(I%)=220
623 IF YT%(I%)<10 THEN YT%(I%)=10
624 IF YT%(I%)>300 THEN YT%(I%)=300
630 SPRITEMOVE "T"+STR$(I%),XT%(I%),YT%(I%)
640 SH%(I%)=SH%(I%)-1
645 IF SH%(I%)=0 THEN GOSUB 1500
650 NEXT I%
660 IF UP(0) THEN SPRITEGEL "ME","R2":Y%=Y%-1
670 IF DOWN(0) THEN SPRITEGEL "ME","R1":Y%=Y%+1
680 IF LEFT(0) THEN SPRITEGEL "ME","R4":X%=X%-1
690 IF RIGHT(0) THEN SPRITEGEL "ME","R3":X%=X%+1
700 FOR I%=0 TO 2
710 IF BU%(I%)=0 AND MOVE%(I%)=0 THEN XTB%(I%)=XT%(I%)-5:YTB%(I%)=YT%
720 IF BU%(I%)=0 AND MOVE%(I%)=1 THEN XTB%(I%)=XT%(I%)+5:YTB%(I%)=YT%
730 IF BU%(I%)=0 AND MOVE%(I%)=2 THEN YTB%(I%)=YT%(I%)-5:XTB%(I%)=XT%
740 IF BU%(I%)=0 AND MOVE%(I%)=3 THEN YTB%(I%)=YT%(I%)+5:XTB%(I%)=XT%
750 SPRITEMOVE "BU"+STR$(I%),XTB%(I%),YTB%(I%)
760 NEXT I%
770 SPRITEMOVE "ME",X%,Y%
1000 REPAINT
1010 GOTO 510
1500 MOVE%(0)=RAND(0,3)
1510 SH%(0)=RAND(30,100)
1520 RETURN:IF SH%(1)>0 THEN POP
1540 MOVE%(1)=RAND(0,3)
1550 SH%(1)=RAND(30,100)
1560 RETURN:IF SH%(2)>0 THEN POP
1580 MOVE%(2)=RAND(0,3)
1590 SH%(2)=RAND(30,100)
1600 RETURN
5000 DATA R1,R1.png,R2,R2.png,R3,R3.png,R4,R4.png,R5,R5.png,BU,BU.png,S1,S1.png,S2,S2.png,S3,S3.png,S4,S4.png