Last active
June 14, 2019 12:24
-
-
Save mkakh/0439464e1a8d11dc1e29e50ee02a15a7 to your computer and use it in GitHub Desktop.
プログラミング入門前に作ったテトリスのプログラム (動作保証なし ただの記念うｐ)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 DIM Q(8) : WT=5 | |
| 20 CLS 3 | |
| 30 COLOR 7,0,0,7,3 | |
| 40 GOSUB *FRAME | |
| 50 ' | |
| 60 Q(4)=1 : Q(5)=1 :CL=2 | |
| 70 FOR Y=0 TO 296 STEP 24 | |
| 80 IF Y>=16 THEN Q(0)=1:Q(1)=1 | |
| 90 IF Y>=104 THEN Q(3)=1:Q(6)=1:Q(0)=0:Q(5)=0:X=X-24 | |
| 100 GOSUB *KABE | |
| 110 GOSUB *BOX | |
| 120 GOSUB *BLOCK | |
| 130 FOR J=0 TO WT : NEXT J | |
| 140 NEXT Y | |
| 150 GOSUB *RESET : X=0 : Y=0 :GOSUB *FRAME | |
| 160 ' | |
| 170 Q(4)=1 : Q(5)=1 : Q(6)=1 : Q(7)=1 :CL=12 | |
| 180 FOR Y=0 TO 296 STEP 24 | |
| 190 IF Y>=104 THEN Q(1)=1:Q(8)=1:Q(6)=0:Q(7)=0:X=X-24 | |
| 200 IF X<-24 THEN X=-24 | |
| 210 GOSUB *BOX | |
| 220 GOSUB *BL1 | |
| 230 GOSUB *BLOCK | |
| 240 FOR J=0 TO WT : NEXT J | |
| 250 NEXT Y | |
| 260 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 270 ' | |
| 280 Q(3)=1:Q(4)=1:Q(5)=1:CL=11 | |
| 290 FOR Y=0 TO 296 STEP 24 | |
| 300 IF Y>=16 THEN Q(1)=1 | |
| 310 IF Y>=80 THEN Q(7)=1:Q(5)=0:X=X+24 | |
| 320 GOSUB *KABE | |
| 330 GOSUB *BOX | |
| 340 GOSUB *BL4:GOSUB *BL1 | |
| 350 GOSUB *BLOCK | |
| 360 FOR J=0 TO WT : NEXT J | |
| 370 NEXT Y | |
| 380 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 390 ' | |
| 400 Q(4)=1 : Q(5)=1 :CL=2 | |
| 410 FOR Y=0 TO 248 STEP 24 | |
| 420 IF Y>=16 THEN Q(0)=1:Q(1)=1 | |
| 430 IF Y>=32 THEN Q(3)=1:Q(6)=1:Q(0)=0:Q(5)=0:X=X+24 | |
| 440 GOSUB *KABE | |
| 450 GOSUB *BOX | |
| 460 GOSUB *BL11:GOSUB *BL1:GOSUB *BL4 | |
| 470 GOSUB *BLOCK | |
| 480 FOR J=0 TO WT : NEXT J | |
| 490 NEXT Y | |
| 500 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 510 ' | |
| 520 Q(4)=1 : Q(5)=1 : Q(6)=1 : Q(7)=1 :CL=12 | |
| 530 FOR Y=0 TO 248 STEP 24 | |
| 540 IF Y>=104 THEN Q(1)=1:Q(8)=1:Q(6)=0:Q(7)=0:X=X-24 | |
| 550 IF X<-24 THEN X=-24 | |
| 560 GOSUB *BOX | |
| 570 GOSUB *BL13:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11 | |
| 580 GOSUB *BLOCK | |
| 590 FOR J=0 TO WT : NEXT J | |
| 600 NEXT Y | |
| 610 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 620 ' | |
| 630 Q(3)=1:Q(4)=1:Q(5)=1:CL=1 | |
| 640 FOR Y=0 TO 176 STEP 24 | |
| 650 IF Y>=16 THEN Q(0)=1 | |
| 660 IF Y>=80 AND Y<128 THEN GOSUB *RESET : Q(1)=1:Q(2)=1:Q(4)=1:Q(7)=1 | |
| 670 IF Y>=104 THEN GOSUB *RESET : Q(3)=1:Q(4)=1:Q(5)=1:Q(8)=1 | |
| 680 IF Y>104 THEN X=X-24 | |
| 690 IF X<-48 THEN X=-48 | |
| 700 GOSUB *BOX | |
| 710 GOSUB *BL5:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13 | |
| 720 GOSUB *BLOCK | |
| 730 FOR J=0 TO WT : NEXT J | |
| 740 NEXT Y | |
| 750 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 760 ' | |
| 770 Q(3)=1:Q(4)=1:Q(5)=1:CL=11 | |
| 780 FOR Y=0 TO 296 STEP 24 | |
| 790 IF Y>=16 THEN Q(1)=1 | |
| 800 IF Y>=80 THEN Q(7)=1:Q(3)=0:X=X+24 | |
| 810 IF X>=48 THEN X=48 | |
| 820 GOSUB *BOX | |
| 830 GOSUB *BL6:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5 | |
| 840 GOSUB *BLOCK | |
| 850 FOR J=0 TO WT : NEXT J | |
| 860 NEXT Y | |
| 870 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 880 ' | |
| 890 Q(4)=1 : Q(5)=1 :CL=2 | |
| 900 FOR Y=0 TO 248 STEP 24 | |
| 910 IF Y>=16 THEN Q(0)=1:Q(1)=1 | |
| 920 IF Y>=32 THEN Q(3)=1:Q(6)=1:Q(0)=0:Q(5)=0:X=X-24 | |
| 930 GOSUB *KABE | |
| 940 GOSUB *BOX | |
| 950 GOSUB *BL10:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6 | |
| 960 GOSUB *BLOCK | |
| 970 FOR J=0 TO WT : NEXT J | |
| 980 NEXT Y | |
| 990 GOSUB *RESET : X=0 : Y=0 | |
| 1000 ' | |
| 1010 Q(4)=1 : Q(5)=1 : Q(6)=1 : Q(7)=1 :CL=12 | |
| 1020 FOR Y=0 TO 248 STEP 24 | |
| 1030 IF Y>=104 THEN Q(1)=1:Q(8)=1:Q(6)=0:Q(7)=0:X=X+24 | |
| 1040 IF X>=48 THEN X=48 | |
| 1050 GOSUB *BOX | |
| 1060 GOSUB *BL2:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 1070 GOSUB *BLOCK | |
| 1080 FOR J=0 TO WT : NEXT J | |
| 1090 NEXT Y | |
| 1100 GOSUB *RESET : X=0 : Y=0 | |
| 1110 ' | |
| 1120 Q(3)=1:Q(4)=1:Q(5)=1:CL=14 | |
| 1130 FOR Y=0 TO 200 STEP 24 | |
| 1131 IF Y>=16 THEN Q(2)=1 :X=X+24 | |
| 1140 IF Y>=80 AND Y<128 THEN GOSUB *RESET : Q(1)=1:Q(4)=1:Q(7)=1:Q(8)=1 | |
| 1150 IF Y>=104 THEN GOSUB *RESET : Q(3)=1:Q(4)=1:Q(5)=1:Q(6)=1 | |
| 1151 IF X>=96 THEN X=96 | |
| 1160 GOSUB *BOX | |
| 1170 GOSUB *A | |
| 1180 GOSUB *BL12 | |
| 1190 GOSUB *BLOCK | |
| 2000 FOR J=0 TO WT : NEXT J | |
| 2010 NEXT Y | |
| 2020 GOSUB *RESET : X=0 : Y=0 | |
| 2030 ' | |
| 2040 Q(4)=1 : Q(5)=1 :CL=2 | |
| 2050 FOR Y=0 TO 176 STEP 24 | |
| 2060 IF Y>=16 THEN Q(0)=1:Q(1)=1 | |
| 2070 IF Y>=32 THEN Q(3)=1:Q(6)=1:Q(0)=0:Q(5)=0:X=X+24 | |
| 2071 IF X>=72 THEN X=72 | |
| 2080 GOSUB *BOX | |
| 2090 GOSUB *A | |
| 2100 GOSUB *BL12:GOSUB *BL14 | |
| 2110 GOSUB *BLOCK | |
| 2120 FOR J=0 TO WT : NEXT J | |
| 2130 NEXT Y | |
| 2140 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 2150 ' | |
| 2160 Q(3)=1:Q(4)=1:Q(5)=1:CL=1 | |
| 2170 FOR Y=0 TO 200 STEP 24 | |
| 2180 IF Y>=16 THEN Q(0)=1 :X=X+24 | |
| 2190 IF Y>=80 AND Y<128 THEN GOSUB *RESET : Q(1)=1:Q(2)=1:Q(4)=1:Q(7)=1 :X=X+24 | |
| 2200 IF Y>=104 THEN GOSUB *RESET : Q(3)=1:Q(4)=1:Q(5)=1:Q(8)=1 | |
| 2220 IF X>168 THEN X=168 | |
| 2230 GOSUB *BOX | |
| 2240 GOSUB *A | |
| 2241 GOSUB *BL12:GOSUB *BL14:GOSUB *BL16 | |
| 2250 GOSUB *BLOCK | |
| 2260 FOR J=0 TO WT : NEXT J | |
| 2270 NEXT Y | |
| 2280 GOSUB *RESET : X=0:Y=0:GOSUB *FRAME | |
| 2281 ' | |
| 2290 Q(3)=1:Q(4)=1:Q(5)=1:CL=13 | |
| 2300 FOR Y=0 TO 176 STEP 24 | |
| 2320 X=X+24 | |
| 2321 IF X>144 THEN X=144 | |
| 2330 GOSUB *BOX | |
| 2340 GOSUB *A | |
| 2350 GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15 | |
| 2360 GOSUB *BLOCK | |
| 2370 LINE(X+152,Y+32)-(X+176,Y+56),7,BF,13 | |
| 2390 FOR J=0 TO WT : NEXT J | |
| 2400 NEXT Y | |
| 2410 GOSUB *RESET : X=0:Y=0:GOSUB *FRAME | |
| 2420 ' | |
| 2430 Q(3)=1:Q(4)=1:Q(5)=1:CL=14 | |
| 2440 FOR Y=0 TO 176 STEP 24 | |
| 2450 IF Y>=16 THEN Q(2)=1 :X=X-24 | |
| 2460 IF Y>=80 AND Y<128 THEN GOSUB *RESET : Q(1)=1:Q(4)=1:Q(7)=1:Q(8)=1 | |
| 2470 IF Y>=104 THEN GOSUB *RESET : Q(3)=1:Q(4)=1:Q(5)=1:Q(6)=1 | |
| 2471 IF X<=-120 THEN X=-120 | |
| 2480 GOSUB *BOX | |
| 2490 GOSUB *A | |
| 2500 GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22 | |
| 2510 GOSUB *BLOCK | |
| 2520 FOR J=0 TO WT : NEXT J | |
| 2530 NEXT Y | |
| 2540 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 2550 ' | |
| 2570 Q(3)=1:Q(4)=1:Q(5)=1:CL=11 | |
| 2580 FOR Y=0 TO 128 STEP 24 | |
| 2590 IF Y>=16 THEN Q(1)=1 | |
| 2600 IF Y>=80 THEN Q(7)=1:Q(3)=0:X=X+24 | |
| 2610 IF X>=48 THEN X=48 | |
| 2620 GOSUB *BOX | |
| 2630 GOSUB *A | |
| 2631 GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 2640 GOSUB *BLOCK | |
| 2650 FOR J=0 TO WT : NEXT J | |
| 2660 NEXT Y | |
| 2670 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 2680 ' | |
| 2690 Q(3)=1:Q(4)=1:Q(5)=1:CL=1 | |
| 2700 FOR Y=0 TO 128 STEP 24 | |
| 2710 IF Y>=16 THEN Q(0)=1:X=X-24 | |
| 2720 IF Y>=32 THEN GOSUB *RESET : Q(1)=1:Q(4)=1:Q(6)=1:Q(7)=1 | |
| 2730 IF X<=-120 THEN X=-120 | |
| 2740 GOSUB *BOX | |
| 2750 GOSUB *I | |
| 2770 GOSUB *BLOCK | |
| 2780 FOR J=0 TO WT:NEXT J | |
| 2790 NEXT Y | |
| 2800 GOSUB *RESET:X=0:Y=0:GOSUB *FRAME | |
| 2810 ' | |
| 2820 Q(4)=1 : Q(5)=1 : Q(6)=1 : Q(7)=1 :CL=12 | |
| 2830 FOR Y=0 TO 176 STEP 24 | |
| 2831 X=X+24 | |
| 2840 IF Y>=104 THEN Q(1)=1:Q(8)=1:Q(6)=0:Q(7)=0 | |
| 2850 GOSUB *KABE | |
| 2860 GOSUB *BOX | |
| 2870 GOSUB *I | |
| 2881 GOSUB *BL7 | |
| 2890 GOSUB *BLOCK | |
| 2900 FOR J=0 TO WT : NEXT J | |
| 3000 NEXT Y | |
| 3010 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 3020 ' | |
| 3030 Q(3)=1:Q(4)=1:Q(5)=1:CL=11 | |
| 3040 FOR Y=0 TO 128 STEP 24 | |
| 3050 IF Y>=16 THEN Q(1)=1:X=X+48 | |
| 3060 IF Y>=80 THEN Q(7)=1:Q(5)=0 | |
| 3070 GOSUB *KABE | |
| 3080 GOSUB *BOX | |
| 3081 GOSUB *I | |
| 3090 GOSUB *BL7:GOSUB *BL17 | |
| 3100 GOSUB *BLOCK | |
| 3110 FOR J=0 TO WT : NEXT J | |
| 3120 NEXT Y | |
| 3130 GOSUB *RESET : X=0 : Y=0:GOSUB *FRAME | |
| 3140 ' | |
| 3150 Q(3)=1:Q(4)=1:Q(5)=1:CL=14 | |
| 3160 FOR Y=0 TO 128 STEP 24 | |
| 3170 IF Y>=16 THEN Q(0)=1:X=X-24 | |
| 3180 IF Y>=32 THEN GOSUB *RESET : Q(1)=1:Q(4)=1:Q(7)=1:Q(8)=1 | |
| 3190 IF X<=-48 THEN X=-48 | |
| 3200 GOSUB *BOX | |
| 3210 GOSUB *I:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19 | |
| 3220 GOSUB *BLOCK | |
| 3230 FOR J=0 TO WT:NEXT J | |
| 3240 NEXT Y | |
| 3250 GOSUB *RESET:X=0:Y=0:GOSUB *FRAME | |
| 3260 ' | |
| 3270 Q(3)=1:Q(4)=1:Q(5)=1:CL=13 | |
| 3280 FOR Y=0 TO 80 STEP 24 | |
| 3290 X=X-24 | |
| 3300 IF X<-72 THEN X=-72 | |
| 3310 GOSUB *BOX | |
| 3320 GOSUB *I:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8 | |
| 3340 GOSUB *BLOCK | |
| 3350 LINE(X+152,Y+32)-(X+176,Y+56),7,BF,13 | |
| 3360 FOR J=0 TO WT : NEXT J | |
| 3370 NEXT Y | |
| 3380 GOSUB *RESET : X=0:Y=0:GOSUB *FRAME | |
| 3390 ' | |
| 3400 Q(4)=1 : Q(5)=1 :CL=2 | |
| 3410 FOR Y=0 TO 80 STEP 24 | |
| 3411 X=X+48 | |
| 3420 IF Y>=16 THEN Q(0)=1:Q(1)=1 | |
| 3430 IF Y>=32 THEN Q(3)=1:Q(6)=1:Q(0)=0:Q(5)=0 | |
| 3440 GOSUB *KABE | |
| 3450 GOSUB *BOX | |
| 3460 GOSUB *I:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8:GOSUB *BL9 | |
| 3470 GOSUB *BLOCK | |
| 3480 FOR J=0 TO WT*2 : NEXT J | |
| 3490 NEXT Y | |
| 3500 GOSUB *RESET : X=0 : Y=0 | |
| 3510 ' | |
| 3520 Q(4)=1 : Q(5)=1 : Q(6)=1 : Q(7)=1 :CL=12 | |
| 3530 FOR Y=0 TO 80 STEP 24 | |
| 3531 IF Y>=32 THEN X=X+24 | |
| 3540 IF Y>=56 THEN Q(1)=1:Q(8)=1:Q(6)=0:Q(7)=0 | |
| 3550 IF X>72 THEN X=72 | |
| 3560 GOSUB *BOX | |
| 3570 GOSUB *I:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8:GOSUB *BL9:GOSUB *BL21 | |
| 3580 GOSUB *BLOCK | |
| 3590 FOR J=0 TO WT : NEXT J | |
| 3600 NEXT Y | |
| 3610 GOTO *F | |
| 3620 ' | |
| 4990 END | |
| 5000 *BOX | |
| 5001 IF Y>128 THEN A=368 ELSE A=176 | |
| 5010 LINE(32,32)-(608,A),8,BF | |
| 5020 FOR I=32 TO 368 STEP 24 | |
| 5030 LINE(32,I)-(608,I),15 | |
| 5040 NEXT I | |
| 5050 FOR I=32 TO 608 STEP 24 | |
| 5060 LINE(I,32)-(I,368),15 | |
| 5070 NEXT I | |
| 5080 RETURN | |
| 5090 *FRAME | |
| 5091 CLS 3 | |
| 5100 LINE(0,0)-(32,400),9,BF | |
| 5110 LINE(0,368)-(639,400),9,BF | |
| 5120 LINE(608,0)-(639,400),9,BF | |
| 5130 LINE(0,0)-(639,32),9,BF | |
| 5131 LINE(32,32)-(608,368),8,BF | |
| 5140 RETURN | |
| 5150 *BLOCK | |
| 5160 IF Q(0)=1 THEN LINE(176+X,Y+8)-(200+X,Y+32),7,BF,CL | |
| 5170 IF Q(1)=1 THEN LINE(200+X,Y+8)-(224+X,Y+32),7,BF,CL | |
| 5180 IF Q(2)=1 THEN LINE(224+X,Y+8)-(248+X,Y+32),7,BF,CL | |
| 5190 IF Q(3)=1 THEN LINE(176+X,Y+32)-(200+X,Y+56),7,BF,CL | |
| 5200 IF Q(4)=1 THEN LINE(200+X,Y+32)-(224+X,Y+56),7,BF,CL | |
| 5210 IF Q(5)=1 THEN LINE(224+X,Y+32)-(248+X,Y+56),7,BF,CL | |
| 5220 IF Q(6)=1 THEN LINE(176+X,Y+56)-(200+X,Y+80),7,BF,CL | |
| 5230 IF Q(7)=1 THEN LINE(200+X,Y+56)-(224+X,Y+80),7,BF,CL | |
| 5240 IF Q(8)=1 THEN LINE(224+X,Y+56)-(248+X,Y+80),7,BF,CL | |
| 5250 RETURN | |
| 5260 *BL1 | |
| 5270 LINE(32,320)-(56,344),7,BF,2 | |
| 5280 LINE(32,344)-(56,368),7,BF,2 | |
| 5290 LINE(56,296)-(80,320),7,BF,2 | |
| 5300 LINE(56,320)-(80,344),7,BF,2 | |
| 5310 RETURN | |
| 5320 *BL2 | |
| 5330 LINE(32,272)-(56,296),7,BF,2 | |
| 5340 LINE(32,296)-(56,320),7,BF,2 | |
| 5350 LINE(56,248)-(80,272),7,BF,2 | |
| 5360 LINE(56,272)-(80,296),7,BF,2 | |
| 5380 RETURN | |
| 5390 *BL3 | |
| 5400 LINE(56,200)-(80,224),7,BF,14 | |
| 5410 LINE(80,200)-(104,224),7,BF,14 | |
| 5420 LINE(104,200)-(128,224),7,BF,14 | |
| 5430 LINE(56,224)-(80,248),7,BF,14 | |
| 5440 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 5450 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22 | |
| 5460 RETURN | |
| 5470 *BL4 | |
| 5480 LINE(176,296)-(200,320),7,BF,12 | |
| 5490 LINE(176,320)-(200,344),7,BF,12 | |
| 5500 LINE(200,320)-(224,344),7,BF,12 | |
| 5510 LINE(200,344)-(224,368),7,BF,12 | |
| 5530 RETURN | |
| 5540 *BL5 | |
| 5550 LINE(176,248)-(200,272),7,BF,12 | |
| 5560 LINE(176,272)-(200,296),7,BF,12 | |
| 5570 LINE(200,272)-(224,296),7,BF,12 | |
| 5580 LINE(200,296)-(224,320),7,BF,12 | |
| 5600 RETURN | |
| 5610 *BL6 | |
| 5620 LINE(128,200)-(152,224),7,BF,1 | |
| 5630 LINE(152,200)-(176,224),7,BF,1 | |
| 5640 LINE(176,200)-(200,224),7,BF,1 | |
| 5650 LINE(176,224)-(200,248),7,BF,1 | |
| 5670 RETURN | |
| 5680 *BL7 | |
| 5690 LINE(80,128)-(104,152),7,BF,1 | |
| 5700 LINE(80,152)-(104,176),7,BF,1 | |
| 5710 LINE(80,176)-(104,200),7,BF,1 | |
| 5720 LINE(56,176)-(80,200),7,BF,1 | |
| 5730 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 5740 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 5750 'GOSUB *BL18 | |
| 5760 RETURN | |
| 5770 *BL8 | |
| 5780 LINE(152,128)-(176,152),7,BF,14 | |
| 5790 LINE(152,152)-(176,176),7,BF,14 | |
| 5800 LINE(152,176)-(176,200),7,BF,14 | |
| 5810 LINE(176,176)-(200,200),7,BF,14 | |
| 5820 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 5830 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 5840 'GOSUB *BL18:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19 | |
| 5850 RETURN | |
| 5860 *BL9 | |
| 5870 LINE(80,104)-(104,128),7,BF,13 | |
| 5880 LINE(104,104)-(128,128),7,BF,13 | |
| 5890 LINE(128,104)-(152,128),7,BF,13 | |
| 5900 LINE(152,104)-(176,128),7,BF,13 | |
| 5910 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 5920 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 5930 'GOSUB *BL18:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8 | |
| 5940 RETURN | |
| 5950 *BL10 | |
| 5960 LINE(248,296)-(272,320),7,BF,11 | |
| 5970 LINE(248,320)-(272,344),7,BF,11 | |
| 5980 LINE(248,344)-(272,368),7,BF,11 | |
| 5990 LINE(272,320)-(296,344),7,BF,11 | |
| 6010 RETURN | |
| 6020 *BL11 | |
| 6030 LINE(392,320)-(416,344),7,BF,11 | |
| 6040 LINE(416,296)-(440,320),7,BF,11 | |
| 6050 LINE(416,320)-(440,344),7,BF,11 | |
| 6060 LINE(416,344)-(440,368),7,BF,11 | |
| 6080 RETURN | |
| 6090 *BL12 | |
| 6100 LINE(248,248)-(272,272),7,BF,12 | |
| 6110 LINE(248,272)-(272,296),7,BF,12 | |
| 6120 LINE(272,272)-(296,296),7,BF,12 | |
| 6130 LINE(272,296)-(296,320),7,BF,12 | |
| 6140 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6150 'GOSUB *BL2 | |
| 6160 RETURN | |
| 6170 *BL13 | |
| 6180 LINE(416,248)-(440,272),7,BF,2 | |
| 6190 LINE(416,272)-(440,296),7,BF,2 | |
| 6200 LINE(392,272)-(416,296),7,BF,2 | |
| 6210 LINE(392,296)-(416,320),7,BF,2 | |
| 6230 RETURN | |
| 6240 *BL14 | |
| 6250 LINE(272,248)-(296,272),7,BF,14 | |
| 6260 LINE(272,224)-(296,248),7,BF,14 | |
| 6270 LINE(296,224)-(320,248),7,BF,14 | |
| 6280 LINE(320,224)-(344,248),7,BF,14 | |
| 6290 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6300 'GOSUB *BL2:GOSUB *BL12 | |
| 6310 RETURN | |
| 6320 *BL15 | |
| 6330 LINE(344,224)-(368,248),7,BF,1 | |
| 6340 LINE(368,224)-(392,248),7,BF,1 | |
| 6350 LINE(392,224)-(416,248),7,BF,1 | |
| 6360 LINE(392,248)-(416,272),7,BF,1 | |
| 6370 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6380 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16 | |
| 6390 RETURN | |
| 6400 *BL16 | |
| 6410 LINE(248,200)-(272,224),7,BF,2 | |
| 6420 LINE(248,224)-(272,248),7,BF,2 | |
| 6430 LINE(272,176)-(296,200),7,BF,2 | |
| 6440 LINE(272,200)-(296,224),7,BF,2 | |
| 6450 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6460 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14 | |
| 6470 RETURN | |
| 6480 *BL17 | |
| 6490 LINE(392,176)-(416,200),7,BF,12 | |
| 6500 LINE(392,200)-(416,224),7,BF,12 | |
| 6510 LINE(416,200)-(440,224),7,BF,12 | |
| 6520 LINE(416,224)-(440,248),7,BF,12 | |
| 6530 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6540 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 6550 'GOSUB *BL18:GOSUB *BL7 | |
| 6560 RETURN | |
| 6570 *BL18 | |
| 6580 LINE(248,128)-(272,152),7,BF,11 | |
| 6590 LINE(248,152)-(272,176),7,BF,11 | |
| 6600 LINE(248,176)-(272,200),7,BF,11 | |
| 6610 LINE(272,152)-(296,176),7,BF,11 | |
| 6620 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6630 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 6640 RETURN | |
| 6650 *BL19 | |
| 6660 LINE(392,152)-(416,176),7,BF,11 | |
| 6670 LINE(416,128)-(440,152),7,BF,11 | |
| 6680 LINE(416,152)-(440,176),7,BF,11 | |
| 6690 LINE(416,176)-(440,200),7,BF,11 | |
| 6700 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6710 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 6720 'GOSUB *BL18:GOSUB *BL7:GOSUB *BL17 | |
| 6730 RETURN | |
| 6740 *BL20 | |
| 6750 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 6760 'GOSUB *BL18:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8:GOSUB *BL9:GOSUB *BL20 | |
| 6770 LINE(248,80)-(272,104),7,BF,12 | |
| 6780 LINE(248,104)-(272,128),7,BF,12 | |
| 6790 LINE(272,104)-(296,128),7,BF,12 | |
| 6800 LINE(272,128)-(296,152),7,BF,12 | |
| 6810 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6820 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3 | |
| 6830 'GOSUB *BL18:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8:GOSUB *BL9 | |
| 6840 RETURN | |
| 6850 *BL21 | |
| 6860 LINE(392,104)-(416,128),7,BF,2 | |
| 6870 LINE(392,128)-(416,152),7,BF,2 | |
| 6880 LINE(416,80)-(440,104),7,BF,2 | |
| 6890 LINE(416,104)-(440,128),7,BF,2 | |
| 6900 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6910 RETURN | |
| 6920 *BL22 | |
| 6930 LINE(296,200)-(320,224),7,BF,13 | |
| 6940 LINE(320,200)-(344,224),7,BF,13 | |
| 6950 LINE(344,200)-(368,224),7,BF,13 | |
| 6960 LINE(368,200)-(392,224),7,BF,13 | |
| 6970 'GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 6980 'GOSUB *BL2:GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15 | |
| 6990 RETURN | |
| 7000 *RESET | |
| 7010 FOR I=0 TO 8 | |
| 7020 Q(I)=0 | |
| 7030 NEXT I | |
| 7040 'X=0 : Y=0 | |
| 7050 RETURN | |
| 7060 *KABE | |
| 7061 IF X<=-144 THEN X=-144 | |
| 7062 IF X>=216 THEN X=216 | |
| 7063 RETURN | |
| 7070 *A | |
| 7080 GOSUB *BL2:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 7090 RETURN | |
| 7100 *I | |
| 7110 GOSUB *BL2:GOSUB *BL1:GOSUB *BL4:GOSUB *BL11:GOSUB *BL13:GOSUB *BL5:GOSUB *BL6:GOSUB *BL10 | |
| 7120 GOSUB *BL12:GOSUB *BL14:GOSUB *BL16:GOSUB *BL15:GOSUB *BL22:GOSUB *BL3:GOSUB *BL18 | |
| 7130 RETURN | |
| 7140 *F | |
| 7150 GOSUB *A:GOSUB *I:GOSUB *BL7:GOSUB *BL17:GOSUB *BL19:GOSUB *BL8:GOSUB *BL9 | |
| 7160 GOSUB *BL20 : GOSUB *BL21 | |
| 7170 END |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment