Home » Archimedes archive » Archimedes World » AW-1993-06.adf » AWJune93 » !AWJune93/Goodies/Goosey/!GOOSEY/GOOSE
!AWJune93/Goodies/Goosey/!GOOSEY/GOOSE
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1993-06.adf » AWJune93 |
| Filename: | !AWJune93/Goodies/Goosey/!GOOSEY/GOOSE |
| Read OK: | ✔ |
| File size: | 391C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1 REM >GOOSE
10 REM **** ARCADE GAME WITH SWEEVO'S WORLD GRAPHICS ****
20 REM **** By Kevan Thurstans 1/6/92 - 00/00/92 ****
36 S1=0:S2=0
40 ON ERROR SYS 6,112,0:CLS:SYS 6,112,1:CLS:GOTO 100
45 DIM X%(5),Y%(5),XX%(5),AN%(5),LX%(5),T%(5,9),J%(5,2)
47 DIM B%(6,2),P%(20,3),O%(20,3),YY%(5)
48 DIM HI$(10),HI%(10)
49 PROChiload
50 DIM S2 262144:S1=256
51 SYS &2E,10+S1,S2,"<OBEY$DIR>.GOOSE1"
52 LST%=3
53 MODE 13+128:OFF
55 SYS 6,112,1:CLS:SYS 6,112,0:CLS
56 SCR%=1:H$="000000"
60 XD1%=-16:XD2%=64:SO%=0
70 PROCchans
75 VOICES 8
78 MAXL%=11:C2=100
80 OH%=32:OD%=8:SCO%=0
90PIX%=0:DY%=24:S$="000000"
100 REM **** NEW GAME START *****
110 LEV%=0:NLX%=0:NLT%=0
120 SCR%=0:OB%=1:LF%=LST%
130 LX%()=1:LX%=0:J%()=0
140 P1%=0:DED%=0:DED1%=0
160 P%()=0:BOO%=0:TED%=0
170 BALL%=1:EN%=4
175 SYS 6,113,1:GOSUB 2300
180 S$="000000"
190 SCO%=0:DED%=0
195 GOTO 3000
200 REM **** NEW LIFE START *****
210 EN%=4
220 SYS 6,112,1:CLS:SYS 6,113,1:SYS 6,112,0:CLS
290 GOSUB 6000:PROCscore
500 REM **** MAIN LOOP START ****
510 SYS 6,112,SCR%
520 CLS:SYS &2E,34+S1,S2,"SCR",0,256
530 REM **** LOOP TO MOVE EACH CHARACTER ****
540 FOR L=0 TO 5
542 PROCsfx
545 JU%=0
548 IF X%(L)>0 THEN
550 XX%(L)=0:IF (X%(L)+(LX%(L)*32)+PIX%)/128>=0 AND (Y%(L)-292)/144>=0 THEN TR%=T%((Y%(L)-292)/144,(X%(L)+(LX%(L)*32)+PIX%)/128) ELSE TR%=0
555 TR1%=T%((Y%(L)-292)/144,(X%(L)+PIX%)/128)
560 IF L=0 THEN
570 XX%(L)=XX%(L)+(INKEY(-98))-(INKEY(-67))
571 IF X%(L)+XX%(L)<17 OR X%(L)+XX%(L)>1200 THEN XX%(L)=0
575 IF INKEY(-74) AND J%(L,1)=0 AND DED%=0 AND BL%<>2 THEN JU%=1
580 IF T%( (Y%(L)-292)/144 , (X%(L)+(XX%(L)*32)+PIX%)/128)=0 THEN XX%(L)=0
585 IF DED%>1 OR BL%=2 THEN XX%(0)=0
590 ELSE
600 IF X%(L)>-99 AND YY%(L)=0 THEN
610 IF TR%=0 THEN XX%(L)=-LX%(L) ELSE XX%(L)=LX%(L)
620 IF RND(1)<.05 THEN JU%=1
630 IF X%(0)>X%(L)-24 AND X%(0)<X%(L)+72 AND Y%(L)=Y%(0) THEN
635 IF DED%=0 AND BOO%=0 THEN AN%(0)=4:XX%(L)=-XX%(L):EN%-=1:OSCLI("CHANNELVOICE 3 2"):SOUND 3,-15,(INT(RND(1)*5)*5)+50,1:PROCscore
640 IF DED%=0 AND BOO%>0 THEN YY%(L)=1:BOO%-=1:XX%(L)=0:OSCLI("CHANNELVOICE 3 3"):SOUND 3,-12,90,1:SCO%+=50:PROCscore
642 ENDIF
690 ENDIF
695 ENDIF
700 REM IF JUMPED
705 IF L=0 AND DED%=1 THEN 760
710 IF JU%=1 AND YY%(L)=0 AND J%(L,1)=0 THEN
715 IF TR1%<>4 AND TR1%<>5 THEN 800
720 IF TR1%=5 THEN JU%=-1
725 J%(L,1)=Y%(L)
730 J%(L,1)=J%(L,1)+(JU%*144):IF T%((J%(L,1)-292)/144,(X%(L)+PIX%)/128)=0 THEN 730
740 J%(L,2)=0
745 SOUND 4,-10,10,1
750 ENDIF
760 IF J%(L,1)>0 THEN J%(L,2)+=1:XX%(L)=0:IF J%(L,2)=6 THEN SOUND 5,-10,10,1:J%(L,2)=7:Y%(L)=J%(L,1) ELSE IF J%(L,2)=12 THEN J%(L,1)=0
800 REM DISPLAY CHARACTER (L)
840 IF XX%(L)<>0 THEN IF YY%(L)=0 THEN LX%(L)=XX%(L):X%(L)=X%(L)+(XX%(L)*16):AN%(L)+=1:IF AN%(L)>3 THEN AN%(L)=1 ELSE Y%(L)=Y%(L)+(YY%(L)*16):IF YY%(L)>0 THEN YY%(L)=YY%(L)+1:IF YY%(L)=5 THEN YY%(L)=-3
845 IF (Y%(L)-292)/144<0 THEN X%(L)=-999:YY%(L)=0
850 IF L=0 AND DED%=0 AND LX%(L)<>0 THEN P1%=POINT(X%(L)+32,Y%(0)+DY%):SYS &2E,34+S1,S2,"M"+STR$(AN%(L)*LX%(L)),X%(L),Y%(L),8 ELSE IF DED%>0 AND L=0 THEN SYS &2E,34+S1,S2,"DEAD",X%(L),Y%(L),8:DED%-=1:IF DED%=0 THEN LX%(0)=1:PROCscore
851 IF LF%=0 AND DED%=0 THEN 2200
855 IF L<>0 THEN SYS &2E,34+S1,S2,"C"+STR$(AN%(L)*LX%(L)),X%(L),Y%(L),8
860 IF J%(L,1)>0 THEN SYS &2E,34+S1,S2,"TR"+STR$(J%(L,2) MOD 6),X%(L),Y%(L),8
862 ENDIF
863 NEXT L
865 IF BL%>0 THEN
866 SYS &2E,S1+34,S2,"BALL"+STR$(BALL%),BX%,BY%+124,8:SYS &2E,S1+34,S2,"BASKET",BX%,BY%,8:BX%=BX%-(8 AND BX%>BLX%):BX%=BX%+(INT(RND(1)*3)-1 AND BL%=2):BY%=BY%+(8 AND BL%=2):Y%(0)=Y%(0)+(8 AND BL%=2):IF BY%>1024 THEN 3000
867 IF INT(X%(0)/32)=INT(BX%/32) AND Y%(0)=BY% AND BL%=1 THEN BL%=2
868 BALL%=(BALL%+1) MOD 2
869 ENDIF
870 FOR L=0 TO 19:IF O%(L,1)>0 THEN SYS &2E,34+S1,S2,"0"+STR$(O%(L,3)),O%(L,1),O%(L,2),8:IF (O%(L,2)-324)/144<>INT((O%(L,2)-324)/144) THEN O%(L,2)-=OD%
875 IF (INT(O%(L,1)/64)=INT(X%(0)/64) OR INT(O%(L,1)/64)+1=INT(X%(0)/64)) AND INT((Y%(0)-292)/144)=(O%(L,2)-324)/144 THEN GOSUB 2000
880 NEXT L
900IF P1%=39 THEN
910FOR L=1 TO PL%:IF X%(0)=P%(L,1) AND INT((Y%(0)-292)/144)=P%(L,2) AND P%(L,3)<>0 THEN SOUND 7,-15,625,1:O%(OB%,1)=X%(0)-32:O%(OB%,2)=Y%(0)+OH%:O%(OB%,3)=P%(L,3):P%(L,3)=0:OB%=(OB%+1) MOD 20:PROCdummy:L=PL%+1
920 NEXT
925 ENDIF
930 IF P1%=5 THEN
940 FOR L=1 TO BR%
950 IF (INT(B%(L,1)/32)=INT(X%(0)/32) OR INT(B%(L,1)/32)+1=INT(X%(0)/32)) AND Y%(0)=B%(L,2) THEN
960 IF TED%>0 THEN B%(L,1)=-999:TED%-=1:OSCLI ("CHANNELVOICE 1 9"):SOUND 1,-15,4000,1:PROCdummy:PROCscore:BR1%-=1:IF BR1%=0 THEN BL%=1
970 ENDIF
980 NEXT
990 ENDIF
1960 SYS &2E,34+S1,S2,"Score",0,0
1970 PROCscr_flip
1990 GOTO 500
2000 REM **** GET OBJECT ****
2005 SOUND 6,-15,5980,1
2010 CASE O%(L,3) OF
2020 WHEN 1:BOO%+=1:SCO%+=5
2030 WHEN 2:TED%+=1:SCO%+=5
2040 WHEN 3:SCO%+=500
2050 WHEN 4:LF%+=1
2060 WHEN 5:SCO%+=1000:OSCLI("CHANNELVOICE 3 3"):SOUND 3,-12,30,1
2070 WHEN 6:EN%+=1
2080 WHEN 7:EN%-=1:DED1%=1
2090 WHEN 8:EN%=0
2170 ENDCASE
2175 IF EN%>4 THEN EN%=4
2180 O%(L,1)=-999:PROCscore
2190 VDU 7:RETURN
2200 REM GAME OVER
2210 PROCscr_flip:SYS 6,112,SCR%:CLS
2220 GO_Y=1196
2225 REPEAT
2230 SYS 6,112,SCR%:CLS
2240 SYS &2E,34+S1,S2,"GAMEOVER",384,GO_Y
2250 SYS &2E,34+S1,S2,"06",256,512,8
2260 SYS &2E,34+S1,S2,"06",896,512,8
2265 IF INKEY(-99) THEN GO_Y=516
2270 IF GO_Y>512 THEN GO_Y-=4
2280 PROCscore:PROCscr_flip
2290 UNTIL GO_Y<=512
2295 FOR L=0 TO 20000:NEXT L:PROChigher:GOTO 100
2300 REM ***** TITLE SCREEN ROUTINE *****
2310 SYS 6,112,SCR%:CLS
2314 SYS &2E,3,,"<OBEY$DIR>.GOOSEY"
2315 SYS &2E,16+S1,S2,"BACK",0,0,0,1200,512
2316 CLS
2320 SYS &2E,34+S1,S2,"BACK",128,512:PROCscore
2322 COLOUR 63 TINT 64
2325 FOR L=0 TO 1000:NEXT L
2326 SYS 6,113,SCR%:SCR%=(SCR%+1) MOD 2
2335 PRINT TAB(18,14);"LUNY"
2340 PRINT
2350 PRINT TAB(18);"1992"
2355 PRINT TAB(0,22);"(C) Archimedes World 1993............."
2360 FOR L=0 TO 4:X%(L)=1300+(L*96):XX%(L)=-1:NEXT L
2370 BY%=1100:AN%()=1
2375 C=0
2380 REPEAT:C2-=1:IF INKEY(-99) OR INKEY(-74) THEN RETURN
2385 UNTIL C2<1
2387 FOR L=0 TO 4
2390 IF L=0 THEN SYS &2E,34+S1,S2,"M"+STR$(AN%(L)*XX%(L)),X%(L),320 ELSE SYS &2E,34+S1,S2,"C"+STR$(AN%(L)*XX%(L)),X%(L),320
2400 X%(L)=X%(L)+(XX%(L)*4)
2405 C=(C+1) MOD 4:IF C=0 THEN AN%(L)+=1:IF AN%(L)=4 THEN AN%(L)=1
2410 NEXT L
2420 IF XX%(0)=-1 THEN SYS &2E,34+S1,S2,"01",0,BY%:IF BY%>332 THEN BY%=BY%-8
2430 IF XX%(0)=1 THEN BY%=1100
2440 IF X%(0)<0 OR X%(0)>1300 THEN XX%()=-XX%():IF X%(0)>1300 THEN PROChi:C2=INT(RND(1)*800)*100:GOTO 2316
2450 IF INKEY(-99) OR INKEY(-74) THEN RETURN
2495 GOTO 2387
2500 REM ***** FINSHED THE GAME HOORAA!!! ****8
2505 SYS 6,112,SCR%:CLS
2510 FOR L=1 TO 10:O%(L,1)=-1:NEXT L
2511 O1%=0:O2%=0
2512 PRINT TAB(10,17);"CONGRATULATIONS!"
2519 GCOL 0,8:PLOT 69,0,0:DRAW 1300,0:SYS &2E,16+S1,S2,"BACK",0,0,0,1200,512
2520 FOR L=1 TO 10
2525 IF O%(L,1)=-1 AND O1%=1 THEN O2%+=1
2526 IF O2%=10 THEN 2700
2530 IF O%(L,1)=-1 AND RND(1)<.1 AND O1%=0 THEN O%(L,1)=INT(RND(1)*1200)+4:O%(L,2)=1216
2540 IF O%(L,1)>0 THEN
2550 SYS &2E,34+S1,S2,"01",O%(L,1),O%(L,2),8
2560 O%(L,2)-=32
2565 IF POINT(O%(L,1),O%(L,2))=8 OR POINT(O%(L,1)+32,O%(L,2))=8 OR POINT(O%(L,1)+64,O%(L,2))=8 THEN
2568 IF O%(L,2)>500 THEN O1%=1
2570 SYS &2E,34+S1,S2,"BACK",0,0:SYS &2E,34+S1,S2,"01",O%(L,1),O%(L,2),8:SYS &2E,16+S1,S2,"BACK",0,0,0,1279,512
2572 SOUND 8,-15,4000,1
2580 O%(L,1)=-1
2590 ENDIF
2600 ENDIF
2605 NEXT L
2610 SYS 6,19:SYS 6,113,SCR%:SCR%=(SCR%+1) MOD 2
2620 SYS 6,112,SCR%:CLS
2625 SYS &2E,34+S1,S2,"BACK",0,0
2630 O2%=0:GOTO 2520
2700 SYS 6,112,SCR%:SYS 6,113,SCR%
2705 FOR L=1400 TO 512 STEP -2
2710 SYS &2E,34+S1,S2,"M"+STR$(AN%(1)*-1),L,628
2715 AN%(1)+=1:IF AN%(1)=4 THEN AN%(1)=1
2720 NEXT L
2730 TR=1
2740 SYS &2E,34+S1,S2,"TR"+STR$(INT(TR)),500,628
2750 TR+=.005
2760 IF TR>4.8 THEN 2780
2770 GOTO 2740
2780 PROCbr:PROChigher:GOTO 100
2800 DEF PROCcredits
2810 PRINT TAB(0,20);LEFT$(CR$,40);
2820 CR$=RIGHT$(CR$,LEN(CR$)-1)+LEFT$(CR$,1)
2830 ENDPROC
2900 DEF PROCscr_flip
2910 SYS "OS_Byte",19:SYS "OS_Byte",113,SCR%
2920 SCR%=(SCR%+1) MOD 2
2940 ENDPROC
3000 REM **** GOT ALL BROWNIES.. NEXT LEVEL *****
3010 CLS:PROCscore
3020 LEV%+=1:IF LEV%<MAXL% THEN GOSUB 3100
3030 SYS 6,19:SYS 6,113,SCR%
3090 GOTO 220
3100 REM **** NEXT LEVEL GAME DISPLAY ****
3110 NLX%=1400
3130 L$=STR$(LEV%):IF LEN(L$)=1 THEN L$="0"+L$
3140 T=64
3190 REPEAT
3200 SYS 6,112,SCR%:CLS
3210 IF NLT%<>1 OR (NLT%=1 AND NLX%<384) THEN
3212 SYS &2E,34+S1,S2,"LEVEL",NLX%,512:SYS &2E,34+S1,S2,LEFT$(L$,1),NLX%+328,512
3213 IF NLT%<>2 OR (NLT%=2 AND NLX%>384) THEN SYS &2E,34+S1,S2,RIGHT$(L$,1),NLX%+392,512
3215 ENDIF
3220 CASE NLT% OF
3250 WHEN 0:SYS &2E,34+S1,S2,"M-1",(T*32)-768,440
3252 SYS &2E,34+S1,S2,"BALL"+STR$(T MOD 2),(T*32)-768,584
3254 SYS &2E,34+S1,S2,"BASKET",(T*32)-768,440,8
3260 WHEN 1:IF T>20 THEN
3270 SYS &2E,34+S1,S2,"TR"+STR$(5-(T MOD 5)),384,492,8
3272 SYS &2E,34+S1,S2,"TR"+STR$(5-(T MOD 5)),432,518,8
3274 SYS &2E,34+S1,S2,"TR"+STR$(5-(T MOD 5)),564,492,8
3276 SYS &2E,34+S1,S2,"TR"+STR$(5-(T MOD 5)),672,524,8
3280 ENDIF
3290 WHEN 3:SYS &2E,34+S1,S2,"C-"+STR$(3-(T MOD 3)),(T*32)-128,512,8
3300 WHEN 2:SYS &2E,34+S1,S2,"08",764,NLX%+128,8
3310 IF NLX%<384 THEN SYS &2E,34+S1,S2,RIGHT$(L$,1),776,(T*32)-512
3360 ENDCASE
3370 PROCscore:PROCscr_flip
3380 IF NLX%>384 THEN NLX%-=32
3381 T-=1:UNTIL T=0
3385 NLT%=(NLT%+1) MOD 4
3390 RETURN
3400 DEF PROChi
3410 PROCscr_flip:SYS 6,112,SCR%:CLS
3420 HIC%=100
3425 T=0
3430 REPEAT
3435 CLS
3440 SYS &2E,34+S1,S2,"M1",998,512
3450 SYS &2E,34+S1,S2,"M-1",128,512
3460 FOR L=1 TO 10
3470 COLOUR 32 TINT T:T=(T+64) MOD 256
3480 PRINT TAB(8,(L*2)+1);HI$(L);"....";
3490 A$=STR$(HI%(L))
3500 A$=LEFT$("000000",6-LEN(A$))+A$
3510 PRINT A$
3520 NEXT L
3530 HIC%-=1
3540 IF INKEY(-99) OR INKEY(-74) THEN HIC%=0
3560 PROCscore
3570 PROCscr_flip:SYS 6,112,SCR%
3580 UNTIL HIC%=0
3590 ENDPROC
3600 DEF PROChigher
3605 SYS 6,112,SCR%:CLS:PROCscore
3610 IF SCO%>=HI%(10) THEN
3615 HIC%=1
3620 FOR L=10 TO 1 STEP -1
3630 IF SCO%>=HI%(L) THEN HIC%=L
3635 NEXT L
3640 FOR I=10 TO HIC% STEP -1
3650 HI%(I)=HI%(I-1)
3660 NEXT I
3670 HI%(HIC%)=SCO%:HI$(HIC%)=".........."
3680 FOR L=1 TO 10
3690 COLOUR 32 TINT (L MOD 4)*64
3700 IF L=HIC% THEN COLOUR 9 TINT 128
3710 PRINT TAB(8,(L*2)+1);HI$(L);"....";
3720 A$=STR$(HI%(L)):A$=LEFT$("000000",6-LEN(A$))+A$
3730 PRINT A$
3740 NEXT L
3750 COLOUR 18 TINT 64
3760 PRINT TAB(0,0);" A NEW HIGH SCORE.......ENTER YOUR NAME"
3770 PROCscr_flip
3780 CY%=(HIC%*2)+1:CX%=8
3790 SYS "OS_Byte",15,0
3795 COLOUR 9 TINT 128
3800 A$=GET$
3810 IF A$=CHR$(8) AND CX%>9 THEN CX%-=1:MID$(HI$(HIC%),CX%-7,1)=".":GOTO 3840
3811 IF A$=CHR$(13) THEN 3860
3815 IF CX%=18 THEN 3800
3820 IF A$<" " OR A$>CHR$(127) THEN 3800
3830 MID$(HI$(HIC%),CX%-7,1)=A$:CX%+=1
3840 PRINT TAB(8,CY%);HI$(HIC%)
3850 GOTO 3800
3860 IF HI$(HIC%)="LUNY HELP " THEN LST%=-1
3865 PROChi:PROChisav
3870 ENDIF
3890 ENDPROC
3900 DEF PROCbr
3910 FOR L=0 TO 512
3920 SYS &2E,34+S1,S2,"BROWNIE",INT(RND(1)*1024)+64,INT(RND(1)*684)+128,8
3930 NEXT L
3940 ENDPROC
4000 DEF PROChisav
4010 FILE%=OPENOUT("<OBEY$DIR>.HI_SCORE")
4020 FOR L=1 TO 10
4030 PRINT #FILE%,HI$(L),HI%(L)
4040 NEXT L
4050 CLOSE#FILE%
4060 ENDPROC
4100 DEF PROChiload
4110 FILE%=OPENIN("<OBEY$DIR>.HI_SCORE")
4120 FOR L=1 TO 10
4130 INPUT #FILE%,HI$(L),HI%(L)
4140 NEXT L
4150 CLOSE #FILE%
4160 ENDPROC
5000 DEF PROCscreen
5010 SYS 6,112,SCR%:COLOUR 128+SCR_COL TINT 0:CLS
5020 FOR Y=4 TO 0 STEP-1:FOR X=0 TO 8
5030 IF T%(Y,X)>0 THEN SYS &2E,34+S1,S2,"PLAT"+STR$(T%(Y,X)),X*128+16,(Y*144)+292,8
5040 NEXT:NEXT
5042 COLOUR 128 TINT 0
5045 SYS &2E,16+S1,S2,"SCR1",0,0,256,1299,1024
5046 ENDPROC
5048 DEF PROCdummy
5049 SYS 6,112,SCR%:CLS:SYS &2E,34+S1,S2,"SCR1",0,256
5050 FOR L%=1 TO PL%:SYS &2E,34+S1,S2,"TRAP"++STR$(1 AND P%(L%,3)>0),P%(L%,1),P%(L%,2)*144+332,8
5060 IF L%<7 THEN IF B%(L%,1)>0 THEN SYS &2E,34+S1,S2,"brownie",B%(L%,1),B%(L%,2),8
5070 NEXT L%
5190SYS &2E,16+S1,S2,"SCR",0,0,256,1299,1024
5192 SCR%=(SCR%+1) MOD 2
5195 ENDPROC
5200 DEF PROCscore
5205 IF EN%=0 THEN LF%-=1:EN%=4:DED%=35:LX%(0)=0
5210 IF DED%=0 THEN SYS &2E,34+S1,S2,"F1",24,64:SYS &2E,34+S1,S2,"G"+STR$(5-EN%),24,0 ELSE SYS &2E,34+S1,S2,"F0",24,0
5215 IF DED1%=1 THEN SYS &2E,34+S1,S2,"F2",24,0:DED1%=0
5220 SYS &2E,34+S1,S2,"01",640,144:SYS &2E,34+S1,S2,"02",736,144
5230 SYS &2E,34+S1,S2,STR$(BOO% MOD 10),648,80:SYS &2E,34+S1,S2,STR$(TED% MOD 10),744,80
5250 RIGHT$(S$,LEN(STR$(SCO%)))=STR$(SCO%)
5255 IF S$>H$ THEN RIGHT$(H$,LEN(STR$(SCO%)))=STR$(SCO%)
5260 FOR L%=1 TO 6:SYS &2E,34+S1,S2,MID$(S$,L%,1),128+(L%*64),128:SYS &2E,34+S1,S2,MID$(H$,L%,1),128+(L%*64),32:NEXT L%
5270 IF LF%>0 THEN FOR L9%=1 TO LF%:SYS &2E,34+S1,S2,"M1",848+(L9%*64),24:NEXT
5380 SYS &2E,16+S1,S2,"Score",0,0,0,1299,254
5390 ENDPROC
5400 DEF PROCsfx
5410 IF SO%=20 AND RND(1)<.2 THEN OSCLI("CHANNELVOICE 1 9"):STEREO 1,-127:SOUND 1,-8,500,1
5420 IF SO% MOD 60=5 THEN SOUND 2,-6,500,1 ELSE IF SO% MOD 103=3 THEN SOUND 8,-7,800,1
5430 IF SO% MOD 88=0 AND RND(1)<.3 THEN OSCLI("CHANNELVOICE 1 10"):SOUND 1,-5,500,1
5440 IF SO% MOD 64=2 AND RND(1)<.5 THEN OSCLI("CHANNELVOICE 1 11"):SOUND 1,-10,1,1
5480 SO%=(SO%+1) MOD 256
5490 ENDPROC
5600 DEF PROCchans
5610 RESTORE 5620
5620 DATA 1,8,3,4,5,6,7,8
5630 FOR L=1 TO 8
5640 READ A
5650 OSCLI("CHANNELVOICE "+STR$(L)+" "+STR$(A))
5660 NEXT L
5670 ENDPROC
6000 REM SET UP ROOM
6005 IF LEV%=MAXL% THEN 2500
6010 A=9000+(LEV%*10):RESTORE A
6020 FOR Y=4 TO 0 STEP -1:FOR X=0 TO 8:READ T%(Y,X):NEXT:NEXT
6030 B%()=-256:READ BR%:BR1%=BR%:FOR L=1 TO BR%:READ B%(L,1),B%(L,2):NEXT L
6040 P%()=-256:READ PL%:FOR L=1 TO PL%:READ P%(L,1),P%(L,2),P%(L,3):NEXT
6050 O%()=-999
6060 X%()=-999:READ A%:FORL=0 TO A%:READ X%(L),Y%(L):AN%(L)=INT(RND(1)*3)+1:NEXT
6070 XX%()=1
6075 READ BLX%,BY%:BX%=1300:BL%=0
6076 SCR_COL=0
6080 PROCscreen:PROCdummy
6090 RETURN
9000 REM LEVEL DATA
9010 DATA 3,1,1,5,1,1,1,5,2
9011 DATA 0,0,0,0,3,1,5,2,0
9012 DATA 0,3,4,1,2,0,0,0,0
9013 DATA 0,0,0,0,0,0,3,5,2
9014 DATA 3,4,1,4,1,1,1,2,0
9015 DATA 6,64,332,912,332,560,620,80,908,720,908,1056,476
9016 DATA 11,192,2,1,304,0,1,592,0,2,720,0,3,432,2,2,240,4,2,560,4,1,1056,4,1,592,3,2,800,1,2,848,4,2
9018 DATA 5,128,332,448,620,128,908,816,476,912,764,608,764
9019 DATA 944,764 , 16
9020 DATA 3,1,1,1,5,1,1,1,2
9021 DATA 0,0,3,1,5,1,2,0,0
9022 DATA 0,0,0,0,3,1,5,4,2
9023 DATA 0,0,0,0,3,1,4,5,2
9024 DATA 3,4,1,2,0,0,3,4,2
9025 DATA 6,64,908,288,908,432,908,656,908,816,908,1024,908
9026 DATA 12,192,4,2,256,0,1,304,0,6,352,0,3,400,0,5,64,0,1,320,3,2,816,3,8,592,2,2,1056,2,2,592,1,2,1056,1,2
9027 DATA 4,192,332,192,908,944,332,432,908,864,908
9028 DATA 1064,332 , 5
9030 DATA 0,0,0,3,5,1,2,0,0
9031 DATA 3,5,1,1,4,1,5,1,2
9032 DATA 3,5,2,0,0,0,3,5,2
9033 DATA 0,0,0,3,4,2,0,0,0
9034 DATA 3,1,1,1,4,1,4,1,2
9035 DATA 5,804,908,664,476,464,476,464,908,664,764
9036 DATA 9,64,0,1,192,0,2,464,3,8,256,3,4,64,3,8,64,2,2,256,2,2,912,0,2,1024,0,2
9037 DATA 3,64,332,360,908,1024,332,1024,764
9038 DATA 1064,620
9040 DATA 0,3,5,1,1,1,2,0,0
9041 DATA 0,3,1,5,2,0,0,0,0
9042 DATA 0,0,0,3,5,1,4,2,0
9043 DATA 0,3,4,5,2,0,0,0,0
9044 DATA 3,1,1,1,1,4,1,1,2
9045 DATA 6,64,332,896,620,832,908,384,332,480,620,512,908
9046 DATA 8,672,2,9,176,1,2,896,0,2,224,4,2,384,4,2,224,3,2,352,3,2,768,4,1
9047 DATA 4,960,332,600,620,320,908,320,476,384,476
9048 DATA 1000,620
9050 DATA 0,0,3,1,1,5,2,0,0
9051 DATA 0,3,4,2,0,0,0,0,0
9052 DATA 0,0,0,0,0,0,0,0,0
9053 DATA 0,3,4,5,2,0,3,5,2
9054 DATA 0,3,4,2,0,3,4,2,0
9055 DATA 6,208,332,432,332,208,764,432,764,704,332,916,332
9056 DATA 8,160,1,2,224,1,2,512,1,2,576,1,2
9057 DATA 320,4,2,448,4,2,576,4,1,800,4,1
9058 DATA 4,128,332,368,476,384,476,816,332,816,476
9059 DATA 1000,332
9060 DATA 3,1,1,1,1,1,1,5,2
9061 DATA 3,4,2,0,0,0,3,5,2
9062 DATA 3,4,2,0,0,0,3,5,2
9063 DATA 3,4,2,0,0,0,3,5,2
9064 DATA 3,4,2,0,0,0,3,4,2
9065 DATA 1,208,908
9066 DATA 1,368,4,2
9067 DATA 4,128,332,368,476,368,620,368,764,368,908
9068 DATA 1000,332
9070 DATA 3,1,1,1,1,1,1,5,2
9071 DATA 0,0,0,0,0,0,3,4,2
9072 DATA 3,4,1,1,1,1,1,1,2
9073 DATA 0,0,0,0,0,0,0,0,0
9074 DATA 3,1,1,1,1,1,1,4,2
9075 DATA 4,128,908,384,908,640,908,896,908
9076 DATA 14,128,0,6,256,0,1,384,0,1,512,0,1,640,0,4,768,0,9,768,2,1,896,0,3,896,2,1,640,2,6
9077 DATA 256,2,2,256,4,2,512,4,2,768,4,2
9078 DATA 5,128,332,368,620,512,620,641,620,815,620,920,620
9079 DATA 1128,764
9080 DATA 3,1,5,2,0,0,0,0,0
9081 DATA 0,3,4,1,5,2,0,0,0
9082 DATA 0,0,3,4,1,5,2,0,0
9083 DATA 0,0,0,3,4,1,5,2,0
9084 DATA 0,0,0,0,3,4,1,1,2
9085 DATA 5,192,764,484,764,312,620,548,620,732,476
9086 DATA 14,448,1,2,656,1,2,592,0,2,768,0,2,864,0,2,96,4,3,192,4,3,976,0,3
9087 DATA 400,4,3,400,3,3,672,3,3,800,2,1,928,1,3,1072,0,3
9088 DATA 5,64,908,768,764,768,620,768,476,768,332,1072,332
9089 DATA 424,908
9090 DATA 3,1,5,1,2,0,0,0,0
9091 DATA 3,1,5,1,2,0,0,0,0
9092 DATA 3,1,5,1,2,0,0,0,0
9093 DATA 3,1,5,1,2,0,0,0,0
9094 DATA 3,1,1,1,1,1,1,1,2
9095 DATA 1,768,332
9096 DATA 9,192,4,1,448,4,8,192,3,1,448,3,8,192,2,8,448,2,1,192,1,1,448,1,8
9097 DATA 304,0,2
9098 DATA 4,64,908,64,332,256,332,512,332,1027,332
9099 DATA 1120,332
9100 DATA 3,1,1,5,1,1,1,5,2
9101 DATA 0,0,0,0,3,4,5,2,0
9102 DATA 0,3,4,1,2,0,0,0,0
9103 DATA 0,0,0,0,0,3,4,5,2
9104 DATA 3,1,1,1,1,1,4,2,0
9105 DATA 6,64,332,912,332,560,620,80,908,720,908,1056,476
9106 DATA 11,592,0,2,432,2,2,240,4,2,592,3,2,704,1,2,848,4,2
9107 DATA 192,2,1,304,0,1,720,0,9,560,4,9,1056,4,9
9108 DATA 5,128,332,448,620,128,908,816,476,912,764,608,764
9109 DATA 944,764
9999 *KEY 1 FOR L=0 TO 63:COLOUR L:PRINT "ABCDEFGHJOK ";L:A=GET:NEXT L|M
� >GOOSE
9 � **** ARCADE GAME WITH SWEEVO'S WORLD GRAPHICS ****
9 � **** By Kevan Thurstans 1/6/92 - 00/00/92 ****
$ S1=0:S2=0
() � � ș 6,112,0:�:ș 6,112,1:�:� �Dd@
-7 � X%(5),Y%(5),XX%(5),AN%(5),LX%(5),T%(5,9),J%(5,2)
/' � B%(6,2),P%(20,3),O%(20,3),YY%(5)
0 � HI$(10),HI%(10)
1 �hiload
2 � S2 262144:S1=256
3( ș &2E,10+S1,S2,"<OBEY$DIR>.GOOSE1"
4 LST%=3
5 � 13+128:�
7 ș 6,112,1:�:ș 6,112,0:�
8 SCR%=1:H$="000000"
< XD1%=-16:XD2%=64:SO%=0
F �chans
K Ƞ 8
N MAXL%=11:C2=100
P OH%=32:OD%=8:SCO%=0
Z PIX%=0:DY%=24:S$="000000"
d � **** NEW GAME START *****
n LEV%=0:NLX%=0:NLT%=0
x SCR%=0:OB%=1:LF%=LST%
� LX%()=1:LX%=0:J%()=0
� P1%=0:DED%=0:DED1%=0
� P%()=0:BOO%=0:TED%=0
� BALL%=1:EN%=4
� ș 6,113,1:� �d|H
� S$="000000"
� SCO%=0:DED%=0
� � �txK
� � **** NEW LIFE START *****
�
EN%=4
�) ș 6,112,1:�:ș 6,113,1:ș 6,112,0:�
" � �DpW:�score
� � **** MAIN LOOP START ****
� ș 6,112,SCR%
" �:ș &2E,34+S1,S2,"SCR",0,256
, � **** LOOP TO MOVE EACH CHARACTER ****
� L=0 � 5
�sfx
!
JU%=0
$ � X%(L)>0 �
&� XX%(L)=0:� (X%(L)+(LX%(L)*32)+PIX%)/128>=0 � (Y%(L)-292)/144>=0 � TR%=T%((Y%(L)-292)/144,(X%(L)+(LX%(L)*32)+PIX%)/128) � TR%=0
+. TR1%=T%((Y%(L)-292)/144,(X%(L)+PIX%)/128)
0 � L=0 �
:$ XX%(L)=XX%(L)+(�(-98))-(�(-67))
;5 � X%(L)+XX%(L)<17 � X%(L)+XX%(L)>1200 � XX%(L)=0
?3 � �(-74) � J%(L,1)=0 � DED%=0 � BL%<>2 � JU%=1
DG � T%( (Y%(L)-292)/144 , (X%(L)+(XX%(L)*32)+PIX%)/128)=0 � XX%(L)=0
I � DED%>1 � BL%=2 � XX%(0)=0
N �
X � X%(L)>-99 � YY%(L)=0 �
b. � TR%=0 � XX%(L)=-LX%(L) � XX%(L)=LX%(L)
l � �(1)<.05 � JU%=1
v6 � X%(0)>X%(L)-24 � X%(0)<X%(L)+72 � Y%(L)=Y%(0) �
{o � DED%=0 � BOO%=0 � AN%(0)=4:XX%(L)=-XX%(L):EN%-=1:�("CHANNELVOICE 3 2"):� 3,-15,(�(�(1)*5)*5)+50,1:�score
�e � DED%=0 � BOO%>0 � YY%(L)=1:BOO%-=1:XX%(L)=0:�("CHANNELVOICE 3 3"):� 3,-12,90,1:SCO%+=50:�score
� �
� �
� �
� � IF JUMPED
� � L=0 � DED%=1 � �dxB
�% � JU%=1 � YY%(L)=0 � J%(L,1)=0 �
� � TR1%<>4 � TR1%<>5 � �T`C
� � TR1%=5 � JU%=-1
� J%(L,1)=Y%(L)
�P J%(L,1)=J%(L,1)+(JU%*144):� T%((J%(L,1)-292)/144,(X%(L)+PIX%)/128)=0 � �dZB
� J%(L,2)=0
� � 4,-10,10,1
� �
�t � J%(L,1)>0 � J%(L,2)+=1:XX%(L)=0:� J%(L,2)=6 � � 5,-10,10,1:J%(L,2)=7:Y%(L)=J%(L,1) � � J%(L,2)=12 � J%(L,1)=0
� DISPLAY CHARACTER (L)
H� � XX%(L)<>0 � � YY%(L)=0 � LX%(L)=XX%(L):X%(L)=X%(L)+(XX%(L)*16):AN%(L)+=1:� AN%(L)>3 � AN%(L)=1 � Y%(L)=Y%(L)+(YY%(L)*16):� YY%(L)>0 � YY%(L)=YY%(L)+1:� YY%(L)=5 � YY%(L)=-3
M. � (Y%(L)-292)/144<0 � X%(L)=-999:YY%(L)=0
R� � L=0 � DED%=0 � LX%(L)<>0 � P1%=�X%(L)+32,Y%(0)+DY%):ș &2E,34+S1,S2,"M"+�(AN%(L)*LX%(L)),X%(L),Y%(L),8 � � DED%>0 � L=0 � ș &2E,34+S1,S2,"DEAD",X%(L),Y%(L),8:DED%-=1:� DED%=0 � LX%(0)=1:�score
S � LF%=0 � DED%=0 � �tXH
W@ � L<>0 � ș &2E,34+S1,S2,"C"+�(AN%(L)*LX%(L)),X%(L),Y%(L),8
\D � J%(L,1)>0 � ș &2E,34+S1,S2,"TR"+�(J%(L,2) � 6),X%(L),Y%(L),8
^ �
_ � L
a � BL%>0 �
b� ș &2E,S1+34,S2,"BALL"+�(BALL%),BX%,BY%+124,8:ș &2E,S1+34,S2,"BASKET",BX%,BY%,8:BX%=BX%-(8 � BX%>BLX%):BX%=BX%+(�(�(1)*3)-1 � BL%=2):BY%=BY%+(8 � BL%=2):Y%(0)=Y%(0)+(8 � BL%=2):� BY%>1024 � �txK
c8 � �(X%(0)/32)=�(BX%/32) � Y%(0)=BY% � BL%=1 � BL%=2
d BALL%=(BALL%+1) � 2
e �
f� � L=0 � 19:� O%(L,1)>0 � ș &2E,34+S1,S2,"0"+�(O%(L,3)),O%(L,1),O%(L,2),8:� (O%(L,2)-324)/144<>�((O%(L,2)-324)/144) � O%(L,2)-=OD%
kp � (�(O%(L,1)/64)=�(X%(0)/64) � �(O%(L,1)/64)+1=�(X%(0)/64)) � �((Y%(0)-292)/144)=(O%(L,2)-324)/144 � � �dPG
p � L
�� P1%=39 �
��� L=1 � PL%:� X%(0)=P%(L,1) � �((Y%(0)-292)/144)=P%(L,2) � P%(L,3)<>0 � � 7,-15,625,1:O%(OB%,1)=X%(0)-32:O%(OB%,2)=Y%(0)+OH%:O%(OB%,3)=P%(L,3):P%(L,3)=0:OB%=(OB%+1) � 20:�dummy:L=PL%+1
� �
� �
� � P1%=5 �
� � L=1 � BR%
�R � (�(B%(L,1)/32)=�(X%(0)/32) � �(B%(L,1)/32)+1=�(X%(0)/32)) � Y%(0)=B%(L,2) �
�q � TED%>0 � B%(L,1)=-999:TED%-=1:� ("CHANNELVOICE 1 9"):� 1,-15,4000,1:�dummy:�score:BR1%-=1:� BR1%=0 � BL%=1
� �
� �
� �
� ș &2E,34+S1,S2,"Score",0,0
� �scr_flip
� � �dtA
� � **** GET OBJECT ****
� � 6,-15,5980,1
� Ȏ O%(L,3) �
� � 1:BOO%+=1:SCO%+=5
� � 2:TED%+=1:SCO%+=5
� � 3:SCO%+=500
� 4:LF%+=1
6 � 5:SCO%+=1000:�("CHANNELVOICE 3 3"):� 3,-12,30,1
� 6:EN%+=1
� 7:EN%-=1:DED1%=1
* � 8:EN%=0
z �
� EN%>4 � EN%=4
� O%(L,1)=-999:�score
�
� 7:�
� � GAME OVER
� �scr_flip:ș 6,112,SCR%:�
� GO_Y=1196
� �
� ș 6,112,SCR%:�
�( ș &2E,34+S1,S2,"GAMEOVER",384,GO_Y
�# ș &2E,34+S1,S2,"06",256,512,8
�# ș &2E,34+S1,S2,"06",896,512,8
� � �(-99) � GO_Y=516
� � GO_Y>512 � GO_Y-=4
� �score:�scr_flip
� � GO_Y<=512
�% � L=0 � 20000:� L:�higher:� �Dd@
�' � ***** TITLE SCREEN ROUTINE *****
ș 6,112,SCR%:�
" ș &2E,3,,"<OBEY$DIR>.GOOSEY"
* ș &2E,16+S1,S2,"BACK",0,0,0,1200,512
�
* ș &2E,34+S1,S2,"BACK",128,512:�score
� 63 Ȝ 64
� L=0 � 1000:� L
$ ș 6,113,SCR%:SCR%=(SCR%+1) � 2
� �18,14);"LUNY"
$ �
. � �18);"1992"
36 � �0,22);"(C) Archimedes World 1993............."
8. � L=0 � 4:X%(L)=1300+(L*96):XX%(L)=-1:� L
B BY%=1100:AN%()=1
G C=0
L" �:C2-=1:� �(-99) � �(-74) � �
Q � C2<1
S � L=0 � 4
Vl � L=0 � ș &2E,34+S1,S2,"M"+�(AN%(L)*XX%(L)),X%(L),320 � ș &2E,34+S1,S2,"C"+�(AN%(L)*XX%(L)),X%(L),320
` X%(L)=X%(L)+(XX%(L)*4)
e8 C=(C+1) � 4:� C=0 � AN%(L)+=1:� AN%(L)=4 � AN%(L)=1
j � L
tC � XX%(0)=-1 � ș &2E,34+S1,S2,"01",0,BY%:� BY%>332 � BY%=BY%-8
~ � XX%(0)=1 � BY%=1100
�W � X%(0)<0 � X%(0)>1300 � XX%()=-XX%():� X%(0)>1300 � �hi:C2=�(�(1)*800)*100:� �TLI
� � �(-99) � �(-74) � �
� � �DSI
�- � ***** FINSHED THE GAME HOORAA!!! ****8
� ș 6,112,SCR%:�
� � L=1 � 10:O%(L,1)=-1:� L
� O1%=0:O2%=0
�! � �10,17);"CONGRATULATIONS!"
�B � 0,8:� 69,0,0:� 1300,0:ș &2E,16+S1,S2,"BACK",0,0,0,1200,512
� � L=1 � 10
�" � O%(L,1)=-1 � O1%=1 � O2%+=1
� � O2%=10 � �tLJ
�I � O%(L,1)=-1 � �(1)<.1 � O1%=0 � O%(L,1)=�(�(1)*1200)+4:O%(L,2)=1216
� � O%(L,1)>0 �
�+ ș &2E,34+S1,S2,"01",O%(L,1),O%(L,2),8
O%(L,2)-=32
N � �O%(L,1),O%(L,2))=8 � �O%(L,1)+32,O%(L,2))=8 � �O%(L,1)+64,O%(L,2))=8 �
� O%(L,2)>500 � O1%=1
l ș &2E,34+S1,S2,"BACK",0,0:ș &2E,34+S1,S2,"01",O%(L,1),O%(L,2),8:ș &2E,16+S1,S2,"BACK",0,0,0,1279,512
� 8,-15,4000,1
O%(L,1)=-1
�
( �
- � L
2, ș 6,19:ș 6,113,SCR%:SCR%=(SCR%+1) � 2
< ș 6,112,SCR%:�
A ș &2E,34+S1,S2,"BACK",0,0
F O2%=0:� �dXI
� ș 6,112,SCR%:ș 6,113,SCR%
� � L=1400 � 512 � -2
�+ ș &2E,34+S1,S2,"M"+�(AN%(1)*-1),L,628
�$ AN%(1)+=1:� AN%(1)=4 � AN%(1)=1
� � L
� TR=1
�* ș &2E,34+S1,S2,"TR"+�(�(TR)),500,628
�
TR+=.005
� � TR>4.8 � �d\J
� � �ttJ
� �br:�higher:� �Dd@
� � �credits
� � �0,20);�CR$,40);
CR$=�CR$,�(CR$)-1)+�CR$,1)
�
T � �scr_flip
^* ș "OS_Byte",19:ș "OS_Byte",113,SCR%
h SCR%=(SCR%+1) � 2
| �
�/ � **** GOT ALL BROWNIES.. NEXT LEVEL *****
�
�:�score
�" LEV%+=1:� LEV%<MAXL% � � �T\L
� ș 6,19:ș 6,113,SCR%
� �d\@
( � **** NEXT LEVEL GAME DISPLAY ****
& NLX%=1400
:% L$=�(LEV%):� �(L$)=1 � L$="0"+L$
D T=64
v �
� ș 6,112,SCR%:�
�& � NLT%<>1 � (NLT%=1 � NLX%<384) �
�I ș &2E,34+S1,S2,"LEVEL",NLX%,512:ș &2E,34+S1,S2,�L$,1),NLX%+328,512
�J � NLT%<>2 � (NLT%=2 � NLX%>384) � ș &2E,34+S1,S2,�L$,1),NLX%+392,512
� �
� Ȏ NLT% �
�- � 0:ș &2E,34+S1,S2,"M-1",(T*32)-768,440
�3 ș &2E,34+S1,S2,"BALL"+�(T � 2),(T*32)-768,584
�. ș &2E,34+S1,S2,"BASKET",(T*32)-768,440,8
� � 1:� T>20 �
�0 ș &2E,34+S1,S2,"TR"+�(5-(T � 5)),384,492,8
�0 ș &2E,34+S1,S2,"TR"+�(5-(T � 5)),432,518,8
�0 ș &2E,34+S1,S2,"TR"+�(5-(T � 5)),564,492,8
�0 ș &2E,34+S1,S2,"TR"+�(5-(T � 5)),672,524,8
� �
�; � 3:ș &2E,34+S1,S2,"C-"+�(3-(T � 3)),(T*32)-128,512,8
�, � 2:ș &2E,34+S1,S2,"08",764,NLX%+128,8
�7 � NLX%<384 � ș &2E,34+S1,S2,�L$,1),776,(T*32)-512
�
* �score:�scr_flip
4 � NLX%>384 � NLX%-=32
5 T-=1:� T=0
9 NLT%=(NLT%+1) � 4
> �
H
� �hi
R �scr_flip:ș 6,112,SCR%:�
\
HIC%=100
a T=0
f �
k �
p! ș &2E,34+S1,S2,"M1",998,512
z" ș &2E,34+S1,S2,"M-1",128,512
� � L=1 � 10
� � 32 Ȝ T:T=(T+64) � 256
�! � �8,(L*2)+1);HI$(L);"....";
� A$=�(HI%(L))
� A$=�"000000",6-�(A$))+A$
� � A$
� � L
� HIC%-=1
� � �(-99) � �(-74) � HIC%=0
� �score
� �scr_flip:ș 6,112,SCR%
�
� HIC%=0
�
� �higher
ș 6,112,SCR%:�:�score
� SCO%>=HI%(10) �
HIC%=1
$ � L=10 � 1 � -1
. � SCO%>=HI%(L) � HIC%=L
3 � L
8 � I=10 � HIC% � -1
B HI%(I)=HI%(I-1)
L � I
V* HI%(HIC%)=SCO%:HI$(HIC%)=".........."
` � L=1 � 10
j � 32 Ȝ (L � 4)*64
t � L=HIC% � � 9 Ȝ 128
~! � �8,(L*2)+1);HI$(L);"....";
�* A$=�(HI%(L)):A$=�"000000",6-�(A$))+A$
� � A$
� � L
� � 18 Ȝ 64
�6 � �0,0);" A NEW HIGH SCORE.......ENTER YOUR NAME"
� �scr_flip
� CY%=(HIC%*2)+1:CX%=8
� ș "OS_Byte",15,0
� � 9 Ȝ 128
� A$=�
�> � A$=�(8) � CX%>9 � CX%-=1:�HI$(HIC%),CX%-7,1)=".":� �T@O
� � A$=�(13) � �TTO
� � CX%=18 � �dXN
� � A$<" " � A$>�(127) � �dXN
�" �HI$(HIC%),CX%-7,1)=A$:CX%+=1
� �8,CY%);HI$(HIC%)
� �dXN
' � HI$(HIC%)="LUNY HELP " � LST%=-1
�hi:�hisav
�
2 �
<
� �br
F � L=0 � 512
P@ ș &2E,34+S1,S2,"BROWNIE",�(�(1)*1024)+64,�(�(1)*684)+128,8
Z � L
d �
�
� �hisav
�# FILE%=�("<OBEY$DIR>.HI_SCORE")
� � L=1 � 10
� � #FILE%,HI$(L),HI%(L)
� � L
� �#FILE%
� �
� �hiload
# FILE%=�("<OBEY$DIR>.HI_SCORE")
� L=1 � 10
" � #FILE%,HI$(L),HI%(L)
, � L
6
� #FILE%
@ �
� � �screen
�' ș 6,112,SCR%:� 128+SCR_COL Ȝ 0:�
� � Y=4 � 0 �-1:� X=0 � 8
�K � T%(Y,X)>0 � ș &2E,34+S1,S2,"PLAT"+�(T%(Y,X)),X*128+16,(Y*144)+292,8
� �:�
� � 128 Ȝ 0
�- ș &2E,16+S1,S2,"SCR1",0,0,256,1299,1024
� �
�
� �dummy
�1 ș 6,112,SCR%:�:ș &2E,34+S1,S2,"SCR1",0,256
�W � L%=1 � PL%:ș &2E,34+S1,S2,"TRAP"++�(1 � P%(L%,3)>0),P%(L%,1),P%(L%,2)*144+332,8
�J � L%<7 � � B%(L%,1)>0 � ș &2E,34+S1,S2,"brownie",B%(L%,1),B%(L%,2),8
� � L%
F+ș &2E,16+S1,S2,"SCR",0,0,256,1299,1024
H SCR%=(SCR%+1) � 2
K �
P
� �score
U, � EN%=0 � LF%-=1:EN%=4:DED%=35:LX%(0)=0
Zh � DED%=0 � ș &2E,34+S1,S2,"F1",24,64:ș &2E,34+S1,S2,"G"+�(5-EN%),24,0 � ș &2E,34+S1,S2,"F0",24,0
_2 � DED1%=1 � ș &2E,34+S1,S2,"F2",24,0:DED1%=0
d> ș &2E,34+S1,S2,"01",640,144:ș &2E,34+S1,S2,"02",736,144
nL ș &2E,34+S1,S2,�(BOO% � 10),648,80:ș &2E,34+S1,S2,�(TED% � 10),744,80
� �S$,�(�(SCO%)))=�(SCO%)
�& � S$>H$ � �H$,�(�(SCO%)))=�(SCO%)
�g � L%=1 � 6:ș &2E,34+S1,S2,�S$,L%,1),128+(L%*64),128:ș &2E,34+S1,S2,�H$,L%,1),128+(L%*64),32:� L%
�C � LF%>0 � � L9%=1 � LF%:ș &2E,34+S1,S2,"M1",848+(L9%*64),24:�
+ ș &2E,16+S1,S2,"Score",0,0,0,1299,254
�
� �sfx
"F � SO%=20 � �(1)<.2 � �("CHANNELVOICE 1 9"):Ȣ 1,-127:� 1,-8,500,1
,? � SO% � 60=5 � � 2,-6,500,1 � � SO% � 103=3 � � 8,-7,800,1
6A � SO% � 88=0 � �(1)<.3 � �("CHANNELVOICE 1 10"):� 1,-5,500,1
@@ � SO% � 64=2 � �(1)<.5 � �("CHANNELVOICE 1 11"):� 1,-10,1,1
h SO%=(SO%+1) � 256
r �
�
� �chans
� � �dtU
� � 1,8,3,4,5,6,7,8
� � L=1 � 8
� A
% �("CHANNELVOICE "+�(L)+" "+�(A))
� L
& �
p � SET UP ROOM
u � LEV%=MAXL% � �dDI
z A=9000+(LEV%*10):� A
�+ � Y=4 � 0 � -1:� X=0 � 8:� T%(Y,X):�:�
�? B%()=-256:� BR%:BR1%=BR%:� L=1 � BR%:� B%(L,1),B%(L,2):� L
�< P%()=-256:� PL%:� L=1 � PL%:� P%(L,1),P%(L,2),P%(L,3):�
� O%()=-999
�@ X%()=-999:� A%:�L=0 � A%:� X%(L),Y%(L):AN%(L)=�(�(1)*3)+1:�
� XX%()=1
� � BLX%,BY%:BX%=1300:BL%=0
� SCR_COL=0
� �screen:�dummy
� �
#( � LEVEL DATA
#2 � 3,1,1,5,1,1,1,5,2
#3 � 0,0,0,0,3,1,5,2,0
#4 � 0,3,4,1,2,0,0,0,0
#5 � 0,0,0,0,0,0,3,5,2
#6 � 3,4,1,4,1,1,1,2,0
#77 � 6,64,332,912,332,560,620,80,908,720,908,1056,476
#8b � 11,192,2,1,304,0,1,592,0,2,720,0,3,432,2,2,240,4,2,560,4,1,1056,4,1,592,3,2,800,1,2,848,4,2
#:8 � 5,128,332,448,620,128,908,816,476,912,764,608,764
#; � 944,764 , 16
#< � 3,1,1,1,5,1,1,1,2
#= � 0,0,3,1,5,1,2,0,0
#> � 0,0,0,0,3,1,5,4,2
#? � 0,0,0,0,3,1,4,5,2
#@ � 3,4,1,2,0,0,3,4,2
#A8 � 6,64,908,288,908,432,908,656,908,816,908,1024,908
#Bj � 12,192,4,2,256,0,1,304,0,6,352,0,3,400,0,5,64,0,1,320,3,2,816,3,8,592,2,2,1056,2,2,592,1,2,1056,1,2
#C0 � 4,192,332,192,908,944,332,432,908,864,908
#D � 1064,332 , 5
#F � 0,0,0,3,5,1,2,0,0
#G � 3,5,1,1,4,1,5,1,2
#H � 3,5,2,0,0,0,3,5,2
#I � 0,0,0,3,4,2,0,0,0
#J � 3,1,1,1,4,1,4,1,2
#K0 � 5,804,908,664,476,464,476,464,908,664,764
#LN � 9,64,0,1,192,0,2,464,3,8,256,3,4,64,3,8,64,2,2,256,2,2,912,0,2,1024,0,2
#M) � 3,64,332,360,908,1024,332,1024,764
#N � 1064,620
#P � 0,3,5,1,1,1,2,0,0
#Q � 0,3,1,5,2,0,0,0,0
#R � 0,0,0,3,5,1,4,2,0
#S � 0,3,4,5,2,0,0,0,0
#T � 3,1,1,1,1,4,1,1,2
#U7 � 6,64,332,896,620,832,908,384,332,480,620,512,908
#VH � 8,672,2,9,176,1,2,896,0,2,224,4,2,384,4,2,224,3,2,352,3,2,768,4,1
#W0 � 4,960,332,600,620,320,908,320,476,384,476
#X � 1000,620
#Z � 0,0,3,1,1,5,2,0,0
#[ � 0,3,4,2,0,0,0,0,0
#\ � 0,0,0,0,0,0,0,0,0
#] � 0,3,4,5,2,0,3,5,2
#^ � 0,3,4,2,0,3,4,2,0
#_8 � 6,208,332,432,332,208,764,432,764,704,332,916,332
#`( � 8,160,1,2,224,1,2,512,1,2,576,1,2
#a& � 320,4,2,448,4,2,576,4,1,800,4,1
#b0 � 4,128,332,368,476,384,476,816,332,816,476
#c � 1000,332
#d � 3,1,1,1,1,1,1,5,2
#e � 3,4,2,0,0,0,3,5,2
#f � 3,4,2,0,0,0,3,5,2
#g � 3,4,2,0,0,0,3,5,2
#h � 3,4,2,0,0,0,3,4,2
#i � 1,208,908
#j � 1,368,4,2
#k0 � 4,128,332,368,476,368,620,368,764,368,908
#l � 1000,332
#n � 3,1,1,1,1,1,1,5,2
#o � 0,0,0,0,0,0,3,4,2
#p � 3,4,1,1,1,1,1,1,2
#q � 0,0,0,0,0,0,0,0,0
#r � 3,1,1,1,1,1,1,4,2
#s( � 4,128,908,384,908,640,908,896,908
#tY � 14,128,0,6,256,0,1,384,0,1,512,0,1,640,0,4,768,0,9,768,2,1,896,0,3,896,2,1,640,2,6
#u& � 256,2,2,256,4,2,512,4,2,768,4,2
#v8 � 5,128,332,368,620,512,620,641,620,815,620,920,620
#w � 1128,764
#x � 3,1,5,2,0,0,0,0,0
#y � 0,3,4,1,5,2,0,0,0
#z � 0,0,3,4,1,5,2,0,0
#{ � 0,0,0,3,4,1,5,2,0
#| � 0,0,0,0,3,4,1,1,2
#}0 � 5,192,764,484,764,312,620,548,620,732,476
#~H � 14,448,1,2,656,1,2,592,0,2,768,0,2,864,0,2,96,4,3,192,4,3,976,0,3
#7 � 400,4,3,400,3,3,672,3,3,800,2,1,928,1,3,1072,0,3
#�8 � 5,64,908,768,764,768,620,768,476,768,332,1072,332
#� � 424,908
#� � 3,1,5,1,2,0,0,0,0
#� � 3,1,5,1,2,0,0,0,0
#� � 3,1,5,1,2,0,0,0,0
#� � 3,1,5,1,2,0,0,0,0
#� � 3,1,1,1,1,1,1,1,2
#� � 1,768,332
#�H � 9,192,4,1,448,4,8,192,3,1,448,3,8,192,2,8,448,2,1,192,1,1,448,1,8
#� � 304,0,2
#�/ � 4,64,908,64,332,256,332,512,332,1027,332
#� � 1120,332
#� � 3,1,1,5,1,1,1,5,2
#� � 0,0,0,0,3,4,5,2,0
#� � 0,3,4,1,2,0,0,0,0
#� � 0,0,0,0,0,3,4,5,2
#� � 3,1,1,1,1,1,4,2,0
#�7 � 6,64,332,912,332,560,620,80,908,720,908,1056,476
#�9 � 11,592,0,2,432,2,2,240,4,2,592,3,2,704,1,2,848,4,2
#�/ � 192,2,1,304,0,1,720,0,9,560,4,9,1056,4,9
#�8 � 5,128,332,448,620,128,908,816,476,912,764,608,764
#� � 944,764
'K *KEY 1 FOR L=0 TO 63:COLOUR L:PRINT "ABCDEFGHJOK ";L:A=GET:NEXT L|M
� 00000000 0d 00 01 0d 20 f4 20 3e 47 4f 4f 53 45 0d 00 0a |.... . >GOOSE...|
00000010 39 20 f4 20 2a 2a 2a 2a 20 41 52 43 41 44 45 20 |9 . **** ARCADE |
00000020 47 41 4d 45 20 57 49 54 48 20 53 57 45 45 56 4f |GAME WITH SWEEVO|
00000030 27 53 20 57 4f 52 4c 44 20 47 52 41 50 48 49 43 |'S WORLD GRAPHIC|
00000040 53 20 2a 2a 2a 2a 0d 00 14 39 20 f4 20 2a 2a 2a |S ****...9 . ***|
00000050 2a 20 20 20 42 79 20 4b 65 76 61 6e 20 54 68 75 |* By Kevan Thu|
00000060 72 73 74 61 6e 73 20 31 2f 36 2f 39 32 20 2d 20 |rstans 1/6/92 - |
00000070 30 30 2f 30 30 2f 39 32 20 20 20 2a 2a 2a 2a 0d |00/00/92 ****.|
00000080 00 24 0e 20 53 31 3d 30 3a 53 32 3d 30 0d 00 28 |.$. S1=0:S2=0..(|
00000090 29 20 ee 20 85 20 c8 99 20 36 2c 31 31 32 2c 30 |) . . .. 6,112,0|
000000a0 3a db 3a c8 99 20 36 2c 31 31 32 2c 31 3a db 3a |:.:.. 6,112,1:.:|
000000b0 e5 20 8d 44 64 40 0d 00 2d 37 20 de 20 58 25 28 |. .Dd@..-7 . X%(|
000000c0 35 29 2c 59 25 28 35 29 2c 58 58 25 28 35 29 2c |5),Y%(5),XX%(5),|
000000d0 41 4e 25 28 35 29 2c 4c 58 25 28 35 29 2c 54 25 |AN%(5),LX%(5),T%|
000000e0 28 35 2c 39 29 2c 4a 25 28 35 2c 32 29 0d 00 2f |(5,9),J%(5,2)../|
000000f0 27 20 de 20 42 25 28 36 2c 32 29 2c 50 25 28 32 |' . B%(6,2),P%(2|
00000100 30 2c 33 29 2c 4f 25 28 32 30 2c 33 29 2c 59 59 |0,3),O%(20,3),YY|
00000110 25 28 35 29 0d 00 30 16 20 de 20 48 49 24 28 31 |%(5)..0. . HI$(1|
00000120 30 29 2c 48 49 25 28 31 30 29 0d 00 31 0c 20 f2 |0),HI%(10)..1. .|
00000130 68 69 6c 6f 61 64 0d 00 32 17 20 de 20 53 32 20 |hiload..2. . S2 |
00000140 32 36 32 31 34 34 3a 53 31 3d 32 35 36 0d 00 33 |262144:S1=256..3|
00000150 28 20 c8 99 20 26 32 45 2c 31 30 2b 53 31 2c 53 |( .. &2E,10+S1,S|
00000160 32 2c 22 3c 4f 42 45 59 24 44 49 52 3e 2e 47 4f |2,"<OBEY$DIR>.GO|
00000170 4f 53 45 31 22 0d 00 34 0b 20 4c 53 54 25 3d 33 |OSE1"..4. LST%=3|
00000180 0d 00 35 0f 20 eb 20 31 33 2b 31 32 38 3a 87 0d |..5. . 13+128:..|
00000190 00 37 1e 20 c8 99 20 36 2c 31 31 32 2c 31 3a db |.7. .. 6,112,1:.|
000001a0 3a c8 99 20 36 2c 31 31 32 2c 30 3a db 0d 00 38 |:.. 6,112,0:...8|
000001b0 17 20 53 43 52 25 3d 31 3a 48 24 3d 22 30 30 30 |. SCR%=1:H$="000|
000001c0 30 30 30 22 0d 00 3c 1b 20 58 44 31 25 3d 2d 31 |000"..<. XD1%=-1|
000001d0 36 3a 58 44 32 25 3d 36 34 3a 53 4f 25 3d 30 0d |6:XD2%=64:SO%=0.|
000001e0 00 46 0b 20 f2 63 68 61 6e 73 0d 00 4b 09 20 c8 |.F. .chans..K. .|
000001f0 a0 20 38 0d 00 4e 14 20 4d 41 58 4c 25 3d 31 31 |. 8..N. MAXL%=11|
00000200 3a 43 32 3d 31 30 30 0d 00 50 18 20 4f 48 25 3d |:C2=100..P. OH%=|
00000210 33 32 3a 4f 44 25 3d 38 3a 53 43 4f 25 3d 30 0d |32:OD%=8:SCO%=0.|
00000220 00 5a 1d 50 49 58 25 3d 30 3a 44 59 25 3d 32 34 |.Z.PIX%=0:DY%=24|
00000230 3a 53 24 3d 22 30 30 30 30 30 30 22 0d 00 64 20 |:S$="000000"..d |
00000240 20 f4 20 2a 2a 2a 2a 20 4e 45 57 20 47 41 4d 45 | . **** NEW GAME|
00000250 20 53 54 41 52 54 20 2a 2a 2a 2a 2a 0d 00 6e 19 | START *****..n.|
00000260 20 4c 45 56 25 3d 30 3a 4e 4c 58 25 3d 30 3a 4e | LEV%=0:NLX%=0:N|
00000270 4c 54 25 3d 30 0d 00 78 1a 20 53 43 52 25 3d 30 |LT%=0..x. SCR%=0|
00000280 3a 4f 42 25 3d 31 3a 4c 46 25 3d 4c 53 54 25 0d |:OB%=1:LF%=LST%.|
00000290 00 82 19 20 4c 58 25 28 29 3d 31 3a 4c 58 25 3d |... LX%()=1:LX%=|
000002a0 30 3a 4a 25 28 29 3d 30 0d 00 8c 19 20 50 31 25 |0:J%()=0.... P1%|
000002b0 3d 30 3a 44 45 44 25 3d 30 3a 44 45 44 31 25 3d |=0:DED%=0:DED1%=|
000002c0 30 0d 00 a0 19 20 50 25 28 29 3d 30 3a 42 4f 4f |0.... P%()=0:BOO|
000002d0 25 3d 30 3a 54 45 44 25 3d 30 0d 00 aa 12 20 42 |%=0:TED%=0.... B|
000002e0 41 4c 4c 25 3d 31 3a 45 4e 25 3d 34 0d 00 af 16 |ALL%=1:EN%=4....|
000002f0 20 c8 99 20 36 2c 31 31 33 2c 31 3a e4 20 8d 64 | .. 6,113,1:. .d|
00000300 7c 48 0d 00 b4 10 20 53 24 3d 22 30 30 30 30 30 ||H.... S$="00000|
00000310 30 22 0d 00 be 12 20 53 43 4f 25 3d 30 3a 44 45 |0".... SCO%=0:DE|
00000320 44 25 3d 30 0d 00 c3 0b 20 e5 20 8d 74 78 4b 0d |D%=0.... . .txK.|
00000330 00 c8 20 20 f4 20 2a 2a 2a 2a 20 4e 45 57 20 4c |.. . **** NEW L|
00000340 49 46 45 20 53 54 41 52 54 20 2a 2a 2a 2a 2a 0d |IFE START *****.|
00000350 00 d2 0a 20 45 4e 25 3d 34 0d 00 dc 29 20 c8 99 |... EN%=4...) ..|
00000360 20 36 2c 31 31 32 2c 31 3a db 3a c8 99 20 36 2c | 6,112,1:.:.. 6,|
00000370 31 31 33 2c 31 3a c8 99 20 36 2c 31 31 32 2c 30 |113,1:.. 6,112,0|
00000380 3a db 0d 01 22 12 20 e4 20 8d 44 70 57 3a f2 73 |:...". . .DpW:.s|
00000390 63 6f 72 65 0d 01 f4 20 20 f4 20 2a 2a 2a 2a 20 |core... . **** |
000003a0 4d 41 49 4e 20 4c 4f 4f 50 20 53 54 41 52 54 20 |MAIN LOOP START |
000003b0 2a 2a 2a 2a 0d 01 fe 12 20 c8 99 20 36 2c 31 31 |****.... .. 6,11|
000003c0 32 2c 53 43 52 25 0d 02 08 22 20 db 3a c8 99 20 |2,SCR%..." .:.. |
000003d0 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 53 43 |&2E,34+S1,S2,"SC|
000003e0 52 22 2c 30 2c 32 35 36 0d 02 12 2c 20 f4 20 2a |R",0,256..., . *|
000003f0 2a 2a 2a 20 4c 4f 4f 50 20 54 4f 20 4d 4f 56 45 |*** LOOP TO MOVE|
00000400 20 45 41 43 48 20 43 48 41 52 41 43 54 45 52 20 | EACH CHARACTER |
00000410 2a 2a 2a 2a 0d 02 1c 0e 20 e3 20 4c 3d 30 20 b8 |****.... . L=0 .|
00000420 20 35 0d 02 1e 09 20 f2 73 66 78 0d 02 21 0a 20 | 5.... .sfx..!. |
00000430 4a 55 25 3d 30 0d 02 24 10 20 e7 20 58 25 28 4c |JU%=0..$. . X%(L|
00000440 29 3e 30 20 8c 0d 02 26 83 20 58 58 25 28 4c 29 |)>0 ...&. XX%(L)|
00000450 3d 30 3a e7 20 28 58 25 28 4c 29 2b 28 4c 58 25 |=0:. (X%(L)+(LX%|
00000460 28 4c 29 2a 33 32 29 2b 50 49 58 25 29 2f 31 32 |(L)*32)+PIX%)/12|
00000470 38 3e 3d 30 20 80 20 28 59 25 28 4c 29 2d 32 39 |8>=0 . (Y%(L)-29|
00000480 32 29 2f 31 34 34 3e 3d 30 20 8c 20 54 52 25 3d |2)/144>=0 . TR%=|
00000490 54 25 28 28 59 25 28 4c 29 2d 32 39 32 29 2f 31 |T%((Y%(L)-292)/1|
000004a0 34 34 2c 28 58 25 28 4c 29 2b 28 4c 58 25 28 4c |44,(X%(L)+(LX%(L|
000004b0 29 2a 33 32 29 2b 50 49 58 25 29 2f 31 32 38 29 |)*32)+PIX%)/128)|
000004c0 20 8b 20 54 52 25 3d 30 0d 02 2b 2e 20 54 52 31 | . TR%=0..+. TR1|
000004d0 25 3d 54 25 28 28 59 25 28 4c 29 2d 32 39 32 29 |%=T%((Y%(L)-292)|
000004e0 2f 31 34 34 2c 28 58 25 28 4c 29 2b 50 49 58 25 |/144,(X%(L)+PIX%|
000004f0 29 2f 31 32 38 29 0d 02 30 0c 20 e7 20 4c 3d 30 |)/128)..0. . L=0|
00000500 20 8c 0d 02 3a 24 20 58 58 25 28 4c 29 3d 58 58 | ...:$ XX%(L)=XX|
00000510 25 28 4c 29 2b 28 a6 28 2d 39 38 29 29 2d 28 a6 |%(L)+(.(-98))-(.|
00000520 28 2d 36 37 29 29 0d 02 3b 35 20 e7 20 58 25 28 |(-67))..;5 . X%(|
00000530 4c 29 2b 58 58 25 28 4c 29 3c 31 37 20 84 20 58 |L)+XX%(L)<17 . X|
00000540 25 28 4c 29 2b 58 58 25 28 4c 29 3e 31 32 30 30 |%(L)+XX%(L)>1200|
00000550 20 8c 20 58 58 25 28 4c 29 3d 30 0d 02 3f 33 20 | . XX%(L)=0..?3 |
00000560 e7 20 a6 28 2d 37 34 29 20 80 20 4a 25 28 4c 2c |. .(-74) . J%(L,|
00000570 31 29 3d 30 20 80 20 44 45 44 25 3d 30 20 80 20 |1)=0 . DED%=0 . |
00000580 42 4c 25 3c 3e 32 20 8c 20 4a 55 25 3d 31 0d 02 |BL%<>2 . JU%=1..|
00000590 44 47 20 e7 20 54 25 28 20 28 59 25 28 4c 29 2d |DG . T%( (Y%(L)-|
000005a0 32 39 32 29 2f 31 34 34 20 2c 20 28 58 25 28 4c |292)/144 , (X%(L|
000005b0 29 2b 28 58 58 25 28 4c 29 2a 33 32 29 2b 50 49 |)+(XX%(L)*32)+PI|
000005c0 58 25 29 2f 31 32 38 29 3d 30 20 8c 20 58 58 25 |X%)/128)=0 . XX%|
000005d0 28 4c 29 3d 30 0d 02 49 20 20 e7 20 44 45 44 25 |(L)=0..I . DED%|
000005e0 3e 31 20 84 20 42 4c 25 3d 32 20 8c 20 58 58 25 |>1 . BL%=2 . XX%|
000005f0 28 30 29 3d 30 0d 02 4e 06 20 cc 0d 02 58 1d 20 |(0)=0..N. ...X. |
00000600 e7 20 58 25 28 4c 29 3e 2d 39 39 20 80 20 59 59 |. X%(L)>-99 . YY|
00000610 25 28 4c 29 3d 30 20 8c 0d 02 62 2e 20 20 e7 20 |%(L)=0 ...b. . |
00000620 54 52 25 3d 30 20 8c 20 58 58 25 28 4c 29 3d 2d |TR%=0 . XX%(L)=-|
00000630 4c 58 25 28 4c 29 20 8b 20 58 58 25 28 4c 29 3d |LX%(L) . XX%(L)=|
00000640 4c 58 25 28 4c 29 0d 02 6c 17 20 e7 20 b3 28 31 |LX%(L)..l. . .(1|
00000650 29 3c 2e 30 35 20 8c 20 4a 55 25 3d 31 0d 02 76 |)<.05 . JU%=1..v|
00000660 36 20 e7 20 58 25 28 30 29 3e 58 25 28 4c 29 2d |6 . X%(0)>X%(L)-|
00000670 32 34 20 80 20 58 25 28 30 29 3c 58 25 28 4c 29 |24 . X%(0)<X%(L)|
00000680 2b 37 32 20 80 20 59 25 28 4c 29 3d 59 25 28 30 |+72 . Y%(L)=Y%(0|
00000690 29 20 8c 0d 02 7b 6f 20 e7 20 44 45 44 25 3d 30 |) ...{o . DED%=0|
000006a0 20 80 20 42 4f 4f 25 3d 30 20 8c 20 41 4e 25 28 | . BOO%=0 . AN%(|
000006b0 30 29 3d 34 3a 58 58 25 28 4c 29 3d 2d 58 58 25 |0)=4:XX%(L)=-XX%|
000006c0 28 4c 29 3a 45 4e 25 2d 3d 31 3a ff 28 22 43 48 |(L):EN%-=1:.("CH|
000006d0 41 4e 4e 45 4c 56 4f 49 43 45 20 33 20 32 22 29 |ANNELVOICE 3 2")|
000006e0 3a d4 20 33 2c 2d 31 35 2c 28 a8 28 b3 28 31 29 |:. 3,-15,(.(.(1)|
000006f0 2a 35 29 2a 35 29 2b 35 30 2c 31 3a f2 73 63 6f |*5)*5)+50,1:.sco|
00000700 72 65 0d 02 80 65 20 e7 20 44 45 44 25 3d 30 20 |re...e . DED%=0 |
00000710 80 20 42 4f 4f 25 3e 30 20 8c 20 59 59 25 28 4c |. BOO%>0 . YY%(L|
00000720 29 3d 31 3a 42 4f 4f 25 2d 3d 31 3a 58 58 25 28 |)=1:BOO%-=1:XX%(|
00000730 4c 29 3d 30 3a ff 28 22 43 48 41 4e 4e 45 4c 56 |L)=0:.("CHANNELV|
00000740 4f 49 43 45 20 33 20 33 22 29 3a d4 20 33 2c 2d |OICE 3 3"):. 3,-|
00000750 31 32 2c 39 30 2c 31 3a 53 43 4f 25 2b 3d 35 30 |12,90,1:SCO%+=50|
00000760 3a f2 73 63 6f 72 65 0d 02 82 06 20 cd 0d 02 b2 |:.score.... ....|
00000770 06 20 cd 0d 02 b7 06 20 cd 0d 02 bc 10 20 f4 20 |. ..... ..... . |
00000780 49 46 20 4a 55 4d 50 45 44 0d 02 c1 1a 20 e7 20 |IF JUMPED.... . |
00000790 4c 3d 30 20 80 20 44 45 44 25 3d 31 20 8c 20 8d |L=0 . DED%=1 . .|
000007a0 64 78 42 0d 02 c6 25 20 e7 20 4a 55 25 3d 31 20 |dxB...% . JU%=1 |
000007b0 80 20 59 59 25 28 4c 29 3d 30 20 80 20 4a 25 28 |. YY%(L)=0 . J%(|
000007c0 4c 2c 31 29 3d 30 20 8c 0d 02 cb 1f 20 e7 20 54 |L,1)=0 ..... . T|
000007d0 52 31 25 3c 3e 34 20 80 20 54 52 31 25 3c 3e 35 |R1%<>4 . TR1%<>5|
000007e0 20 8c 20 8d 54 60 43 0d 02 d0 16 20 e7 20 54 52 | . .T`C.... . TR|
000007f0 31 25 3d 35 20 8c 20 4a 55 25 3d 2d 31 0d 02 d5 |1%=5 . JU%=-1...|
00000800 12 20 4a 25 28 4c 2c 31 29 3d 59 25 28 4c 29 0d |. J%(L,1)=Y%(L).|
00000810 02 da 50 20 4a 25 28 4c 2c 31 29 3d 4a 25 28 4c |..P J%(L,1)=J%(L|
00000820 2c 31 29 2b 28 4a 55 25 2a 31 34 34 29 3a e7 20 |,1)+(JU%*144):. |
00000830 54 25 28 28 4a 25 28 4c 2c 31 29 2d 32 39 32 29 |T%((J%(L,1)-292)|
00000840 2f 31 34 34 2c 28 58 25 28 4c 29 2b 50 49 58 25 |/144,(X%(L)+PIX%|
00000850 29 2f 31 32 38 29 3d 30 20 8c 20 8d 64 5a 42 0d |)/128)=0 . .dZB.|
00000860 02 e4 0e 20 4a 25 28 4c 2c 32 29 3d 30 0d 02 e9 |... J%(L,2)=0...|
00000870 11 20 d4 20 34 2c 2d 31 30 2c 31 30 2c 31 0d 02 |. . 4,-10,10,1..|
00000880 ee 06 20 cd 0d 02 f8 74 20 e7 20 4a 25 28 4c 2c |.. ....t . J%(L,|
00000890 31 29 3e 30 20 8c 20 4a 25 28 4c 2c 32 29 2b 3d |1)>0 . J%(L,2)+=|
000008a0 31 3a 58 58 25 28 4c 29 3d 30 3a e7 20 4a 25 28 |1:XX%(L)=0:. J%(|
000008b0 4c 2c 32 29 3d 36 20 8c 20 d4 20 35 2c 2d 31 30 |L,2)=6 . . 5,-10|
000008c0 2c 31 30 2c 31 3a 4a 25 28 4c 2c 32 29 3d 37 3a |,10,1:J%(L,2)=7:|
000008d0 59 25 28 4c 29 3d 4a 25 28 4c 2c 31 29 20 8b 20 |Y%(L)=J%(L,1) . |
000008e0 e7 20 4a 25 28 4c 2c 32 29 3d 31 32 20 8c 20 4a |. J%(L,2)=12 . J|
000008f0 25 28 4c 2c 31 29 3d 30 0d 03 20 1c 20 f4 20 44 |%(L,1)=0.. . . D|
00000900 49 53 50 4c 41 59 20 43 48 41 52 41 43 54 45 52 |ISPLAY CHARACTER|
00000910 20 28 4c 29 0d 03 48 b3 20 e7 20 58 58 25 28 4c | (L)..H. . XX%(L|
00000920 29 3c 3e 30 20 8c 20 e7 20 59 59 25 28 4c 29 3d |)<>0 . . YY%(L)=|
00000930 30 20 8c 20 4c 58 25 28 4c 29 3d 58 58 25 28 4c |0 . LX%(L)=XX%(L|
00000940 29 3a 58 25 28 4c 29 3d 58 25 28 4c 29 2b 28 58 |):X%(L)=X%(L)+(X|
00000950 58 25 28 4c 29 2a 31 36 29 3a 41 4e 25 28 4c 29 |X%(L)*16):AN%(L)|
00000960 2b 3d 31 3a e7 20 41 4e 25 28 4c 29 3e 33 20 8c |+=1:. AN%(L)>3 .|
00000970 20 41 4e 25 28 4c 29 3d 31 20 8b 20 59 25 28 4c | AN%(L)=1 . Y%(L|
00000980 29 3d 59 25 28 4c 29 2b 28 59 59 25 28 4c 29 2a |)=Y%(L)+(YY%(L)*|
00000990 31 36 29 3a e7 20 59 59 25 28 4c 29 3e 30 20 8c |16):. YY%(L)>0 .|
000009a0 20 59 59 25 28 4c 29 3d 59 59 25 28 4c 29 2b 31 | YY%(L)=YY%(L)+1|
000009b0 3a e7 20 59 59 25 28 4c 29 3d 35 20 8c 20 59 59 |:. YY%(L)=5 . YY|
000009c0 25 28 4c 29 3d 2d 33 0d 03 4d 2e 20 e7 20 28 59 |%(L)=-3..M. . (Y|
000009d0 25 28 4c 29 2d 32 39 32 29 2f 31 34 34 3c 30 20 |%(L)-292)/144<0 |
000009e0 8c 20 58 25 28 4c 29 3d 2d 39 39 39 3a 59 59 25 |. X%(L)=-999:YY%|
000009f0 28 4c 29 3d 30 0d 03 52 c8 20 e7 20 4c 3d 30 20 |(L)=0..R. . L=0 |
00000a00 80 20 44 45 44 25 3d 30 20 80 20 4c 58 25 28 4c |. DED%=0 . LX%(L|
00000a10 29 3c 3e 30 20 8c 20 50 31 25 3d b0 58 25 28 4c |)<>0 . P1%=.X%(L|
00000a20 29 2b 33 32 2c 59 25 28 30 29 2b 44 59 25 29 3a |)+32,Y%(0)+DY%):|
00000a30 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c |.. &2E,34+S1,S2,|
00000a40 22 4d 22 2b c3 28 41 4e 25 28 4c 29 2a 4c 58 25 |"M"+.(AN%(L)*LX%|
00000a50 28 4c 29 29 2c 58 25 28 4c 29 2c 59 25 28 4c 29 |(L)),X%(L),Y%(L)|
00000a60 2c 38 20 8b 20 e7 20 44 45 44 25 3e 30 20 80 20 |,8 . . DED%>0 . |
00000a70 4c 3d 30 20 8c 20 c8 99 20 26 32 45 2c 33 34 2b |L=0 . .. &2E,34+|
00000a80 53 31 2c 53 32 2c 22 44 45 41 44 22 2c 58 25 28 |S1,S2,"DEAD",X%(|
00000a90 4c 29 2c 59 25 28 4c 29 2c 38 3a 44 45 44 25 2d |L),Y%(L),8:DED%-|
00000aa0 3d 31 3a e7 20 44 45 44 25 3d 30 20 8c 20 4c 58 |=1:. DED%=0 . LX|
00000ab0 25 28 30 29 3d 31 3a f2 73 63 6f 72 65 0d 03 53 |%(0)=1:.score..S|
00000ac0 1c 20 e7 20 4c 46 25 3d 30 20 80 20 44 45 44 25 |. . LF%=0 . DED%|
00000ad0 3d 30 20 8c 20 8d 74 58 48 0d 03 57 40 20 e7 20 |=0 . .tXH..W@ . |
00000ae0 4c 3c 3e 30 20 8c 20 c8 99 20 26 32 45 2c 33 34 |L<>0 . .. &2E,34|
00000af0 2b 53 31 2c 53 32 2c 22 43 22 2b c3 28 41 4e 25 |+S1,S2,"C"+.(AN%|
00000b00 28 4c 29 2a 4c 58 25 28 4c 29 29 2c 58 25 28 4c |(L)*LX%(L)),X%(L|
00000b10 29 2c 59 25 28 4c 29 2c 38 0d 03 5c 44 20 e7 20 |),Y%(L),8..\D . |
00000b20 4a 25 28 4c 2c 31 29 3e 30 20 8c 20 c8 99 20 26 |J%(L,1)>0 . .. &|
00000b30 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 54 52 22 |2E,34+S1,S2,"TR"|
00000b40 2b c3 28 4a 25 28 4c 2c 32 29 20 83 20 36 29 2c |+.(J%(L,2) . 6),|
00000b50 58 25 28 4c 29 2c 59 25 28 4c 29 2c 38 0d 03 5e |X%(L),Y%(L),8..^|
00000b60 06 20 cd 0d 03 5f 08 20 ed 20 4c 0d 03 61 0e 20 |. ..._. . L..a. |
00000b70 e7 20 42 4c 25 3e 30 20 8c 0d 03 62 c8 20 c8 99 |. BL%>0 ...b. ..|
00000b80 20 26 32 45 2c 53 31 2b 33 34 2c 53 32 2c 22 42 | &2E,S1+34,S2,"B|
00000b90 41 4c 4c 22 2b c3 28 42 41 4c 4c 25 29 2c 42 58 |ALL"+.(BALL%),BX|
00000ba0 25 2c 42 59 25 2b 31 32 34 2c 38 3a c8 99 20 26 |%,BY%+124,8:.. &|
00000bb0 32 45 2c 53 31 2b 33 34 2c 53 32 2c 22 42 41 53 |2E,S1+34,S2,"BAS|
00000bc0 4b 45 54 22 2c 42 58 25 2c 42 59 25 2c 38 3a 42 |KET",BX%,BY%,8:B|
00000bd0 58 25 3d 42 58 25 2d 28 38 20 80 20 42 58 25 3e |X%=BX%-(8 . BX%>|
00000be0 42 4c 58 25 29 3a 42 58 25 3d 42 58 25 2b 28 a8 |BLX%):BX%=BX%+(.|
00000bf0 28 b3 28 31 29 2a 33 29 2d 31 20 80 20 42 4c 25 |(.(1)*3)-1 . BL%|
00000c00 3d 32 29 3a 42 59 25 3d 42 59 25 2b 28 38 20 80 |=2):BY%=BY%+(8 .|
00000c10 20 42 4c 25 3d 32 29 3a 59 25 28 30 29 3d 59 25 | BL%=2):Y%(0)=Y%|
00000c20 28 30 29 2b 28 38 20 80 20 42 4c 25 3d 32 29 3a |(0)+(8 . BL%=2):|
00000c30 e7 20 42 59 25 3e 31 30 32 34 20 8c 20 8d 74 78 |. BY%>1024 . .tx|
00000c40 4b 0d 03 63 38 20 e7 20 a8 28 58 25 28 30 29 2f |K..c8 . .(X%(0)/|
00000c50 33 32 29 3d a8 28 42 58 25 2f 33 32 29 20 80 20 |32)=.(BX%/32) . |
00000c60 59 25 28 30 29 3d 42 59 25 20 80 20 42 4c 25 3d |Y%(0)=BY% . BL%=|
00000c70 31 20 8c 20 42 4c 25 3d 32 0d 03 64 18 20 42 41 |1 . BL%=2..d. BA|
00000c80 4c 4c 25 3d 28 42 41 4c 4c 25 2b 31 29 20 83 20 |LL%=(BALL%+1) . |
00000c90 32 0d 03 65 06 20 cd 0d 03 66 87 20 e3 20 4c 3d |2..e. ...f. . L=|
00000ca0 30 20 b8 20 31 39 3a e7 20 4f 25 28 4c 2c 31 29 |0 . 19:. O%(L,1)|
00000cb0 3e 30 20 8c 20 c8 99 20 26 32 45 2c 33 34 2b 53 |>0 . .. &2E,34+S|
00000cc0 31 2c 53 32 2c 22 30 22 2b c3 28 4f 25 28 4c 2c |1,S2,"0"+.(O%(L,|
00000cd0 33 29 29 2c 4f 25 28 4c 2c 31 29 2c 4f 25 28 4c |3)),O%(L,1),O%(L|
00000ce0 2c 32 29 2c 38 3a e7 20 28 4f 25 28 4c 2c 32 29 |,2),8:. (O%(L,2)|
00000cf0 2d 33 32 34 29 2f 31 34 34 3c 3e a8 28 28 4f 25 |-324)/144<>.((O%|
00000d00 28 4c 2c 32 29 2d 33 32 34 29 2f 31 34 34 29 20 |(L,2)-324)/144) |
00000d10 8c 20 4f 25 28 4c 2c 32 29 2d 3d 4f 44 25 0d 03 |. O%(L,2)-=OD%..|
00000d20 6b 70 20 e7 20 28 a8 28 4f 25 28 4c 2c 31 29 2f |kp . (.(O%(L,1)/|
00000d30 36 34 29 3d a8 28 58 25 28 30 29 2f 36 34 29 20 |64)=.(X%(0)/64) |
00000d40 84 20 a8 28 4f 25 28 4c 2c 31 29 2f 36 34 29 2b |. .(O%(L,1)/64)+|
00000d50 31 3d a8 28 58 25 28 30 29 2f 36 34 29 29 20 80 |1=.(X%(0)/64)) .|
00000d60 20 a8 28 28 59 25 28 30 29 2d 32 39 32 29 2f 31 | .((Y%(0)-292)/1|
00000d70 34 34 29 3d 28 4f 25 28 4c 2c 32 29 2d 33 32 34 |44)=(O%(L,2)-324|
00000d80 29 2f 31 34 34 20 8c 20 e4 20 8d 64 50 47 0d 03 |)/144 . . .dPG..|
00000d90 70 08 20 ed 20 4c 0d 03 84 0e e7 20 50 31 25 3d |p. . L..... P1%=|
00000da0 33 39 20 8c 0d 03 8e bc e3 20 4c 3d 31 20 b8 20 |39 ...... L=1 . |
00000db0 50 4c 25 3a e7 20 58 25 28 30 29 3d 50 25 28 4c |PL%:. X%(0)=P%(L|
00000dc0 2c 31 29 20 80 20 a8 28 28 59 25 28 30 29 2d 32 |,1) . .((Y%(0)-2|
00000dd0 39 32 29 2f 31 34 34 29 3d 50 25 28 4c 2c 32 29 |92)/144)=P%(L,2)|
00000de0 20 80 20 50 25 28 4c 2c 33 29 3c 3e 30 20 8c 20 | . P%(L,3)<>0 . |
00000df0 d4 20 37 2c 2d 31 35 2c 36 32 35 2c 31 3a 4f 25 |. 7,-15,625,1:O%|
00000e00 28 4f 42 25 2c 31 29 3d 58 25 28 30 29 2d 33 32 |(OB%,1)=X%(0)-32|
00000e10 3a 4f 25 28 4f 42 25 2c 32 29 3d 59 25 28 30 29 |:O%(OB%,2)=Y%(0)|
00000e20 2b 4f 48 25 3a 4f 25 28 4f 42 25 2c 33 29 3d 50 |+OH%:O%(OB%,3)=P|
00000e30 25 28 4c 2c 33 29 3a 50 25 28 4c 2c 33 29 3d 30 |%(L,3):P%(L,3)=0|
00000e40 3a 4f 42 25 3d 28 4f 42 25 2b 31 29 20 83 20 32 |:OB%=(OB%+1) . 2|
00000e50 30 3a f2 64 75 6d 6d 79 3a 4c 3d 50 4c 25 2b 31 |0:.dummy:L=PL%+1|
00000e60 0d 03 98 06 20 ed 0d 03 9d 06 20 cd 0d 03 a2 0e |.... ..... .....|
00000e70 20 e7 20 50 31 25 3d 35 20 8c 0d 03 ac 10 20 e3 | . P1%=5 ..... .|
00000e80 20 4c 3d 31 20 b8 20 42 52 25 0d 03 b6 52 20 e7 | L=1 . BR%...R .|
00000e90 20 28 a8 28 42 25 28 4c 2c 31 29 2f 33 32 29 3d | (.(B%(L,1)/32)=|
00000ea0 a8 28 58 25 28 30 29 2f 33 32 29 20 84 20 a8 28 |.(X%(0)/32) . .(|
00000eb0 42 25 28 4c 2c 31 29 2f 33 32 29 2b 31 3d a8 28 |B%(L,1)/32)+1=.(|
00000ec0 58 25 28 30 29 2f 33 32 29 29 20 80 20 59 25 28 |X%(0)/32)) . Y%(|
00000ed0 30 29 3d 42 25 28 4c 2c 32 29 20 8c 0d 03 c0 71 |0)=B%(L,2) ....q|
00000ee0 20 e7 20 54 45 44 25 3e 30 20 8c 20 42 25 28 4c | . TED%>0 . B%(L|
00000ef0 2c 31 29 3d 2d 39 39 39 3a 54 45 44 25 2d 3d 31 |,1)=-999:TED%-=1|
00000f00 3a ff 20 28 22 43 48 41 4e 4e 45 4c 56 4f 49 43 |:. ("CHANNELVOIC|
00000f10 45 20 31 20 39 22 29 3a d4 20 31 2c 2d 31 35 2c |E 1 9"):. 1,-15,|
00000f20 34 30 30 30 2c 31 3a f2 64 75 6d 6d 79 3a f2 73 |4000,1:.dummy:.s|
00000f30 63 6f 72 65 3a 42 52 31 25 2d 3d 31 3a e7 20 42 |core:BR1%-=1:. B|
00000f40 52 31 25 3d 30 20 8c 20 42 4c 25 3d 31 0d 03 ca |R1%=0 . BL%=1...|
00000f50 06 20 cd 0d 03 d4 06 20 ed 0d 03 de 06 20 cd 0d |. ..... ..... ..|
00000f60 07 a8 20 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |.. .. &2E,34+S1|
00000f70 2c 53 32 2c 22 53 63 6f 72 65 22 2c 30 2c 30 0d |,S2,"Score",0,0.|
00000f80 07 b2 0e 20 f2 73 63 72 5f 66 6c 69 70 0d 07 c6 |... .scr_flip...|
00000f90 0b 20 e5 20 8d 64 74 41 0d 07 d0 1b 20 f4 20 2a |. . .dtA.... . *|
00000fa0 2a 2a 2a 20 47 45 54 20 4f 42 4a 45 43 54 20 2a |*** GET OBJECT *|
00000fb0 2a 2a 2a 0d 07 d5 13 20 d4 20 36 2c 2d 31 35 2c |***.... . 6,-15,|
00000fc0 35 39 38 30 2c 31 0d 07 da 11 20 c8 8e 20 4f 25 |5980,1.... .. O%|
00000fd0 28 4c 2c 33 29 20 ca 0d 07 e4 18 20 c9 20 31 3a |(L,3) ..... . 1:|
00000fe0 42 4f 4f 25 2b 3d 31 3a 53 43 4f 25 2b 3d 35 0d |BOO%+=1:SCO%+=5.|
00000ff0 07 ee 18 20 c9 20 32 3a 54 45 44 25 2b 3d 31 3a |... . 2:TED%+=1:|
00001000 53 43 4f 25 2b 3d 35 0d 07 f8 12 20 c9 20 33 3a |SCO%+=5.... . 3:|
00001010 53 43 4f 25 2b 3d 35 30 30 0d 08 02 0f 20 c9 20 |SCO%+=500.... . |
00001020 34 3a 4c 46 25 2b 3d 31 0d 08 0c 36 20 c9 20 35 |4:LF%+=1...6 . 5|
00001030 3a 53 43 4f 25 2b 3d 31 30 30 30 3a ff 28 22 43 |:SCO%+=1000:.("C|
00001040 48 41 4e 4e 45 4c 56 4f 49 43 45 20 33 20 33 22 |HANNELVOICE 3 3"|
00001050 29 3a d4 20 33 2c 2d 31 32 2c 33 30 2c 31 0d 08 |):. 3,-12,30,1..|
00001060 16 0f 20 c9 20 36 3a 45 4e 25 2b 3d 31 0d 08 20 |.. . 6:EN%+=1.. |
00001070 17 20 c9 20 37 3a 45 4e 25 2d 3d 31 3a 44 45 44 |. . 7:EN%-=1:DED|
00001080 31 25 3d 31 0d 08 2a 0e 20 c9 20 38 3a 45 4e 25 |1%=1..*. . 8:EN%|
00001090 3d 30 0d 08 7a 06 20 cb 0d 08 7f 14 20 e7 20 45 |=0..z. ..... . E|
000010a0 4e 25 3e 34 20 8c 20 45 4e 25 3d 34 0d 08 84 18 |N%>4 . EN%=4....|
000010b0 20 4f 25 28 4c 2c 31 29 3d 2d 39 39 39 3a f2 73 | O%(L,1)=-999:.s|
000010c0 63 6f 72 65 0d 08 8e 0a 20 ef 20 37 3a f8 0d 08 |core.... . 7:...|
000010d0 98 10 20 f4 20 47 41 4d 45 20 4f 56 45 52 0d 08 |.. . GAME OVER..|
000010e0 a2 1e 20 f2 73 63 72 5f 66 6c 69 70 3a c8 99 20 |.. .scr_flip:.. |
000010f0 36 2c 31 31 32 2c 53 43 52 25 3a db 0d 08 ac 0e |6,112,SCR%:.....|
00001100 20 47 4f 5f 59 3d 31 31 39 36 0d 08 b1 06 20 f5 | GO_Y=1196.... .|
00001110 0d 08 b6 14 20 c8 99 20 36 2c 31 31 32 2c 53 43 |.... .. 6,112,SC|
00001120 52 25 3a db 0d 08 c0 28 20 c8 99 20 26 32 45 2c |R%:....( .. &2E,|
00001130 33 34 2b 53 31 2c 53 32 2c 22 47 41 4d 45 4f 56 |34+S1,S2,"GAMEOV|
00001140 45 52 22 2c 33 38 34 2c 47 4f 5f 59 0d 08 ca 23 |ER",384,GO_Y...#|
00001150 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 | .. &2E,34+S1,S2|
00001160 2c 22 30 36 22 2c 32 35 36 2c 35 31 32 2c 38 0d |,"06",256,512,8.|
00001170 08 d4 23 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |..# .. &2E,34+S1|
00001180 2c 53 32 2c 22 30 36 22 2c 38 39 36 2c 35 31 32 |,S2,"06",896,512|
00001190 2c 38 0d 08 d9 18 20 e7 20 a6 28 2d 39 39 29 20 |,8.... . .(-99) |
000011a0 8c 20 47 4f 5f 59 3d 35 31 36 0d 08 de 19 20 e7 |. GO_Y=516.... .|
000011b0 20 47 4f 5f 59 3e 35 31 32 20 8c 20 47 4f 5f 59 | GO_Y>512 . GO_Y|
000011c0 2d 3d 34 0d 08 e8 15 20 f2 73 63 6f 72 65 3a f2 |-=4.... .score:.|
000011d0 73 63 72 5f 66 6c 69 70 0d 08 f2 10 20 fd 20 47 |scr_flip.... . G|
000011e0 4f 5f 59 3c 3d 35 31 32 0d 08 f7 25 20 e3 20 4c |O_Y<=512...% . L|
000011f0 3d 30 20 b8 20 32 30 30 30 30 3a ed 20 4c 3a f2 |=0 . 20000:. L:.|
00001200 68 69 67 68 65 72 3a e5 20 8d 44 64 40 0d 08 fc |higher:. .Dd@...|
00001210 27 20 f4 20 2a 2a 2a 2a 2a 20 54 49 54 4c 45 20 |' . ***** TITLE |
00001220 53 43 52 45 45 4e 20 52 4f 55 54 49 4e 45 20 2a |SCREEN ROUTINE *|
00001230 2a 2a 2a 2a 0d 09 06 14 20 c8 99 20 36 2c 31 31 |****.... .. 6,11|
00001240 32 2c 53 43 52 25 3a db 0d 09 0a 22 20 c8 99 20 |2,SCR%:...." .. |
00001250 26 32 45 2c 33 2c 2c 22 3c 4f 42 45 59 24 44 49 |&2E,3,,"<OBEY$DI|
00001260 52 3e 2e 47 4f 4f 53 45 59 22 0d 09 0b 2a 20 c8 |R>.GOOSEY"...* .|
00001270 99 20 26 32 45 2c 31 36 2b 53 31 2c 53 32 2c 22 |. &2E,16+S1,S2,"|
00001280 42 41 43 4b 22 2c 30 2c 30 2c 30 2c 31 32 30 30 |BACK",0,0,0,1200|
00001290 2c 35 31 32 0d 09 0c 06 20 db 0d 09 10 2a 20 c8 |,512.... ....* .|
000012a0 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 |. &2E,34+S1,S2,"|
000012b0 42 41 43 4b 22 2c 31 32 38 2c 35 31 32 3a f2 73 |BACK",128,512:.s|
000012c0 63 6f 72 65 0d 09 12 0f 20 fb 20 36 33 20 c8 9c |core.... . 63 ..|
000012d0 20 36 34 0d 09 15 15 20 e3 20 4c 3d 30 20 b8 20 | 64.... . L=0 . |
000012e0 31 30 30 30 3a ed 20 4c 0d 09 16 24 20 c8 99 20 |1000:. L...$ .. |
000012f0 36 2c 31 31 33 2c 53 43 52 25 3a 53 43 52 25 3d |6,113,SCR%:SCR%=|
00001300 28 53 43 52 25 2b 31 29 20 83 20 32 0d 09 1f 15 |(SCR%+1) . 2....|
00001310 20 f1 20 8a 31 38 2c 31 34 29 3b 22 4c 55 4e 59 | . .18,14);"LUNY|
00001320 22 0d 09 24 06 20 f1 0d 09 2e 12 20 f1 20 8a 31 |"..$. ..... . .1|
00001330 38 29 3b 22 31 39 39 32 22 0d 09 33 36 20 f1 20 |8);"1992"..36 . |
00001340 8a 30 2c 32 32 29 3b 22 28 43 29 20 41 72 63 68 |.0,22);"(C) Arch|
00001350 69 6d 65 64 65 73 20 57 6f 72 6c 64 20 31 39 39 |imedes World 199|
00001360 33 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 0d |3.............".|
00001370 09 38 2e 20 e3 20 4c 3d 30 20 b8 20 34 3a 58 25 |.8. . L=0 . 4:X%|
00001380 28 4c 29 3d 31 33 30 30 2b 28 4c 2a 39 36 29 3a |(L)=1300+(L*96):|
00001390 58 58 25 28 4c 29 3d 2d 31 3a ed 20 4c 0d 09 42 |XX%(L)=-1:. L..B|
000013a0 15 20 42 59 25 3d 31 31 30 30 3a 41 4e 25 28 29 |. BY%=1100:AN%()|
000013b0 3d 31 0d 09 47 08 20 43 3d 30 0d 09 4c 22 20 f5 |=1..G. C=0..L" .|
000013c0 3a 43 32 2d 3d 31 3a e7 20 a6 28 2d 39 39 29 20 |:C2-=1:. .(-99) |
000013d0 84 20 a6 28 2d 37 34 29 20 8c 20 f8 0d 09 51 0b |. .(-74) . ...Q.|
000013e0 20 fd 20 43 32 3c 31 0d 09 53 0e 20 e3 20 4c 3d | . C2<1..S. . L=|
000013f0 30 20 b8 20 34 0d 09 56 6c 20 e7 20 4c 3d 30 20 |0 . 4..Vl . L=0 |
00001400 8c 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 |. .. &2E,34+S1,S|
00001410 32 2c 22 4d 22 2b c3 28 41 4e 25 28 4c 29 2a 58 |2,"M"+.(AN%(L)*X|
00001420 58 25 28 4c 29 29 2c 58 25 28 4c 29 2c 33 32 30 |X%(L)),X%(L),320|
00001430 20 8b 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c | . .. &2E,34+S1,|
00001440 53 32 2c 22 43 22 2b c3 28 41 4e 25 28 4c 29 2a |S2,"C"+.(AN%(L)*|
00001450 58 58 25 28 4c 29 29 2c 58 25 28 4c 29 2c 33 32 |XX%(L)),X%(L),32|
00001460 30 0d 09 60 1b 20 58 25 28 4c 29 3d 58 25 28 4c |0..`. X%(L)=X%(L|
00001470 29 2b 28 58 58 25 28 4c 29 2a 34 29 0d 09 65 38 |)+(XX%(L)*4)..e8|
00001480 20 43 3d 28 43 2b 31 29 20 83 20 34 3a e7 20 43 | C=(C+1) . 4:. C|
00001490 3d 30 20 8c 20 41 4e 25 28 4c 29 2b 3d 31 3a e7 |=0 . AN%(L)+=1:.|
000014a0 20 41 4e 25 28 4c 29 3d 34 20 8c 20 41 4e 25 28 | AN%(L)=4 . AN%(|
000014b0 4c 29 3d 31 0d 09 6a 08 20 ed 20 4c 0d 09 74 43 |L)=1..j. . L..tC|
000014c0 20 e7 20 58 58 25 28 30 29 3d 2d 31 20 8c 20 c8 | . XX%(0)=-1 . .|
000014d0 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 |. &2E,34+S1,S2,"|
000014e0 30 31 22 2c 30 2c 42 59 25 3a e7 20 42 59 25 3e |01",0,BY%:. BY%>|
000014f0 33 33 32 20 8c 20 42 59 25 3d 42 59 25 2d 38 0d |332 . BY%=BY%-8.|
00001500 09 7e 1a 20 e7 20 58 58 25 28 30 29 3d 31 20 8c |.~. . XX%(0)=1 .|
00001510 20 42 59 25 3d 31 31 30 30 0d 09 88 57 20 e7 20 | BY%=1100...W . |
00001520 58 25 28 30 29 3c 30 20 84 20 58 25 28 30 29 3e |X%(0)<0 . X%(0)>|
00001530 31 33 30 30 20 8c 20 58 58 25 28 29 3d 2d 58 58 |1300 . XX%()=-XX|
00001540 25 28 29 3a e7 20 58 25 28 30 29 3e 31 33 30 30 |%():. X%(0)>1300|
00001550 20 8c 20 f2 68 69 3a 43 32 3d a8 28 b3 28 31 29 | . .hi:C2=.(.(1)|
00001560 2a 38 30 30 29 2a 31 30 30 3a e5 20 8d 54 4c 49 |*800)*100:. .TLI|
00001570 0d 09 92 1a 20 e7 20 a6 28 2d 39 39 29 20 84 20 |.... . .(-99) . |
00001580 a6 28 2d 37 34 29 20 8c 20 f8 0d 09 bf 0b 20 e5 |.(-74) . ..... .|
00001590 20 8d 44 53 49 0d 09 c4 2d 20 f4 20 2a 2a 2a 2a | .DSI...- . ****|
000015a0 2a 20 46 49 4e 53 48 45 44 20 54 48 45 20 47 41 |* FINSHED THE GA|
000015b0 4d 45 20 48 4f 4f 52 41 41 21 21 21 20 2a 2a 2a |ME HOORAA!!! ***|
000015c0 2a 38 0d 09 c9 14 20 c8 99 20 36 2c 31 31 32 2c |*8.... .. 6,112,|
000015d0 53 43 52 25 3a db 0d 09 ce 1e 20 e3 20 4c 3d 31 |SCR%:..... . L=1|
000015e0 20 b8 20 31 30 3a 4f 25 28 4c 2c 31 29 3d 2d 31 | . 10:O%(L,1)=-1|
000015f0 3a ed 20 4c 0d 09 cf 10 20 4f 31 25 3d 30 3a 4f |:. L.... O1%=0:O|
00001600 32 25 3d 30 0d 09 d0 21 20 f1 20 8a 31 30 2c 31 |2%=0...! . .10,1|
00001610 37 29 3b 22 43 4f 4e 47 52 41 54 55 4c 41 54 49 |7);"CONGRATULATI|
00001620 4f 4e 53 21 22 0d 09 d7 42 20 e6 20 30 2c 38 3a |ONS!"...B . 0,8:|
00001630 f0 20 36 39 2c 30 2c 30 3a df 20 31 33 30 30 2c |. 69,0,0:. 1300,|
00001640 30 3a c8 99 20 26 32 45 2c 31 36 2b 53 31 2c 53 |0:.. &2E,16+S1,S|
00001650 32 2c 22 42 41 43 4b 22 2c 30 2c 30 2c 30 2c 31 |2,"BACK",0,0,0,1|
00001660 32 30 30 2c 35 31 32 0d 09 d8 0f 20 e3 20 4c 3d |200,512.... . L=|
00001670 31 20 b8 20 31 30 0d 09 dd 22 20 e7 20 4f 25 28 |1 . 10..." . O%(|
00001680 4c 2c 31 29 3d 2d 31 20 80 20 4f 31 25 3d 31 20 |L,1)=-1 . O1%=1 |
00001690 8c 20 4f 32 25 2b 3d 31 0d 09 de 14 20 e7 20 4f |. O2%+=1.... . O|
000016a0 32 25 3d 31 30 20 8c 20 8d 74 4c 4a 0d 09 e2 49 |2%=10 . .tLJ...I|
000016b0 20 e7 20 4f 25 28 4c 2c 31 29 3d 2d 31 20 80 20 | . O%(L,1)=-1 . |
000016c0 b3 28 31 29 3c 2e 31 20 80 20 4f 31 25 3d 30 20 |.(1)<.1 . O1%=0 |
000016d0 8c 20 4f 25 28 4c 2c 31 29 3d a8 28 b3 28 31 29 |. O%(L,1)=.(.(1)|
000016e0 2a 31 32 30 30 29 2b 34 3a 4f 25 28 4c 2c 32 29 |*1200)+4:O%(L,2)|
000016f0 3d 31 32 31 36 0d 09 ec 12 20 e7 20 4f 25 28 4c |=1216.... . O%(L|
00001700 2c 31 29 3e 30 20 8c 0d 09 f6 2b 20 c8 99 20 26 |,1)>0 ....+ .. &|
00001710 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 30 31 22 |2E,34+S1,S2,"01"|
00001720 2c 4f 25 28 4c 2c 31 29 2c 4f 25 28 4c 2c 32 29 |,O%(L,1),O%(L,2)|
00001730 2c 38 0d 0a 00 10 20 4f 25 28 4c 2c 32 29 2d 3d |,8.... O%(L,2)-=|
00001740 33 32 0d 0a 05 4e 20 e7 20 b0 4f 25 28 4c 2c 31 |32...N . .O%(L,1|
00001750 29 2c 4f 25 28 4c 2c 32 29 29 3d 38 20 84 20 b0 |),O%(L,2))=8 . .|
00001760 4f 25 28 4c 2c 31 29 2b 33 32 2c 4f 25 28 4c 2c |O%(L,1)+32,O%(L,|
00001770 32 29 29 3d 38 20 84 20 b0 4f 25 28 4c 2c 31 29 |2))=8 . .O%(L,1)|
00001780 2b 36 34 2c 4f 25 28 4c 2c 32 29 29 3d 38 20 8c |+64,O%(L,2))=8 .|
00001790 0d 0a 08 1a 20 e7 20 4f 25 28 4c 2c 32 29 3e 35 |.... . O%(L,2)>5|
000017a0 30 30 20 8c 20 4f 31 25 3d 31 0d 0a 0a 6c 20 c8 |00 . O1%=1...l .|
000017b0 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 |. &2E,34+S1,S2,"|
000017c0 42 41 43 4b 22 2c 30 2c 30 3a c8 99 20 26 32 45 |BACK",0,0:.. &2E|
000017d0 2c 33 34 2b 53 31 2c 53 32 2c 22 30 31 22 2c 4f |,34+S1,S2,"01",O|
000017e0 25 28 4c 2c 31 29 2c 4f 25 28 4c 2c 32 29 2c 38 |%(L,1),O%(L,2),8|
000017f0 3a c8 99 20 26 32 45 2c 31 36 2b 53 31 2c 53 32 |:.. &2E,16+S1,S2|
00001800 2c 22 42 41 43 4b 22 2c 30 2c 30 2c 30 2c 31 32 |,"BACK",0,0,0,12|
00001810 37 39 2c 35 31 32 0d 0a 0c 13 20 d4 20 38 2c 2d |79,512.... . 8,-|
00001820 31 35 2c 34 30 30 30 2c 31 0d 0a 14 0f 20 4f 25 |15,4000,1.... O%|
00001830 28 4c 2c 31 29 3d 2d 31 0d 0a 1e 06 20 cd 0d 0a |(L,1)=-1.... ...|
00001840 28 06 20 cd 0d 0a 2d 08 20 ed 20 4c 0d 0a 32 2c |(. ...-. . L..2,|
00001850 20 c8 99 20 36 2c 31 39 3a c8 99 20 36 2c 31 31 | .. 6,19:.. 6,11|
00001860 33 2c 53 43 52 25 3a 53 43 52 25 3d 28 53 43 52 |3,SCR%:SCR%=(SCR|
00001870 25 2b 31 29 20 83 20 32 0d 0a 3c 14 20 c8 99 20 |%+1) . 2..<. .. |
00001880 36 2c 31 31 32 2c 53 43 52 25 3a db 0d 0a 41 1f |6,112,SCR%:...A.|
00001890 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 | .. &2E,34+S1,S2|
000018a0 2c 22 42 41 43 4b 22 2c 30 2c 30 0d 0a 46 11 20 |,"BACK",0,0..F. |
000018b0 4f 32 25 3d 30 3a e5 20 8d 64 58 49 0d 0a 8c 20 |O2%=0:. .dXI... |
000018c0 20 c8 99 20 36 2c 31 31 32 2c 53 43 52 25 3a c8 | .. 6,112,SCR%:.|
000018d0 99 20 36 2c 31 31 33 2c 53 43 52 25 0d 0a 91 18 |. 6,113,SCR%....|
000018e0 20 e3 20 4c 3d 31 34 30 30 20 b8 20 35 31 32 20 | . L=1400 . 512 |
000018f0 88 20 2d 32 0d 0a 96 2b 20 c8 99 20 26 32 45 2c |. -2...+ .. &2E,|
00001900 33 34 2b 53 31 2c 53 32 2c 22 4d 22 2b c3 28 41 |34+S1,S2,"M"+.(A|
00001910 4e 25 28 31 29 2a 2d 31 29 2c 4c 2c 36 32 38 0d |N%(1)*-1),L,628.|
00001920 0a 9b 24 20 41 4e 25 28 31 29 2b 3d 31 3a e7 20 |..$ AN%(1)+=1:. |
00001930 41 4e 25 28 31 29 3d 34 20 8c 20 41 4e 25 28 31 |AN%(1)=4 . AN%(1|
00001940 29 3d 31 0d 0a a0 08 20 ed 20 4c 0d 0a aa 09 20 |)=1.... . L.... |
00001950 54 52 3d 31 0d 0a b4 2a 20 c8 99 20 26 32 45 2c |TR=1...* .. &2E,|
00001960 33 34 2b 53 31 2c 53 32 2c 22 54 52 22 2b c3 28 |34+S1,S2,"TR"+.(|
00001970 a8 28 54 52 29 29 2c 35 30 30 2c 36 32 38 0d 0a |.(TR)),500,628..|
00001980 be 0d 20 54 52 2b 3d 2e 30 30 35 0d 0a c8 14 20 |.. TR+=.005.... |
00001990 e7 20 54 52 3e 34 2e 38 20 8c 20 8d 64 5c 4a 0d |. TR>4.8 . .d\J.|
000019a0 0a d2 0b 20 e5 20 8d 74 74 4a 0d 0a dc 17 20 f2 |... . .ttJ.... .|
000019b0 62 72 3a f2 68 69 67 68 65 72 3a e5 20 8d 44 64 |br:.higher:. .Dd|
000019c0 40 0d 0a f0 0f 20 dd 20 f2 63 72 65 64 69 74 73 |@.... . .credits|
000019d0 0d 0a fa 17 20 f1 20 8a 30 2c 32 30 29 3b c0 43 |.... . .0,20);.C|
000019e0 52 24 2c 34 30 29 3b 0d 0b 04 1f 20 43 52 24 3d |R$,40);.... CR$=|
000019f0 c2 43 52 24 2c a9 28 43 52 24 29 2d 31 29 2b c0 |.CR$,.(CR$)-1)+.|
00001a00 43 52 24 2c 31 29 0d 0b 0e 06 20 e1 0d 0b 54 10 |CR$,1).... ...T.|
00001a10 20 dd 20 f2 73 63 72 5f 66 6c 69 70 0d 0b 5e 2a | . .scr_flip..^*|
00001a20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 39 | .. "OS_Byte",19|
00001a30 3a c8 99 20 22 4f 53 5f 42 79 74 65 22 2c 31 31 |:.. "OS_Byte",11|
00001a40 33 2c 53 43 52 25 0d 0b 68 16 20 53 43 52 25 3d |3,SCR%..h. SCR%=|
00001a50 28 53 43 52 25 2b 31 29 20 83 20 32 0d 0b 7c 06 |(SCR%+1) . 2..|.|
00001a60 20 e1 0d 0b b8 2f 20 f4 20 2a 2a 2a 2a 20 47 4f | ..../ . **** GO|
00001a70 54 20 41 4c 4c 20 42 52 4f 57 4e 49 45 53 2e 2e |T ALL BROWNIES..|
00001a80 20 4e 45 58 54 20 4c 45 56 45 4c 20 2a 2a 2a 2a | NEXT LEVEL ****|
00001a90 2a 0d 0b c2 0d 20 db 3a f2 73 63 6f 72 65 0d 0b |*.... .:.score..|
00001aa0 cc 22 20 4c 45 56 25 2b 3d 31 3a e7 20 4c 45 56 |." LEV%+=1:. LEV|
00001ab0 25 3c 4d 41 58 4c 25 20 8c 20 e4 20 8d 54 5c 4c |%<MAXL% . . .T\L|
00001ac0 0d 0b d6 1a 20 c8 99 20 36 2c 31 39 3a c8 99 20 |.... .. 6,19:.. |
00001ad0 36 2c 31 31 33 2c 53 43 52 25 0d 0c 12 0b 20 e5 |6,113,SCR%.... .|
00001ae0 20 8d 64 5c 40 0d 0c 1c 28 20 f4 20 2a 2a 2a 2a | .d\@...( . ****|
00001af0 20 4e 45 58 54 20 4c 45 56 45 4c 20 47 41 4d 45 | NEXT LEVEL GAME|
00001b00 20 44 49 53 50 4c 41 59 20 2a 2a 2a 2a 0d 0c 26 | DISPLAY ****..&|
00001b10 0e 20 4e 4c 58 25 3d 31 34 30 30 0d 0c 3a 25 20 |. NLX%=1400..:% |
00001b20 4c 24 3d c3 28 4c 45 56 25 29 3a e7 20 a9 28 4c |L$=.(LEV%):. .(L|
00001b30 24 29 3d 31 20 8c 20 4c 24 3d 22 30 22 2b 4c 24 |$)=1 . L$="0"+L$|
00001b40 0d 0c 44 09 20 54 3d 36 34 0d 0c 76 06 20 f5 0d |..D. T=64..v. ..|
00001b50 0c 80 14 20 c8 99 20 36 2c 31 31 32 2c 53 43 52 |... .. 6,112,SCR|
00001b60 25 3a db 0d 0c 8a 26 20 e7 20 4e 4c 54 25 3c 3e |%:....& . NLT%<>|
00001b70 31 20 84 20 28 4e 4c 54 25 3d 31 20 80 20 4e 4c |1 . (NLT%=1 . NL|
00001b80 58 25 3c 33 38 34 29 20 8c 0d 0c 8c 49 20 c8 99 |X%<384) ....I ..|
00001b90 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 4c | &2E,34+S1,S2,"L|
00001ba0 45 56 45 4c 22 2c 4e 4c 58 25 2c 35 31 32 3a c8 |EVEL",NLX%,512:.|
00001bb0 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c c0 |. &2E,34+S1,S2,.|
00001bc0 4c 24 2c 31 29 2c 4e 4c 58 25 2b 33 32 38 2c 35 |L$,1),NLX%+328,5|
00001bd0 31 32 0d 0c 8d 4a 20 e7 20 4e 4c 54 25 3c 3e 32 |12...J . NLT%<>2|
00001be0 20 84 20 28 4e 4c 54 25 3d 32 20 80 20 4e 4c 58 | . (NLT%=2 . NLX|
00001bf0 25 3e 33 38 34 29 20 8c 20 c8 99 20 26 32 45 2c |%>384) . .. &2E,|
00001c00 33 34 2b 53 31 2c 53 32 2c c2 4c 24 2c 31 29 2c |34+S1,S2,.L$,1),|
00001c10 4e 4c 58 25 2b 33 39 32 2c 35 31 32 0d 0c 8f 06 |NLX%+392,512....|
00001c20 20 cd 0d 0c 94 0e 20 c8 8e 20 4e 4c 54 25 20 ca | ..... .. NLT% .|
00001c30 0d 0c b2 2d 20 c9 20 30 3a c8 99 20 26 32 45 2c |...- . 0:.. &2E,|
00001c40 33 34 2b 53 31 2c 53 32 2c 22 4d 2d 31 22 2c 28 |34+S1,S2,"M-1",(|
00001c50 54 2a 33 32 29 2d 37 36 38 2c 34 34 30 0d 0c b4 |T*32)-768,440...|
00001c60 33 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 |3 .. &2E,34+S1,S|
00001c70 32 2c 22 42 41 4c 4c 22 2b c3 28 54 20 83 20 32 |2,"BALL"+.(T . 2|
00001c80 29 2c 28 54 2a 33 32 29 2d 37 36 38 2c 35 38 34 |),(T*32)-768,584|
00001c90 0d 0c b6 2e 20 c8 99 20 26 32 45 2c 33 34 2b 53 |.... .. &2E,34+S|
00001ca0 31 2c 53 32 2c 22 42 41 53 4b 45 54 22 2c 28 54 |1,S2,"BASKET",(T|
00001cb0 2a 33 32 29 2d 37 36 38 2c 34 34 30 2c 38 0d 0c |*32)-768,440,8..|
00001cc0 bc 11 20 c9 20 31 3a e7 20 54 3e 32 30 20 8c 0d |.. . 1:. T>20 ..|
00001cd0 0c c6 30 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |..0 .. &2E,34+S1|
00001ce0 2c 53 32 2c 22 54 52 22 2b c3 28 35 2d 28 54 20 |,S2,"TR"+.(5-(T |
00001cf0 83 20 35 29 29 2c 33 38 34 2c 34 39 32 2c 38 0d |. 5)),384,492,8.|
00001d00 0c c8 30 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |..0 .. &2E,34+S1|
00001d10 2c 53 32 2c 22 54 52 22 2b c3 28 35 2d 28 54 20 |,S2,"TR"+.(5-(T |
00001d20 83 20 35 29 29 2c 34 33 32 2c 35 31 38 2c 38 0d |. 5)),432,518,8.|
00001d30 0c ca 30 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |..0 .. &2E,34+S1|
00001d40 2c 53 32 2c 22 54 52 22 2b c3 28 35 2d 28 54 20 |,S2,"TR"+.(5-(T |
00001d50 83 20 35 29 29 2c 35 36 34 2c 34 39 32 2c 38 0d |. 5)),564,492,8.|
00001d60 0c cc 30 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |..0 .. &2E,34+S1|
00001d70 2c 53 32 2c 22 54 52 22 2b c3 28 35 2d 28 54 20 |,S2,"TR"+.(5-(T |
00001d80 83 20 35 29 29 2c 36 37 32 2c 35 32 34 2c 38 0d |. 5)),672,524,8.|
00001d90 0c d0 06 20 cd 0d 0c da 3b 20 c9 20 33 3a c8 99 |... ....; . 3:..|
00001da0 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 43 | &2E,34+S1,S2,"C|
00001db0 2d 22 2b c3 28 33 2d 28 54 20 83 20 33 29 29 2c |-"+.(3-(T . 3)),|
00001dc0 28 54 2a 33 32 29 2d 31 32 38 2c 35 31 32 2c 38 |(T*32)-128,512,8|
00001dd0 0d 0c e4 2c 20 c9 20 32 3a c8 99 20 26 32 45 2c |..., . 2:.. &2E,|
00001de0 33 34 2b 53 31 2c 53 32 2c 22 30 38 22 2c 37 36 |34+S1,S2,"08",76|
00001df0 34 2c 4e 4c 58 25 2b 31 32 38 2c 38 0d 0c ee 37 |4,NLX%+128,8...7|
00001e00 20 e7 20 4e 4c 58 25 3c 33 38 34 20 8c 20 c8 99 | . NLX%<384 . ..|
00001e10 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c c2 4c | &2E,34+S1,S2,.L|
00001e20 24 2c 31 29 2c 37 37 36 2c 28 54 2a 33 32 29 2d |$,1),776,(T*32)-|
00001e30 35 31 32 0d 0d 20 06 20 cb 0d 0d 2a 15 20 f2 73 |512.. . ...*. .s|
00001e40 63 6f 72 65 3a f2 73 63 72 5f 66 6c 69 70 0d 0d |core:.scr_flip..|
00001e50 34 1a 20 e7 20 4e 4c 58 25 3e 33 38 34 20 8c 20 |4. . NLX%>384 . |
00001e60 4e 4c 58 25 2d 3d 33 32 0d 0d 35 0f 20 54 2d 3d |NLX%-=32..5. T-=|
00001e70 31 3a fd 20 54 3d 30 0d 0d 39 16 20 4e 4c 54 25 |1:. T=0..9. NLT%|
00001e80 3d 28 4e 4c 54 25 2b 31 29 20 83 20 34 0d 0d 3e |=(NLT%+1) . 4..>|
00001e90 06 20 f8 0d 0d 48 0a 20 dd 20 f2 68 69 0d 0d 52 |. ...H. . .hi..R|
00001ea0 1e 20 f2 73 63 72 5f 66 6c 69 70 3a c8 99 20 36 |. .scr_flip:.. 6|
00001eb0 2c 31 31 32 2c 53 43 52 25 3a db 0d 0d 5c 0d 20 |,112,SCR%:...\. |
00001ec0 48 49 43 25 3d 31 30 30 0d 0d 61 08 20 54 3d 30 |HIC%=100..a. T=0|
00001ed0 0d 0d 66 06 20 f5 0d 0d 6b 06 20 db 0d 0d 70 21 |..f. ...k. ...p!|
00001ee0 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 | .. &2E,34+S1,S2|
00001ef0 2c 22 4d 31 22 2c 39 39 38 2c 35 31 32 0d 0d 7a |,"M1",998,512..z|
00001f00 22 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 |" .. &2E,34+S1,S|
00001f10 32 2c 22 4d 2d 31 22 2c 31 32 38 2c 35 31 32 0d |2,"M-1",128,512.|
00001f20 0d 84 0f 20 e3 20 4c 3d 31 20 b8 20 31 30 0d 0d |... . L=1 . 10..|
00001f30 8e 1d 20 fb 20 33 32 20 c8 9c 20 54 3a 54 3d 28 |.. . 32 .. T:T=(|
00001f40 54 2b 36 34 29 20 83 20 32 35 36 0d 0d 98 21 20 |T+64) . 256...! |
00001f50 f1 20 8a 38 2c 28 4c 2a 32 29 2b 31 29 3b 48 49 |. .8,(L*2)+1);HI|
00001f60 24 28 4c 29 3b 22 2e 2e 2e 2e 22 3b 0d 0d a2 11 |$(L);"....";....|
00001f70 20 41 24 3d c3 28 48 49 25 28 4c 29 29 0d 0d ac | A$=.(HI%(L))...|
00001f80 1d 20 41 24 3d c0 22 30 30 30 30 30 30 22 2c 36 |. A$=."000000",6|
00001f90 2d a9 28 41 24 29 29 2b 41 24 0d 0d b6 09 20 f1 |-.(A$))+A$.... .|
00001fa0 20 41 24 0d 0d c0 08 20 ed 20 4c 0d 0d ca 0c 20 | A$.... . L.... |
00001fb0 48 49 43 25 2d 3d 31 0d 0d d4 1f 20 e7 20 a6 28 |HIC%-=1.... . .(|
00001fc0 2d 39 39 29 20 84 20 a6 28 2d 37 34 29 20 8c 20 |-99) . .(-74) . |
00001fd0 48 49 43 25 3d 30 0d 0d e8 0b 20 f2 73 63 6f 72 |HIC%=0.... .scor|
00001fe0 65 0d 0d f2 1c 20 f2 73 63 72 5f 66 6c 69 70 3a |e.... .scr_flip:|
00001ff0 c8 99 20 36 2c 31 31 32 2c 53 43 52 25 0d 0d fc |.. 6,112,SCR%...|
00002000 0d 20 fd 20 48 49 43 25 3d 30 0d 0e 06 06 20 e1 |. . HIC%=0.... .|
00002010 0d 0e 10 0e 20 dd 20 f2 68 69 67 68 65 72 0d 0e |.... . .higher..|
00002020 15 1b 20 c8 99 20 36 2c 31 31 32 2c 53 43 52 25 |.. .. 6,112,SCR%|
00002030 3a db 3a f2 73 63 6f 72 65 0d 0e 1a 16 20 e7 20 |:.:.score.... . |
00002040 53 43 4f 25 3e 3d 48 49 25 28 31 30 29 20 8c 0d |SCO%>=HI%(10) ..|
00002050 0e 1f 0b 20 48 49 43 25 3d 31 0d 0e 24 14 20 e3 |... HIC%=1..$. .|
00002060 20 4c 3d 31 30 20 b8 20 31 20 88 20 2d 31 0d 0e | L=10 . 1 . -1..|
00002070 2e 1c 20 e7 20 53 43 4f 25 3e 3d 48 49 25 28 4c |.. . SCO%>=HI%(L|
00002080 29 20 8c 20 48 49 43 25 3d 4c 0d 0e 33 08 20 ed |) . HIC%=L..3. .|
00002090 20 4c 0d 0e 38 17 20 e3 20 49 3d 31 30 20 b8 20 | L..8. . I=10 . |
000020a0 48 49 43 25 20 88 20 2d 31 0d 0e 42 14 20 48 49 |HIC% . -1..B. HI|
000020b0 25 28 49 29 3d 48 49 25 28 49 2d 31 29 0d 0e 4c |%(I)=HI%(I-1)..L|
000020c0 08 20 ed 20 49 0d 0e 56 2a 20 48 49 25 28 48 49 |. . I..V* HI%(HI|
000020d0 43 25 29 3d 53 43 4f 25 3a 48 49 24 28 48 49 43 |C%)=SCO%:HI$(HIC|
000020e0 25 29 3d 22 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 0d |%)="..........".|
000020f0 0e 60 0f 20 e3 20 4c 3d 31 20 b8 20 31 30 0d 0e |.`. . L=1 . 10..|
00002100 6a 17 20 fb 20 33 32 20 c8 9c 20 28 4c 20 83 20 |j. . 32 .. (L . |
00002110 34 29 2a 36 34 0d 0e 74 1a 20 e7 20 4c 3d 48 49 |4)*64..t. . L=HI|
00002120 43 25 20 8c 20 fb 20 39 20 c8 9c 20 31 32 38 0d |C% . . 9 .. 128.|
00002130 0e 7e 21 20 f1 20 8a 38 2c 28 4c 2a 32 29 2b 31 |.~! . .8,(L*2)+1|
00002140 29 3b 48 49 24 28 4c 29 3b 22 2e 2e 2e 2e 22 3b |);HI$(L);"....";|
00002150 0d 0e 88 2a 20 41 24 3d c3 28 48 49 25 28 4c 29 |...* A$=.(HI%(L)|
00002160 29 3a 41 24 3d c0 22 30 30 30 30 30 30 22 2c 36 |):A$=."000000",6|
00002170 2d a9 28 41 24 29 29 2b 41 24 0d 0e 92 09 20 f1 |-.(A$))+A$.... .|
00002180 20 41 24 0d 0e 9c 08 20 ed 20 4c 0d 0e a6 0f 20 | A$.... . L.... |
00002190 fb 20 31 38 20 c8 9c 20 36 34 0d 0e b0 36 20 f1 |. 18 .. 64...6 .|
000021a0 20 8a 30 2c 30 29 3b 22 20 41 20 4e 45 57 20 48 | .0,0);" A NEW H|
000021b0 49 47 48 20 53 43 4f 52 45 2e 2e 2e 2e 2e 2e 2e |IGH SCORE.......|
000021c0 45 4e 54 45 52 20 59 4f 55 52 20 4e 41 4d 45 22 |ENTER YOUR NAME"|
000021d0 0d 0e ba 0e 20 f2 73 63 72 5f 66 6c 69 70 0d 0e |.... .scr_flip..|
000021e0 c4 19 20 43 59 25 3d 28 48 49 43 25 2a 32 29 2b |.. CY%=(HIC%*2)+|
000021f0 31 3a 43 58 25 3d 38 0d 0e ce 16 20 c8 99 20 22 |1:CX%=8.... .. "|
00002200 4f 53 5f 42 79 74 65 22 2c 31 35 2c 30 0d 0e d3 |OS_Byte",15,0...|
00002210 0f 20 fb 20 39 20 c8 9c 20 31 32 38 0d 0e d8 09 |. . 9 .. 128....|
00002220 20 41 24 3d be 0d 0e e2 3e 20 e7 20 41 24 3d bd | A$=....> . A$=.|
00002230 28 38 29 20 80 20 43 58 25 3e 39 20 8c 20 43 58 |(8) . CX%>9 . CX|
00002240 25 2d 3d 31 3a c1 48 49 24 28 48 49 43 25 29 2c |%-=1:.HI$(HIC%),|
00002250 43 58 25 2d 37 2c 31 29 3d 22 2e 22 3a e5 20 8d |CX%-7,1)=".":. .|
00002260 54 40 4f 0d 0e e3 16 20 e7 20 41 24 3d bd 28 31 |T@O.... . A$=.(1|
00002270 33 29 20 8c 20 8d 54 54 4f 0d 0e e7 14 20 e7 20 |3) . .TTO.... . |
00002280 43 58 25 3d 31 38 20 8c 20 8d 64 58 4e 0d 0e ec |CX%=18 . .dXN...|
00002290 20 20 e7 20 41 24 3c 22 20 22 20 84 20 41 24 3e | . A$<" " . A$>|
000022a0 bd 28 31 32 37 29 20 8c 20 8d 64 58 4e 0d 0e f6 |.(127) . .dXN...|
000022b0 22 20 c1 48 49 24 28 48 49 43 25 29 2c 43 58 25 |" .HI$(HIC%),CX%|
000022c0 2d 37 2c 31 29 3d 41 24 3a 43 58 25 2b 3d 31 0d |-7,1)=A$:CX%+=1.|
000022d0 0f 00 18 20 f1 20 8a 38 2c 43 59 25 29 3b 48 49 |... . .8,CY%);HI|
000022e0 24 28 48 49 43 25 29 0d 0f 0a 0b 20 e5 20 8d 64 |$(HIC%).... . .d|
000022f0 58 4e 0d 0f 14 27 20 e7 20 48 49 24 28 48 49 43 |XN...' . HI$(HIC|
00002300 25 29 3d 22 4c 55 4e 59 20 48 45 4c 50 20 22 20 |%)="LUNY HELP " |
00002310 8c 20 4c 53 54 25 3d 2d 31 0d 0f 19 0f 20 f2 68 |. LST%=-1.... .h|
00002320 69 3a f2 68 69 73 61 76 0d 0f 1e 06 20 cd 0d 0f |i:.hisav.... ...|
00002330 32 06 20 e1 0d 0f 3c 0a 20 dd 20 f2 62 72 0d 0f |2. ...<. . .br..|
00002340 46 10 20 e3 20 4c 3d 30 20 b8 20 35 31 32 0d 0f |F. . L=0 . 512..|
00002350 50 40 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c |P@ .. &2E,34+S1,|
00002360 53 32 2c 22 42 52 4f 57 4e 49 45 22 2c a8 28 b3 |S2,"BROWNIE",.(.|
00002370 28 31 29 2a 31 30 32 34 29 2b 36 34 2c a8 28 b3 |(1)*1024)+64,.(.|
00002380 28 31 29 2a 36 38 34 29 2b 31 32 38 2c 38 0d 0f |(1)*684)+128,8..|
00002390 5a 08 20 ed 20 4c 0d 0f 64 06 20 e1 0d 0f a0 0d |Z. . L..d. .....|
000023a0 20 dd 20 f2 68 69 73 61 76 0d 0f aa 23 20 46 49 | . .hisav...# FI|
000023b0 4c 45 25 3d ae 28 22 3c 4f 42 45 59 24 44 49 52 |LE%=.("<OBEY$DIR|
000023c0 3e 2e 48 49 5f 53 43 4f 52 45 22 29 0d 0f b4 0f |>.HI_SCORE")....|
000023d0 20 e3 20 4c 3d 31 20 b8 20 31 30 0d 0f be 1b 20 | . L=1 . 10.... |
000023e0 f1 20 23 46 49 4c 45 25 2c 48 49 24 28 4c 29 2c |. #FILE%,HI$(L),|
000023f0 48 49 25 28 4c 29 0d 0f c8 08 20 ed 20 4c 0d 0f |HI%(L).... . L..|
00002400 d2 0c 20 d9 23 46 49 4c 45 25 0d 0f dc 06 20 e1 |.. .#FILE%.... .|
00002410 0d 10 04 0e 20 dd 20 f2 68 69 6c 6f 61 64 0d 10 |.... . .hiload..|
00002420 0e 23 20 46 49 4c 45 25 3d 8e 28 22 3c 4f 42 45 |.# FILE%=.("<OBE|
00002430 59 24 44 49 52 3e 2e 48 49 5f 53 43 4f 52 45 22 |Y$DIR>.HI_SCORE"|
00002440 29 0d 10 18 0f 20 e3 20 4c 3d 31 20 b8 20 31 30 |).... . L=1 . 10|
00002450 0d 10 22 1b 20 e8 20 23 46 49 4c 45 25 2c 48 49 |..". . #FILE%,HI|
00002460 24 28 4c 29 2c 48 49 25 28 4c 29 0d 10 2c 08 20 |$(L),HI%(L)..,. |
00002470 ed 20 4c 0d 10 36 0d 20 d9 20 23 46 49 4c 45 25 |. L..6. . #FILE%|
00002480 0d 10 40 06 20 e1 0d 13 88 0e 20 dd 20 f2 73 63 |..@. ..... . .sc|
00002490 72 65 65 6e 0d 13 92 27 20 c8 99 20 36 2c 31 31 |reen...' .. 6,11|
000024a0 32 2c 53 43 52 25 3a fb 20 31 32 38 2b 53 43 52 |2,SCR%:. 128+SCR|
000024b0 5f 43 4f 4c 20 c8 9c 20 30 3a db 0d 13 9c 1c 20 |_COL .. 0:..... |
000024c0 e3 20 59 3d 34 20 b8 20 30 20 88 2d 31 3a e3 20 |. Y=4 . 0 .-1:. |
000024d0 58 3d 30 20 b8 20 38 0d 13 a6 4b 20 e7 20 54 25 |X=0 . 8...K . T%|
000024e0 28 59 2c 58 29 3e 30 20 8c 20 c8 99 20 26 32 45 |(Y,X)>0 . .. &2E|
000024f0 2c 33 34 2b 53 31 2c 53 32 2c 22 50 4c 41 54 22 |,34+S1,S2,"PLAT"|
00002500 2b c3 28 54 25 28 59 2c 58 29 29 2c 58 2a 31 32 |+.(T%(Y,X)),X*12|
00002510 38 2b 31 36 2c 28 59 2a 31 34 34 29 2b 32 39 32 |8+16,(Y*144)+292|
00002520 2c 38 0d 13 b0 08 20 ed 3a ed 0d 13 b2 0f 20 fb |,8.... .:..... .|
00002530 20 31 32 38 20 c8 9c 20 30 0d 13 b5 2d 20 c8 99 | 128 .. 0...- ..|
00002540 20 26 32 45 2c 31 36 2b 53 31 2c 53 32 2c 22 53 | &2E,16+S1,S2,"S|
00002550 43 52 31 22 2c 30 2c 30 2c 32 35 36 2c 31 32 39 |CR1",0,0,256,129|
00002560 39 2c 31 30 32 34 0d 13 b6 06 20 e1 0d 13 b8 0d |9,1024.... .....|
00002570 20 dd 20 f2 64 75 6d 6d 79 0d 13 b9 31 20 c8 99 | . .dummy...1 ..|
00002580 20 36 2c 31 31 32 2c 53 43 52 25 3a db 3a c8 99 | 6,112,SCR%:.:..|
00002590 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 53 | &2E,34+S1,S2,"S|
000025a0 43 52 31 22 2c 30 2c 32 35 36 0d 13 ba 57 20 e3 |CR1",0,256...W .|
000025b0 20 4c 25 3d 31 20 b8 20 50 4c 25 3a c8 99 20 26 | L%=1 . PL%:.. &|
000025c0 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 54 52 41 |2E,34+S1,S2,"TRA|
000025d0 50 22 2b 2b c3 28 31 20 80 20 50 25 28 4c 25 2c |P"++.(1 . P%(L%,|
000025e0 33 29 3e 30 29 2c 50 25 28 4c 25 2c 31 29 2c 50 |3)>0),P%(L%,1),P|
000025f0 25 28 4c 25 2c 32 29 2a 31 34 34 2b 33 33 32 2c |%(L%,2)*144+332,|
00002600 38 0d 13 c4 4a 20 e7 20 4c 25 3c 37 20 8c 20 e7 |8...J . L%<7 . .|
00002610 20 42 25 28 4c 25 2c 31 29 3e 30 20 8c 20 c8 99 | B%(L%,1)>0 . ..|
00002620 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 62 | &2E,34+S1,S2,"b|
00002630 72 6f 77 6e 69 65 22 2c 42 25 28 4c 25 2c 31 29 |rownie",B%(L%,1)|
00002640 2c 42 25 28 4c 25 2c 32 29 2c 38 0d 13 ce 09 20 |,B%(L%,2),8.... |
00002650 ed 20 4c 25 0d 14 46 2b c8 99 20 26 32 45 2c 31 |. L%..F+.. &2E,1|
00002660 36 2b 53 31 2c 53 32 2c 22 53 43 52 22 2c 30 2c |6+S1,S2,"SCR",0,|
00002670 30 2c 32 35 36 2c 31 32 39 39 2c 31 30 32 34 0d |0,256,1299,1024.|
00002680 14 48 16 20 53 43 52 25 3d 28 53 43 52 25 2b 31 |.H. SCR%=(SCR%+1|
00002690 29 20 83 20 32 0d 14 4b 06 20 e1 0d 14 50 0d 20 |) . 2..K. ...P. |
000026a0 dd 20 f2 73 63 6f 72 65 0d 14 55 2c 20 e7 20 45 |. .score..U, . E|
000026b0 4e 25 3d 30 20 8c 20 4c 46 25 2d 3d 31 3a 45 4e |N%=0 . LF%-=1:EN|
000026c0 25 3d 34 3a 44 45 44 25 3d 33 35 3a 4c 58 25 28 |%=4:DED%=35:LX%(|
000026d0 30 29 3d 30 0d 14 5a 68 20 e7 20 44 45 44 25 3d |0)=0..Zh . DED%=|
000026e0 30 20 8c 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 |0 . .. &2E,34+S1|
000026f0 2c 53 32 2c 22 46 31 22 2c 32 34 2c 36 34 3a c8 |,S2,"F1",24,64:.|
00002700 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 |. &2E,34+S1,S2,"|
00002710 47 22 2b c3 28 35 2d 45 4e 25 29 2c 32 34 2c 30 |G"+.(5-EN%),24,0|
00002720 20 8b 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c | . .. &2E,34+S1,|
00002730 53 32 2c 22 46 30 22 2c 32 34 2c 30 0d 14 5f 32 |S2,"F0",24,0.._2|
00002740 20 e7 20 44 45 44 31 25 3d 31 20 8c 20 c8 99 20 | . DED1%=1 . .. |
00002750 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 46 32 |&2E,34+S1,S2,"F2|
00002760 22 2c 32 34 2c 30 3a 44 45 44 31 25 3d 30 0d 14 |",24,0:DED1%=0..|
00002770 64 3e 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c |d> .. &2E,34+S1,|
00002780 53 32 2c 22 30 31 22 2c 36 34 30 2c 31 34 34 3a |S2,"01",640,144:|
00002790 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c |.. &2E,34+S1,S2,|
000027a0 22 30 32 22 2c 37 33 36 2c 31 34 34 0d 14 6e 4c |"02",736,144..nL|
000027b0 20 c8 99 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 | .. &2E,34+S1,S2|
000027c0 2c c3 28 42 4f 4f 25 20 83 20 31 30 29 2c 36 34 |,.(BOO% . 10),64|
000027d0 38 2c 38 30 3a c8 99 20 26 32 45 2c 33 34 2b 53 |8,80:.. &2E,34+S|
000027e0 31 2c 53 32 2c c3 28 54 45 44 25 20 83 20 31 30 |1,S2,.(TED% . 10|
000027f0 29 2c 37 34 34 2c 38 30 0d 14 82 1c 20 c2 53 24 |),744,80.... .S$|
00002800 2c a9 28 c3 28 53 43 4f 25 29 29 29 3d c3 28 53 |,.(.(SCO%)))=.(S|
00002810 43 4f 25 29 0d 14 87 26 20 e7 20 53 24 3e 48 24 |CO%)...& . S$>H$|
00002820 20 8c 20 c2 48 24 2c a9 28 c3 28 53 43 4f 25 29 | . .H$,.(.(SCO%)|
00002830 29 29 3d c3 28 53 43 4f 25 29 0d 14 8c 67 20 e3 |))=.(SCO%)...g .|
00002840 20 4c 25 3d 31 20 b8 20 36 3a c8 99 20 26 32 45 | L%=1 . 6:.. &2E|
00002850 2c 33 34 2b 53 31 2c 53 32 2c c1 53 24 2c 4c 25 |,34+S1,S2,.S$,L%|
00002860 2c 31 29 2c 31 32 38 2b 28 4c 25 2a 36 34 29 2c |,1),128+(L%*64),|
00002870 31 32 38 3a c8 99 20 26 32 45 2c 33 34 2b 53 31 |128:.. &2E,34+S1|
00002880 2c 53 32 2c c1 48 24 2c 4c 25 2c 31 29 2c 31 32 |,S2,.H$,L%,1),12|
00002890 38 2b 28 4c 25 2a 36 34 29 2c 33 32 3a ed 20 4c |8+(L%*64),32:. L|
000028a0 25 0d 14 96 43 20 e7 20 4c 46 25 3e 30 20 8c 20 |%...C . LF%>0 . |
000028b0 e3 20 4c 39 25 3d 31 20 b8 20 4c 46 25 3a c8 99 |. L9%=1 . LF%:..|
000028c0 20 26 32 45 2c 33 34 2b 53 31 2c 53 32 2c 22 4d | &2E,34+S1,S2,"M|
000028d0 31 22 2c 38 34 38 2b 28 4c 39 25 2a 36 34 29 2c |1",848+(L9%*64),|
000028e0 32 34 3a ed 0d 15 04 2b 20 c8 99 20 26 32 45 2c |24:....+ .. &2E,|
000028f0 31 36 2b 53 31 2c 53 32 2c 22 53 63 6f 72 65 22 |16+S1,S2,"Score"|
00002900 2c 30 2c 30 2c 30 2c 31 32 39 39 2c 32 35 34 0d |,0,0,0,1299,254.|
00002910 15 0e 06 20 e1 0d 15 18 0b 20 dd 20 f2 73 66 78 |... ..... . .sfx|
00002920 0d 15 22 46 20 e7 20 53 4f 25 3d 32 30 20 80 20 |.."F . SO%=20 . |
00002930 b3 28 31 29 3c 2e 32 20 8c 20 ff 28 22 43 48 41 |.(1)<.2 . .("CHA|
00002940 4e 4e 45 4c 56 4f 49 43 45 20 31 20 39 22 29 3a |NNELVOICE 1 9"):|
00002950 c8 a2 20 31 2c 2d 31 32 37 3a d4 20 31 2c 2d 38 |.. 1,-127:. 1,-8|
00002960 2c 35 30 30 2c 31 0d 15 2c 3f 20 e7 20 53 4f 25 |,500,1..,? . SO%|
00002970 20 83 20 36 30 3d 35 20 8c 20 d4 20 32 2c 2d 36 | . 60=5 . . 2,-6|
00002980 2c 35 30 30 2c 31 20 8b 20 e7 20 53 4f 25 20 83 |,500,1 . . SO% .|
00002990 20 31 30 33 3d 33 20 8c 20 d4 20 38 2c 2d 37 2c | 103=3 . . 8,-7,|
000029a0 38 30 30 2c 31 0d 15 36 41 20 e7 20 53 4f 25 20 |800,1..6A . SO% |
000029b0 83 20 38 38 3d 30 20 80 20 b3 28 31 29 3c 2e 33 |. 88=0 . .(1)<.3|
000029c0 20 8c 20 ff 28 22 43 48 41 4e 4e 45 4c 56 4f 49 | . .("CHANNELVOI|
000029d0 43 45 20 31 20 31 30 22 29 3a d4 20 31 2c 2d 35 |CE 1 10"):. 1,-5|
000029e0 2c 35 30 30 2c 31 0d 15 40 40 20 e7 20 53 4f 25 |,500,1..@@ . SO%|
000029f0 20 83 20 36 34 3d 32 20 80 20 b3 28 31 29 3c 2e | . 64=2 . .(1)<.|
00002a00 35 20 8c 20 ff 28 22 43 48 41 4e 4e 45 4c 56 4f |5 . .("CHANNELVO|
00002a10 49 43 45 20 31 20 31 31 22 29 3a d4 20 31 2c 2d |ICE 1 11"):. 1,-|
00002a20 31 30 2c 31 2c 31 0d 15 68 16 20 53 4f 25 3d 28 |10,1,1..h. SO%=(|
00002a30 53 4f 25 2b 31 29 20 83 20 32 35 36 0d 15 72 06 |SO%+1) . 256..r.|
00002a40 20 e1 0d 15 e0 0d 20 dd 20 f2 63 68 61 6e 73 0d | ..... . .chans.|
00002a50 15 ea 0b 20 f7 20 8d 64 74 55 0d 15 f4 16 20 dc |... . .dtU.... .|
00002a60 20 31 2c 38 2c 33 2c 34 2c 35 2c 36 2c 37 2c 38 | 1,8,3,4,5,6,7,8|
00002a70 0d 15 fe 0e 20 e3 20 4c 3d 31 20 b8 20 38 0d 16 |.... . L=1 . 8..|
00002a80 08 08 20 f3 20 41 0d 16 12 25 20 ff 28 22 43 48 |.. . A...% .("CH|
00002a90 41 4e 4e 45 4c 56 4f 49 43 45 20 22 2b c3 28 4c |ANNELVOICE "+.(L|
00002aa0 29 2b 22 20 22 2b c3 28 41 29 29 0d 16 1c 08 20 |)+" "+.(A)).... |
00002ab0 ed 20 4c 0d 16 26 06 20 e1 0d 17 70 12 20 f4 20 |. L..&. ...p. . |
00002ac0 53 45 54 20 55 50 20 52 4f 4f 4d 0d 17 75 18 20 |SET UP ROOM..u. |
00002ad0 e7 20 4c 45 56 25 3d 4d 41 58 4c 25 20 8c 20 8d |. LEV%=MAXL% . .|
00002ae0 64 44 49 0d 17 7a 19 20 41 3d 39 30 30 30 2b 28 |dDI..z. A=9000+(|
00002af0 4c 45 56 25 2a 31 30 29 3a f7 20 41 0d 17 84 2b |LEV%*10):. A...+|
00002b00 20 e3 20 59 3d 34 20 b8 20 30 20 88 20 2d 31 3a | . Y=4 . 0 . -1:|
00002b10 e3 20 58 3d 30 20 b8 20 38 3a f3 20 54 25 28 59 |. X=0 . 8:. T%(Y|
00002b20 2c 58 29 3a ed 3a ed 0d 17 8e 3f 20 42 25 28 29 |,X):.:....? B%()|
00002b30 3d 2d 32 35 36 3a f3 20 42 52 25 3a 42 52 31 25 |=-256:. BR%:BR1%|
00002b40 3d 42 52 25 3a e3 20 4c 3d 31 20 b8 20 42 52 25 |=BR%:. L=1 . BR%|
00002b50 3a f3 20 42 25 28 4c 2c 31 29 2c 42 25 28 4c 2c |:. B%(L,1),B%(L,|
00002b60 32 29 3a ed 20 4c 0d 17 98 3c 20 50 25 28 29 3d |2):. L...< P%()=|
00002b70 2d 32 35 36 3a f3 20 50 4c 25 3a e3 20 4c 3d 31 |-256:. PL%:. L=1|
00002b80 20 b8 20 50 4c 25 3a f3 20 50 25 28 4c 2c 31 29 | . PL%:. P%(L,1)|
00002b90 2c 50 25 28 4c 2c 32 29 2c 50 25 28 4c 2c 33 29 |,P%(L,2),P%(L,3)|
00002ba0 3a ed 0d 17 a2 0e 20 4f 25 28 29 3d 2d 39 39 39 |:..... O%()=-999|
00002bb0 0d 17 ac 40 20 58 25 28 29 3d 2d 39 39 39 3a f3 |...@ X%()=-999:.|
00002bc0 20 41 25 3a e3 4c 3d 30 20 b8 20 41 25 3a f3 20 | A%:.L=0 . A%:. |
00002bd0 58 25 28 4c 29 2c 59 25 28 4c 29 3a 41 4e 25 28 |X%(L),Y%(L):AN%(|
00002be0 4c 29 3d a8 28 b3 28 31 29 2a 33 29 2b 31 3a ed |L)=.(.(1)*3)+1:.|
00002bf0 0d 17 b6 0c 20 58 58 25 28 29 3d 31 0d 17 bb 1e |.... XX%()=1....|
00002c00 20 f3 20 42 4c 58 25 2c 42 59 25 3a 42 58 25 3d | . BLX%,BY%:BX%=|
00002c10 31 33 30 30 3a 42 4c 25 3d 30 0d 17 bc 0e 20 53 |1300:BL%=0.... S|
00002c20 43 52 5f 43 4f 4c 3d 30 0d 17 c0 13 20 f2 73 63 |CR_COL=0.... .sc|
00002c30 72 65 65 6e 3a f2 64 75 6d 6d 79 0d 17 ca 06 20 |reen:.dummy.... |
00002c40 f8 0d 23 28 11 20 f4 20 4c 45 56 45 4c 20 44 41 |..#(. . LEVEL DA|
00002c50 54 41 0d 23 32 18 20 dc 20 33 2c 31 2c 31 2c 35 |TA.#2. . 3,1,1,5|
00002c60 2c 31 2c 31 2c 31 2c 35 2c 32 0d 23 33 18 20 dc |,1,1,1,5,2.#3. .|
00002c70 20 30 2c 30 2c 30 2c 30 2c 33 2c 31 2c 35 2c 32 | 0,0,0,0,3,1,5,2|
00002c80 2c 30 0d 23 34 18 20 dc 20 30 2c 33 2c 34 2c 31 |,0.#4. . 0,3,4,1|
00002c90 2c 32 2c 30 2c 30 2c 30 2c 30 0d 23 35 18 20 dc |,2,0,0,0,0.#5. .|
00002ca0 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 33 2c 35 | 0,0,0,0,0,0,3,5|
00002cb0 2c 32 0d 23 36 18 20 dc 20 33 2c 34 2c 31 2c 34 |,2.#6. . 3,4,1,4|
00002cc0 2c 31 2c 31 2c 31 2c 32 2c 30 0d 23 37 37 20 dc |,1,1,1,2,0.#77 .|
00002cd0 20 36 2c 36 34 2c 33 33 32 2c 39 31 32 2c 33 33 | 6,64,332,912,33|
00002ce0 32 2c 35 36 30 2c 36 32 30 2c 38 30 2c 39 30 38 |2,560,620,80,908|
00002cf0 2c 37 32 30 2c 39 30 38 2c 31 30 35 36 2c 34 37 |,720,908,1056,47|
00002d00 36 0d 23 38 62 20 dc 20 31 31 2c 31 39 32 2c 32 |6.#8b . 11,192,2|
00002d10 2c 31 2c 33 30 34 2c 30 2c 31 2c 35 39 32 2c 30 |,1,304,0,1,592,0|
00002d20 2c 32 2c 37 32 30 2c 30 2c 33 2c 34 33 32 2c 32 |,2,720,0,3,432,2|
00002d30 2c 32 2c 32 34 30 2c 34 2c 32 2c 35 36 30 2c 34 |,2,240,4,2,560,4|
00002d40 2c 31 2c 31 30 35 36 2c 34 2c 31 2c 35 39 32 2c |,1,1056,4,1,592,|
00002d50 33 2c 32 2c 38 30 30 2c 31 2c 32 2c 38 34 38 2c |3,2,800,1,2,848,|
00002d60 34 2c 32 0d 23 3a 38 20 dc 20 35 2c 31 32 38 2c |4,2.#:8 . 5,128,|
00002d70 33 33 32 2c 34 34 38 2c 36 32 30 2c 31 32 38 2c |332,448,620,128,|
00002d80 39 30 38 2c 38 31 36 2c 34 37 36 2c 39 31 32 2c |908,816,476,912,|
00002d90 37 36 34 2c 36 30 38 2c 37 36 34 0d 23 3b 13 20 |764,608,764.#;. |
00002da0 dc 20 39 34 34 2c 37 36 34 20 2c 20 31 36 0d 23 |. 944,764 , 16.#|
00002db0 3c 18 20 dc 20 33 2c 31 2c 31 2c 31 2c 35 2c 31 |<. . 3,1,1,1,5,1|
00002dc0 2c 31 2c 31 2c 32 0d 23 3d 18 20 dc 20 30 2c 30 |,1,1,2.#=. . 0,0|
00002dd0 2c 33 2c 31 2c 35 2c 31 2c 32 2c 30 2c 30 0d 23 |,3,1,5,1,2,0,0.#|
00002de0 3e 18 20 dc 20 30 2c 30 2c 30 2c 30 2c 33 2c 31 |>. . 0,0,0,0,3,1|
00002df0 2c 35 2c 34 2c 32 0d 23 3f 18 20 dc 20 30 2c 30 |,5,4,2.#?. . 0,0|
00002e00 2c 30 2c 30 2c 33 2c 31 2c 34 2c 35 2c 32 0d 23 |,0,0,3,1,4,5,2.#|
00002e10 40 18 20 dc 20 33 2c 34 2c 31 2c 32 2c 30 2c 30 |@. . 3,4,1,2,0,0|
00002e20 2c 33 2c 34 2c 32 0d 23 41 38 20 dc 20 36 2c 36 |,3,4,2.#A8 . 6,6|
00002e30 34 2c 39 30 38 2c 32 38 38 2c 39 30 38 2c 34 33 |4,908,288,908,43|
00002e40 32 2c 39 30 38 2c 36 35 36 2c 39 30 38 2c 38 31 |2,908,656,908,81|
00002e50 36 2c 39 30 38 2c 31 30 32 34 2c 39 30 38 0d 23 |6,908,1024,908.#|
00002e60 42 6a 20 dc 20 31 32 2c 31 39 32 2c 34 2c 32 2c |Bj . 12,192,4,2,|
00002e70 32 35 36 2c 30 2c 31 2c 33 30 34 2c 30 2c 36 2c |256,0,1,304,0,6,|
00002e80 33 35 32 2c 30 2c 33 2c 34 30 30 2c 30 2c 35 2c |352,0,3,400,0,5,|
00002e90 36 34 2c 30 2c 31 2c 33 32 30 2c 33 2c 32 2c 38 |64,0,1,320,3,2,8|
00002ea0 31 36 2c 33 2c 38 2c 35 39 32 2c 32 2c 32 2c 31 |16,3,8,592,2,2,1|
00002eb0 30 35 36 2c 32 2c 32 2c 35 39 32 2c 31 2c 32 2c |056,2,2,592,1,2,|
00002ec0 31 30 35 36 2c 31 2c 32 0d 23 43 30 20 dc 20 34 |1056,1,2.#C0 . 4|
00002ed0 2c 31 39 32 2c 33 33 32 2c 31 39 32 2c 39 30 38 |,192,332,192,908|
00002ee0 2c 39 34 34 2c 33 33 32 2c 34 33 32 2c 39 30 38 |,944,332,432,908|
00002ef0 2c 38 36 34 2c 39 30 38 0d 23 44 13 20 dc 20 31 |,864,908.#D. . 1|
00002f00 30 36 34 2c 33 33 32 20 2c 20 35 0d 23 46 18 20 |064,332 , 5.#F. |
00002f10 dc 20 30 2c 30 2c 30 2c 33 2c 35 2c 31 2c 32 2c |. 0,0,0,3,5,1,2,|
00002f20 30 2c 30 0d 23 47 18 20 dc 20 33 2c 35 2c 31 2c |0,0.#G. . 3,5,1,|
00002f30 31 2c 34 2c 31 2c 35 2c 31 2c 32 0d 23 48 18 20 |1,4,1,5,1,2.#H. |
00002f40 dc 20 33 2c 35 2c 32 2c 30 2c 30 2c 30 2c 33 2c |. 3,5,2,0,0,0,3,|
00002f50 35 2c 32 0d 23 49 18 20 dc 20 30 2c 30 2c 30 2c |5,2.#I. . 0,0,0,|
00002f60 33 2c 34 2c 32 2c 30 2c 30 2c 30 0d 23 4a 18 20 |3,4,2,0,0,0.#J. |
00002f70 dc 20 33 2c 31 2c 31 2c 31 2c 34 2c 31 2c 34 2c |. 3,1,1,1,4,1,4,|
00002f80 31 2c 32 0d 23 4b 30 20 dc 20 35 2c 38 30 34 2c |1,2.#K0 . 5,804,|
00002f90 39 30 38 2c 36 36 34 2c 34 37 36 2c 34 36 34 2c |908,664,476,464,|
00002fa0 34 37 36 2c 34 36 34 2c 39 30 38 2c 36 36 34 2c |476,464,908,664,|
00002fb0 37 36 34 0d 23 4c 4e 20 dc 20 39 2c 36 34 2c 30 |764.#LN . 9,64,0|
00002fc0 2c 31 2c 31 39 32 2c 30 2c 32 2c 34 36 34 2c 33 |,1,192,0,2,464,3|
00002fd0 2c 38 2c 32 35 36 2c 33 2c 34 2c 36 34 2c 33 2c |,8,256,3,4,64,3,|
00002fe0 38 2c 36 34 2c 32 2c 32 2c 32 35 36 2c 32 2c 32 |8,64,2,2,256,2,2|
00002ff0 2c 39 31 32 2c 30 2c 32 2c 31 30 32 34 2c 30 2c |,912,0,2,1024,0,|
00003000 32 0d 23 4d 29 20 dc 20 33 2c 36 34 2c 33 33 32 |2.#M) . 3,64,332|
00003010 2c 33 36 30 2c 39 30 38 2c 31 30 32 34 2c 33 33 |,360,908,1024,33|
00003020 32 2c 31 30 32 34 2c 37 36 34 0d 23 4e 0f 20 dc |2,1024,764.#N. .|
00003030 20 31 30 36 34 2c 36 32 30 0d 23 50 18 20 dc 20 | 1064,620.#P. . |
00003040 30 2c 33 2c 35 2c 31 2c 31 2c 31 2c 32 2c 30 2c |0,3,5,1,1,1,2,0,|
00003050 30 0d 23 51 18 20 dc 20 30 2c 33 2c 31 2c 35 2c |0.#Q. . 0,3,1,5,|
00003060 32 2c 30 2c 30 2c 30 2c 30 0d 23 52 18 20 dc 20 |2,0,0,0,0.#R. . |
00003070 30 2c 30 2c 30 2c 33 2c 35 2c 31 2c 34 2c 32 2c |0,0,0,3,5,1,4,2,|
00003080 30 0d 23 53 18 20 dc 20 30 2c 33 2c 34 2c 35 2c |0.#S. . 0,3,4,5,|
00003090 32 2c 30 2c 30 2c 30 2c 30 0d 23 54 18 20 dc 20 |2,0,0,0,0.#T. . |
000030a0 33 2c 31 2c 31 2c 31 2c 31 2c 34 2c 31 2c 31 2c |3,1,1,1,1,4,1,1,|
000030b0 32 0d 23 55 37 20 dc 20 36 2c 36 34 2c 33 33 32 |2.#U7 . 6,64,332|
000030c0 2c 38 39 36 2c 36 32 30 2c 38 33 32 2c 39 30 38 |,896,620,832,908|
000030d0 2c 33 38 34 2c 33 33 32 2c 34 38 30 2c 36 32 30 |,384,332,480,620|
000030e0 2c 35 31 32 2c 39 30 38 0d 23 56 48 20 dc 20 38 |,512,908.#VH . 8|
000030f0 2c 36 37 32 2c 32 2c 39 2c 31 37 36 2c 31 2c 32 |,672,2,9,176,1,2|
00003100 2c 38 39 36 2c 30 2c 32 2c 32 32 34 2c 34 2c 32 |,896,0,2,224,4,2|
00003110 2c 33 38 34 2c 34 2c 32 2c 32 32 34 2c 33 2c 32 |,384,4,2,224,3,2|
00003120 2c 33 35 32 2c 33 2c 32 2c 37 36 38 2c 34 2c 31 |,352,3,2,768,4,1|
00003130 0d 23 57 30 20 dc 20 34 2c 39 36 30 2c 33 33 32 |.#W0 . 4,960,332|
00003140 2c 36 30 30 2c 36 32 30 2c 33 32 30 2c 39 30 38 |,600,620,320,908|
00003150 2c 33 32 30 2c 34 37 36 2c 33 38 34 2c 34 37 36 |,320,476,384,476|
00003160 0d 23 58 0f 20 dc 20 31 30 30 30 2c 36 32 30 0d |.#X. . 1000,620.|
00003170 23 5a 18 20 dc 20 30 2c 30 2c 33 2c 31 2c 31 2c |#Z. . 0,0,3,1,1,|
00003180 35 2c 32 2c 30 2c 30 0d 23 5b 18 20 dc 20 30 2c |5,2,0,0.#[. . 0,|
00003190 33 2c 34 2c 32 2c 30 2c 30 2c 30 2c 30 2c 30 0d |3,4,2,0,0,0,0,0.|
000031a0 23 5c 18 20 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c |#\. . 0,0,0,0,0,|
000031b0 30 2c 30 2c 30 2c 30 0d 23 5d 18 20 dc 20 30 2c |0,0,0,0.#]. . 0,|
000031c0 33 2c 34 2c 35 2c 32 2c 30 2c 33 2c 35 2c 32 0d |3,4,5,2,0,3,5,2.|
000031d0 23 5e 18 20 dc 20 30 2c 33 2c 34 2c 32 2c 30 2c |#^. . 0,3,4,2,0,|
000031e0 33 2c 34 2c 32 2c 30 0d 23 5f 38 20 dc 20 36 2c |3,4,2,0.#_8 . 6,|
000031f0 32 30 38 2c 33 33 32 2c 34 33 32 2c 33 33 32 2c |208,332,432,332,|
00003200 32 30 38 2c 37 36 34 2c 34 33 32 2c 37 36 34 2c |208,764,432,764,|
00003210 37 30 34 2c 33 33 32 2c 39 31 36 2c 33 33 32 0d |704,332,916,332.|
00003220 23 60 28 20 dc 20 38 2c 31 36 30 2c 31 2c 32 2c |#`( . 8,160,1,2,|
00003230 32 32 34 2c 31 2c 32 2c 35 31 32 2c 31 2c 32 2c |224,1,2,512,1,2,|
00003240 35 37 36 2c 31 2c 32 0d 23 61 26 20 dc 20 33 32 |576,1,2.#a& . 32|
00003250 30 2c 34 2c 32 2c 34 34 38 2c 34 2c 32 2c 35 37 |0,4,2,448,4,2,57|
00003260 36 2c 34 2c 31 2c 38 30 30 2c 34 2c 31 0d 23 62 |6,4,1,800,4,1.#b|
00003270 30 20 dc 20 34 2c 31 32 38 2c 33 33 32 2c 33 36 |0 . 4,128,332,36|
00003280 38 2c 34 37 36 2c 33 38 34 2c 34 37 36 2c 38 31 |8,476,384,476,81|
00003290 36 2c 33 33 32 2c 38 31 36 2c 34 37 36 0d 23 63 |6,332,816,476.#c|
000032a0 0f 20 dc 20 31 30 30 30 2c 33 33 32 0d 23 64 18 |. . 1000,332.#d.|
000032b0 20 dc 20 33 2c 31 2c 31 2c 31 2c 31 2c 31 2c 31 | . 3,1,1,1,1,1,1|
000032c0 2c 35 2c 32 0d 23 65 18 20 dc 20 33 2c 34 2c 32 |,5,2.#e. . 3,4,2|
000032d0 2c 30 2c 30 2c 30 2c 33 2c 35 2c 32 0d 23 66 18 |,0,0,0,3,5,2.#f.|
000032e0 20 dc 20 33 2c 34 2c 32 2c 30 2c 30 2c 30 2c 33 | . 3,4,2,0,0,0,3|
000032f0 2c 35 2c 32 0d 23 67 18 20 dc 20 33 2c 34 2c 32 |,5,2.#g. . 3,4,2|
00003300 2c 30 2c 30 2c 30 2c 33 2c 35 2c 32 0d 23 68 18 |,0,0,0,3,5,2.#h.|
00003310 20 dc 20 33 2c 34 2c 32 2c 30 2c 30 2c 30 2c 33 | . 3,4,2,0,0,0,3|
00003320 2c 34 2c 32 0d 23 69 10 20 dc 20 31 2c 32 30 38 |,4,2.#i. . 1,208|
00003330 2c 39 30 38 0d 23 6a 10 20 dc 20 31 2c 33 36 38 |,908.#j. . 1,368|
00003340 2c 34 2c 32 0d 23 6b 30 20 dc 20 34 2c 31 32 38 |,4,2.#k0 . 4,128|
00003350 2c 33 33 32 2c 33 36 38 2c 34 37 36 2c 33 36 38 |,332,368,476,368|
00003360 2c 36 32 30 2c 33 36 38 2c 37 36 34 2c 33 36 38 |,620,368,764,368|
00003370 2c 39 30 38 0d 23 6c 0f 20 dc 20 31 30 30 30 2c |,908.#l. . 1000,|
00003380 33 33 32 0d 23 6e 18 20 dc 20 33 2c 31 2c 31 2c |332.#n. . 3,1,1,|
00003390 31 2c 31 2c 31 2c 31 2c 35 2c 32 0d 23 6f 18 20 |1,1,1,1,5,2.#o. |
000033a0 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 33 2c |. 0,0,0,0,0,0,3,|
000033b0 34 2c 32 0d 23 70 18 20 dc 20 33 2c 34 2c 31 2c |4,2.#p. . 3,4,1,|
000033c0 31 2c 31 2c 31 2c 31 2c 31 2c 32 0d 23 71 18 20 |1,1,1,1,1,2.#q. |
000033d0 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |. 0,0,0,0,0,0,0,|
000033e0 30 2c 30 0d 23 72 18 20 dc 20 33 2c 31 2c 31 2c |0,0.#r. . 3,1,1,|
000033f0 31 2c 31 2c 31 2c 31 2c 34 2c 32 0d 23 73 28 20 |1,1,1,1,4,2.#s( |
00003400 dc 20 34 2c 31 32 38 2c 39 30 38 2c 33 38 34 2c |. 4,128,908,384,|
00003410 39 30 38 2c 36 34 30 2c 39 30 38 2c 38 39 36 2c |908,640,908,896,|
00003420 39 30 38 0d 23 74 59 20 dc 20 31 34 2c 31 32 38 |908.#tY . 14,128|
00003430 2c 30 2c 36 2c 32 35 36 2c 30 2c 31 2c 33 38 34 |,0,6,256,0,1,384|
00003440 2c 30 2c 31 2c 35 31 32 2c 30 2c 31 2c 36 34 30 |,0,1,512,0,1,640|
00003450 2c 30 2c 34 2c 37 36 38 2c 30 2c 39 2c 37 36 38 |,0,4,768,0,9,768|
00003460 2c 32 2c 31 2c 38 39 36 2c 30 2c 33 2c 38 39 36 |,2,1,896,0,3,896|
00003470 2c 32 2c 31 2c 36 34 30 2c 32 2c 36 0d 23 75 26 |,2,1,640,2,6.#u&|
00003480 20 dc 20 32 35 36 2c 32 2c 32 2c 32 35 36 2c 34 | . 256,2,2,256,4|
00003490 2c 32 2c 35 31 32 2c 34 2c 32 2c 37 36 38 2c 34 |,2,512,4,2,768,4|
000034a0 2c 32 0d 23 76 38 20 dc 20 35 2c 31 32 38 2c 33 |,2.#v8 . 5,128,3|
000034b0 33 32 2c 33 36 38 2c 36 32 30 2c 35 31 32 2c 36 |32,368,620,512,6|
000034c0 32 30 2c 36 34 31 2c 36 32 30 2c 38 31 35 2c 36 |20,641,620,815,6|
000034d0 32 30 2c 39 32 30 2c 36 32 30 0d 23 77 0f 20 dc |20,920,620.#w. .|
000034e0 20 31 31 32 38 2c 37 36 34 0d 23 78 18 20 dc 20 | 1128,764.#x. . |
000034f0 33 2c 31 2c 35 2c 32 2c 30 2c 30 2c 30 2c 30 2c |3,1,5,2,0,0,0,0,|
00003500 30 0d 23 79 18 20 dc 20 30 2c 33 2c 34 2c 31 2c |0.#y. . 0,3,4,1,|
00003510 35 2c 32 2c 30 2c 30 2c 30 0d 23 7a 18 20 dc 20 |5,2,0,0,0.#z. . |
00003520 30 2c 30 2c 33 2c 34 2c 31 2c 35 2c 32 2c 30 2c |0,0,3,4,1,5,2,0,|
00003530 30 0d 23 7b 18 20 dc 20 30 2c 30 2c 30 2c 33 2c |0.#{. . 0,0,0,3,|
00003540 34 2c 31 2c 35 2c 32 2c 30 0d 23 7c 18 20 dc 20 |4,1,5,2,0.#|. . |
00003550 30 2c 30 2c 30 2c 30 2c 33 2c 34 2c 31 2c 31 2c |0,0,0,0,3,4,1,1,|
00003560 32 0d 23 7d 30 20 dc 20 35 2c 31 39 32 2c 37 36 |2.#}0 . 5,192,76|
00003570 34 2c 34 38 34 2c 37 36 34 2c 33 31 32 2c 36 32 |4,484,764,312,62|
00003580 30 2c 35 34 38 2c 36 32 30 2c 37 33 32 2c 34 37 |0,548,620,732,47|
00003590 36 0d 23 7e 48 20 dc 20 31 34 2c 34 34 38 2c 31 |6.#~H . 14,448,1|
000035a0 2c 32 2c 36 35 36 2c 31 2c 32 2c 35 39 32 2c 30 |,2,656,1,2,592,0|
000035b0 2c 32 2c 37 36 38 2c 30 2c 32 2c 38 36 34 2c 30 |,2,768,0,2,864,0|
000035c0 2c 32 2c 39 36 2c 34 2c 33 2c 31 39 32 2c 34 2c |,2,96,4,3,192,4,|
000035d0 33 2c 39 37 36 2c 30 2c 33 0d 23 7f 37 20 dc 20 |3,976,0,3.#.7 . |
000035e0 34 30 30 2c 34 2c 33 2c 34 30 30 2c 33 2c 33 2c |400,4,3,400,3,3,|
000035f0 36 37 32 2c 33 2c 33 2c 38 30 30 2c 32 2c 31 2c |672,3,3,800,2,1,|
00003600 39 32 38 2c 31 2c 33 2c 31 30 37 32 2c 30 2c 33 |928,1,3,1072,0,3|
00003610 0d 23 80 38 20 dc 20 35 2c 36 34 2c 39 30 38 2c |.#.8 . 5,64,908,|
00003620 37 36 38 2c 37 36 34 2c 37 36 38 2c 36 32 30 2c |768,764,768,620,|
00003630 37 36 38 2c 34 37 36 2c 37 36 38 2c 33 33 32 2c |768,476,768,332,|
00003640 31 30 37 32 2c 33 33 32 0d 23 81 0e 20 dc 20 34 |1072,332.#.. . 4|
00003650 32 34 2c 39 30 38 0d 23 82 18 20 dc 20 33 2c 31 |24,908.#.. . 3,1|
00003660 2c 35 2c 31 2c 32 2c 30 2c 30 2c 30 2c 30 0d 23 |,5,1,2,0,0,0,0.#|
00003670 83 18 20 dc 20 33 2c 31 2c 35 2c 31 2c 32 2c 30 |.. . 3,1,5,1,2,0|
00003680 2c 30 2c 30 2c 30 0d 23 84 18 20 dc 20 33 2c 31 |,0,0,0.#.. . 3,1|
00003690 2c 35 2c 31 2c 32 2c 30 2c 30 2c 30 2c 30 0d 23 |,5,1,2,0,0,0,0.#|
000036a0 85 18 20 dc 20 33 2c 31 2c 35 2c 31 2c 32 2c 30 |.. . 3,1,5,1,2,0|
000036b0 2c 30 2c 30 2c 30 0d 23 86 18 20 dc 20 33 2c 31 |,0,0,0.#.. . 3,1|
000036c0 2c 31 2c 31 2c 31 2c 31 2c 31 2c 31 2c 32 0d 23 |,1,1,1,1,1,1,2.#|
000036d0 87 10 20 dc 20 31 2c 37 36 38 2c 33 33 32 0d 23 |.. . 1,768,332.#|
000036e0 88 48 20 dc 20 39 2c 31 39 32 2c 34 2c 31 2c 34 |.H . 9,192,4,1,4|
000036f0 34 38 2c 34 2c 38 2c 31 39 32 2c 33 2c 31 2c 34 |48,4,8,192,3,1,4|
00003700 34 38 2c 33 2c 38 2c 31 39 32 2c 32 2c 38 2c 34 |48,3,8,192,2,8,4|
00003710 34 38 2c 32 2c 31 2c 31 39 32 2c 31 2c 31 2c 34 |48,2,1,192,1,1,4|
00003720 34 38 2c 31 2c 38 0d 23 89 0e 20 dc 20 33 30 34 |48,1,8.#.. . 304|
00003730 2c 30 2c 32 0d 23 8a 2f 20 dc 20 34 2c 36 34 2c |,0,2.#./ . 4,64,|
00003740 39 30 38 2c 36 34 2c 33 33 32 2c 32 35 36 2c 33 |908,64,332,256,3|
00003750 33 32 2c 35 31 32 2c 33 33 32 2c 31 30 32 37 2c |32,512,332,1027,|
00003760 33 33 32 0d 23 8b 0f 20 dc 20 31 31 32 30 2c 33 |332.#.. . 1120,3|
00003770 33 32 0d 23 8c 18 20 dc 20 33 2c 31 2c 31 2c 35 |32.#.. . 3,1,1,5|
00003780 2c 31 2c 31 2c 31 2c 35 2c 32 0d 23 8d 18 20 dc |,1,1,1,5,2.#.. .|
00003790 20 30 2c 30 2c 30 2c 30 2c 33 2c 34 2c 35 2c 32 | 0,0,0,0,3,4,5,2|
000037a0 2c 30 0d 23 8e 18 20 dc 20 30 2c 33 2c 34 2c 31 |,0.#.. . 0,3,4,1|
000037b0 2c 32 2c 30 2c 30 2c 30 2c 30 0d 23 8f 18 20 dc |,2,0,0,0,0.#.. .|
000037c0 20 30 2c 30 2c 30 2c 30 2c 30 2c 33 2c 34 2c 35 | 0,0,0,0,0,3,4,5|
000037d0 2c 32 0d 23 90 18 20 dc 20 33 2c 31 2c 31 2c 31 |,2.#.. . 3,1,1,1|
000037e0 2c 31 2c 31 2c 34 2c 32 2c 30 0d 23 91 37 20 dc |,1,1,4,2,0.#.7 .|
000037f0 20 36 2c 36 34 2c 33 33 32 2c 39 31 32 2c 33 33 | 6,64,332,912,33|
00003800 32 2c 35 36 30 2c 36 32 30 2c 38 30 2c 39 30 38 |2,560,620,80,908|
00003810 2c 37 32 30 2c 39 30 38 2c 31 30 35 36 2c 34 37 |,720,908,1056,47|
00003820 36 0d 23 92 39 20 dc 20 31 31 2c 35 39 32 2c 30 |6.#.9 . 11,592,0|
00003830 2c 32 2c 34 33 32 2c 32 2c 32 2c 32 34 30 2c 34 |,2,432,2,2,240,4|
00003840 2c 32 2c 35 39 32 2c 33 2c 32 2c 37 30 34 2c 31 |,2,592,3,2,704,1|
00003850 2c 32 2c 38 34 38 2c 34 2c 32 0d 23 93 2f 20 dc |,2,848,4,2.#./ .|
00003860 20 31 39 32 2c 32 2c 31 2c 33 30 34 2c 30 2c 31 | 192,2,1,304,0,1|
00003870 2c 37 32 30 2c 30 2c 39 2c 35 36 30 2c 34 2c 39 |,720,0,9,560,4,9|
00003880 2c 31 30 35 36 2c 34 2c 39 0d 23 94 38 20 dc 20 |,1056,4,9.#.8 . |
00003890 35 2c 31 32 38 2c 33 33 32 2c 34 34 38 2c 36 32 |5,128,332,448,62|
000038a0 30 2c 31 32 38 2c 39 30 38 2c 38 31 36 2c 34 37 |0,128,908,816,47|
000038b0 36 2c 39 31 32 2c 37 36 34 2c 36 30 38 2c 37 36 |6,912,764,608,76|
000038c0 34 0d 23 95 0e 20 dc 20 39 34 34 2c 37 36 34 0d |4.#.. . 944,764.|
000038d0 27 0f 4b 20 2a 4b 45 59 20 31 20 46 4f 52 20 4c |'.K *KEY 1 FOR L|
000038e0 3d 30 20 54 4f 20 36 33 3a 43 4f 4c 4f 55 52 20 |=0 TO 63:COLOUR |
000038f0 4c 3a 50 52 49 4e 54 20 22 41 42 43 44 45 46 47 |L:PRINT "ABCDEFG|
00003900 48 4a 4f 4b 20 20 20 20 22 3b 4c 3a 41 3d 47 45 |HJOK ";L:A=GE|
00003910 54 3a 4e 45 58 54 20 4c 7c 4d 0d ff |T:NEXT L|M..|
0000391c 
.