User:Mateuszpawlowski

Atari Basic. Tetris programmed in Atari Basic for Atari 65 xe computer.

1 GRAPHICS 0

2 POKE 708,194

3 POKE 709,196

4 POKE 710,198

6 COLOR 2

7 POKE 752,1

10 DIM A(10,20)

11 FOR Y=0 TO 20:FOR X=0 TO 10:A(X,Y)=0:NEXT X:NEXT Y

30 FOR Y=0 TO 20

40 POSITION 13,Y

45 ? "á"

50 POSITION 24,Y

60 ? "á"

70 NEXT Y

80 POSITION 13,20

81 ? "áááááááááááá"

82 COLOR 2

160 POSITION 0,0

161 ? "ATARI TETRIS"

162 POSITION 0,2

163 ? "MATEUSZ"

164 POSITION 0,3

165 ? "PAWLOWSKI"

201 K=5:R=1

202 KX=0:KY=0

203 RYSUJ=1

205 CZAS=0

206 DELAY=1

207 DELAY=30

208 KOLIZJA=0

209 CZASROT=0

210 KOLIZJADOWN=0

211 CZASMOV=0

212 SCORE=0

213 LOS=INT(RND(0)*5)+1

300 REM CONTROLS

301 J=STICK(0)

302 KOLIZJA=0

303 CZASROT=CZASROT+1

304 IF CZASROT=10 THEN CZASROT=0

305 KOLIZJADOWN=0

306 CZASMOV=CZASMOV+1

307 IF CZASMOV=2 THEN CZASMOV=0

308 POSITION 26,3:? "SCORE:"

309 POSITION 33,3:? SCORE

310 IF CZASMOV=0 THEN IF J=11 THEN GOSUB 360:REM LEFT

320 IF CZASMOV=0 THEN IF J=7 THEN GOSUB 375:REM RIGHT

330 IF J=13 THEN GOSUB 390:REM DOWN

340 IF CZASROT=0 THEN IF J=14 THEN GOSUB 405:REM UP

343 CZAS=CZAS+1

344 IF CZAS=DELAY THEN CZAS=0:GOSUB 390

345 RYSUJ=0:GOSUB 900:RYSUJ=1:GOSUB 900

350 GOTO 300

360 REM KOLIZJA LEFT

365 GOSUB 5000:IF KOLIZJA=0 THEN GOSUB 500:REM LEFT

370 RETURN

375 REM KOLIZJA RIGHT

380 GOSUB 6000:IF KOLIZJA=0 THEN GOSUB 600:REM RIGHT

385 RETURN

390 REM KOLIZJA DOWN

395 GOSUB 7000:IF KOLIZJADOWN=0 THEN GOSUB 700:REM DOWN

396 IF KOLIZJADOWN=1 THEN GOSUB 20000

397 IF KOLIZJADOWN=1 THEN GOSUB 30000

400 RETURN

405 REM KOLIZJA UP ROTATE

410 GOSUB 8000:IF KOLIZJA=0 THEN GOSUB 800:REM UP ROTATE

415 RETURN

500 REM LEFT

501 RYSUJ=0:GOSUB 900:RYSUJ=1:KX=KX-1:GOSUB 900

503 RETURN

600 REM RIGHT

601 RYSUJ=0:GOSUB 900:RYSUJ=1:KX=KX+1:GOSUB 900

603 RETURN

700 REM DOWN

710 RYSUJ=0:GOSUB 900:RYSUJ=1:KY=KY+1:GOSUB 900

720 RETURN

800 REM UP ROTATE

801 RYSUJ=0:GOSUB 900

802 RYSUJ=1:R=R+1

810 GOSUB 900

825 RETURN

900 REM RYSUJE KLOCEK

901 IF R=5 THEN R=1

910 IF (K=1 AND R=1) THEN GOTO 1001

911 IF (K=1 AND R=2) THEN GOTO 1030

912 IF (K=1 AND R=3) THEN GOTO 1200

913 IF (K=1 AND R=4) THEN GOTO 1400

914 IF (K=2 AND R=1) THEN GOTO 1600

915 IF (K=2 AND R=2) THEN GOTO 1800

916 IF (K=2 AND R=3) THEN GOTO 2000

917 IF (K=2 AND R=4) THEN GOTO 2200

919 IF (K=3 AND R=1) THEN GOTO 2500

920 IF (K=3 AND R=2) THEN GOTO 2700

921 IF (K=3 AND R=3) THEN GOTO 2900

922 IF (K=3 AND R=4) THEN GOTO 3100

925 IF (K=4 AND R=1) THEN GOTO 3300

926 IF (K=4 AND R=2) THEN GOTO 3500

927 IF (K=4 AND R=3) THEN GOTO 3300

928 IF (K=4 AND R=4) THEN GOTO 3500

930 IF (K=5 AND R=1) THEN GOTO 3700

931 IF (K=5 AND R=2) THEN GOTO 3700

932 IF (K=5 AND R=3) THEN GOTO 3700

933 IF (K=5 AND R=4) THEN GOTO 3700

1001 REM K=1 R=1

1002 POSITION KX+14+1,KY

1003 IF RYSUJ=0 THEN ? " "

1004 IF RYSUJ=1 THEN ? "á"

1005 POSITION KX+14+0,KY+1

1006 IF RYSUJ=0 THEN ? " "

1007 IF RYSUJ=1 THEN ? "á"

1008 POSITION KX+14+1,KY+1

1009 IF RYSUJ=0 THEN ? " "

1010 IF RYSUJ=1 THEN ? "á"

1011 POSITION KX+14+2,KY+1

1012 IF RYSUJ=0 THEN ? " "

1013 IF RYSUJ=1 THEN ? "á"

1015 RETURN

1020 REM K=1 R=2

1030 POSITION KX+14+1,KY

1040 IF RYSUJ=0 THEN ? " "

1050 IF RYSUJ=1 THEN ? "á"

1060 POSITION KX+14+1,KY+1

1070 IF RYSUJ=0 THEN ? " "

1080 IF RYSUJ=1 THEN ? "á"

1090 POSITION KX+14+2,KY+1

1100 IF RYSUJ=0 THEN ? " "

1110 IF RYSUJ=1 THEN ? "á"

1120 POSITION KX+14+1,KY+2

1130 IF RYSUJ=0 THEN ? " "

1140 IF RYSUJ=1 THEN ? "á"

1149 RETURN

1200 REM K=1 R=3

1210 POSITION KX+14+0,KY+1

1220 IF RYSUJ=0 THEN ? " "

1230 IF RYSUJ=1 THEN ? "á"

1240 POSITION KX+14+1,KY+1

1250 IF RYSUJ=0 THEN ? " "

1260 IF RYSUJ=1 THEN ? "á"

1270 POSITION KX+14+2,KY+1

1280 IF RYSUJ=0 THEN ? " "

1290 IF RYSUJ=1 THEN ? "á"

1300 POSITION KX+14+1,KY+2

1310 IF RYSUJ=0 THEN ? " "

1320 IF RYSUJ=1 THEN ? "á"

1330 RETURN

1400 REM K=1 R=4

1410 POSITION KX+14+1,KY+0

1420 IF RYSUJ=0 THEN ? " "

1430 IF RYSUJ=1 THEN ? "á"

1440 POSITION KX+14+0,KY+1

1450 IF RYSUJ=0 THEN ? " "

1460 IF RYSUJ=1 THEN ? "á"

1470 POSITION KX+14+1,KY+1

1480 IF RYSUJ=0 THEN ? " "

1490 IF RYSUJ=1 THEN ? "á"

1500 POSITION KX+14+1,KY+2

1510 IF RYSUJ=0 THEN ? " "

1520 IF RYSUJ=1 THEN ? "á"

1530 RETURN

1600 REM K=2 R=1

1610 POSITION KX+14+1,KY+0

1620 IF RYSUJ=0 THEN ? " "

1630 IF RYSUJ=1 THEN ? "á"

1640 POSITION KX+14+1,KY+1

1650 IF RYSUJ=0 THEN ? " "

1660 IF RYSUJ=1 THEN ? "á"

1670 POSITION KX+14+1,KY+2

1680 IF RYSUJ=0 THEN ? " "

1690 IF RYSUJ=1 THEN ? "á"

1700 POSITION KX+14+2,KY+2

1710 IF RYSUJ=0 THEN ? " "

1720 IF RYSUJ=1 THEN ? "á"

1730 RETURN

1800 REM K=2 R=2

1810 POSITION KX+14+0,KY+1

1820 IF RYSUJ=0 THEN ? " "

1830 IF RYSUJ=1 THEN ? "á"

1840 POSITION KX+14+1,KY+1

1850 IF RYSUJ=0 THEN ? " "

1860 IF RYSUJ=1 THEN ? "á"

1870 POSITION KX+14+2,KY+1

1880 IF RYSUJ=0 THEN ? " "

1890 IF RYSUJ=1 THEN ? "á"

1900 POSITION KX+14+0,KY+2

1910 IF RYSUJ=0 THEN ? " "

1920 IF RYSUJ=1 THEN ? "á"

1930 RETURN

2000 POSITION KX+14+1,KY+2

2010 IF RYSUJ=0 THEN ? " "

2020 IF RYSUJ=1 THEN ? "á"

2040 POSITION KX+14+1,KY+0

2050 IF RYSUJ=0 THEN ? " "

2060 IF RYSUJ=1 THEN ? "á"

2070 POSITION KX+14+1,KY+1

2080 IF RYSUJ=0 THEN ? " "

2090 IF RYSUJ=1 THEN ? "á"

2100 POSITION KX+14+0,KY+0

2110 IF RYSUJ=0 THEN ? " "

2120 IF RYSUJ=1 THEN ? "á"

2130 RETURN

2200 REM K=2 R=4

2300 POSITION KX+14+0,KY+1

2310 IF RYSUJ=0 THEN ? " "

2320 IF RYSUJ=1 THEN ? "á"

2340 POSITION KX+14+1,KY+1

2350 IF RYSUJ=0 THEN ? " "

2360 IF RYSUJ=1 THEN ? "á"

2370 POSITION KX+14+2,KY+1

2380 IF RYSUJ=0 THEN ? " "

2390 IF RYSUJ=1 THEN ? "á"

2400 POSITION KX+14+2,KY+0

2410 IF RYSUJ=0 THEN ? " "

2420 IF RYSUJ=1 THEN ? "á"

2430 RETURN

2500 REM K=3 R=1

2501 POSITION KX+14+0,KY+2

2510 IF RYSUJ=0 THEN ? " "

2520 IF RYSUJ=1 THEN ? "á"

2540 POSITION KX+14+1,KY+0

2550 IF RYSUJ=0 THEN ? " "

2560 IF RYSUJ=1 THEN ? "á"

2570 POSITION KX+14+1,KY+1

2580 IF RYSUJ=0 THEN ? " "

2590 IF RYSUJ=1 THEN ? "á"

2600 POSITION KX+14+1,KY+2

2610 IF RYSUJ=0 THEN ? " "

2620 IF RYSUJ=1 THEN ? "á"

2630 RETURN

2700 REM K=3 R=2

2701 POSITION KX+14+0,KY+1

2710 IF RYSUJ=0 THEN ? " "

2720 IF RYSUJ=1 THEN ? "á"

2740 POSITION KX+14+1,KY+1

2750 IF RYSUJ=0 THEN ? " "

2760 IF RYSUJ=1 THEN ? "á"

2770 POSITION KX+14+2,KY+1

2780 IF RYSUJ=0 THEN ? " "

2790 IF RYSUJ=1 THEN ? "á"

2800 POSITION KX+14+0,KY+0

2810 IF RYSUJ=0 THEN ? " "

2820 IF RYSUJ=1 THEN ? "á"

2830 RETURN

2900 REM K=3 R=3

2901 POSITION KX+14+2,KY+0

2910 IF RYSUJ=0 THEN ? " "

2920 IF RYSUJ=1 THEN ? "á"

2940 POSITION KX+14+1,KY+0

2950 IF RYSUJ=0 THEN ? " "

2960 IF RYSUJ=1 THEN ? "á"

2970 POSITION KX+14+1,KY+1

2980 IF RYSUJ=0 THEN ? " "

2990 IF RYSUJ=1 THEN ? "á"

3000 POSITION KX+14+1,KY+2

3010 IF RYSUJ=0 THEN ? " "

3020 IF RYSUJ=1 THEN ? "á"

3030 RETURN

3100 REM K=3 R=4

3101 POSITION KX+14+2,KY+2

3110 IF RYSUJ=0 THEN ? " "

3120 IF RYSUJ=1 THEN ? "á"

3140 POSITION KX+14+0,KY+1

3150 IF RYSUJ=0 THEN ? " "

3160 IF RYSUJ=1 THEN ? "á"

3170 POSITION KX+14+1,KY+1

3180 IF RYSUJ=0 THEN ? " "

3190 IF RYSUJ=1 THEN ? "á"

3200 POSITION KX+14+2,KY+1

3210 IF RYSUJ=0 THEN ? " "

3220 IF RYSUJ=1 THEN ? "á"

3230 RETURN

3300 REM K=4 R=1

3301 POSITION KX+14+0,KY+2

3310 IF RYSUJ=0 THEN ? " "

3320 IF RYSUJ=1 THEN ? "á"

3340 POSITION KX+14+1,KY+2

3350 IF RYSUJ=0 THEN ? " "

3360 IF RYSUJ=1 THEN ? "á"

3370 POSITION KX+14+1,KY+1

3380 IF RYSUJ=0 THEN ? " "

3390 IF RYSUJ=1 THEN ? "á"

3400 POSITION KX+14+2,KY+1

3410 IF RYSUJ=0 THEN ? " "

3420 IF RYSUJ=1 THEN ? "á"

3430 RETURN

3500 REM K=4 R=2

3501 POSITION KX+14+1,KY+0

3510 IF RYSUJ=0 THEN ? " "

3520 IF RYSUJ=1 THEN ? "á"

3540 POSITION KX+14+1,KY+1

3550 IF RYSUJ=0 THEN ? " "

3560 IF RYSUJ=1 THEN ? "á"

3570 POSITION KX+14+2,KY+1

3580 IF RYSUJ=0 THEN ? " "

3590 IF RYSUJ=1 THEN ? "á"

3600 POSITION KX+14+2,KY+2

3610 IF RYSUJ=0 THEN ? " "

3620 IF RYSUJ=1 THEN ? "á"

3630 RETURN

3700 REM K=5 R=1

3701 POSITION KX+14+0,KY+0

3710 IF RYSUJ=0 THEN ? " "

3720 IF RYSUJ=1 THEN ? "á"

3740 POSITION KX+14+1,KY+0

3750 IF RYSUJ=0 THEN ? " "

3760 IF RYSUJ=1 THEN ? "á"

3770 POSITION KX+14+0,KY+1

3780 IF RYSUJ=0 THEN ? " "

3790 IF RYSUJ=1 THEN ? "á"

3800 POSITION KX+14+1,KY+1

3810 IF RYSUJ=0 THEN ? " "

3820 IF RYSUJ=1 THEN ? "á"

3830 RETURN

5000 REM KOLIZJA LEFT

5002 IF K=1 AND R=1 THEN GOTO 5040

5003 IF K=1 AND R=2 THEN GOTO 5060

5004 IF K=1 AND R=3 THEN GOTO 5080

5005 IF K=1 AND R=4 THEN GOTO 5100

5006 IF K=2 AND R=1 THEN GOTO 5120

5007 IF K=2 AND R=2 THEN GOTO 5140

5008 IF K=2 AND R=3 THEN GOTO 5160

5009 IF K=2 AND R=4 THEN GOTO 5180

5010 IF K=3 AND R=1 THEN GOTO 5200

5011 IF K=3 AND R=2 THEN GOTO 5220

5012 IF K=3 AND R=3 THEN GOTO 5240

5013 IF K=3 AND R=4 THEN GOTO 5260

5014 IF K=4 AND R=1 THEN GOTO 5280

5015 IF K=4 AND R=2 THEN GOTO 5300

5016 IF K=4 AND R=3 THEN GOTO 5280

5017 IF K=4 AND R=4 THEN GOTO 5300

5018 IF K=5 AND R=1 THEN GOTO 5320

5019 IF K=5 AND R=2 THEN GOTO 5320

5020 IF K=5 AND R=3 THEN GOTO 5320

5021 IF K=5 AND R=4 THEN GOTO 5320

5040 REM K=1 R=1

5044 IF KX=0 THEN KOLIZJA=1

5046 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5048 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5050 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5052 IF KX>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5054 RETURN

5060 REM K=1 R=2

5064 IF KX+1=0 THEN KOLIZJA=1

5066 IF KX+1>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5068 IF KX+1>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5070 IF KX+1>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5072 IF KX+1>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5074 RETURN

5080 REM K=1 R=3

5084 IF KX=0 THEN KOLIZJA=1

5086 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5088 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5090 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5092 IF KX>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5094 RETURN

5100 REM K=1 R=4

5102 IF KX=0 THEN KOLIZJA=1

5104 IF KX>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5106 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5108 IF KX>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5110 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5112 RETURN

5120 REM K=2 R=1

5124 IF KX+1=0 THEN KOLIZJA=1

5126 IF KX+1>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5128 IF KX+1>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5130 IF KX+1>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5132 IF KX+1>0 THEN IF A(KX+2-1,KY+2)=1 THEN KOLIZJA=1

5134 RETURN

5140 REM K=2 R=2

5144 IF KX=0 THEN KOLIZJA=1

5146 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5148 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5150 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5152 IF KX>0 THEN IF A(KX+0-1,KY+2)=1 THEN KOLIZJA=1

5154 RETURN

5160 REM K=2 R=3

5164 IF KX=0 THEN KOLIZJA=1

5166 IF KX>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5168 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5170 IF KX>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5172 IF KX>0 THEN IF A(KX+0-1,KY+0)=1 THEN KOLIZJA=1

5174 RETURN

5180 REM K=2 R=4

5184 IF KX=0 THEN KOLIZJA=1

5186 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5188 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5190 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5192 IF KX>0 THEN IF A(KX+2-1,KY+0)=1 THEN KOLIZJA=1

5194 RETURN

5200 REM K=3 R=1

5202 IF KX=0 THEN KOLIZJA=1

5204 IF KX>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5206 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5208 IF KX>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5210 IF KX>0 THEN IF A(KX+0-1,KY+2)=1 THEN KOLIZJA=1

5212 RETURN

5220 REM K=3 R=2

5224 IF KX=0 THEN KOLIZJA=1

5226 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5228 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5230 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5232 IF KX>0 THEN IF A(KX+0-1,KY+0)=1 THEN KOLIZJA=1

5234 RETURN

5240 REM K=3 R=3

5244 IF KX+1=0 THEN KOLIZJA=1

5246 IF KX+1>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5248 IF KX+1>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5250 IF KX+1>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5252 IF KX+1>0 THEN IF A(KX+2-1,KY+0)=1 THEN KOLIZJA=1

5254 RETURN

5260 REM K=3 R=4

5264 IF KX=0 THEN KOLIZJA=1

5266 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5268 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5270 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5272 IF KX>0 THEN IF A(KX+2-1,KY+2)=1 THEN KOLIZJA=1

5274 RETURN

5280 REM K=4 R=1

5284 IF KX=0 THEN KOLIZJA=1

5286 IF KX>0 THEN IF A(KX+0-1,KY+2)=1 THEN KOLIZJA=1

5288 IF KX>0 THEN IF A(KX+1-1,KY+2)=1 THEN KOLIZJA=1

5290 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5292 IF KX>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5294 RETURN

5300 REM K=4 R=2

5304 IF KX+1=0 THEN KOLIZJA=1

5306 IF KX+1>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5308 IF KX+1>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5310 IF KX+1>0 THEN IF A(KX+2-1,KY+1)=1 THEN KOLIZJA=1

5312 IF KX+1>0 THEN IF A(KX+2-1,KY+2)=1 THEN KOLIZJA=1

5314 RETURN

5320 REM K=5 R=1

5324 IF KX=0 THEN KOLIZJA=1

5326 IF KX>0 THEN IF A(KX+0-1,KY+0)=1 THEN KOLIZJA=1

5328 IF KX>0 THEN IF A(KX+1-1,KY+0)=1 THEN KOLIZJA=1

5330 IF KX>0 THEN IF A(KX+0-1,KY+1)=1 THEN KOLIZJA=1

5332 IF KX>0 THEN IF A(KX+1-1,KY+1)=1 THEN KOLIZJA=1

5334 RETURN

5999 RETURN

6000 REM KOLIZJA RIGHT

6002 IF K=1 AND R=1 THEN GOTO 6040

6003 IF K=1 AND R=2 THEN GOTO 6060

6004 IF K=1 AND R=3 THEN GOTO 6080

6005 IF K=1 AND R=4 THEN GOTO 6100

6006 IF K=2 AND R=1 THEN GOTO 6120

6007 IF K=2 AND R=2 THEN GOTO 6140

6008 IF K=2 AND R=3 THEN GOTO 6160

6009 IF K=2 AND R=4 THEN GOTO 6180

6010 IF K=3 AND R=1 THEN GOTO 6200

6011 IF K=3 AND R=2 THEN GOTO 6220

6012 IF K=3 AND R=3 THEN GOTO 6240

6013 IF K=3 AND R=4 THEN GOTO 6260

6014 IF K=4 AND R=1 THEN GOTO 6280

6015 IF K=4 AND R=2 THEN GOTO 6300

6016 IF K=4 AND R=3 THEN GOTO 6280

6017 IF K=4 AND R=4 THEN GOTO 6300

6018 IF K=5 AND R=1 THEN GOTO 6320

6019 IF K=5 AND R=2 THEN GOTO 6320

6020 IF K=5 AND R=3 THEN GOTO 6320

6021 IF K=5 AND R=4 THEN GOTO 6320

6040 REM K=1 R=1

6044 IF KX=7 THEN KOLIZJA=1

6046 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6048 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6050 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6052 IF KX<7 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6054 RETURN

6060 REM K=1 R=2

6064 IF KX=7 THEN KOLIZJA=1

6066 IF KX<7 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6068 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6070 IF KX<7 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6072 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6074 RETURN

6080 REM K=1 R=3

6084 IF KX=7 THEN KOLIZJA=1

6086 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6088 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6090 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6092 IF KX<7 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6094 RETURN

6100 REM K=1 R=4

6104 IF KX=8 THEN KOLIZJA=1

6106 IF KX<8 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6108 IF KX<8 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6110 IF KX<8 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6112 IF KX<8 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6114 RETURN

6120 REM K=2 R=1

6124 IF KX=7 THEN KOLIZJA=1

6126 IF KX<7 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6128 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6130 IF KX<7 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6132 IF KX<7 THEN IF A(KX+2+1,KY+2)=1 THEN KOLIZJA=1

6133 RETURN

6140 REM K=2 R=2

6144 IF KX=7 THEN KOLIZJA=1

6146 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6148 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6150 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6152 IF KX<7 THEN IF A(KX+0+1,KY+2)=1 THEN KOLIZJA=1

6154 RETURN

6160 REM K=2 R=3

6164 IF KX=8 THEN KOLIZJA=1

6166 IF KX<8 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6168 IF KX<8 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6170 IF KX<8 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6172 IF KX<8 THEN IF A(KX+0+1,KY+0)=1 THEN KOLIZJA=1

6174 RETURN

6180 REM K=2 R=4

6184 IF KX=7 THEN KOLIZJA=1

6186 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6188 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6190 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6192 IF KX<7 THEN IF A(KX+2+1,KY+0)=1 THEN KOLIZJA=1

6194 RETURN

6200 REM K=3 R=1

6204 IF KX=8 THEN KOLIZJA=1

6206 IF KX<8 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6208 IF KX<8 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6210 IF KX<8 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6212 IF KX<8 THEN IF A(KX+0+1,KY+2)=1 THEN KOLIZJA=1

6214 RETURN

6220 REM K=3 R=2

6224 IF KX=7 THEN KOLIZJA=1

6226 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6228 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6230 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6232 IF KX<7 THEN IF A(KX+0+1,KY+0)=1 THEN KOLIZJA=1

6234 RETURN

6240 REM K=3 R=3

6244 IF KX=7 THEN KOLIZJA=1

6246 IF KX<7 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6248 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6250 IF KX<7 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6252 IF KX<7 THEN IF A(KX+2+1,KY+0)=1 THEN KOLIZJA=1

6254 RETURN

6260 REM K=3 R=4

6264 IF KX=7 THEN KOLIZJA=1

6266 IF KX<7 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6268 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6270 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6272 IF KX<7 THEN IF A(KX+2+1,KY+2)=1 THEN KOLIZJA=1

6274 RETURN

6280 REM K=4 R=1

6284 IF KX=7 THEN KOLIZJA=1

6286 IF KX<7 THEN IF A(KX+0+1,KY+2)=1 THEN KOLIZJA=1

6288 IF KX<7 THEN IF A(KX+1+1,KY+2)=1 THEN KOLIZJA=1

6290 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6292 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6294 RETURN

6300 REM K=4 R=2

6304 IF KX=7 THEN KOLIZJA=1

6306 IF KX<7 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6308 IF KX<7 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6310 IF KX<7 THEN IF A(KX+2+1,KY+1)=1 THEN KOLIZJA=1

6312 IF KX<7 THEN IF A(KX+2+1,KY+2)=1 THEN KOLIZJA=1

6314 RETURN

6320 REM K=5 R=1

6324 IF KX=8 THEN KOLIZJA=1

6326 IF KX<8 THEN IF A(KX+0+1,KY+0)=1 THEN KOLIZJA=1

6328 IF KX<8 THEN IF A(KX+1+1,KY+0)=1 THEN KOLIZJA=1

6330 IF KX<8 THEN IF A(KX+0+1,KY+1)=1 THEN KOLIZJA=1

6332 IF KX<8 THEN IF A(KX+1+1,KY+1)=1 THEN KOLIZJA=1

6334 RETURN

6999 RETURN

7000 REM KOLIZJA DOWN

7002 IF K=1 AND R=1 THEN GOTO 7040

7003 IF K=1 AND R=2 THEN GOTO 7060

7004 IF K=1 AND R=3 THEN GOTO 7080

7005 IF K=1 AND R=4 THEN GOTO 7100

7006 IF K=2 AND R=1 THEN GOTO 7120

7007 IF K=2 AND R=2 THEN GOTO 7140

7008 IF K=2 AND R=3 THEN GOTO 7160

7009 IF K=2 AND R=4 THEN GOTO 7180

7010 IF K=3 AND R=1 THEN GOTO 7200

7011 IF K=3 AND R=2 THEN GOTO 7220

7012 IF K=3 AND R=3 THEN GOTO 7240

7013 IF K=3 AND R=4 THEN GOTO 7260

7014 IF K=4 AND R=1 THEN GOTO 7280

7015 IF K=4 AND R=2 THEN GOTO 7300

7016 IF K=4 AND R=3 THEN GOTO 7280

7017 IF K=4 AND R=4 THEN GOTO 7300

7018 IF K=5 AND R=1 THEN GOTO 7320

7019 IF K=5 AND R=2 THEN GOTO 7320

7020 IF K=5 AND R=3 THEN GOTO 7320

7021 IF K=5 AND R=4 THEN GOTO 7320

7040 REM K=1 R=1

7044 IF KY=18 THEN KOLIZJADOWN=1

7046 IF KY<18 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7048 IF KY<18 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7050 IF KY<18 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7052 IF KY<18 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7054 RETURN

7060 REM K=1 R=2

7064 IF KY=17 THEN KOLIZJADOWN=1

7066 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7068 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7070 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7072 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7074 RETURN

7080 REM K=1 R=3

7084 IF KY=17 THEN KOLIZJADOWN=1

7086 IF KY<17 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7088 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7090 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7092 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7094 RETURN

7100 REM K=1 R=4

7102 IF KY=17 THEN KOLIZJADOWN=1

7104 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7106 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7108 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7110 IF KY<17 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7112 RETURN

7120 REM K=2 R=1

7124 IF KY=17 THEN KOLIZJADOWN=1

7126 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7128 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7130 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7132 IF KY<17 THEN IF A(KX+2,KY+2+1)=1 THEN KOLIZJADOWN=1

7134 RETURN

7140 REM K=2 R=2

7144 IF KY=17 THEN KOLIZJADOWN=1

7146 IF KY<17 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7148 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7150 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7152 IF KY<17 THEN IF A(KX+0,KY+2+1)=1 THEN KOLIZJADOWN=1

7154 RETURN

7160 REM K=2 R=3

7164 IF KY=17 THEN KOLIZJADOWN=1

7166 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7168 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7170 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7172 IF KY<17 THEN IF A(KX+0,KY+0+1)=1 THEN KOLIZJADOWN=1

7174 RETURN

7180 REM K=2 R=4

7184 IF KY=18 THEN KOLIZJADOWN=1

7186 IF KY<18 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7188 IF KY<18 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7190 IF KY<18 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7192 IF KY<18 THEN IF A(KX+2,KY+0+1)=1 THEN KOLIZJADOWN=1

7194 RETURN

7200 REM K=3 R=1

7204 IF KY=17 THEN KOLIZJADOWN=1

7206 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7208 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7210 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7212 IF KY<17 THEN IF A(KX+0,KY+2+1)=1 THEN KOLIZJADOWN=1

7214 RETURN

7220 REM K=3 R=2

7224 IF KY=18 THEN KOLIZJADOWN=1

7226 IF KY<18 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7228 IF KY<18 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7230 IF KY<18 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7232 IF KY<18 THEN IF A(KX+0,KY+0+1)=1 THEN KOLIZJADOWN=1

7234 RETURN

7240 REM K=3 R=3

7244 IF KY=17 THEN KOLIZJADOWN=1

7246 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7248 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7250 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7252 IF KY<17 THEN IF A(KX+2,KY+0+1)=1 THEN KOLIZJADOWN=1

7254 RETURN

7260 REM K=3 R=4

7264 IF KY=17 THEN KOLIZJADOWN=1

7266 IF KY<17 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7268 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7270 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7272 IF KY<17 THEN IF A(KX+2,KY+2+1)=1 THEN KOLIZJADOWN=1

7274 RETURN

7280 REM K=4 R=1

7284 IF KY=17 THEN KOLIZJADOWN=1

7286 IF KY<17 THEN IF A(KX+0,KY+2+1)=1 THEN KOLIZJADOWN=1

7288 IF KY<17 THEN IF A(KX+1,KY+2+1)=1 THEN KOLIZJADOWN=1

7290 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7292 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7294 RETURN

7300 REM K=4 R=2

7304 IF KY=17 THEN KOLIZJADOWN=1

7306 IF KY<17 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7308 IF KY<17 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7310 IF KY<17 THEN IF A(KX+2,KY+1+1)=1 THEN KOLIZJADOWN=1

7312 IF KY<17 THEN IF A(KX+2,KY+2+1)=1 THEN KOLIZJADOWN=1

7314 RETURN

7320 REM K=5 R=1

7324 IF KY=18 THEN KOLIZJADOWN=1

7326 IF KY<18 THEN IF A(KX+0,KY+0+1)=1 THEN KOLIZJADOWN=1

7328 IF KY<18 THEN IF A(KX+1,KY+0+1)=1 THEN KOLIZJADOWN=1

7330 IF KY<18 THEN IF A(KX+0,KY+1+1)=1 THEN KOLIZJADOWN=1

7332 IF KY<18 THEN IF A(KX+1,KY+1+1)=1 THEN KOLIZJADOWN=1

7334 RETURN

7999 RETURN

8000 REM KOLIZJA UP ROTATE

8999 RETURN

20000 REM RZUTOWANIE

20010 IF K=1 AND R=1 THEN GOTO 25000

20011 IF K=1 AND R=2 THEN GOTO 25020

20012 IF K=1 AND R=3 THEN GOTO 25040

20014 IF K=1 AND R=4 THEN GOTO 25060

20015 IF K=2 AND R=1 THEN GOTO 25080

20016 IF K=2 AND R=2 THEN GOTO 25090

20017 IF K=2 AND R=3 THEN GOTO 25110

20018 IF K=2 AND R=4 THEN GOTO 25130

20019 IF K=3 AND R=1 THEN GOTO 25150

20020 IF K=3 AND R=2 THEN GOTO 25170

20021 IF K=3 AND R=3 THEN GOTO 25190

20022 IF K=3 AND R=4 THEN GOTO 25210

20023 IF K=4 AND R=1 THEN GOTO 25230

20024 IF K=4 AND R=2 THEN GOTO 25250

20025 IF K=4 AND R=3 THEN GOTO 25230

20026 IF K=4 AND R=4 THEN GOTO 25250

20027 IF K=5 AND R=1 THEN GOTO 25310

20028 IF K=5 AND R=2 THEN GOTO 25310

20029 IF K=5 AND R=3 THEN GOTO 25310

20030 IF K=5 AND R=4 THEN GOTO 25310

25000 REM K=1 R=1

25002 A(KX+1,KY+0)=1

25004 A(KX+0,KY+1)=1

25006 A(KX+1,KY+1)=1

25008 A(KX+2,KY+1)=1

25010 KX=3:KY=0:K=LOS

25012 RETURN

25020 REM K=1 R=2

25022 A(KX+1,KY+0)=1

25024 A(KX+1,KY+1)=1

25026 A(KX+1,KY+2)=1

25028 A(KX+2,KY+1)=1

25030 KX=3:KY=0:K=LOS

25032 RETURN

25040 REM K=1 R=3

25042 A(KX+0,KY+1)=1

25044 A(KX+1,KY+1)=1

25046 A(KX+2,KY+1)=1

25048 A(KX+1,KY+2)=1

25050 KX=3:KY=0:K=LOS

25052 RETURN

25060 REM K=1 R=4

25062 A(KX+0,KY+1)=1

25064 A(KX+1,KY+0)=1

25066 A(KX+1,KY+1)=1

25068 A(KX+1,KY+2)=1

25070 KX=3:KY=0:K=LOS

25072 RETURN

25080 REM K=2 R=1

25082 A(KX+1,KY+0)=1

25084 A(KX+1,KY+1)=1

25086 A(KX+1,KY+2)=1

25088 A(KX+2,KY+2)=1:KX=3:KY=0:K=LOS:RETURN

25090 REM K=2 R=2

25092 A(KX+0,KY+1)=1

25094 A(KX+1,KY+1)=1

25096 A(KX+2,KY+1)=1

25098 A(KX+0,KY+2)=1

25100 KX=3:KY=0:K=LOS:RETURN

25110 REM K=2 R=3

25112 A(KX+1,KY+0)=1

25114 A(KX+1,KY+1)=1

25116 A(KX+1,KY+2)=1

25118 A(KX+0,KY+0)=1

25120 KX=3:KY=0:K=LOS:RETURN

25130 REM K=2 R=4

25132 A(KX+0,KY+1)=1

25134 A(KX+1,KY+1)=1

25136 A(KX+2,KY+1)=1

25138 A(KX+2,KY+0)=1

25140 KX=3:KY=0:K=LOS:RETURN

25150 REM K=3 R=1

25152 A(KX+1,KY+0)=1

25154 A(KX+1,KY+1)=1

25156 A(KX+1,KY+2)=1

25158 A(KX+0,KY+2)=1

25160 KX=3:KY=0:K=LOS:RETURN

25170 REM K=3 R=2

25172 A(KX+0,KY+1)=1

25174 A(KX+1,KY+1)=1

25176 A(KX+2,KY+1)=1

25178 A(KX+0,KY+0)=1

25180 KX=3:KY=0:K=LOS:RETURN

25190 REM K=3 R=3

25192 A(KX+1,KY+0)=1

25194 A(KX+1,KY+1)=1

25196 A(KX+1,KY+2)=1

25198 A(KX+2,KY+0)=1

25200 KX=3:KY=0:K=LOS:RETURN

25210 REM K=3 R=4

25212 A(KX+0,KY+1)=1

25214 A(KX+1,KY+1)=1

25216 A(KX+2,KY+1)=1

25218 A(KX+2,KY+2)=1

25220 KX=3:KY=0:K=LOS:RETURN

25230 REM K=4 R=1

25232 A(KX+0,KY+2)=1

25234 A(KX+1,KY+2)=1

25236 A(KX+1,KY+1)=1

25238 A(KX+2,KY+1)=1

25240 KX=3:KY=0:K=LOS:RETURN

25250 REM K=4 R=2

25252 A(KX+1,KY+0)=1

25254 A(KX+1,KY+1)=1

25256 A(KX+2,KY+1)=1

25258 A(KX+2,KY+2)=1

25260 KX=3:KY=0:K=LOS:RETURN

25310 REM K=5 R=1

25312 A(KX+0,KY+0)=1

25314 A(KX+1,KY+0)=1

25316 A(KX+0,KY+1)=1

25318 A(KX+1,KY+1)=1

25320 KX=3:KY=0:K=LOS:RETURN

30000 REM CZYSZCZENIE WIERSZY

30009 FOR Y=4 TO 19

30010 W=0

30011 FOR X=0 TO 9

30012 IF A(X,Y)=0 THEN W=1

30020 NEXT X

30021 IF W=0 THEN GOSUB 30060

30050 NEXT Y

30051 GOTO 30199

30060 REM OPUSC WIERSZ W DOL

30061 FOR WIERSZX=0 TO 9

30062 A(WIERSZX,Y)=0

30063 NEXT WIERSZX

30064 FOR WIERSZY=Y TO 4 STEP -1

30065 FOR ZX=0 TO 9

30066 A(ZX,WIERSZY)=A(ZX,WIERSZY-1)

30067 NEXT ZX

30068 NEXT WIERSZY

30069 SCORE=SCORE+100

30070 FOR QX=0 TO 9

30071 A(QX,0)=0:A(QX,1)=0:A(QX,2)=0:A(QX,3)=0:A(QX,4)=0

30072 NEXT QX

30198 RETURN

30199 REM RYSOWANIE EKRANU

30200 FOR Y=0 TO 19

30201 FOR X=0 TO 9

30203 POSITION X+14,Y

30204 IF A(X,Y)=1 THEN ? "á"

30205 IF A(X,Y)=0 THEN ? " "

30210 NEXT X

30211 NEXT Y

30300 FOR QX=0 TO 9

30301 A(QX,0)=0:A(QX,1)=0:A(QX,2)=0:A(QX,3)=0:A(QX,4)=0

30302 NEXT QX

30303 LOS=INT(RND(0)*5)+1

30304 POSITION 30,8:? " "

30305 POSITION 31,8:? " "

30306 POSITION 32,8:? " "

30307 POSITION 30,9:? " "

30308 POSITION 31,9:? " "

30309 POSITION 32,9:? " "

30310 POSITION 32,10:? " "

30311 POSITION 31,10:? " "

30312 POSITION 30,10:? " "

30313 IF LOS=1 THEN POSITION 31,8:? "á"

30314 IF LOS=1 THEN POSITION 30,9:? "á"

30315 IF LOS=1 THEN POSITION 31,9:? "á"

30316 IF LOS=1 THEN POSITION 32,9:? "á"

30317 IF LOS=2 THEN POSITION 31,8:? "á"

30318 IF LOS=2 THEN POSITION 31,9:? "á"

30319 IF LOS=2 THEN POSITION 31,10:? "á"

30320 IF LOS=2 THEN POSITION 32,10:? "á"

30321 IF LOS=3 THEN POSITION 31,8:? "á"

30322 IF LOS=3 THEN POSITION 31,9:? "á"

30323 IF LOS=3 THEN POSITION 31,10:? "á"

30324 IF LOS=3 THEN POSITION 30,10:? "á"

30325 IF LOS=4 THEN POSITION 30,10:? "á"

30326 IF LOS=4 THEN POSITION 31,10:? "á"

30327 IF LOS=4 THEN POSITION 31,9:? "á"

30328 IF LOS=4 THEN POSITION 32,9:? "á"

30329 IF LOS=5 THEN POSITION 30,9:? "á"

30330 IF LOS=5 THEN POSITION 31,9:? "á"

30331 IF LOS=5 THEN POSITION 30,10:? "á"

30332 IF LOS=5 THEN POSITION 31,10:? "á"

30333 POSITION 29,12:? "NEXT"

31000 RETURN