1 GOTO 620
11 X%=100:Y%=100:S%=0:C%=1:XJ%=0:YJ%=0:R%=0:XB%=0:YB%=0
12 MX%=SCREENWIDTH(0):MY%=SCREENHEIGHT(0)
20 GELGRAB "p",10,10,10,10
30 SPRITEGEL "p","p":GOTO 300
40 SPRITEMOVE "p",X%,Y%:SPRITEMOVE "j",XJ%,YJ%
50 IF UP(0) THEN Y%=Y%-C%:S%=1
51 IF SPRITEHIT("p","j") AND S%=1 THEN Y%=Y%+1:X%=X%+1
52 IF DOWN(0) THEN Y%=Y%+C%
61 IF SPRITEHIT("p","j") AND S%=2 THEN Y%=Y%-1:X%=X%-1
80 IF RIGHT(0) THEN X%=X%+C%:S%=3
81 IF SPRITEHIT("p","j") AND S%=3 THEN X%=X%-1:Y%=Y%+1
82 IF LEFT(0) THEN X%=X%-C%:S%=4
83 IF SPRITEHIT("p","j") AND S%=4 THEN X%=X%+1:Y%=Y%+1
84 IF GAMEA(0) THEN C%=C%+1:SLEEP 100:PRINT C%
85 IF GAMEB(0) THEN C%=C%-1:SLEEP 100:PRINT C%
87 IF C%<=0 THEN C%=1
88 IF C%>=2 THEN C%=2
89 GOTO 401
100 REPAINT
110 GOTO 40
200 REPAINT:GOTO 1100
300 CLS
301 SETCOLOR 255,0,0
302 FILLRECT 10,10,10,10
303 GELGRAB "j",10,10,10,10
304 SPRITEGEL "j","j"
305 CLS
306 SETCOLOR 0,0,255
307 FILLRECT 10,10,10,10
308 GELGRAB "b",10,10,10,10
309 SPRITEGEL "b","b"
310 SPRITEGEL "j1","j":SPRITEGEL "j2","j":SPRITEGEL "j3","j":SPRITEGEL "j4","j"
311 SPRITEGEL "j5","j":SPRITEGEL "j6","j"
312 SPRITEGEL "j7","j":SPRITEGEL "j8","j":SPRITEGEL "j9","j":SPRITEGEL "j10","j"
313 SPRITEGEL "j11","j":SPRITEGEL "j12","j":SPRITEGEL "j13","j":SPRITEGEL "j14","j":SPRITEGEL "j15","j"
400 GOTO 40
401 XJ%=XJ%+2
402 YJ%=YJ%+1
420 IF XJ%>MX% THEN XJ%=0
421 IF YJ%>MY% THEN YJ%=0
422 IF X%+10>=MX% THEN X%=MX%-11
423 IF Y%+10>=MY% THEN Y%=MY%-11
424 IF Y%<=0 THEN Y%=1
425 IF X%<=0 THEN X%=1
426 IF FIRE(0) THEN GOTO 1
427 SPRITEMOVE "b",XB%,YB%
428 XB%=XB%+1:YB%=YB%+2
429 IF XB%>=MX% THEN XB%=0
430 IF YB%>=MY% THEN YB%=0
431 IF SPRITEHIT("p","b") THEN R%=R%+1:X%=100:Y%=100
432 IF R%=1 THEN GOTO 600
500 GOTO 100
600 SPRITEMOVE "j1",XJ1%,YJ1%
601 XJ1%=XJ1%+2:YJ1%=YJ1%+2
610 GOTO 500
620 CLS
621 SETCOLOR 0,0,100
622 FILLRECT 10,10,10,10
623 GELGRAB "m",10,10,10,10
624 SPRITEGEL "m","m"
625 SETCOLOR 50,0,50
626 FILLRECT 10,10,10,10
627 GELGRAB "i1",10,10,10,10
628 SPRITEGEL "i1","i1"
629 CLS
640 SETCOLOR 100,100,100
641 FILLRECT 10,10,10,10
642 GELGRAB "i2",10,10,10,10
643 SPRITEGEL "i2","i2"
644 CLS
645 XM%=100:YM%=100
646 SPRITEMOVE "i1",100,50:SPRITEMOVE "i2",100,150
647 DRAWSTRING "первая игра",100,30
648 DRAWSTRING "вторая игра",100,160
649 DRAWSTRING "двигай квадрат средний",10,180:SETCOLOR 0,255,0
660 SPRITEMOVE "m",XM%,YM%
661 IF SPRITEHIT("m","i1") THEN CLS:GOTO 900
662 IF SPRITEHIT("m","i2") THEN CLS:GOTO 1000
670 IF UP(0) THEN YM%=YM%-1
671 IF DOWN(0) THEN YM%=YM%+1
672 DRAWSTRING "A..",0,FY%
673 FY%=FY%+2
674 IF FY%>=320 THEN FY%=0:FG%=FG%+5
675 DRAWSTRING "##",10,FG%
676 IF FG%>=320 THEN FG%=0
700 REPAINT:GOTO 660
900 SPRITEMOVE "m",1000,1000
901 SPRITEMOVE "i1",1000,1000
902 SPRITEMOVE "i2",1000,1000
903 GOTO 10
1000 X11%=100:Y11%=100:X12%=150:Y12%=100:A%=1:B%=1
1001 SPRITEMOVE "m",1000,1000
1002 SPRITEMOVE "i1",1000,1000
1003 SPRITEMOVE "i2",1000,1000
1100 CLS:DRAWLINE X11%,Y11%,X12%,Y12%
1200 IF UP(0) THEN X11%=X11%-1:X12%=X12%+1:A%=A%+B%
1201 IF DOWN(0) THEN X11%=X11%+1:X12%=X12%-1:A%=A%-B%
1202 PRINT A%
1203 IF T%>=30 THEN B%=0:GOTO 2001
2000 SLEEP 800:REPAINT:GOTO 1100
2001 X%=100:Y%=100
2002 PLOT X%,Y%
2003 FOR P%=1 TO 20
2004 X%=X%+1
2010 NEXT P%
2011 REPAINT:GOTO 2002