Home » Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Bounce/B14

Bounce/B14

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 » Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF
Filename: Bounce/B14
Read OK:
File size: 30C9 bytes
Load address: FFFFFB46
Exec address: F57D554E
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Bounce
   20REM by Dominic Ford 1996
   30:
   40IF NOT ((?&78=45) AND (PAGE=&1D00)) THEN MODE 6
   50PROCinit
   60A$="DEL.1330,9999"+CHR$13+"GOTO90"+CHR$6+CHR$13:VDU21:FOR char=1 TO LEN(A$):OSCLI"FX138,0,"+STR$(ASC(MID$(A$,char,1))):NEXT
   70END
   80:
   90ON ERROR CLEAR:GOTO90
  100VDU 6,23,128,255,66,36,24,24,36,66,255,23,129,0,0,0,0,0,0,0,0,23,130,60,126,255,253,250,245,42,20,23,131,255,129,129,129,129,129,129,255,23,132,24,90,60,255,255,60,90,24,23,133,255,255,255,255,255,255,255,255
  110sound=TRUE:DIMcl%(3):cl%(0)=2:cl%(1)=5:cl%(2)=6:ENVELOPE1,1,1,5,-2,5,1,5,126,0,0,-126,126,126:ENVELOPE2,1,2,5,1,1,1,1,126,0,0,-126,126,126:ENVELOPE3,1,-1,40,1,1,1,1,126,0,0,-126,126,126
  120MODE1:VDU23,1,0;0;0;0;
  130REPEAT
  140PROCtitle
  150VDU 19,1,1,0,0,0,0,19,2,4,0,0,0,0
  160IFk$="K"ORk$="k"THENPROCkeys
  170IFk$=" "THENPROCgame
  180UNTILk$="Q"ORk$="q"
  190MODE6:END
  200:
  210DEFPROCgame
  220lev%=0:scr%=0:live%=3:?&BF8=15
  230REPEAT
  240PROClevel
  250IF live%=-1 THEN lev%=20 ELSE scr%=scr%+tim%
  260UNTIL lev%=20
  270IF live%=-1 THEN PROCgameover:ENDPROC
  280PROCcongrat
  290ENDPROC
  300:
  310DEFPROClevel
  320CLS
  330COLOUR 3:PRINTTAB(9,16)"Get Ready for Level ";lev%+1;"!"
  340FORc=0 TO 5
  350FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,2,c*4+col*8+100,1
  360VDU 19,3,col,0,0,0
  370nt%=TIME+4
  380REPEAT UNTIL TIME>nt%
  390NEXT,:CLS
  400REPEAT
  410VDU 19,3,2,0,0,0
  420tim%=200:lev%=lev%+1:?&BF0=1:?&BF1=1
  430GCOL0,1:MOVE0,0:MOVE3000,0:PLOT85,0,3000:GCOL0,0:MOVE32,32:MOVE32,96:PLOT85,224,32:PLOT85,224,96:MOVE256,32:MOVE256,96:PLOT85,480,32:PLOT85,480,96:MOVE512,32:MOVE512,96:PLOT85,768,32:PLOT85,768,96
  440MOVE800,32:MOVE800,96:PLOT85,992,32:PLOT85,992,96:MOVE1024,32:MOVE1024,96:PLOT85,1248,32:PLOT85,1248,96:MOVE32,224:MOVE1248,224:PLOT85,32,992:PLOT85,1248,992
  450COLOUR3:PRINTTAB(1,1)CHR$131
  460?&73=(&14C0+&40*lev%)MOD256
  470?&74=(&14C0+&40*lev%)DIV256
  480COLOUR1:CALL&1A00
  490COLOUR3:PRINTTAB(1,29)"Score";TAB(8,29)"Lives";TAB(16,29)"Screen";TAB(25,29)"Time";TAB(32,29)"Money"
  500REPEAT
  510COLOUR3
  520PRINTTAB(2,30);scr%;TAB(11,30)live%;TAB(19,30)lev%;
  530PRINTTAB(27,30);tim%;" ";TAB(34,30);?&BF8;"0 "
  540REPEAT UNTIL TIME>nt%
  550nt%=TIME+15:CALL&AE9
  560IF?&BF9=0AND?&BEF=0THENREPEAT UNTIL TIME>nt%:nt%=TIME+15:CALL&AE9:tim%=tim%-1
  570UNTIL tim%=-1 OR ?&BEF=1 OR ?&BF9=1
  580IF tim%<>-1 AND ?&BF9=0 THEN UNTIL TRUE:PROClevelfin:ENDPROC
  590live%=live%-1
  600IF live%=-1 THEN UNTIL TRUE:ENDPROC
  610CLS:COLOUR3:PRINTTAB(15,16);
  620IF?&BF9=0THENPRINT"Time Out!"ELSEPRINT"Lost Ball!"
  630FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,3,35,7
  640FORcol=0 TO 7
  650VDU 19,3,col,0,0,0
  660nt%=TIME+4
  670REPEAT UNTIL TIME>nt%
  680NEXT,:CLS:lev%=lev%-1
  690UNTIL FALSE
  700ENDPROC
  710:
  720DEFPROClevelfin
  730CLS:COLOUR 3
  740PRINTTAB(4,16);"Congratulations: Level Complete"
  750FORc=0 TO 4:IF sound=TRUE THEN SOUND 1,1,4+c*48,10
  760FORcol=0 TO 7
  770VDU 19,3,col,0,0,0
  780nt%=TIME+4
  790REPEAT UNTIL TIME>nt%
  800NEXT,:CLS:?&BF8=(?&BF8)+15
  810ENDPROC
  820:
  830DEFPROCgameover
  840CLS:COLOUR 3
  850PRINTTAB(9,16)"That's it: Game Over!"
  860FORc=0 TO 5
  870FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,2,150-(c*4+col*8),1
  880VDU 19,3,col,0,0,0
  890nt%=TIME+4
  900REPEAT UNTIL TIME>nt%
  910NEXT,:CLS
  920ENDPROC
  930:
  940DEFPROCcongrat
  950CLS:COLOUR 3
  960FORx=0 TO 5
  970PRINTTAB(4,16);"Congratulations: Game Complete!"
  980FORc=0 TO 4:IF sound=TRUE THEN SOUND 1,1,4+c*48,10
  990FORcol=0 TO 7
 1000VDU 19,3,col,0,0,0
 1010nt%=TIME+4
 1020REPEAT UNTIL TIME>nt%
 1030NEXT,,:CLS
 1040ENDPROC
 1050:
 1060DEFPROCtitle
 1070col=0:CLS
 1080CALL&A00:COLOUR2
 1090PRINTTAB(17,5)"BOUNCE";TAB(10,8)"by Dominic Ford 1996";TAB(12,14)"SPACE - Start";TAB(16,16)"Q - Quit";TAB(16,18)"S - Sound On/Off";TAB(16,20)"K - Change Keys";TAB(15,25);"Sound: ";:IFsound THEN PRINT"On "ELSEPRINT"Off"
 1100VDU 23,1,0;0;0;0;:*FX15,1
 1110REPEAT
 1120nt%=TIME+10:col=((col+1) MOD 3)
 1130VDU 19,1,cl%(col),0,0,0,0
 1140VDU 19,2,cl%((col+1) MOD 3),0,0,0,0
 1150VDU 19,3,cl%((col+2) MOD 3),0,0,0,0
 1160REPEAT UNTIL TIME>nt%
 1170k$=INKEY$(0)
 1180IFk$="S"ORk$="s"THENPROCsound
 1190UNTIL INSTR(" QqKk",k$)<>0 AND LEN(k$)<>0
 1200ENDPROC
 1210:
 1220DEFPROCsound
 1230IFsound THEN sound=FALSE ELSE sound=TRUE
 1240PRINTTAB(22,25);:IFsound THEN PRINT"On "ELSEPRINT"Off"
 1250ENDPROC
 1260:
 1270DEFPROCkeys
 1280VDU23,1,1,0;0;0;0;
 1290CLS:PRINT"Please select new keys:"''"Left:"'"Right:"'"Up:"'"Down:"'"Wall:"'"Clear:"
 1300FORk=0TO5:PRINTTAB(8,2+k);:k$=GET$:PRINTk$:?(&BFA+k)=ASC(k$):NEXT
 1310VDU23,1,0;0;0;0;:k$=""
 1320ENDPROC
 1330:
 1340REM Level Data
 1350REM Level 1
 1360DATA 17,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9,14,9,15,9,16,9,17,8,18,9,19,8,8,1,19,1,1,17,10,1,2,2,255
 1370:
 1380REM Level 2
 1390DATA 10,5,5,6,6,7,5,11,5,12,6,13,5,7,8,8,9,10,9,11,8,9,12,6,1,12,1,0,1,9,8,255
 1400:
 1410REM Level 3
 1420DATA 13,5,5,6,6,7,6,8,6,9,6,10,5,12,5,13,6,14,6,15,6,16,6,17,5,9,9,13,9,9,1,13,2,6,11,5,11,6,10,10,14,8,10,10,12,10,0,255
 1430:
 1440REM Level 4
 1450DATA 11,5,5,6,6,7,6,8,6,9,6,10,5,12,5,13,6,14,6,15,6,16,6,17,5,6,1,16,1,7,11,5,11,6,11,7,10,8,9,7,12,8,13,7,7,8,9,9,10,10,10,11,10,12,10,13,10,14,9,255
 1460:
 1470REM Level 5
 1480DATA 4,5,5,9,5,6,9,7,9,8,9,6,1,8,1,1,7,6,3,6,6,7,5,8,6,255
 1490:
 1500REM Level 6
 1510DATA 6,5,5,6,6,7,5,4,7,5,8,4,11,5,12,6,1,9,1,1,10,12,6,6,10,7,9,8,10,7,13,8,14,9,13,255
 1520:
 1530REM Level 7
 1540DATA 3,7,5,8,6,10,6,11,5,9,1,11,1,10,5,8,5,9,5,10,5,11,7,12,9,8,9,9,9,10,9,11,11,12,11,7,8,7,9,7,11,7,11,11,8,11,9,11,10,11,11,8,13,10,13,9,5,255
 1550:
 1560REM Level 8
 1570DATA 14,5,5,5,6,6,6,10,6,11,6,11,5,5,9,5,10,6,11,7,12,8,14,9,12,10,11,11,10,11,9,8,1,11,1,0,9,7,6,8,5,9,6,8,9,8,10,8,11,8,12,8,13,8,15,255
 1580:
 1590REM Level 9
 1600DATA 12,8,5,9,6,11,5,12,6,13,5,5,9,5,10,7,9,7,10,9,9,9,10,11,9,11,10,9,1,12,1,3,10,6,8,12,8,13,5,6,12,6,13,10,12,10,13,10,5,255
 1610:
 1620REM Level 10
 1630DATA 17,5,5,6,6,7,7,8,8,9,9,10,10,8,5,9,6,10,5,14,5,15,6,16,5,14,10,15,9,16,8,17,7,18,6,19,5,9,1,15,1,9,12,5,12,6,12,9,12,10,12,12,11,13,13,13,14,13,15,13,0,255
 1640:
 1650REM Level 11
 1660DATA 10,5,6,6,5,6,7,7,6,9,6,10,5,10,7,11,6,8,9,8,10,8,11,7,1,9,1,7,8,6,6,8,8,8,10,8,7,12,8,12,9,12,1,8,5,255
 1670:
 1680REM Level 12
 1690DATA 12,5,6,6,5,6,7,10,5,11,6,10,7,5,13,6,13,7,13,8,13,9,13,10,13,11,13,7,1,9,1,4,6,8,10,8,4,12,12,12,3,7,6,8,5,9,6,255
 1700:
 1710REM Level 13
 1720DATA 6,5,5,7,5,8,12,9,13,10,13,10,12,11,13,6,1,9,12,5,5,6,12,12,10,10,10,11,10,9,11,6,6,7,7,8,7,9,7,10,7,11,6,12,8,13,8,14,8,15,8,16,7,255
 1730:
 1740REM Level 14
 1750DATA 10,5,5,6,6,7,6,8,6,9,6,10,5,11,6,12,6,13,6,14,6,15,5,9,1,14,1,1,10,6,0,255
 1760:
 1770REM Level 15
 1780DATA 26,5,5,6,6,7,7,8,8,9,9,10,10,7,5,8,6,9,7,10,8,11,9,12,10,12,8,13,9,14,10,14,8,15,9,16,10,17,9,18,8,19,7,20,6,21,5,16,8,17,7,18,6,19,5,6,1,20,1,0,0,255
 1790:
 1800REM Level 16
 1810DATA 17,5,5,6,6,7,5,10,5,11,6,12,5,5,9,12,9,13,8,13,12,14,11,5,14,11,14,12,14,6,16,7,16,8,18,9,19,6,1,11,1,5,6,7,7,8,10,8,11,12,4,12,5,7,11,6,12,8,14,9,14,10,14,0
 1820:
 1830REM Level 17
 1840DATA 5,9,6,10,7,11,6,12,5,13,6,14,5,12,1,13,1,8,12,6,13,8,9,9,10,9,11,9,12,9,13,9,14,9,5,5,6,6,7,7,7,8,7,9,7,255
 1850:
 1860REM Level 18
 1870DATA 10,1,8,2,9,3,9,4,9,5,9,14,8,15,9,16,9,17,9,18,9,19,8,5,1,11,1,6,6,10,7,11,9,9,11,9,14,10,13,11,10,4,1,5,2,6,6,7,6,8,6,9,6,10,5,11,6,12,6,13,6,14,6,0
 1880:
 1890REM Level 19
 1900DATA 8,7,5,13,5,7,12,8,13,9,13,10,13,11,13,12,13,13,12,6,1,14,1,7,10,6,10,7,10,8,10,9,9,10,10,10,11,10,9,5,5,6,6,7,7,8,6,12,6,13,7,14,6,15,5,10,5,255
 1910:
 1920REM Level 20
 1930DATA 19,5,5,6,6,7,5,12,5,13,6,14,5,8,10,16,10,9,12,10,13,13,13,14,14,9,16,16,15,15,16,10,18,11,19,12,19,13,19,14,18,6,1,13,1,7,13,8,14,9,11,11,15,12,12,13,13,16,11,15,0
 1940:
 1950DATA-999
 1960:
 1970DEFPROCinit
 1980IF NOT ((?&78=45) AND (PAGE=&1D00)) THEN PRINT'"Please Wait. . ."':*TAPE
 1990IF PAGE<>&1D00 THEN PROCreloc
 2000VDU 6,11,23,1,0;0;0;0;
 2010PRINT"Calculating sphere. . ."
 2020P%=&D00:p=0
 2030FORx=-78.75 TO 90 STEP 11.25
 2040FORy=22.5 TO 180 STEP 22.5:p=p+.78125
 2050[OPT 2
 2060EQUW INT(480*SIN(PI*(x-11.25)/180)*SIN(PI*y/180)+640)
 2070EQUW INT(60+(COS(PI*y/180)+1)*450)
 2080EQUW INT(480*SIN(PI*x/180)*SIN(PI*y/180)+640)
 2090EQUW INT(60+(COS(PI*y/180)+1)*450)
 2100]
 2110PRINTTAB(24,4)INT(p);"%"
 2120NEXT,
 2130VDU23,1,1;0;0;0;0;
 2140PRINT"Moving level data. . .":ad=&1500
 2150REPEAT
 2160READ d
 2170IF d<>-999 THEN ?ad=d:ad=ad+1
 2180IF d=255 THEN ad=(ad+&40) AND &FFC0
 2190IF d<>-999 THEN UNTIL FALSE
 2200UNTIL TRUE
 2210PRINT"Assembling code. . .":PROCassemble
 2220PRINT"Removing source code. . ."
 2230ENDPROC
 2240:
 2250DEFPROCassemble
 2260oswrch=&FFEE
 2270osbyte=&FFF4
 2280FOR pass=0 TO 2 STEP 2
 2290P%=&A00
 2300[OPT pass
 2310.sphere LDY#1:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDA#1:JSRoswrch
 2320.point LDY #0:TXA:AND#7:BEQnewxval
 2330LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2340INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
 2350.newxval LDAcol:CLC:ADC#1:AND#3:BNEnotblack:CLC:ADC#1
 2360.notblack STAcol:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDAcol:JSRoswrch
 2370LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
 2380LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2390INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
 2400.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
 2410.col EQUB 0
 2420]:P%=&AE9
 2430[OPTpass
 2440LDX#0
 2450.ballop LDAxball,X:CMPcx:BNEballon:LDAyball,X:CMPcy:BEQballoff
 2460.ballon LDA#17:JSRoswrch:LDA#2:JSRoswrch:LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#129:JSRoswrch
 2470.balloff LDAyball,X:CMP#24:BEQdie:LDA#&28:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:AND#1:BNEnodown:INCyball,X:JMPdoneball
 2480.nodown LDAxball,X:CMP#1:BEQdie:LDAdir,X:CMP#0:BNEnoleft:LDA#&FF:STA&70:LDA#&10:STA&71:LDAxball,X:LDYyball,X:JSRgetad:AND#1:BNEnoleft:DECxball,X:JMPdoneball
 2490.die LDA#1:STAdead:RTS
 2500.noleft LDAxball,X:CMP#38:BEQdie:LDAdir,X:CMP#1:BNEnoright:LDA#1:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:AND#1:BNEnoright:INCxball,X:JMPdoneball
 2510.noright LDAdir,X:EOR#1:STAdir,X
 2520.doneball LDAxball,X:CMPcx:BNEballd:LDAyball,X:CMPcy:BEQnextball
 2530.balld LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#130:JSRoswrch
 2540.nextball LDA#0:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:CMP#2:BNEnextballb:LDA#1:STAdead
 2550.nextballb JSRballcheck:INX:CPX#2:BNE ballopt:JMPcursor:.ballopt JMPballop
 2560]:P%=&1A00
 2570[OPT pass
 2580JMPsetup
 2590.getad CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71:TYA:ASL A:ASL A:ASL A:STA&72:LDY#0
 2600.getlop LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC#0:STA&71:INY:CPY#5:BNEgetlop:LDY#0:LDA(&70),Y:RTS
 2610.cursor LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#1:BEQblock:CMP#2:BEQspike:CMP#3:BEQhardb:LDA#129:JSRoswrch:JMPcurdel
 2620.block LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#128:JSRoswrch:JMPcurdel
 2630.spike LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#132:JSRoswrch:JMPcurdel
 2640.hardb LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#133:JSRoswrch
 2650.curdel LDA#&81:LDX#0:LDY#0:JSRosbyte:BCCkeypro:.nomovet JMP nomove
 2660.keypro CPXkl:BNEnotkl:LDAcx:CMP#1:BEQ nomovet:DECcx:JMPnomovet
 2670.notkl CPXkr:BNEnotkr:LDAcx:CMP#38:BEQ nomove:INCcx:JMPnomovet
 2680.notkr CPXku:BNEnotku:LDAcy:CMP#1:BEQ nomove:DECcy:JMPnomovet
 2690.notku CPXkd:BNEnotkd:LDAcy:CMP#24:BEQ nomove:INCcy:JMPnomove
 2700.notkd CPXks:BNEnotks:LDAmon:CMP#5:BCC nomove:LDAcx:LDYcy:JSRgetclr:LDA(&70),Y:BNEnomove:LDA#1:STA(&70),Y:LDAmon:SEC:SBC#5:STAmon:JMPnomove
 2710.notks CPXkc:BNEnomove:LDAcx:LDYcy:JSRgetclr:CMP#1:BNEnomove:LDA#0:STA(&70),Y:INCmon
 2720.nomove LDA#&15:LDX#0:JSRosbyte:LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JMPoswrch
 2730.ballcheck LDAxball:CMPxball+1:BNEnohit:LDAyball:CMPyball+1:BNEnohit:LDA#1:STAhit
 2740.nohit RTS
 2750.setup LDY#0:STY&70:LDA#&11:STA&71:LDA#0
 2760.setlop STA(&70),Y:INY:BNEsetlop:INC&71:LDX&71:CPX#&15:BNEsetlop:STA&BF9:STA&BEF:LDA(&73),Y:TAX:INX:INY
 2770.polop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#128:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#1:STA(&70),Y:LDY&75:DEX:BNE polop
 2780LDA#0:STA&BF2:STA&BF3:LDA(&73),Y:STA&BF4:INY:LDA(&73),Y:STA&BF6:INY:LDA(&73),Y:STA&BF5:INY:LDA(&73),Y:STA&BF7:INY:LDA(&73),Y:TAX:INY:CPX#0:BEQnospike
 2790.spklop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#132:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#2:STA(&70),Y:LDY&75:DEX:BNE spklop
 2800.nospike LDA(&73),Y:TAX:INY:CPX#0:BEQnohard
 2810.hardlop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#133:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#3:STA(&70),Y:LDY&75:DEX:BNE hardlop
 2820.nohard RTS
 2830.getclr PHA:LDA#0:STA&70:LDA#&11:STA&71:PLA:JMPgetad
 2840]:P%=&BEF
 2850[OPT pass
 2860.hit EQUB 0
 2870.cx EQUB 0
 2880.cy EQUB 0
 2890.dir EQUW 0
 2900.xball EQUW 0
 2910.yball EQUW 0
 2920.mon EQUB 0
 2930.dead EQUB 0
 2940.kl EQUS "Z"
 2950.kr EQUS "X"
 2960.ku EQUS "K"
 2970.kd EQUS "M"
 2980.ks EQUS "L"
 2990.kc EQUS " "
 3000]
 3010NEXT
 3020ENDPROC
 3030:
 3040DEFPROCreloc
 3050PRINT"Relocating. . ."
 3060?&78=45
 3070HIMEM=&5800:newpage=&1D
 3080FOR pass=0 TO 2 STEP 2
 3090P%=&C00
 3100[OPTpass
 3110    LDY#0
 3120    STY&70
 3130    STY&72
 3140    LDA#newpage
 3150    SEC
 3160    SBC&18
 3170    STA&74
 3180    LDA&18
 3190    CMP#newpage
 3200    BCCad
 3210.sb STA&71
 3220    LDA#newpage
 3230    STA&73
 3240.m1 LDA(&70),Y
 3250    STA(&72),Y
 3260    INY
 3270    BNEm1
 3280    INC&71
 3290    INC&73
 3300    LDX&71
 3310    DEX
 3320    CPX&03
 3330    BCCm1
 3340    BCSem
 3350.ad LDA&03
 3360    STA&71
 3370    CLC
 3380    ADC&74
 3390    STA&73
 3400    LDA#0
 3410    LDY&02
 3420.m2 LDA(&70),Y
 3430    STA(&72),Y
 3440    DEY
 3450    CPY#&FF
 3460    BNEm2
 3470    DEC&71
 3480    DEC&73
 3490    LDA&73
 3500    CMP#(newpage-1)
 3510    BCSm2
 3520.em LDA&13
 3530    CLC
 3540    ADC&74
 3550    STA&13
 3560    STA&01
 3570    LDA#newpage
 3580    STA&18
 3590    RTS
 3600]
 3610NEXT
 3620VDU 21
 3630OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
 3640END
 3650ENDPROC

� Bounce
� by Dominic Ford 1996
:
(%� � ((?&78=45) � (�=&1D00)) � � 6
2	�init
<_A$="DEL.1330,9999"+�13+"GOTO90"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
F�
P:
Z� � �:�DZ@
d�� 6,23,128,255,66,36,24,24,36,66,255,23,129,0,0,0,0,0,0,0,0,23,130,60,126,255,253,250,245,42,20,23,131,255,129,129,129,129,129,129,255,23,132,24,90,60,255,255,60,90,24,23,133,255,255,255,255,255,255,255,255
n�sound=�:�cl%(3):cl%(0)=2:cl%(1)=5:cl%(2)=6:�1,1,1,5,-2,5,1,5,126,0,0,-126,126,126:�2,1,2,5,1,1,1,1,126,0,0,-126,126,126:�3,1,-1,40,1,1,1,1,126,0,0,-126,126,126
x�1:�23,1,0;0;0;0;
��
�
�title
�#� 19,1,1,0,0,0,0,19,2,4,0,0,0,0
��k$="K"�k$="k"��keys
��k$=" "��game
��k$="Q"�k$="q"
��6:�
�:
�
��game
�"lev%=0:scr%=0:live%=3:?&BF8=15
��
�
�level
�)� live%=-1 � lev%=20 � scr%=scr%+tim%

� lev%=20
� live%=-1 � �gameover:�
�congrat
"�
,:
6��level
@�
J0� 3:�9,16)"Get Ready for Level ";lev%+1;"!"
T�c=0 � 5
^0�col=0 � 7:� sound=� � � 1,2,c*4+col*8+100,1
h� 19,3,col,0,0,0
rnt%=�+4
|
� � �>nt%
��,:�
��
�� 19,3,2,0,0,0
�(tim%=200:lev%=lev%+1:?&BF0=1:?&BF1=1
���0,1:�0,0:�3000,0:�85,0,3000:�0,0:�32,32:�32,96:�85,224,32:�85,224,96:�256,32:�256,96:�85,480,32:�85,480,96:�512,32:�512,96:�85,768,32:�85,768,96
�}�800,32:�800,96:�85,992,32:�85,992,96:�1024,32:�1024,96:�85,1248,32:�85,1248,96:�32,224:�1248,224:�85,32,992:�85,1248,992
��3:�1,1)�131
�?&73=(&14C0+&40*lev%)�256
�?&74=(&14C0+&40*lev%)�256
�
�1:�&1A00
�P�3:�1,29)"Score";�8,29)"Lives";�16,29)"Screen";�25,29)"Time";�32,29)"Money"
��
��3
*�2,30);scr%;�11,30)live%;�19,30)lev%;
(�27,30);tim%;" ";�34,30);?&BF8;"0 "

� � �>nt%
&nt%=�+15:�&AE9
09�?&BF9=0�?&BEF=0�� � �>nt%:nt%=�+15:�&AE9:tim%=tim%-1
:!� tim%=-1 � ?&BEF=1 � ?&BF9=1
D*� tim%<>-1 � ?&BF9=0 � � �:�levelfin:�
Nlive%=live%-1
X� live%=-1 � � �:�
b�:�3:�15,16);
l'�?&BF9=0��"Time Out!"��"Lost Ball!"
v#�c=0 � 5:� sound=� � � 1,3,35,7
��col=0 � 7
�� 19,3,col,0,0,0
�nt%=�+4
�
� � �>nt%
��,:�:lev%=lev%-1
�� �
��
�:
���levelfin
�	�:� 3
�-�4,16);"Congratulations: Level Complete"
�(�c=0 � 4:� sound=� � � 1,1,4+c*48,10
��col=0 � 7
� 19,3,col,0,0,0
nt%=�+4

� � �>nt%
 �,:�:?&BF8=(?&BF8)+15
*�
4:
>��gameover
H	�:� 3
R"�9,16)"That's it: Game Over!"
\�c=0 � 5
f2�col=0 � 7:� sound=� � � 1,2,150-(c*4+col*8),1
p� 19,3,col,0,0,0
znt%=�+4
�
� � �>nt%
��,:�
��
�:
�
��congrat
�	�:� 3
��x=0 � 5
�-�4,16);"Congratulations: Game Complete!"
�(�c=0 � 4:� sound=� � � 1,1,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�nt%=�+4
�
� � �>nt%
	�,,:�
�
:
$��title
.col=0:�
8�&A00:�2
B��17,5)"BOUNCE";�10,8)"by Dominic Ford 1996";�12,14)"SPACE - Start";�16,16)"Q - Quit";�16,18)"S - Sound On/Off";�16,20)"K - Change Keys";�15,25);"Sound: ";:�sound � �"On "��"Off"
L� 23,1,0;0;0;0;:*FX15,1
V�
`nt%=�+10:col=((col+1) � 3)
j� 19,1,cl%(col),0,0,0,0
t#� 19,2,cl%((col+1) � 3),0,0,0,0
~#� 19,3,cl%((col+2) � 3),0,0,0,0
�
� � �>nt%
�k$=�(0)
��k$="S"�k$="s"��sound
� � �" QqKk",k$)<>0 � �(k$)<>0
��
�:
���sound
��sound � sound=� � sound=�
�$�22,25);:�sound � �"On "��"Off"
��
�:
�
��keys
�23,1,1,0;0;0;0;

Q�:�"Please select new keys:"''"Left:"'"Right:"'"Up:"'"Down:"'"Wall:"'"Clear:"
/�k=0�5:�8,2+k);:k$=�:�k$:?(&BFA+k)=�(k$):�
�23,1,0;0;0;0;:k$=""
(�
2:
<� Level Data
F
� Level 1
Pu� 17,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9,14,9,15,9,16,9,17,8,18,9,19,8,8,1,19,1,1,17,10,1,2,2,255
Z:
d
� Level 2
nO� 10,5,5,6,6,7,5,11,5,12,6,13,5,7,8,8,9,10,9,11,8,9,12,6,1,12,1,0,1,9,8,255
x:
�
� Level 3
�z� 13,5,5,6,6,7,6,8,6,9,6,10,5,12,5,13,6,14,6,15,6,16,6,17,5,9,9,13,9,9,1,13,2,6,11,5,11,6,10,10,14,8,10,10,12,10,0,255
�:
�
� Level 4
��� 11,5,5,6,6,7,6,8,6,9,6,10,5,12,5,13,6,14,6,15,6,16,6,17,5,6,1,16,1,7,11,5,11,6,11,7,10,8,9,7,12,8,13,7,7,8,9,9,10,10,10,11,10,12,10,13,10,14,9,255
�:
�
� Level 5
�;� 4,5,5,9,5,6,9,7,9,8,9,6,1,8,1,1,7,6,3,6,6,7,5,8,6,255
�:
�
� Level 6
�X� 6,5,5,6,6,7,5,4,7,5,8,4,11,5,12,6,1,9,1,1,10,12,6,6,10,7,9,8,10,7,13,8,14,9,13,255
�:
�
� Level 7
�� 3,7,5,8,6,10,6,11,5,9,1,11,1,10,5,8,5,9,5,10,5,11,7,12,9,8,9,9,9,10,9,11,11,12,11,7,8,7,9,7,11,7,11,11,8,11,9,11,10,11,11,8,13,10,13,9,5,255
:

� Level 8
"�� 14,5,5,5,6,6,6,10,6,11,6,11,5,5,9,5,10,6,11,7,12,8,14,9,12,10,11,11,10,11,9,8,1,11,1,0,9,7,6,8,5,9,6,8,9,8,10,8,11,8,12,8,13,8,15,255
,:
6
� Level 9
@�� 12,8,5,9,6,11,5,12,6,13,5,5,9,5,10,7,9,7,10,9,9,9,10,11,9,11,10,9,1,12,1,3,10,6,8,12,8,13,5,6,12,6,13,10,12,10,13,10,5,255
J:
T� Level 10
^�� 17,5,5,6,6,7,7,8,8,9,9,10,10,8,5,9,6,10,5,14,5,15,6,16,5,14,10,15,9,16,8,17,7,18,6,19,5,9,1,15,1,9,12,5,12,6,12,9,12,10,12,12,11,13,13,13,14,13,15,13,0,255
h:
r� Level 11
|m� 10,5,6,6,5,6,7,7,6,9,6,10,5,10,7,11,6,8,9,8,10,8,11,7,1,9,1,7,8,6,6,8,8,8,10,8,7,12,8,12,9,12,1,8,5,255
�:
�� Level 12
�x� 12,5,6,6,5,6,7,10,5,11,6,10,7,5,13,6,13,7,13,8,13,9,13,10,13,11,13,7,1,9,1,4,6,8,10,8,4,12,12,12,3,7,6,8,5,9,6,255
�:
�� Level 13
��� 6,5,5,7,5,8,12,9,13,10,13,10,12,11,13,6,1,9,12,5,5,6,12,12,10,10,10,11,10,9,11,6,6,7,7,8,7,9,7,10,7,11,6,12,8,13,8,14,8,15,8,16,7,255
�:
�� Level 14
�P� 10,5,5,6,6,7,6,8,6,9,6,10,5,11,6,12,6,13,6,14,6,15,5,9,1,14,1,1,10,6,0,255
�:
�� Level 15
�� 26,5,5,6,6,7,7,8,8,9,9,10,10,7,5,8,6,9,7,10,8,11,9,12,10,12,8,13,9,14,10,14,8,15,9,16,10,17,9,18,8,19,7,20,6,21,5,16,8,17,7,18,6,19,5,6,1,20,1,0,0,255
�:
� Level 16
�� 17,5,5,6,6,7,5,10,5,11,6,12,5,5,9,12,9,13,8,13,12,14,11,5,14,11,14,12,14,6,16,7,16,8,18,9,19,6,1,11,1,5,6,7,7,8,10,8,11,12,4,12,5,7,11,6,12,8,14,9,14,10,14,0
:
&� Level 17
0q� 5,9,6,10,7,11,6,12,5,13,6,14,5,12,1,13,1,8,12,6,13,8,9,9,10,9,11,9,12,9,13,9,14,9,5,5,6,6,7,7,7,8,7,9,7,255
::
D� Level 18
N�� 10,1,8,2,9,3,9,4,9,5,9,14,8,15,9,16,9,17,9,18,9,19,8,5,1,11,1,6,6,10,7,11,9,9,11,9,14,10,13,11,10,4,1,5,2,6,6,7,6,8,6,9,6,10,5,11,6,12,6,13,6,14,6,0
X:
b� Level 19
l�� 8,7,5,13,5,7,12,8,13,9,13,10,13,11,13,12,13,13,12,6,1,14,1,7,10,6,10,7,10,8,10,9,9,10,10,10,11,10,9,5,5,6,6,7,7,8,6,12,6,13,7,14,6,15,5,10,5,255
v:
�� Level 20
��� 19,5,5,6,6,7,5,12,5,13,6,14,5,8,10,16,10,9,12,10,13,13,13,14,14,9,16,16,15,15,16,10,18,11,19,12,19,13,19,14,18,6,1,13,1,7,13,8,14,9,11,11,15,12,12,13,13,16,11,15,0
�:
�	�-999
�:
�
��init
�=� � ((?&78=45) � (�=&1D00)) � �'"Please Wait. . ."':*TAPE
�� �<>&1D00 � �reloc
�� 6,11,23,1,0;0;0;0;
��"Calculating sphere. . ."
�P%=&D00:p=0
��x=-78.75 � 90 � 11.25
�#�y=22.5 � 180 � 22.5:p=p+.78125

[OPT 2
1EQUW �(480*�(�*(x-11.25)/180)*�(�*y/180)+640)
!EQUW �(60+(�(�*y/180)+1)*450)
 )EQUW �(480*�(�*x/180)*�(�*y/180)+640)
*!EQUW �(60+(�(�*y/180)+1)*450)
4]
>�24,4)�(p);"%"
H�,
R�23,1,1;0;0;0;0;
\&�"Moving level data. . .":ad=&1500
f�
p� d
z� d<>-999 � ?ad=d:ad=ad+1
�!� d=255 � ad=(ad+&40) � &FFC0
�� d<>-999 � � �
�� �
�%�"Assembling code. . .":�assemble
� �"Removing source code. . ."
��
�:
���assemble
�oswrch=&FFEE
�osbyte=&FFF4
�� pass=0 � 2 � 2
�P%=&A00
�
[OPT pass
	l.sphere LDY#1:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDA#1:JSRoswrch
	$.point LDY #0:TXA:�#7:BEQnewxval
	�LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
	$HINX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
	.7.newxval LDAcol:CLC:ADC#1:�#3:BNEnotblack:CLC:ADC#1
	8F.notblack STAcol:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDAcol:JSRoswrch
	BnLDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
	LFLDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
	V<INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
	`y.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
	j.col EQUB 0
	t
]:P%=&AE9
	~[OPTpass
	�	LDX#0
	�B.ballop LDAxball,X:CMPcx:BNEballon:LDAyball,X:CMPcy:BEQballoff
	�y.ballon LDA#17:JSRoswrch:LDA#2:JSRoswrch:LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#129:JSRoswrch
	��.balloff LDAyball,X:CMP#24:BEQdie:LDA#&28:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:�#1:BNEnodown:INCyball,X:JMPdoneball
	��.nodown LDAxball,X:CMP#1:BEQdie:LDAdir,X:CMP#0:BNEnoleft:LDA#&FF:STA&70:LDA#&10:STA&71:LDAxball,X:LDYyball,X:JSRgetad:�#1:BNEnoleft:DECxball,X:JMPdoneball
	�.die LDA#1:STAdead:RTS
	ğ.noleft LDAxball,X:CMP#38:BEQdie:LDAdir,X:CMP#1:BNEnoright:LDA#1:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:�#1:BNEnoright:INCxball,X:JMPdoneball
	�".noright LDAdir,X:�#1:STAdir,X
	�D.doneball LDAxball,X:CMPcx:BNEballd:LDAyball,X:CMPcy:BEQnextball
	�W.balld LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#130:JSRoswrch
	�i.nextball LDA#0:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:CMP#2:BNEnextballb:LDA#1:STAdead
	�N.nextballb JSRballcheck:INX:CPX#2:BNE ballopt:JMPcursor:.ballopt JMPballop
]:P%=&1A00


[OPT pass
JMPsetup
S.getad CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71:TYA:ASL A:ASL A:ASL A:STA&72:LDY#0
(a.getlop LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC#0:STA&71:INY:CPY#5:BNEgetlop:LDY#0:LDA(&70),Y:RTS
2�.cursor LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#1:BEQblock:CMP#2:BEQspike:CMP#3:BEQhardb:LDA#129:JSRoswrch:JMPcurdel
<G.block LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#128:JSRoswrch:JMPcurdel
FG.spike LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#132:JSRoswrch:JMPcurdel
P=.hardb LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#133:JSRoswrch
ZG.curdel LDA#&81:LDX#0:LDY#0:JSRosbyte:BCCkeypro:.nomovet JMP nomove
dC.keypro CPXkl:BNEnotkl:LDAcx:CMP#1:BEQ nomovet:DECcx:JMPnomovet
nB.notkl CPXkr:BNEnotkr:LDAcx:CMP#38:BEQ nomove:INCcx:JMPnomovet
xA.notkr CPXku:BNEnotku:LDAcy:CMP#1:BEQ nomove:DECcy:JMPnomovet
�A.notku CPXkd:BNEnotkd:LDAcy:CMP#24:BEQ nomove:INCcy:JMPnomove
��.notkd CPXks:BNEnotks:LDAmon:CMP#5:BCC nomove:LDAcx:LDYcy:JSRgetclr:LDA(&70),Y:BNEnomove:LDA#1:STA(&70),Y:LDAmon:SEC:SBC#5:STAmon:JMPnomove
�X.notks CPXkc:BNEnomove:LDAcx:LDYcy:JSRgetclr:CMP#1:BNEnomove:LDA#0:STA(&70),Y:INCmon
��.nomove LDA#&15:LDX#0:JSRosbyte:LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JMPoswrch
�U.ballcheck LDAxball:CMPxball+1:BNEnohit:LDAyball:CMPyball+1:BNEnohit:LDA#1:STAhit
�.nohit RTS
�,.setup LDY#0:STY&70:LDA#&11:STA&71:LDA#0
�k.setlop STA(&70),Y:INY:BNEsetlop:INC&71:LDX&71:CPX#&15:BNEsetlop:STA&BF9:STA&BEF:LDA(&73),Y:TAX:INX:INY
Ҫ.polop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#128:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#1:STA(&70),Y:LDY&75:DEX:BNE polop
ܙLDA#0:STA&BF2:STA&BF3:LDA(&73),Y:STA&BF4:INY:LDA(&73),Y:STA&BF6:INY:LDA(&73),Y:STA&BF5:INY:LDA(&73),Y:STA&BF7:INY:LDA(&73),Y:TAX:INY:CPX#0:BEQnospike
�.spklop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#132:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#2:STA(&70),Y:LDY&75:DEX:BNE spklop
�/.nospike LDA(&73),Y:TAX:INY:CPX#0:BEQnohard
��.hardlop LDA#31:JSRoswrch:LDA(&73),Y:PHA:JSRoswrch:INY:LDA(&73),Y:PHA:JSRoswrch:INY:STY&75:LDA#133:JSRoswrch:PLA:TAY:PLA:JSRgetclr:LDA#3:STA(&70),Y:LDY&75:DEX:BNE hardlop
.nohard RTS
8.getclr PHA:LDA#0:STA&70:LDA#&11:STA&71:PLA:JMPgetad

]:P%=&BEF
"
[OPT pass
,.hit EQUB 0
6.cx EQUB 0
@.cy EQUB 0
J.dir EQUW 0
T.xball EQUW 0
^.yball EQUW 0
h.mon EQUB 0
r.dead EQUB 0
|.kl EQUS "Z"
�.kr EQUS "X"
�.ku EQUS "K"
�.kd EQUS "M"
�.ks EQUS "L"
�.kc EQUS " "
�]
��
��
�:
���reloc
��"Relocating. . ."
�?&78=45
��=&5800:newpage=&1D
� pass=0 � 2 � 2
P%=&C00
[OPTpass
&
    LDY#0
0    STY&70
:    STY&72
D    LDA#newpage
N    SEC
X    SBC&18
b    STA&74
l    LDA&18
v    CMP#newpage
�
    BCCad
�.sb STA&71
�    LDA#newpage
�    STA&73
�.m1 LDA(&70),Y
�    STA(&72),Y
�    INY
�
    BNEm1
�    INC&71
�    INC&73
�    LDX&71
�    DEX
�    CPX&03


    BCCm1


    BCSem

.ad LDA&03

     STA&71

*    CLC

4    ADC&74

>    STA&73

H
    LDA#0

R    LDY&02

\.m2 LDA(&70),Y

f    STA(&72),Y

p    DEY

z    CPY#&FF

�
    BNEm2

�    DEC&71

�    DEC&73

�    LDA&73

�    CMP#(newpage-1)

�
    BCSm2

�.em LDA&13

�    CLC

�    ADC&74

�    STA&13

�    STA&01

�    LDA#newpage

�    STA&18
    RTS
]
�
$� 21
.1�"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"
8�
B�
�
00000000  0d 00 0a 0c f4 20 42 6f  75 6e 63 65 0d 00 14 1a  |..... Bounce....|
00000010  f4 20 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |. by Dominic For|
00000020  64 20 31 39 39 36 0d 00  1e 05 3a 0d 00 28 25 e7  |d 1996....:..(%.|
00000030  20 ac 20 28 28 3f 26 37  38 3d 34 35 29 20 80 20  | . ((?&78=45) . |
00000040  28 90 3d 26 31 44 30 30  29 29 20 8c 20 eb 20 36  |(.=&1D00)) . . 6|
00000050  0d 00 32 09 f2 69 6e 69  74 0d 00 3c 5f 41 24 3d  |..2..init..<_A$=|
00000060  22 44 45 4c 2e 31 33 33  30 2c 39 39 39 39 22 2b  |"DEL.1330,9999"+|
00000070  bd 31 33 2b 22 47 4f 54  4f 39 30 22 2b bd 36 2b  |.13+"GOTO90"+.6+|
00000080  bd 31 33 3a ef 32 31 3a  e3 20 63 68 61 72 3d 31  |.13:.21:. char=1|
00000090  20 b8 20 a9 28 41 24 29  3a ff 22 46 58 31 33 38  | . .(A$):."FX138|
000000a0  2c 30 2c 22 2b c3 28 97  28 c1 41 24 2c 63 68 61  |,0,"+.(.(.A$,cha|
000000b0  72 2c 31 29 29 29 3a ed  0d 00 46 05 e0 0d 00 50  |r,1))):...F....P|
000000c0  05 3a 0d 00 5a 0f ee 20  85 20 d8 3a e5 8d 44 5a  |.:..Z.. . .:..DZ|
000000d0  40 0d 00 64 d2 ef 20 36  2c 32 33 2c 31 32 38 2c  |@..d.. 6,23,128,|
000000e0  32 35 35 2c 36 36 2c 33  36 2c 32 34 2c 32 34 2c  |255,66,36,24,24,|
000000f0  33 36 2c 36 36 2c 32 35  35 2c 32 33 2c 31 32 39  |36,66,255,23,129|
00000100  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00000110  2c 32 33 2c 31 33 30 2c  36 30 2c 31 32 36 2c 32  |,23,130,60,126,2|
00000120  35 35 2c 32 35 33 2c 32  35 30 2c 32 34 35 2c 34  |55,253,250,245,4|
00000130  32 2c 32 30 2c 32 33 2c  31 33 31 2c 32 35 35 2c  |2,20,23,131,255,|
00000140  31 32 39 2c 31 32 39 2c  31 32 39 2c 31 32 39 2c  |129,129,129,129,|
00000150  31 32 39 2c 31 32 39 2c  32 35 35 2c 32 33 2c 31  |129,129,255,23,1|
00000160  33 32 2c 32 34 2c 39 30  2c 36 30 2c 32 35 35 2c  |32,24,90,60,255,|
00000170  32 35 35 2c 36 30 2c 39  30 2c 32 34 2c 32 33 2c  |255,60,90,24,23,|
00000180  31 33 33 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |133,255,255,255,|
00000190  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000001a0  32 35 35 0d 00 6e a3 73  6f 75 6e 64 3d b9 3a de  |255..n.sound=.:.|
000001b0  63 6c 25 28 33 29 3a 63  6c 25 28 30 29 3d 32 3a  |cl%(3):cl%(0)=2:|
000001c0  63 6c 25 28 31 29 3d 35  3a 63 6c 25 28 32 29 3d  |cl%(1)=5:cl%(2)=|
000001d0  36 3a e2 31 2c 31 2c 31  2c 35 2c 2d 32 2c 35 2c  |6:.1,1,1,5,-2,5,|
000001e0  31 2c 35 2c 31 32 36 2c  30 2c 30 2c 2d 31 32 36  |1,5,126,0,0,-126|
000001f0  2c 31 32 36 2c 31 32 36  3a e2 32 2c 31 2c 32 2c  |,126,126:.2,1,2,|
00000200  35 2c 31 2c 31 2c 31 2c  31 2c 31 32 36 2c 30 2c  |5,1,1,1,1,126,0,|
00000210  30 2c 2d 31 32 36 2c 31  32 36 2c 31 32 36 3a e2  |0,-126,126,126:.|
00000220  33 2c 31 2c 2d 31 2c 34  30 2c 31 2c 31 2c 31 2c  |3,1,-1,40,1,1,1,|
00000230  31 2c 31 32 36 2c 30 2c  30 2c 2d 31 32 36 2c 31  |1,126,0,0,-126,1|
00000240  32 36 2c 31 32 36 0d 00  78 15 eb 31 3a ef 32 33  |26,126..x..1:.23|
00000250  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 82 05 f5  |,1,0;0;0;0;.....|
00000260  0d 00 8c 0a f2 74 69 74  6c 65 0d 00 96 23 ef 20  |.....title...#. |
00000270  31 39 2c 31 2c 31 2c 30  2c 30 2c 30 2c 30 2c 31  |19,1,1,0,0,0,0,1|
00000280  39 2c 32 2c 34 2c 30 2c  30 2c 30 2c 30 0d 00 a0  |9,2,4,0,0,0,0...|
00000290  18 e7 6b 24 3d 22 4b 22  84 6b 24 3d 22 6b 22 8c  |..k$="K".k$="k".|
000002a0  f2 6b 65 79 73 0d 00 aa  11 e7 6b 24 3d 22 20 22  |.keys.....k$=" "|
000002b0  8c f2 67 61 6d 65 0d 00  b4 12 fd 6b 24 3d 22 51  |..game.....k$="Q|
000002c0  22 84 6b 24 3d 22 71 22  0d 00 be 08 eb 36 3a e0  |".k$="q".....6:.|
000002d0  0d 00 c8 05 3a 0d 00 d2  0a dd f2 67 61 6d 65 0d  |....:......game.|
000002e0  00 dc 22 6c 65 76 25 3d  30 3a 73 63 72 25 3d 30  |.."lev%=0:scr%=0|
000002f0  3a 6c 69 76 65 25 3d 33  3a 3f 26 42 46 38 3d 31  |:live%=3:?&BF8=1|
00000300  35 0d 00 e6 05 f5 0d 00  f0 0a f2 6c 65 76 65 6c  |5..........level|
00000310  0d 00 fa 29 e7 20 6c 69  76 65 25 3d 2d 31 20 8c  |...). live%=-1 .|
00000320  20 6c 65 76 25 3d 32 30  20 8b 20 73 63 72 25 3d  | lev%=20 . scr%=|
00000330  73 63 72 25 2b 74 69 6d  25 0d 01 04 0d fd 20 6c  |scr%+tim%..... l|
00000340  65 76 25 3d 32 30 0d 01  0e 1c e7 20 6c 69 76 65  |ev%=20..... live|
00000350  25 3d 2d 31 20 8c 20 f2  67 61 6d 65 6f 76 65 72  |%=-1 . .gameover|
00000360  3a e1 0d 01 18 0c f2 63  6f 6e 67 72 61 74 0d 01  |:......congrat..|
00000370  22 05 e1 0d 01 2c 05 3a  0d 01 36 0b dd f2 6c 65  |"....,.:..6...le|
00000380  76 65 6c 0d 01 40 05 db  0d 01 4a 30 fb 20 33 3a  |vel..@....J0. 3:|
00000390  f1 8a 39 2c 31 36 29 22  47 65 74 20 52 65 61 64  |..9,16)"Get Read|
000003a0  79 20 66 6f 72 20 4c 65  76 65 6c 20 22 3b 6c 65  |y for Level ";le|
000003b0  76 25 2b 31 3b 22 21 22  0d 01 54 0c e3 63 3d 30  |v%+1;"!"..T..c=0|
000003c0  20 b8 20 35 0d 01 5e 30  e3 63 6f 6c 3d 30 20 b8  | . 5..^0.col=0 .|
000003d0  20 37 3a e7 20 73 6f 75  6e 64 3d b9 20 8c 20 d4  | 7:. sound=. . .|
000003e0  20 31 2c 32 2c 63 2a 34  2b 63 6f 6c 2a 38 2b 31  | 1,2,c*4+col*8+1|
000003f0  30 30 2c 31 0d 01 68 14  ef 20 31 39 2c 33 2c 63  |00,1..h.. 19,3,c|
00000400  6f 6c 2c 30 2c 30 2c 30  0d 01 72 0b 6e 74 25 3d  |ol,0,0,0..r.nt%=|
00000410  91 2b 34 0d 01 7c 0d f5  20 fd 20 91 3e 6e 74 25  |.+4..|.. . .>nt%|
00000420  0d 01 86 08 ed 2c 3a db  0d 01 90 05 f5 0d 01 9a  |.....,:.........|
00000430  12 ef 20 31 39 2c 33 2c  32 2c 30 2c 30 2c 30 0d  |.. 19,3,2,0,0,0.|
00000440  01 a4 28 74 69 6d 25 3d  32 30 30 3a 6c 65 76 25  |..(tim%=200:lev%|
00000450  3d 6c 65 76 25 2b 31 3a  3f 26 42 46 30 3d 31 3a  |=lev%+1:?&BF0=1:|
00000460  3f 26 42 46 31 3d 31 0d  01 ae 95 e6 30 2c 31 3a  |?&BF1=1.....0,1:|
00000470  ec 30 2c 30 3a ec 33 30  30 30 2c 30 3a f0 38 35  |.0,0:.3000,0:.85|
00000480  2c 30 2c 33 30 30 30 3a  e6 30 2c 30 3a ec 33 32  |,0,3000:.0,0:.32|
00000490  2c 33 32 3a ec 33 32 2c  39 36 3a f0 38 35 2c 32  |,32:.32,96:.85,2|
000004a0  32 34 2c 33 32 3a f0 38  35 2c 32 32 34 2c 39 36  |24,32:.85,224,96|
000004b0  3a ec 32 35 36 2c 33 32  3a ec 32 35 36 2c 39 36  |:.256,32:.256,96|
000004c0  3a f0 38 35 2c 34 38 30  2c 33 32 3a f0 38 35 2c  |:.85,480,32:.85,|
000004d0  34 38 30 2c 39 36 3a ec  35 31 32 2c 33 32 3a ec  |480,96:.512,32:.|
000004e0  35 31 32 2c 39 36 3a f0  38 35 2c 37 36 38 2c 33  |512,96:.85,768,3|
000004f0  32 3a f0 38 35 2c 37 36  38 2c 39 36 0d 01 b8 7d  |2:.85,768,96...}|
00000500  ec 38 30 30 2c 33 32 3a  ec 38 30 30 2c 39 36 3a  |.800,32:.800,96:|
00000510  f0 38 35 2c 39 39 32 2c  33 32 3a f0 38 35 2c 39  |.85,992,32:.85,9|
00000520  39 32 2c 39 36 3a ec 31  30 32 34 2c 33 32 3a ec  |92,96:.1024,32:.|
00000530  31 30 32 34 2c 39 36 3a  f0 38 35 2c 31 32 34 38  |1024,96:.85,1248|
00000540  2c 33 32 3a f0 38 35 2c  31 32 34 38 2c 39 36 3a  |,32:.85,1248,96:|
00000550  ec 33 32 2c 32 32 34 3a  ec 31 32 34 38 2c 32 32  |.32,224:.1248,22|
00000560  34 3a f0 38 35 2c 33 32  2c 39 39 32 3a f0 38 35  |4:.85,32,992:.85|
00000570  2c 31 32 34 38 2c 39 39  32 0d 01 c2 11 fb 33 3a  |,1248,992.....3:|
00000580  f1 8a 31 2c 31 29 bd 31  33 31 0d 01 cc 1d 3f 26  |..1,1).131....?&|
00000590  37 33 3d 28 26 31 34 43  30 2b 26 34 30 2a 6c 65  |73=(&14C0+&40*le|
000005a0  76 25 29 83 32 35 36 0d  01 d6 1d 3f 26 37 34 3d  |v%).256....?&74=|
000005b0  28 26 31 34 43 30 2b 26  34 30 2a 6c 65 76 25 29  |(&14C0+&40*lev%)|
000005c0  81 32 35 36 0d 01 e0 0d  fb 31 3a d6 26 31 41 30  |.256.....1:.&1A0|
000005d0  30 0d 01 ea 50 fb 33 3a  f1 8a 31 2c 32 39 29 22  |0...P.3:..1,29)"|
000005e0  53 63 6f 72 65 22 3b 8a  38 2c 32 39 29 22 4c 69  |Score";.8,29)"Li|
000005f0  76 65 73 22 3b 8a 31 36  2c 32 39 29 22 53 63 72  |ves";.16,29)"Scr|
00000600  65 65 6e 22 3b 8a 32 35  2c 32 39 29 22 54 69 6d  |een";.25,29)"Tim|
00000610  65 22 3b 8a 33 32 2c 32  39 29 22 4d 6f 6e 65 79  |e";.32,29)"Money|
00000620  22 0d 01 f4 05 f5 0d 01  fe 06 fb 33 0d 02 08 2a  |"..........3...*|
00000630  f1 8a 32 2c 33 30 29 3b  73 63 72 25 3b 8a 31 31  |..2,30);scr%;.11|
00000640  2c 33 30 29 6c 69 76 65  25 3b 8a 31 39 2c 33 30  |,30)live%;.19,30|
00000650  29 6c 65 76 25 3b 0d 02  12 28 f1 8a 32 37 2c 33  |)lev%;...(..27,3|
00000660  30 29 3b 74 69 6d 25 3b  22 20 22 3b 8a 33 34 2c  |0);tim%;" ";.34,|
00000670  33 30 29 3b 3f 26 42 46  38 3b 22 30 20 22 0d 02  |30);?&BF8;"0 "..|
00000680  1c 0d f5 20 fd 20 91 3e  6e 74 25 0d 02 26 12 6e  |... . .>nt%..&.n|
00000690  74 25 3d 91 2b 31 35 3a  d6 26 41 45 39 0d 02 30  |t%=.+15:.&AE9..0|
000006a0  39 e7 3f 26 42 46 39 3d  30 80 3f 26 42 45 46 3d  |9.?&BF9=0.?&BEF=|
000006b0  30 8c f5 20 fd 20 91 3e  6e 74 25 3a 6e 74 25 3d  |0.. . .>nt%:nt%=|
000006c0  91 2b 31 35 3a d6 26 41  45 39 3a 74 69 6d 25 3d  |.+15:.&AE9:tim%=|
000006d0  74 69 6d 25 2d 31 0d 02  3a 21 fd 20 74 69 6d 25  |tim%-1..:!. tim%|
000006e0  3d 2d 31 20 84 20 3f 26  42 45 46 3d 31 20 84 20  |=-1 . ?&BEF=1 . |
000006f0  3f 26 42 46 39 3d 31 0d  02 44 2a e7 20 74 69 6d  |?&BF9=1..D*. tim|
00000700  25 3c 3e 2d 31 20 80 20  3f 26 42 46 39 3d 30 20  |%<>-1 . ?&BF9=0 |
00000710  8c 20 fd 20 b9 3a f2 6c  65 76 65 6c 66 69 6e 3a  |. . .:.levelfin:|
00000720  e1 0d 02 4e 11 6c 69 76  65 25 3d 6c 69 76 65 25  |...N.live%=live%|
00000730  2d 31 0d 02 58 16 e7 20  6c 69 76 65 25 3d 2d 31  |-1..X.. live%=-1|
00000740  20 8c 20 fd 20 b9 3a e1  0d 02 62 12 db 3a fb 33  | . . .:...b..:.3|
00000750  3a f1 8a 31 35 2c 31 36  29 3b 0d 02 6c 27 e7 3f  |:..15,16);..l'.?|
00000760  26 42 46 39 3d 30 8c f1  22 54 69 6d 65 20 4f 75  |&BF9=0.."Time Ou|
00000770  74 21 22 8b f1 22 4c 6f  73 74 20 42 61 6c 6c 21  |t!".."Lost Ball!|
00000780  22 0d 02 76 23 e3 63 3d  30 20 b8 20 35 3a e7 20  |"..v#.c=0 . 5:. |
00000790  73 6f 75 6e 64 3d b9 20  8c 20 d4 20 31 2c 33 2c  |sound=. . . 1,3,|
000007a0  33 35 2c 37 0d 02 80 0e  e3 63 6f 6c 3d 30 20 b8  |35,7.....col=0 .|
000007b0  20 37 0d 02 8a 14 ef 20  31 39 2c 33 2c 63 6f 6c  | 7..... 19,3,col|
000007c0  2c 30 2c 30 2c 30 0d 02  94 0b 6e 74 25 3d 91 2b  |,0,0,0....nt%=.+|
000007d0  34 0d 02 9e 0d f5 20 fd  20 91 3e 6e 74 25 0d 02  |4..... . .>nt%..|
000007e0  a8 14 ed 2c 3a db 3a 6c  65 76 25 3d 6c 65 76 25  |...,:.:lev%=lev%|
000007f0  2d 31 0d 02 b2 07 fd 20  a3 0d 02 bc 05 e1 0d 02  |-1..... ........|
00000800  c6 05 3a 0d 02 d0 0e dd  f2 6c 65 76 65 6c 66 69  |..:......levelfi|
00000810  6e 0d 02 da 09 db 3a fb  20 33 0d 02 e4 2d f1 8a  |n.....:. 3...-..|
00000820  34 2c 31 36 29 3b 22 43  6f 6e 67 72 61 74 75 6c  |4,16);"Congratul|
00000830  61 74 69 6f 6e 73 3a 20  4c 65 76 65 6c 20 43 6f  |ations: Level Co|
00000840  6d 70 6c 65 74 65 22 0d  02 ee 28 e3 63 3d 30 20  |mplete"...(.c=0 |
00000850  b8 20 34 3a e7 20 73 6f  75 6e 64 3d b9 20 8c 20  |. 4:. sound=. . |
00000860  d4 20 31 2c 31 2c 34 2b  63 2a 34 38 2c 31 30 0d  |. 1,1,4+c*48,10.|
00000870  02 f8 0e e3 63 6f 6c 3d  30 20 b8 20 37 0d 03 02  |....col=0 . 7...|
00000880  14 ef 20 31 39 2c 33 2c  63 6f 6c 2c 30 2c 30 2c  |.. 19,3,col,0,0,|
00000890  30 0d 03 0c 0b 6e 74 25  3d 91 2b 34 0d 03 16 0d  |0....nt%=.+4....|
000008a0  f5 20 fd 20 91 3e 6e 74  25 0d 03 20 19 ed 2c 3a  |. . .>nt%.. ..,:|
000008b0  db 3a 3f 26 42 46 38 3d  28 3f 26 42 46 38 29 2b  |.:?&BF8=(?&BF8)+|
000008c0  31 35 0d 03 2a 05 e1 0d  03 34 05 3a 0d 03 3e 0e  |15..*....4.:..>.|
000008d0  dd f2 67 61 6d 65 6f 76  65 72 0d 03 48 09 db 3a  |..gameover..H..:|
000008e0  fb 20 33 0d 03 52 22 f1  8a 39 2c 31 36 29 22 54  |. 3..R"..9,16)"T|
000008f0  68 61 74 27 73 20 69 74  3a 20 47 61 6d 65 20 4f  |hat's it: Game O|
00000900  76 65 72 21 22 0d 03 5c  0c e3 63 3d 30 20 b8 20  |ver!"..\..c=0 . |
00000910  35 0d 03 66 32 e3 63 6f  6c 3d 30 20 b8 20 37 3a  |5..f2.col=0 . 7:|
00000920  e7 20 73 6f 75 6e 64 3d  b9 20 8c 20 d4 20 31 2c  |. sound=. . . 1,|
00000930  32 2c 31 35 30 2d 28 63  2a 34 2b 63 6f 6c 2a 38  |2,150-(c*4+col*8|
00000940  29 2c 31 0d 03 70 14 ef  20 31 39 2c 33 2c 63 6f  |),1..p.. 19,3,co|
00000950  6c 2c 30 2c 30 2c 30 0d  03 7a 0b 6e 74 25 3d 91  |l,0,0,0..z.nt%=.|
00000960  2b 34 0d 03 84 0d f5 20  fd 20 91 3e 6e 74 25 0d  |+4..... . .>nt%.|
00000970  03 8e 08 ed 2c 3a db 0d  03 98 05 e1 0d 03 a2 05  |....,:..........|
00000980  3a 0d 03 ac 0d dd f2 63  6f 6e 67 72 61 74 0d 03  |:......congrat..|
00000990  b6 09 db 3a fb 20 33 0d  03 c0 0c e3 78 3d 30 20  |...:. 3.....x=0 |
000009a0  b8 20 35 0d 03 ca 2d f1  8a 34 2c 31 36 29 3b 22  |. 5...-..4,16);"|
000009b0  43 6f 6e 67 72 61 74 75  6c 61 74 69 6f 6e 73 3a  |Congratulations:|
000009c0  20 47 61 6d 65 20 43 6f  6d 70 6c 65 74 65 21 22  | Game Complete!"|
000009d0  0d 03 d4 28 e3 63 3d 30  20 b8 20 34 3a e7 20 73  |...(.c=0 . 4:. s|
000009e0  6f 75 6e 64 3d b9 20 8c  20 d4 20 31 2c 31 2c 34  |ound=. . . 1,1,4|
000009f0  2b 63 2a 34 38 2c 31 30  0d 03 de 0e e3 63 6f 6c  |+c*48,10.....col|
00000a00  3d 30 20 b8 20 37 0d 03  e8 14 ef 20 31 39 2c 33  |=0 . 7..... 19,3|
00000a10  2c 63 6f 6c 2c 30 2c 30  2c 30 0d 03 f2 0b 6e 74  |,col,0,0,0....nt|
00000a20  25 3d 91 2b 34 0d 03 fc  0d f5 20 fd 20 91 3e 6e  |%=.+4..... . .>n|
00000a30  74 25 0d 04 06 09 ed 2c  2c 3a db 0d 04 10 05 e1  |t%.....,,:......|
00000a40  0d 04 1a 05 3a 0d 04 24  0b dd f2 74 69 74 6c 65  |....:..$...title|
00000a50  0d 04 2e 0b 63 6f 6c 3d  30 3a db 0d 04 38 0c d6  |....col=0:...8..|
00000a60  26 41 30 30 3a fb 32 0d  04 42 b6 f1 8a 31 37 2c  |&A00:.2..B...17,|
00000a70  35 29 22 42 4f 55 4e 43  45 22 3b 8a 31 30 2c 38  |5)"BOUNCE";.10,8|
00000a80  29 22 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |)"by Dominic For|
00000a90  64 20 31 39 39 36 22 3b  8a 31 32 2c 31 34 29 22  |d 1996";.12,14)"|
00000aa0  53 50 41 43 45 20 2d 20  53 74 61 72 74 22 3b 8a  |SPACE - Start";.|
00000ab0  31 36 2c 31 36 29 22 51  20 2d 20 51 75 69 74 22  |16,16)"Q - Quit"|
00000ac0  3b 8a 31 36 2c 31 38 29  22 53 20 2d 20 53 6f 75  |;.16,18)"S - Sou|
00000ad0  6e 64 20 4f 6e 2f 4f 66  66 22 3b 8a 31 36 2c 32  |nd On/Off";.16,2|
00000ae0  30 29 22 4b 20 2d 20 43  68 61 6e 67 65 20 4b 65  |0)"K - Change Ke|
00000af0  79 73 22 3b 8a 31 35 2c  32 35 29 3b 22 53 6f 75  |ys";.15,25);"Sou|
00000b00  6e 64 3a 20 22 3b 3a e7  73 6f 75 6e 64 20 8c 20  |nd: ";:.sound . |
00000b10  f1 22 4f 6e 20 22 8b f1  22 4f 66 66 22 0d 04 4c  |."On ".."Off"..L|
00000b20  1b ef 20 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |.. 23,1,0;0;0;0;|
00000b30  3a 2a 46 58 31 35 2c 31  0d 04 56 05 f5 0d 04 60  |:*FX15,1..V....`|
00000b40  1e 6e 74 25 3d 91 2b 31  30 3a 63 6f 6c 3d 28 28  |.nt%=.+10:col=((|
00000b50  63 6f 6c 2b 31 29 20 83  20 33 29 0d 04 6a 1b ef  |col+1) . 3)..j..|
00000b60  20 31 39 2c 31 2c 63 6c  25 28 63 6f 6c 29 2c 30  | 19,1,cl%(col),0|
00000b70  2c 30 2c 30 2c 30 0d 04  74 23 ef 20 31 39 2c 32  |,0,0,0..t#. 19,2|
00000b80  2c 63 6c 25 28 28 63 6f  6c 2b 31 29 20 83 20 33  |,cl%((col+1) . 3|
00000b90  29 2c 30 2c 30 2c 30 2c  30 0d 04 7e 23 ef 20 31  |),0,0,0,0..~#. 1|
00000ba0  39 2c 33 2c 63 6c 25 28  28 63 6f 6c 2b 32 29 20  |9,3,cl%((col+2) |
00000bb0  83 20 33 29 2c 30 2c 30  2c 30 2c 30 0d 04 88 0d  |. 3),0,0,0,0....|
00000bc0  f5 20 fd 20 91 3e 6e 74  25 0d 04 92 0b 6b 24 3d  |. . .>nt%....k$=|
00000bd0  bf 28 30 29 0d 04 9c 19  e7 6b 24 3d 22 53 22 84  |.(0).....k$="S".|
00000be0  6b 24 3d 22 73 22 8c f2  73 6f 75 6e 64 0d 04 a6  |k$="s"..sound...|
00000bf0  20 fd 20 a7 22 20 51 71  4b 6b 22 2c 6b 24 29 3c  | . ." QqKk",k$)<|
00000c00  3e 30 20 80 20 a9 28 6b  24 29 3c 3e 30 0d 04 b0  |>0 . .(k$)<>0...|
00000c10  05 e1 0d 04 ba 05 3a 0d  04 c4 0b dd f2 73 6f 75  |......:......sou|
00000c20  6e 64 0d 04 ce 1e e7 73  6f 75 6e 64 20 8c 20 73  |nd.....sound . s|
00000c30  6f 75 6e 64 3d a3 20 8b  20 73 6f 75 6e 64 3d b9  |ound=. . sound=.|
00000c40  0d 04 d8 24 f1 8a 32 32  2c 32 35 29 3b 3a e7 73  |...$..22,25);:.s|
00000c50  6f 75 6e 64 20 8c 20 f1  22 4f 6e 20 22 8b f1 22  |ound . ."On ".."|
00000c60  4f 66 66 22 0d 04 e2 05  e1 0d 04 ec 05 3a 0d 04  |Off".........:..|
00000c70  f6 0a dd f2 6b 65 79 73  0d 05 00 14 ef 32 33 2c  |....keys.....23,|
00000c80  31 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 05 0a 51  |1,1,0;0;0;0;...Q|
00000c90  db 3a f1 22 50 6c 65 61  73 65 20 73 65 6c 65 63  |.:."Please selec|
00000ca0  74 20 6e 65 77 20 6b 65  79 73 3a 22 27 27 22 4c  |t new keys:"''"L|
00000cb0  65 66 74 3a 22 27 22 52  69 67 68 74 3a 22 27 22  |eft:"'"Right:"'"|
00000cc0  55 70 3a 22 27 22 44 6f  77 6e 3a 22 27 22 57 61  |Up:"'"Down:"'"Wa|
00000cd0  6c 6c 3a 22 27 22 43 6c  65 61 72 3a 22 0d 05 14  |ll:"'"Clear:"...|
00000ce0  2f e3 6b 3d 30 b8 35 3a  f1 8a 38 2c 32 2b 6b 29  |/.k=0.5:..8,2+k)|
00000cf0  3b 3a 6b 24 3d be 3a f1  6b 24 3a 3f 28 26 42 46  |;:k$=.:.k$:?(&BF|
00000d00  41 2b 6b 29 3d 97 28 6b  24 29 3a ed 0d 05 1e 18  |A+k)=.(k$):.....|
00000d10  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 3a 6b  |.23,1,0;0;0;0;:k|
00000d20  24 3d 22 22 0d 05 28 05  e1 0d 05 32 05 3a 0d 05  |$=""..(....2.:..|
00000d30  3c 10 f4 20 4c 65 76 65  6c 20 44 61 74 61 0d 05  |<.. Level Data..|
00000d40  46 0d f4 20 4c 65 76 65  6c 20 31 0d 05 50 75 dc  |F.. Level 1..Pu.|
00000d50  20 31 37 2c 33 2c 33 2c  34 2c 33 2c 35 2c 33 2c  | 17,3,3,4,3,5,3,|
00000d60  36 2c 33 2c 37 2c 33 2c  38 2c 33 2c 38 2c 38 2c  |6,3,7,3,8,3,8,8,|
00000d70  39 2c 39 2c 31 30 2c 39  2c 31 31 2c 39 2c 31 32  |9,9,10,9,11,9,12|
00000d80  2c 39 2c 31 33 2c 39 2c  31 34 2c 39 2c 31 35 2c  |,9,13,9,14,9,15,|
00000d90  39 2c 31 36 2c 39 2c 31  37 2c 38 2c 31 38 2c 39  |9,16,9,17,8,18,9|
00000da0  2c 31 39 2c 38 2c 38 2c  31 2c 31 39 2c 31 2c 31  |,19,8,8,1,19,1,1|
00000db0  2c 31 37 2c 31 30 2c 31  2c 32 2c 32 2c 32 35 35  |,17,10,1,2,2,255|
00000dc0  0d 05 5a 05 3a 0d 05 64  0d f4 20 4c 65 76 65 6c  |..Z.:..d.. Level|
00000dd0  20 32 0d 05 6e 4f dc 20  31 30 2c 35 2c 35 2c 36  | 2..nO. 10,5,5,6|
00000de0  2c 36 2c 37 2c 35 2c 31  31 2c 35 2c 31 32 2c 36  |,6,7,5,11,5,12,6|
00000df0  2c 31 33 2c 35 2c 37 2c  38 2c 38 2c 39 2c 31 30  |,13,5,7,8,8,9,10|
00000e00  2c 39 2c 31 31 2c 38 2c  39 2c 31 32 2c 36 2c 31  |,9,11,8,9,12,6,1|
00000e10  2c 31 32 2c 31 2c 30 2c  31 2c 39 2c 38 2c 32 35  |,12,1,0,1,9,8,25|
00000e20  35 0d 05 78 05 3a 0d 05  82 0d f4 20 4c 65 76 65  |5..x.:..... Leve|
00000e30  6c 20 33 0d 05 8c 7a dc  20 31 33 2c 35 2c 35 2c  |l 3...z. 13,5,5,|
00000e40  36 2c 36 2c 37 2c 36 2c  38 2c 36 2c 39 2c 36 2c  |6,6,7,6,8,6,9,6,|
00000e50  31 30 2c 35 2c 31 32 2c  35 2c 31 33 2c 36 2c 31  |10,5,12,5,13,6,1|
00000e60  34 2c 36 2c 31 35 2c 36  2c 31 36 2c 36 2c 31 37  |4,6,15,6,16,6,17|
00000e70  2c 35 2c 39 2c 39 2c 31  33 2c 39 2c 39 2c 31 2c  |,5,9,9,13,9,9,1,|
00000e80  31 33 2c 32 2c 36 2c 31  31 2c 35 2c 31 31 2c 36  |13,2,6,11,5,11,6|
00000e90  2c 31 30 2c 31 30 2c 31  34 2c 38 2c 31 30 2c 31  |,10,10,14,8,10,1|
00000ea0  30 2c 31 32 2c 31 30 2c  30 2c 32 35 35 0d 05 96  |0,12,10,0,255...|
00000eb0  05 3a 0d 05 a0 0d f4 20  4c 65 76 65 6c 20 34 0d  |.:..... Level 4.|
00000ec0  05 aa 98 dc 20 31 31 2c  35 2c 35 2c 36 2c 36 2c  |.... 11,5,5,6,6,|
00000ed0  37 2c 36 2c 38 2c 36 2c  39 2c 36 2c 31 30 2c 35  |7,6,8,6,9,6,10,5|
00000ee0  2c 31 32 2c 35 2c 31 33  2c 36 2c 31 34 2c 36 2c  |,12,5,13,6,14,6,|
00000ef0  31 35 2c 36 2c 31 36 2c  36 2c 31 37 2c 35 2c 36  |15,6,16,6,17,5,6|
00000f00  2c 31 2c 31 36 2c 31 2c  37 2c 31 31 2c 35 2c 31  |,1,16,1,7,11,5,1|
00000f10  31 2c 36 2c 31 31 2c 37  2c 31 30 2c 38 2c 39 2c  |1,6,11,7,10,8,9,|
00000f20  37 2c 31 32 2c 38 2c 31  33 2c 37 2c 37 2c 38 2c  |7,12,8,13,7,7,8,|
00000f30  39 2c 39 2c 31 30 2c 31  30 2c 31 30 2c 31 31 2c  |9,9,10,10,10,11,|
00000f40  31 30 2c 31 32 2c 31 30  2c 31 33 2c 31 30 2c 31  |10,12,10,13,10,1|
00000f50  34 2c 39 2c 32 35 35 0d  05 b4 05 3a 0d 05 be 0d  |4,9,255....:....|
00000f60  f4 20 4c 65 76 65 6c 20  35 0d 05 c8 3b dc 20 34  |. Level 5...;. 4|
00000f70  2c 35 2c 35 2c 39 2c 35  2c 36 2c 39 2c 37 2c 39  |,5,5,9,5,6,9,7,9|
00000f80  2c 38 2c 39 2c 36 2c 31  2c 38 2c 31 2c 31 2c 37  |,8,9,6,1,8,1,1,7|
00000f90  2c 36 2c 33 2c 36 2c 36  2c 37 2c 35 2c 38 2c 36  |,6,3,6,6,7,5,8,6|
00000fa0  2c 32 35 35 0d 05 d2 05  3a 0d 05 dc 0d f4 20 4c  |,255....:..... L|
00000fb0  65 76 65 6c 20 36 0d 05  e6 58 dc 20 36 2c 35 2c  |evel 6...X. 6,5,|
00000fc0  35 2c 36 2c 36 2c 37 2c  35 2c 34 2c 37 2c 35 2c  |5,6,6,7,5,4,7,5,|
00000fd0  38 2c 34 2c 31 31 2c 35  2c 31 32 2c 36 2c 31 2c  |8,4,11,5,12,6,1,|
00000fe0  39 2c 31 2c 31 2c 31 30  2c 31 32 2c 36 2c 36 2c  |9,1,1,10,12,6,6,|
00000ff0  31 30 2c 37 2c 39 2c 38  2c 31 30 2c 37 2c 31 33  |10,7,9,8,10,7,13|
00001000  2c 38 2c 31 34 2c 39 2c  31 33 2c 32 35 35 0d 05  |,8,14,9,13,255..|
00001010  f0 05 3a 0d 05 fa 0d f4  20 4c 65 76 65 6c 20 37  |..:..... Level 7|
00001020  0d 06 04 92 dc 20 33 2c  37 2c 35 2c 38 2c 36 2c  |..... 3,7,5,8,6,|
00001030  31 30 2c 36 2c 31 31 2c  35 2c 39 2c 31 2c 31 31  |10,6,11,5,9,1,11|
00001040  2c 31 2c 31 30 2c 35 2c  38 2c 35 2c 39 2c 35 2c  |,1,10,5,8,5,9,5,|
00001050  31 30 2c 35 2c 31 31 2c  37 2c 31 32 2c 39 2c 38  |10,5,11,7,12,9,8|
00001060  2c 39 2c 39 2c 39 2c 31  30 2c 39 2c 31 31 2c 31  |,9,9,9,10,9,11,1|
00001070  31 2c 31 32 2c 31 31 2c  37 2c 38 2c 37 2c 39 2c  |1,12,11,7,8,7,9,|
00001080  37 2c 31 31 2c 37 2c 31  31 2c 31 31 2c 38 2c 31  |7,11,7,11,11,8,1|
00001090  31 2c 39 2c 31 31 2c 31  30 2c 31 31 2c 31 31 2c  |1,9,11,10,11,11,|
000010a0  38 2c 31 33 2c 31 30 2c  31 33 2c 39 2c 35 2c 32  |8,13,10,13,9,5,2|
000010b0  35 35 0d 06 0e 05 3a 0d  06 18 0d f4 20 4c 65 76  |55....:..... Lev|
000010c0  65 6c 20 38 0d 06 22 8b  dc 20 31 34 2c 35 2c 35  |el 8..".. 14,5,5|
000010d0  2c 35 2c 36 2c 36 2c 36  2c 31 30 2c 36 2c 31 31  |,5,6,6,6,10,6,11|
000010e0  2c 36 2c 31 31 2c 35 2c  35 2c 39 2c 35 2c 31 30  |,6,11,5,5,9,5,10|
000010f0  2c 36 2c 31 31 2c 37 2c  31 32 2c 38 2c 31 34 2c  |,6,11,7,12,8,14,|
00001100  39 2c 31 32 2c 31 30 2c  31 31 2c 31 31 2c 31 30  |9,12,10,11,11,10|
00001110  2c 31 31 2c 39 2c 38 2c  31 2c 31 31 2c 31 2c 30  |,11,9,8,1,11,1,0|
00001120  2c 39 2c 37 2c 36 2c 38  2c 35 2c 39 2c 36 2c 38  |,9,7,6,8,5,9,6,8|
00001130  2c 39 2c 38 2c 31 30 2c  38 2c 31 31 2c 38 2c 31  |,9,8,10,8,11,8,1|
00001140  32 2c 38 2c 31 33 2c 38  2c 31 35 2c 32 35 35 0d  |2,8,13,8,15,255.|
00001150  06 2c 05 3a 0d 06 36 0d  f4 20 4c 65 76 65 6c 20  |.,.:..6.. Level |
00001160  39 0d 06 40 80 dc 20 31  32 2c 38 2c 35 2c 39 2c  |9..@.. 12,8,5,9,|
00001170  36 2c 31 31 2c 35 2c 31  32 2c 36 2c 31 33 2c 35  |6,11,5,12,6,13,5|
00001180  2c 35 2c 39 2c 35 2c 31  30 2c 37 2c 39 2c 37 2c  |,5,9,5,10,7,9,7,|
00001190  31 30 2c 39 2c 39 2c 39  2c 31 30 2c 31 31 2c 39  |10,9,9,9,10,11,9|
000011a0  2c 31 31 2c 31 30 2c 39  2c 31 2c 31 32 2c 31 2c  |,11,10,9,1,12,1,|
000011b0  33 2c 31 30 2c 36 2c 38  2c 31 32 2c 38 2c 31 33  |3,10,6,8,12,8,13|
000011c0  2c 35 2c 36 2c 31 32 2c  36 2c 31 33 2c 31 30 2c  |,5,6,12,6,13,10,|
000011d0  31 32 2c 31 30 2c 31 33  2c 31 30 2c 35 2c 32 35  |12,10,13,10,5,25|
000011e0  35 0d 06 4a 05 3a 0d 06  54 0e f4 20 4c 65 76 65  |5..J.:..T.. Leve|
000011f0  6c 20 31 30 0d 06 5e a1  dc 20 31 37 2c 35 2c 35  |l 10..^.. 17,5,5|
00001200  2c 36 2c 36 2c 37 2c 37  2c 38 2c 38 2c 39 2c 39  |,6,6,7,7,8,8,9,9|
00001210  2c 31 30 2c 31 30 2c 38  2c 35 2c 39 2c 36 2c 31  |,10,10,8,5,9,6,1|
00001220  30 2c 35 2c 31 34 2c 35  2c 31 35 2c 36 2c 31 36  |0,5,14,5,15,6,16|
00001230  2c 35 2c 31 34 2c 31 30  2c 31 35 2c 39 2c 31 36  |,5,14,10,15,9,16|
00001240  2c 38 2c 31 37 2c 37 2c  31 38 2c 36 2c 31 39 2c  |,8,17,7,18,6,19,|
00001250  35 2c 39 2c 31 2c 31 35  2c 31 2c 39 2c 31 32 2c  |5,9,1,15,1,9,12,|
00001260  35 2c 31 32 2c 36 2c 31  32 2c 39 2c 31 32 2c 31  |5,12,6,12,9,12,1|
00001270  30 2c 31 32 2c 31 32 2c  31 31 2c 31 33 2c 31 33  |0,12,12,11,13,13|
00001280  2c 31 33 2c 31 34 2c 31  33 2c 31 35 2c 31 33 2c  |,13,14,13,15,13,|
00001290  30 2c 32 35 35 0d 06 68  05 3a 0d 06 72 0e f4 20  |0,255..h.:..r.. |
000012a0  4c 65 76 65 6c 20 31 31  0d 06 7c 6d dc 20 31 30  |Level 11..|m. 10|
000012b0  2c 35 2c 36 2c 36 2c 35  2c 36 2c 37 2c 37 2c 36  |,5,6,6,5,6,7,7,6|
000012c0  2c 39 2c 36 2c 31 30 2c  35 2c 31 30 2c 37 2c 31  |,9,6,10,5,10,7,1|
000012d0  31 2c 36 2c 38 2c 39 2c  38 2c 31 30 2c 38 2c 31  |1,6,8,9,8,10,8,1|
000012e0  31 2c 37 2c 31 2c 39 2c  31 2c 37 2c 38 2c 36 2c  |1,7,1,9,1,7,8,6,|
000012f0  36 2c 38 2c 38 2c 38 2c  31 30 2c 38 2c 37 2c 31  |6,8,8,8,10,8,7,1|
00001300  32 2c 38 2c 31 32 2c 39  2c 31 32 2c 31 2c 38 2c  |2,8,12,9,12,1,8,|
00001310  35 2c 32 35 35 0d 06 86  05 3a 0d 06 90 0e f4 20  |5,255....:..... |
00001320  4c 65 76 65 6c 20 31 32  0d 06 9a 78 dc 20 31 32  |Level 12...x. 12|
00001330  2c 35 2c 36 2c 36 2c 35  2c 36 2c 37 2c 31 30 2c  |,5,6,6,5,6,7,10,|
00001340  35 2c 31 31 2c 36 2c 31  30 2c 37 2c 35 2c 31 33  |5,11,6,10,7,5,13|
00001350  2c 36 2c 31 33 2c 37 2c  31 33 2c 38 2c 31 33 2c  |,6,13,7,13,8,13,|
00001360  39 2c 31 33 2c 31 30 2c  31 33 2c 31 31 2c 31 33  |9,13,10,13,11,13|
00001370  2c 37 2c 31 2c 39 2c 31  2c 34 2c 36 2c 38 2c 31  |,7,1,9,1,4,6,8,1|
00001380  30 2c 38 2c 34 2c 31 32  2c 31 32 2c 31 32 2c 33  |0,8,4,12,12,12,3|
00001390  2c 37 2c 36 2c 38 2c 35  2c 39 2c 36 2c 32 35 35  |,7,6,8,5,9,6,255|
000013a0  0d 06 a4 05 3a 0d 06 ae  0e f4 20 4c 65 76 65 6c  |....:..... Level|
000013b0  20 31 33 0d 06 b8 8b dc  20 36 2c 35 2c 35 2c 37  | 13..... 6,5,5,7|
000013c0  2c 35 2c 38 2c 31 32 2c  39 2c 31 33 2c 31 30 2c  |,5,8,12,9,13,10,|
000013d0  31 33 2c 31 30 2c 31 32  2c 31 31 2c 31 33 2c 36  |13,10,12,11,13,6|
000013e0  2c 31 2c 39 2c 31 32 2c  35 2c 35 2c 36 2c 31 32  |,1,9,12,5,5,6,12|
000013f0  2c 31 32 2c 31 30 2c 31  30 2c 31 30 2c 31 31 2c  |,12,10,10,10,11,|
00001400  31 30 2c 39 2c 31 31 2c  36 2c 36 2c 37 2c 37 2c  |10,9,11,6,6,7,7,|
00001410  38 2c 37 2c 39 2c 37 2c  31 30 2c 37 2c 31 31 2c  |8,7,9,7,10,7,11,|
00001420  36 2c 31 32 2c 38 2c 31  33 2c 38 2c 31 34 2c 38  |6,12,8,13,8,14,8|
00001430  2c 31 35 2c 38 2c 31 36  2c 37 2c 32 35 35 0d 06  |,15,8,16,7,255..|
00001440  c2 05 3a 0d 06 cc 0e f4  20 4c 65 76 65 6c 20 31  |..:..... Level 1|
00001450  34 0d 06 d6 50 dc 20 31  30 2c 35 2c 35 2c 36 2c  |4...P. 10,5,5,6,|
00001460  36 2c 37 2c 36 2c 38 2c  36 2c 39 2c 36 2c 31 30  |6,7,6,8,6,9,6,10|
00001470  2c 35 2c 31 31 2c 36 2c  31 32 2c 36 2c 31 33 2c  |,5,11,6,12,6,13,|
00001480  36 2c 31 34 2c 36 2c 31  35 2c 35 2c 39 2c 31 2c  |6,14,6,15,5,9,1,|
00001490  31 34 2c 31 2c 31 2c 31  30 2c 36 2c 30 2c 32 35  |14,1,1,10,6,0,25|
000014a0  35 0d 06 e0 05 3a 0d 06  ea 0e f4 20 4c 65 76 65  |5....:..... Leve|
000014b0  6c 20 31 35 0d 06 f4 9c  dc 20 32 36 2c 35 2c 35  |l 15..... 26,5,5|
000014c0  2c 36 2c 36 2c 37 2c 37  2c 38 2c 38 2c 39 2c 39  |,6,6,7,7,8,8,9,9|
000014d0  2c 31 30 2c 31 30 2c 37  2c 35 2c 38 2c 36 2c 39  |,10,10,7,5,8,6,9|
000014e0  2c 37 2c 31 30 2c 38 2c  31 31 2c 39 2c 31 32 2c  |,7,10,8,11,9,12,|
000014f0  31 30 2c 31 32 2c 38 2c  31 33 2c 39 2c 31 34 2c  |10,12,8,13,9,14,|
00001500  31 30 2c 31 34 2c 38 2c  31 35 2c 39 2c 31 36 2c  |10,14,8,15,9,16,|
00001510  31 30 2c 31 37 2c 39 2c  31 38 2c 38 2c 31 39 2c  |10,17,9,18,8,19,|
00001520  37 2c 32 30 2c 36 2c 32  31 2c 35 2c 31 36 2c 38  |7,20,6,21,5,16,8|
00001530  2c 31 37 2c 37 2c 31 38  2c 36 2c 31 39 2c 35 2c  |,17,7,18,6,19,5,|
00001540  36 2c 31 2c 32 30 2c 31  2c 30 2c 30 2c 32 35 35  |6,1,20,1,0,0,255|
00001550  0d 06 fe 05 3a 0d 07 08  0e f4 20 4c 65 76 65 6c  |....:..... Level|
00001560  20 31 36 0d 07 12 a3 dc  20 31 37 2c 35 2c 35 2c  | 16..... 17,5,5,|
00001570  36 2c 36 2c 37 2c 35 2c  31 30 2c 35 2c 31 31 2c  |6,6,7,5,10,5,11,|
00001580  36 2c 31 32 2c 35 2c 35  2c 39 2c 31 32 2c 39 2c  |6,12,5,5,9,12,9,|
00001590  31 33 2c 38 2c 31 33 2c  31 32 2c 31 34 2c 31 31  |13,8,13,12,14,11|
000015a0  2c 35 2c 31 34 2c 31 31  2c 31 34 2c 31 32 2c 31  |,5,14,11,14,12,1|
000015b0  34 2c 36 2c 31 36 2c 37  2c 31 36 2c 38 2c 31 38  |4,6,16,7,16,8,18|
000015c0  2c 39 2c 31 39 2c 36 2c  31 2c 31 31 2c 31 2c 35  |,9,19,6,1,11,1,5|
000015d0  2c 36 2c 37 2c 37 2c 38  2c 31 30 2c 38 2c 31 31  |,6,7,7,8,10,8,11|
000015e0  2c 31 32 2c 34 2c 31 32  2c 35 2c 37 2c 31 31 2c  |,12,4,12,5,7,11,|
000015f0  36 2c 31 32 2c 38 2c 31  34 2c 39 2c 31 34 2c 31  |6,12,8,14,9,14,1|
00001600  30 2c 31 34 2c 30 0d 07  1c 05 3a 0d 07 26 0e f4  |0,14,0....:..&..|
00001610  20 4c 65 76 65 6c 20 31  37 0d 07 30 71 dc 20 35  | Level 17..0q. 5|
00001620  2c 39 2c 36 2c 31 30 2c  37 2c 31 31 2c 36 2c 31  |,9,6,10,7,11,6,1|
00001630  32 2c 35 2c 31 33 2c 36  2c 31 34 2c 35 2c 31 32  |2,5,13,6,14,5,12|
00001640  2c 31 2c 31 33 2c 31 2c  38 2c 31 32 2c 36 2c 31  |,1,13,1,8,12,6,1|
00001650  33 2c 38 2c 39 2c 39 2c  31 30 2c 39 2c 31 31 2c  |3,8,9,9,10,9,11,|
00001660  39 2c 31 32 2c 39 2c 31  33 2c 39 2c 31 34 2c 39  |9,12,9,13,9,14,9|
00001670  2c 35 2c 35 2c 36 2c 36  2c 37 2c 37 2c 37 2c 38  |,5,5,6,6,7,7,7,8|
00001680  2c 37 2c 39 2c 37 2c 32  35 35 0d 07 3a 05 3a 0d  |,7,9,7,255..:.:.|
00001690  07 44 0e f4 20 4c 65 76  65 6c 20 31 38 0d 07 4e  |.D.. Level 18..N|
000016a0  9a dc 20 31 30 2c 31 2c  38 2c 32 2c 39 2c 33 2c  |.. 10,1,8,2,9,3,|
000016b0  39 2c 34 2c 39 2c 35 2c  39 2c 31 34 2c 38 2c 31  |9,4,9,5,9,14,8,1|
000016c0  35 2c 39 2c 31 36 2c 39  2c 31 37 2c 39 2c 31 38  |5,9,16,9,17,9,18|
000016d0  2c 39 2c 31 39 2c 38 2c  35 2c 31 2c 31 31 2c 31  |,9,19,8,5,1,11,1|
000016e0  2c 36 2c 36 2c 31 30 2c  37 2c 31 31 2c 39 2c 39  |,6,6,10,7,11,9,9|
000016f0  2c 31 31 2c 39 2c 31 34  2c 31 30 2c 31 33 2c 31  |,11,9,14,10,13,1|
00001700  31 2c 31 30 2c 34 2c 31  2c 35 2c 32 2c 36 2c 36  |1,10,4,1,5,2,6,6|
00001710  2c 37 2c 36 2c 38 2c 36  2c 39 2c 36 2c 31 30 2c  |,7,6,8,6,9,6,10,|
00001720  35 2c 31 31 2c 36 2c 31  32 2c 36 2c 31 33 2c 36  |5,11,6,12,6,13,6|
00001730  2c 31 34 2c 36 2c 30 0d  07 58 05 3a 0d 07 62 0e  |,14,6,0..X.:..b.|
00001740  f4 20 4c 65 76 65 6c 20  31 39 0d 07 6c 96 dc 20  |. Level 19..l.. |
00001750  38 2c 37 2c 35 2c 31 33  2c 35 2c 37 2c 31 32 2c  |8,7,5,13,5,7,12,|
00001760  38 2c 31 33 2c 39 2c 31  33 2c 31 30 2c 31 33 2c  |8,13,9,13,10,13,|
00001770  31 31 2c 31 33 2c 31 32  2c 31 33 2c 31 33 2c 31  |11,13,12,13,13,1|
00001780  32 2c 36 2c 31 2c 31 34  2c 31 2c 37 2c 31 30 2c  |2,6,1,14,1,7,10,|
00001790  36 2c 31 30 2c 37 2c 31  30 2c 38 2c 31 30 2c 39  |6,10,7,10,8,10,9|
000017a0  2c 39 2c 31 30 2c 31 30  2c 31 30 2c 31 31 2c 31  |,9,10,10,10,11,1|
000017b0  30 2c 39 2c 35 2c 35 2c  36 2c 36 2c 37 2c 37 2c  |0,9,5,5,6,6,7,7,|
000017c0  38 2c 36 2c 31 32 2c 36  2c 31 33 2c 37 2c 31 34  |8,6,12,6,13,7,14|
000017d0  2c 36 2c 31 35 2c 35 2c  31 30 2c 35 2c 32 35 35  |,6,15,5,10,5,255|
000017e0  0d 07 76 05 3a 0d 07 80  0e f4 20 4c 65 76 65 6c  |..v.:..... Level|
000017f0  20 32 30 0d 07 8a a9 dc  20 31 39 2c 35 2c 35 2c  | 20..... 19,5,5,|
00001800  36 2c 36 2c 37 2c 35 2c  31 32 2c 35 2c 31 33 2c  |6,6,7,5,12,5,13,|
00001810  36 2c 31 34 2c 35 2c 38  2c 31 30 2c 31 36 2c 31  |6,14,5,8,10,16,1|
00001820  30 2c 39 2c 31 32 2c 31  30 2c 31 33 2c 31 33 2c  |0,9,12,10,13,13,|
00001830  31 33 2c 31 34 2c 31 34  2c 39 2c 31 36 2c 31 36  |13,14,14,9,16,16|
00001840  2c 31 35 2c 31 35 2c 31  36 2c 31 30 2c 31 38 2c  |,15,15,16,10,18,|
00001850  31 31 2c 31 39 2c 31 32  2c 31 39 2c 31 33 2c 31  |11,19,12,19,13,1|
00001860  39 2c 31 34 2c 31 38 2c  36 2c 31 2c 31 33 2c 31  |9,14,18,6,1,13,1|
00001870  2c 37 2c 31 33 2c 38 2c  31 34 2c 39 2c 31 31 2c  |,7,13,8,14,9,11,|
00001880  31 31 2c 31 35 2c 31 32  2c 31 32 2c 31 33 2c 31  |11,15,12,12,13,1|
00001890  33 2c 31 36 2c 31 31 2c  31 35 2c 30 0d 07 94 05  |3,16,11,15,0....|
000018a0  3a 0d 07 9e 09 dc 2d 39  39 39 0d 07 a8 05 3a 0d  |:.....-999....:.|
000018b0  07 b2 0a dd f2 69 6e 69  74 0d 07 bc 3d e7 20 ac  |.....init...=. .|
000018c0  20 28 28 3f 26 37 38 3d  34 35 29 20 80 20 28 90  | ((?&78=45) . (.|
000018d0  3d 26 31 44 30 30 29 29  20 8c 20 f1 27 22 50 6c  |=&1D00)) . .'"Pl|
000018e0  65 61 73 65 20 57 61 69  74 2e 20 2e 20 2e 22 27  |ease Wait. . ."'|
000018f0  3a 2a 54 41 50 45 0d 07  c6 17 e7 20 90 3c 3e 26  |:*TAPE..... .<>&|
00001900  31 44 30 30 20 8c 20 f2  72 65 6c 6f 63 0d 07 d0  |1D00 . .reloc...|
00001910  18 ef 20 36 2c 31 31 2c  32 33 2c 31 2c 30 3b 30  |.. 6,11,23,1,0;0|
00001920  3b 30 3b 30 3b 0d 07 da  1e f1 22 43 61 6c 63 75  |;0;0;....."Calcu|
00001930  6c 61 74 69 6e 67 20 73  70 68 65 72 65 2e 20 2e  |lating sphere. .|
00001940  20 2e 22 0d 07 e4 0f 50  25 3d 26 44 30 30 3a 70  | ."....P%=&D00:p|
00001950  3d 30 0d 07 ee 1a e3 78  3d 2d 37 38 2e 37 35 20  |=0.....x=-78.75 |
00001960  b8 20 39 30 20 88 20 31  31 2e 32 35 0d 07 f8 23  |. 90 . 11.25...#|
00001970  e3 79 3d 32 32 2e 35 20  b8 20 31 38 30 20 88 20  |.y=22.5 . 180 . |
00001980  32 32 2e 35 3a 70 3d 70  2b 2e 37 38 31 32 35 0d  |22.5:p=p+.78125.|
00001990  08 02 0a 5b 4f 50 54 20  32 0d 08 0c 31 45 51 55  |...[OPT 2...1EQU|
000019a0  57 20 a8 28 34 38 30 2a  b5 28 af 2a 28 78 2d 31  |W .(480*.(.*(x-1|
000019b0  31 2e 32 35 29 2f 31 38  30 29 2a b5 28 af 2a 79  |1.25)/180)*.(.*y|
000019c0  2f 31 38 30 29 2b 36 34  30 29 0d 08 16 21 45 51  |/180)+640)...!EQ|
000019d0  55 57 20 a8 28 36 30 2b  28 9b 28 af 2a 79 2f 31  |UW .(60+(.(.*y/1|
000019e0  38 30 29 2b 31 29 2a 34  35 30 29 0d 08 20 29 45  |80)+1)*450).. )E|
000019f0  51 55 57 20 a8 28 34 38  30 2a b5 28 af 2a 78 2f  |QUW .(480*.(.*x/|
00001a00  31 38 30 29 2a b5 28 af  2a 79 2f 31 38 30 29 2b  |180)*.(.*y/180)+|
00001a10  36 34 30 29 0d 08 2a 21  45 51 55 57 20 a8 28 36  |640)..*!EQUW .(6|
00001a20  30 2b 28 9b 28 af 2a 79  2f 31 38 30 29 2b 31 29  |0+(.(.*y/180)+1)|
00001a30  2a 34 35 30 29 0d 08 34  05 5d 0d 08 3e 13 f1 8a  |*450)..4.]..>...|
00001a40  32 34 2c 34 29 a8 28 70  29 3b 22 25 22 0d 08 48  |24,4).(p);"%"..H|
00001a50  06 ed 2c 0d 08 52 14 ef  32 33 2c 31 2c 31 3b 30  |..,..R..23,1,1;0|
00001a60  3b 30 3b 30 3b 30 3b 0d  08 5c 26 f1 22 4d 6f 76  |;0;0;0;..\&."Mov|
00001a70  69 6e 67 20 6c 65 76 65  6c 20 64 61 74 61 2e 20  |ing level data. |
00001a80  2e 20 2e 22 3a 61 64 3d  26 31 35 30 30 0d 08 66  |. .":ad=&1500..f|
00001a90  05 f5 0d 08 70 07 f3 20  64 0d 08 7a 1d e7 20 64  |....p.. d..z.. d|
00001aa0  3c 3e 2d 39 39 39 20 8c  20 3f 61 64 3d 64 3a 61  |<>-999 . ?ad=d:a|
00001ab0  64 3d 61 64 2b 31 0d 08  84 21 e7 20 64 3d 32 35  |d=ad+1...!. d=25|
00001ac0  35 20 8c 20 61 64 3d 28  61 64 2b 26 34 30 29 20  |5 . ad=(ad+&40) |
00001ad0  80 20 26 46 46 43 30 0d  08 8e 13 e7 20 64 3c 3e  |. &FFC0..... d<>|
00001ae0  2d 39 39 39 20 8c 20 fd  20 a3 0d 08 98 07 fd 20  |-999 . . ...... |
00001af0  b9 0d 08 a2 25 f1 22 41  73 73 65 6d 62 6c 69 6e  |....%."Assemblin|
00001b00  67 20 63 6f 64 65 2e 20  2e 20 2e 22 3a f2 61 73  |g code. . .":.as|
00001b10  73 65 6d 62 6c 65 0d 08  ac 20 f1 22 52 65 6d 6f  |semble... ."Remo|
00001b20  76 69 6e 67 20 73 6f 75  72 63 65 20 63 6f 64 65  |ving source code|
00001b30  2e 20 2e 20 2e 22 0d 08  b6 05 e1 0d 08 c0 05 3a  |. . .".........:|
00001b40  0d 08 ca 0e dd f2 61 73  73 65 6d 62 6c 65 0d 08  |......assemble..|
00001b50  d4 10 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 08  |..oswrch=&FFEE..|
00001b60  de 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 08  |..osbyte=&FFF4..|
00001b70  e8 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |... pass=0 . 2 .|
00001b80  20 32 0d 08 f2 0b 50 25  3d 26 41 30 30 0d 08 fc  | 2....P%=&A00...|
00001b90  0d 5b 4f 50 54 20 70 61  73 73 0d 09 06 6c 2e 73  |.[OPT pass...l.s|
00001ba0  70 68 65 72 65 20 4c 44  59 23 31 3a 53 54 59 63  |phere LDY#1:STYc|
00001bb0  6f 6c 3a 4c 44 41 23 26  43 3a 53 54 41 26 37 31  |ol:LDA#&C:STA&71|
00001bc0  3a 4c 44 41 23 26 46 38  3a 53 54 41 26 37 30 3a  |:LDA#&F8:STA&70:|
00001bd0  4c 44 58 23 30 3a 4c 44  41 23 31 38 3a 4a 53 52  |LDX#0:LDA#18:JSR|
00001be0  6f 73 77 72 63 68 3a 4c  44 41 23 30 3a 4a 53 52  |oswrch:LDA#0:JSR|
00001bf0  6f 73 77 72 63 68 3a 4c  44 41 23 31 3a 4a 53 52  |oswrch:LDA#1:JSR|
00001c00  6f 73 77 72 63 68 0d 09  10 24 2e 70 6f 69 6e 74  |oswrch...$.point|
00001c10  20 4c 44 59 20 23 30 3a  54 58 41 3a 80 23 37 3a  | LDY #0:TXA:.#7:|
00001c20  42 45 51 6e 65 77 78 76  61 6c 0d 09 1a 89 4c 44  |BEQnewxval....LD|
00001c30  41 23 32 35 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A#25:JSRoswrch:L|
00001c40  44 41 23 34 3a 4a 53 52  73 65 6e 64 63 6f 3a 4c  |DA#4:JSRsendco:L|
00001c50  44 41 23 32 35 3a 4a 53  52 6f 73 77 72 63 68 3a  |DA#25:JSRoswrch:|
00001c60  4c 44 41 23 34 3a 4a 53  52 73 65 6e 64 63 6f 3a  |LDA#4:JSRsendco:|
00001c70  4c 44 41 23 32 35 3a 4a  53 52 6f 73 77 72 63 68  |LDA#25:JSRoswrch|
00001c80  3a 4c 44 41 23 38 35 3a  4a 53 52 73 65 6e 64 63  |:LDA#85:JSRsendc|
00001c90  6f 3a 4c 44 41 23 32 35  3a 4a 53 52 6f 73 77 72  |o:LDA#25:JSRoswr|
00001ca0  63 68 3a 4c 44 41 23 38  35 3a 4a 53 52 73 65 6e  |ch:LDA#85:JSRsen|
00001cb0  64 63 6f 0d 09 24 48 49  4e 58 3a 4c 44 41 26 37  |dco..$HINX:LDA&7|
00001cc0  30 3a 43 4c 43 3a 41 44  43 23 38 3a 53 54 41 26  |0:CLC:ADC#8:STA&|
00001cd0  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00001ce0  53 54 41 26 37 31 3a 43  50 58 23 31 32 38 3a 42  |STA&71:CPX#128:B|
00001cf0  4e 45 70 6f 69 6e 74 3a  52 54 53 0d 09 2e 37 2e  |NEpoint:RTS...7.|
00001d00  6e 65 77 78 76 61 6c 20  4c 44 41 63 6f 6c 3a 43  |newxval LDAcol:C|
00001d10  4c 43 3a 41 44 43 23 31  3a 80 23 33 3a 42 4e 45  |LC:ADC#1:.#3:BNE|
00001d20  6e 6f 74 62 6c 61 63 6b  3a 43 4c 43 3a 41 44 43  |notblack:CLC:ADC|
00001d30  23 31 0d 09 38 46 2e 6e  6f 74 62 6c 61 63 6b 20  |#1..8F.notblack |
00001d40  53 54 41 63 6f 6c 3a 4c  44 41 23 31 38 3a 4a 53  |STAcol:LDA#18:JS|
00001d50  52 6f 73 77 72 63 68 3a  4c 44 41 23 30 3a 4a 53  |Roswrch:LDA#0:JS|
00001d60  52 6f 73 77 72 63 68 3a  4c 44 41 63 6f 6c 3a 4a  |Roswrch:LDAcol:J|
00001d70  53 52 6f 73 77 72 63 68  0d 09 42 6e 4c 44 41 23  |SRoswrch..BnLDA#|
00001d80  32 35 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |25:JSRoswrch:LDA|
00001d90  23 34 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |#4:JSRoswrch:LDA|
00001da0  23 31 32 38 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |#128:JSRoswrch:L|
00001db0  44 41 23 32 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DA#2:JSRoswrch:L|
00001dc0  44 41 23 31 39 32 3a 4a  53 52 6f 73 77 72 63 68  |DA#192:JSRoswrch|
00001dd0  3a 4c 44 41 23 33 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#3:JSRoswrch|
00001de0  3a 4c 44 59 23 38 0d 09  4c 46 4c 44 41 23 32 35  |:LDY#8..LFLDA#25|
00001df0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 34  |:JSRoswrch:LDA#4|
00001e00  3a 4a 53 52 73 65 6e 64  63 6f 3a 4c 44 41 23 32  |:JSRsendco:LDA#2|
00001e10  35 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |5:JSRoswrch:LDA#|
00001e20  38 35 3a 4a 53 52 73 65  6e 64 63 6f 0d 09 56 3c  |85:JSRsendco..V<|
00001e30  49 4e 58 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |INX:LDA&70:CLC:A|
00001e40  44 43 23 38 3a 53 54 41  26 37 30 3a 4c 44 41 26  |DC#8:STA&70:LDA&|
00001e50  37 31 3a 41 44 43 23 30  3a 53 54 41 26 37 31 3a  |71:ADC#0:STA&71:|
00001e60  4a 4d 50 70 6f 69 6e 74  0d 09 60 79 2e 73 65 6e  |JMPpoint..`y.sen|
00001e70  64 63 6f 20 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |dco JSRoswrch:LD|
00001e80  41 28 26 37 30 29 2c 59  3a 4a 53 52 6f 73 77 72  |A(&70),Y:JSRoswr|
00001e90  63 68 3a 49 4e 59 3a 4c  44 41 28 26 37 30 29 2c  |ch:INY:LDA(&70),|
00001ea0  59 3a 4a 53 52 6f 73 77  72 63 68 3a 49 4e 59 3a  |Y:JSRoswrch:INY:|
00001eb0  4c 44 41 28 26 37 30 29  2c 59 3a 4a 53 52 6f 73  |LDA(&70),Y:JSRos|
00001ec0  77 72 63 68 3a 49 4e 59  3a 4c 44 41 28 26 37 30  |wrch:INY:LDA(&70|
00001ed0  29 2c 59 3a 49 4e 59 3a  4a 4d 50 6f 73 77 72 63  |),Y:INY:JMPoswrc|
00001ee0  68 0d 09 6a 0f 2e 63 6f  6c 20 45 51 55 42 20 30  |h..j..col EQUB 0|
00001ef0  0d 09 74 0d 5d 3a 50 25  3d 26 41 45 39 0d 09 7e  |..t.]:P%=&AE9..~|
00001f00  0c 5b 4f 50 54 70 61 73  73 0d 09 88 09 4c 44 58  |.[OPTpass....LDX|
00001f10  23 30 0d 09 92 42 2e 62  61 6c 6c 6f 70 20 4c 44  |#0...B.ballop LD|
00001f20  41 78 62 61 6c 6c 2c 58  3a 43 4d 50 63 78 3a 42  |Axball,X:CMPcx:B|
00001f30  4e 45 62 61 6c 6c 6f 6e  3a 4c 44 41 79 62 61 6c  |NEballon:LDAybal|
00001f40  6c 2c 58 3a 43 4d 50 63  79 3a 42 45 51 62 61 6c  |l,X:CMPcy:BEQbal|
00001f50  6c 6f 66 66 0d 09 9c 79  2e 62 61 6c 6c 6f 6e 20  |loff...y.ballon |
00001f60  4c 44 41 23 31 37 3a 4a  53 52 6f 73 77 72 63 68  |LDA#17:JSRoswrch|
00001f70  3a 4c 44 41 23 32 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#2:JSRoswrch|
00001f80  3a 4c 44 41 23 33 31 3a  4a 53 52 6f 73 77 72 63  |:LDA#31:JSRoswrc|
00001f90  68 3a 4c 44 41 78 62 61  6c 6c 2c 58 3a 4a 53 52  |h:LDAxball,X:JSR|
00001fa0  6f 73 77 72 63 68 3a 4c  44 41 79 62 61 6c 6c 2c  |oswrch:LDAyball,|
00001fb0  58 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |X:JSRoswrch:LDA#|
00001fc0  31 32 39 3a 4a 53 52 6f  73 77 72 63 68 0d 09 a6  |129:JSRoswrch...|
00001fd0  87 2e 62 61 6c 6c 6f 66  66 20 4c 44 41 79 62 61  |..balloff LDAyba|
00001fe0  6c 6c 2c 58 3a 43 4d 50  23 32 34 3a 42 45 51 64  |ll,X:CMP#24:BEQd|
00001ff0  69 65 3a 4c 44 41 23 26  32 38 3a 53 54 41 26 37  |ie:LDA#&28:STA&7|
00002000  30 3a 4c 44 41 23 26 31  31 3a 53 54 41 26 37 31  |0:LDA#&11:STA&71|
00002010  3a 4c 44 41 78 62 61 6c  6c 2c 58 3a 4c 44 59 79  |:LDAxball,X:LDYy|
00002020  62 61 6c 6c 2c 58 3a 4a  53 52 67 65 74 61 64 3a  |ball,X:JSRgetad:|
00002030  80 23 31 3a 42 4e 45 6e  6f 64 6f 77 6e 3a 49 4e  |.#1:BNEnodown:IN|
00002040  43 79 62 61 6c 6c 2c 58  3a 4a 4d 50 64 6f 6e 65  |Cyball,X:JMPdone|
00002050  62 61 6c 6c 0d 09 b0 9e  2e 6e 6f 64 6f 77 6e 20  |ball.....nodown |
00002060  4c 44 41 78 62 61 6c 6c  2c 58 3a 43 4d 50 23 31  |LDAxball,X:CMP#1|
00002070  3a 42 45 51 64 69 65 3a  4c 44 41 64 69 72 2c 58  |:BEQdie:LDAdir,X|
00002080  3a 43 4d 50 23 30 3a 42  4e 45 6e 6f 6c 65 66 74  |:CMP#0:BNEnoleft|
00002090  3a 4c 44 41 23 26 46 46  3a 53 54 41 26 37 30 3a  |:LDA#&FF:STA&70:|
000020a0  4c 44 41 23 26 31 30 3a  53 54 41 26 37 31 3a 4c  |LDA#&10:STA&71:L|
000020b0  44 41 78 62 61 6c 6c 2c  58 3a 4c 44 59 79 62 61  |DAxball,X:LDYyba|
000020c0  6c 6c 2c 58 3a 4a 53 52  67 65 74 61 64 3a 80 23  |ll,X:JSRgetad:.#|
000020d0  31 3a 42 4e 45 6e 6f 6c  65 66 74 3a 44 45 43 78  |1:BNEnoleft:DECx|
000020e0  62 61 6c 6c 2c 58 3a 4a  4d 50 64 6f 6e 65 62 61  |ball,X:JMPdoneba|
000020f0  6c 6c 0d 09 ba 1a 2e 64  69 65 20 4c 44 41 23 31  |ll.....die LDA#1|
00002100  3a 53 54 41 64 65 61 64  3a 52 54 53 0d 09 c4 9f  |:STAdead:RTS....|
00002110  2e 6e 6f 6c 65 66 74 20  4c 44 41 78 62 61 6c 6c  |.noleft LDAxball|
00002120  2c 58 3a 43 4d 50 23 33  38 3a 42 45 51 64 69 65  |,X:CMP#38:BEQdie|
00002130  3a 4c 44 41 64 69 72 2c  58 3a 43 4d 50 23 31 3a  |:LDAdir,X:CMP#1:|
00002140  42 4e 45 6e 6f 72 69 67  68 74 3a 4c 44 41 23 31  |BNEnoright:LDA#1|
00002150  3a 53 54 41 26 37 30 3a  4c 44 41 23 26 31 31 3a  |:STA&70:LDA#&11:|
00002160  53 54 41 26 37 31 3a 4c  44 41 78 62 61 6c 6c 2c  |STA&71:LDAxball,|
00002170  58 3a 4c 44 59 79 62 61  6c 6c 2c 58 3a 4a 53 52  |X:LDYyball,X:JSR|
00002180  67 65 74 61 64 3a 80 23  31 3a 42 4e 45 6e 6f 72  |getad:.#1:BNEnor|
00002190  69 67 68 74 3a 49 4e 43  78 62 61 6c 6c 2c 58 3a  |ight:INCxball,X:|
000021a0  4a 4d 50 64 6f 6e 65 62  61 6c 6c 0d 09 ce 22 2e  |JMPdoneball...".|
000021b0  6e 6f 72 69 67 68 74 20  4c 44 41 64 69 72 2c 58  |noright LDAdir,X|
000021c0  3a 82 23 31 3a 53 54 41  64 69 72 2c 58 0d 09 d8  |:.#1:STAdir,X...|
000021d0  44 2e 64 6f 6e 65 62 61  6c 6c 20 4c 44 41 78 62  |D.doneball LDAxb|
000021e0  61 6c 6c 2c 58 3a 43 4d  50 63 78 3a 42 4e 45 62  |all,X:CMPcx:BNEb|
000021f0  61 6c 6c 64 3a 4c 44 41  79 62 61 6c 6c 2c 58 3a  |alld:LDAyball,X:|
00002200  43 4d 50 63 79 3a 42 45  51 6e 65 78 74 62 61 6c  |CMPcy:BEQnextbal|
00002210  6c 0d 09 e2 57 2e 62 61  6c 6c 64 20 4c 44 41 23  |l...W.balld LDA#|
00002220  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
00002230  78 62 61 6c 6c 2c 58 3a  4a 53 52 6f 73 77 72 63  |xball,X:JSRoswrc|
00002240  68 3a 4c 44 41 79 62 61  6c 6c 2c 58 3a 4a 53 52  |h:LDAyball,X:JSR|
00002250  6f 73 77 72 63 68 3a 4c  44 41 23 31 33 30 3a 4a  |oswrch:LDA#130:J|
00002260  53 52 6f 73 77 72 63 68  0d 09 ec 69 2e 6e 65 78  |SRoswrch...i.nex|
00002270  74 62 61 6c 6c 20 4c 44  41 23 30 3a 53 54 41 26  |tball LDA#0:STA&|
00002280  37 30 3a 4c 44 41 23 26  31 31 3a 53 54 41 26 37  |70:LDA#&11:STA&7|
00002290  31 3a 4c 44 41 78 62 61  6c 6c 2c 58 3a 4c 44 59  |1:LDAxball,X:LDY|
000022a0  79 62 61 6c 6c 2c 58 3a  4a 53 52 67 65 74 61 64  |yball,X:JSRgetad|
000022b0  3a 43 4d 50 23 32 3a 42  4e 45 6e 65 78 74 62 61  |:CMP#2:BNEnextba|
000022c0  6c 6c 62 3a 4c 44 41 23  31 3a 53 54 41 64 65 61  |llb:LDA#1:STAdea|
000022d0  64 0d 09 f6 4e 2e 6e 65  78 74 62 61 6c 6c 62 20  |d...N.nextballb |
000022e0  4a 53 52 62 61 6c 6c 63  68 65 63 6b 3a 49 4e 58  |JSRballcheck:INX|
000022f0  3a 43 50 58 23 32 3a 42  4e 45 20 62 61 6c 6c 6f  |:CPX#2:BNE ballo|
00002300  70 74 3a 4a 4d 50 63 75  72 73 6f 72 3a 2e 62 61  |pt:JMPcursor:.ba|
00002310  6c 6c 6f 70 74 20 4a 4d  50 62 61 6c 6c 6f 70 0d  |llopt JMPballop.|
00002320  0a 00 0e 5d 3a 50 25 3d  26 31 41 30 30 0d 0a 0a  |...]:P%=&1A00...|
00002330  0d 5b 4f 50 54 20 70 61  73 73 0d 0a 14 0c 4a 4d  |.[OPT pass....JM|
00002340  50 73 65 74 75 70 0d 0a  1e 53 2e 67 65 74 61 64  |Psetup...S.getad|
00002350  20 43 4c 43 3a 41 44 43  26 37 30 3a 53 54 41 26  | CLC:ADC&70:STA&|
00002360  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00002370  53 54 41 26 37 31 3a 54  59 41 3a 41 53 4c 20 41  |STA&71:TYA:ASL A|
00002380  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 53 54 41  |:ASL A:ASL A:STA|
00002390  26 37 32 3a 4c 44 59 23  30 0d 0a 28 61 2e 67 65  |&72:LDY#0..(a.ge|
000023a0  74 6c 6f 70 20 4c 44 41  26 37 30 3a 43 4c 43 3a  |tlop LDA&70:CLC:|
000023b0  41 44 43 26 37 32 3a 53  54 41 26 37 30 3a 4c 44  |ADC&72:STA&70:LD|
000023c0  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
000023d0  31 3a 49 4e 59 3a 43 50  59 23 35 3a 42 4e 45 67  |1:INY:CPY#5:BNEg|
000023e0  65 74 6c 6f 70 3a 4c 44  59 23 30 3a 4c 44 41 28  |etlop:LDY#0:LDA(|
000023f0  26 37 30 29 2c 59 3a 52  54 53 0d 0a 32 b6 2e 63  |&70),Y:RTS..2..c|
00002400  75 72 73 6f 72 20 4c 44  41 23 33 31 3a 4a 53 52  |ursor LDA#31:JSR|
00002410  6f 73 77 72 63 68 3a 4c  44 41 63 78 3a 4a 53 52  |oswrch:LDAcx:JSR|
00002420  6f 73 77 72 63 68 3a 4c  44 41 63 79 3a 4a 53 52  |oswrch:LDAcy:JSR|
00002430  6f 73 77 72 63 68 3a 4c  44 41 23 30 3a 53 54 41  |oswrch:LDA#0:STA|
00002440  26 37 30 3a 4c 44 41 23  26 31 31 3a 53 54 41 26  |&70:LDA#&11:STA&|
00002450  37 31 3a 4c 44 41 63 78  3a 4c 44 59 63 79 3a 4a  |71:LDAcx:LDYcy:J|
00002460  53 52 67 65 74 61 64 3a  43 4d 50 23 31 3a 42 45  |SRgetad:CMP#1:BE|
00002470  51 62 6c 6f 63 6b 3a 43  4d 50 23 32 3a 42 45 51  |Qblock:CMP#2:BEQ|
00002480  73 70 69 6b 65 3a 43 4d  50 23 33 3a 42 45 51 68  |spike:CMP#3:BEQh|
00002490  61 72 64 62 3a 4c 44 41  23 31 32 39 3a 4a 53 52  |ardb:LDA#129:JSR|
000024a0  6f 73 77 72 63 68 3a 4a  4d 50 63 75 72 64 65 6c  |oswrch:JMPcurdel|
000024b0  0d 0a 3c 47 2e 62 6c 6f  63 6b 20 4c 44 41 23 31  |..<G.block LDA#1|
000024c0  37 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |7:JSRoswrch:LDA#|
000024d0  31 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |1:JSRoswrch:LDA#|
000024e0  31 32 38 3a 4a 53 52 6f  73 77 72 63 68 3a 4a 4d  |128:JSRoswrch:JM|
000024f0  50 63 75 72 64 65 6c 0d  0a 46 47 2e 73 70 69 6b  |Pcurdel..FG.spik|
00002500  65 20 4c 44 41 23 31 37  3a 4a 53 52 6f 73 77 72  |e LDA#17:JSRoswr|
00002510  63 68 3a 4c 44 41 23 31  3a 4a 53 52 6f 73 77 72  |ch:LDA#1:JSRoswr|
00002520  63 68 3a 4c 44 41 23 31  33 32 3a 4a 53 52 6f 73  |ch:LDA#132:JSRos|
00002530  77 72 63 68 3a 4a 4d 50  63 75 72 64 65 6c 0d 0a  |wrch:JMPcurdel..|
00002540  50 3d 2e 68 61 72 64 62  20 4c 44 41 23 31 37 3a  |P=.hardb LDA#17:|
00002550  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 31 3a  |JSRoswrch:LDA#1:|
00002560  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 31 33  |JSRoswrch:LDA#13|
00002570  33 3a 4a 53 52 6f 73 77  72 63 68 0d 0a 5a 47 2e  |3:JSRoswrch..ZG.|
00002580  63 75 72 64 65 6c 20 4c  44 41 23 26 38 31 3a 4c  |curdel LDA#&81:L|
00002590  44 58 23 30 3a 4c 44 59  23 30 3a 4a 53 52 6f 73  |DX#0:LDY#0:JSRos|
000025a0  62 79 74 65 3a 42 43 43  6b 65 79 70 72 6f 3a 2e  |byte:BCCkeypro:.|
000025b0  6e 6f 6d 6f 76 65 74 20  4a 4d 50 20 6e 6f 6d 6f  |nomovet JMP nomo|
000025c0  76 65 0d 0a 64 43 2e 6b  65 79 70 72 6f 20 43 50  |ve..dC.keypro CP|
000025d0  58 6b 6c 3a 42 4e 45 6e  6f 74 6b 6c 3a 4c 44 41  |Xkl:BNEnotkl:LDA|
000025e0  63 78 3a 43 4d 50 23 31  3a 42 45 51 20 6e 6f 6d  |cx:CMP#1:BEQ nom|
000025f0  6f 76 65 74 3a 44 45 43  63 78 3a 4a 4d 50 6e 6f  |ovet:DECcx:JMPno|
00002600  6d 6f 76 65 74 0d 0a 6e  42 2e 6e 6f 74 6b 6c 20  |movet..nB.notkl |
00002610  43 50 58 6b 72 3a 42 4e  45 6e 6f 74 6b 72 3a 4c  |CPXkr:BNEnotkr:L|
00002620  44 41 63 78 3a 43 4d 50  23 33 38 3a 42 45 51 20  |DAcx:CMP#38:BEQ |
00002630  6e 6f 6d 6f 76 65 3a 49  4e 43 63 78 3a 4a 4d 50  |nomove:INCcx:JMP|
00002640  6e 6f 6d 6f 76 65 74 0d  0a 78 41 2e 6e 6f 74 6b  |nomovet..xA.notk|
00002650  72 20 43 50 58 6b 75 3a  42 4e 45 6e 6f 74 6b 75  |r CPXku:BNEnotku|
00002660  3a 4c 44 41 63 79 3a 43  4d 50 23 31 3a 42 45 51  |:LDAcy:CMP#1:BEQ|
00002670  20 6e 6f 6d 6f 76 65 3a  44 45 43 63 79 3a 4a 4d  | nomove:DECcy:JM|
00002680  50 6e 6f 6d 6f 76 65 74  0d 0a 82 41 2e 6e 6f 74  |Pnomovet...A.not|
00002690  6b 75 20 43 50 58 6b 64  3a 42 4e 45 6e 6f 74 6b  |ku CPXkd:BNEnotk|
000026a0  64 3a 4c 44 41 63 79 3a  43 4d 50 23 32 34 3a 42  |d:LDAcy:CMP#24:B|
000026b0  45 51 20 6e 6f 6d 6f 76  65 3a 49 4e 43 63 79 3a  |EQ nomove:INCcy:|
000026c0  4a 4d 50 6e 6f 6d 6f 76  65 0d 0a 8c 8f 2e 6e 6f  |JMPnomove.....no|
000026d0  74 6b 64 20 43 50 58 6b  73 3a 42 4e 45 6e 6f 74  |tkd CPXks:BNEnot|
000026e0  6b 73 3a 4c 44 41 6d 6f  6e 3a 43 4d 50 23 35 3a  |ks:LDAmon:CMP#5:|
000026f0  42 43 43 20 6e 6f 6d 6f  76 65 3a 4c 44 41 63 78  |BCC nomove:LDAcx|
00002700  3a 4c 44 59 63 79 3a 4a  53 52 67 65 74 63 6c 72  |:LDYcy:JSRgetclr|
00002710  3a 4c 44 41 28 26 37 30  29 2c 59 3a 42 4e 45 6e  |:LDA(&70),Y:BNEn|
00002720  6f 6d 6f 76 65 3a 4c 44  41 23 31 3a 53 54 41 28  |omove:LDA#1:STA(|
00002730  26 37 30 29 2c 59 3a 4c  44 41 6d 6f 6e 3a 53 45  |&70),Y:LDAmon:SE|
00002740  43 3a 53 42 43 23 35 3a  53 54 41 6d 6f 6e 3a 4a  |C:SBC#5:STAmon:J|
00002750  4d 50 6e 6f 6d 6f 76 65  0d 0a 96 58 2e 6e 6f 74  |MPnomove...X.not|
00002760  6b 73 20 43 50 58 6b 63  3a 42 4e 45 6e 6f 6d 6f  |ks CPXkc:BNEnomo|
00002770  76 65 3a 4c 44 41 63 78  3a 4c 44 59 63 79 3a 4a  |ve:LDAcx:LDYcy:J|
00002780  53 52 67 65 74 63 6c 72  3a 43 4d 50 23 31 3a 42  |SRgetclr:CMP#1:B|
00002790  4e 45 6e 6f 6d 6f 76 65  3a 4c 44 41 23 30 3a 53  |NEnomove:LDA#0:S|
000027a0  54 41 28 26 37 30 29 2c  59 3a 49 4e 43 6d 6f 6e  |TA(&70),Y:INCmon|
000027b0  0d 0a a0 87 2e 6e 6f 6d  6f 76 65 20 4c 44 41 23  |.....nomove LDA#|
000027c0  26 31 35 3a 4c 44 58 23  30 3a 4a 53 52 6f 73 62  |&15:LDX#0:JSRosb|
000027d0  79 74 65 3a 4c 44 41 23  33 31 3a 4a 53 52 6f 73  |yte:LDA#31:JSRos|
000027e0  77 72 63 68 3a 4c 44 41  63 78 3a 4a 53 52 6f 73  |wrch:LDAcx:JSRos|
000027f0  77 72 63 68 3a 4c 44 41  63 79 3a 4a 53 52 6f 73  |wrch:LDAcy:JSRos|
00002800  77 72 63 68 3a 4c 44 41  23 31 37 3a 4a 53 52 6f  |wrch:LDA#17:JSRo|
00002810  73 77 72 63 68 3a 4c 44  41 23 33 3a 4a 53 52 6f  |swrch:LDA#3:JSRo|
00002820  73 77 72 63 68 3a 4c 44  41 23 31 33 31 3a 4a 4d  |swrch:LDA#131:JM|
00002830  50 6f 73 77 72 63 68 0d  0a aa 55 2e 62 61 6c 6c  |Poswrch...U.ball|
00002840  63 68 65 63 6b 20 4c 44  41 78 62 61 6c 6c 3a 43  |check LDAxball:C|
00002850  4d 50 78 62 61 6c 6c 2b  31 3a 42 4e 45 6e 6f 68  |MPxball+1:BNEnoh|
00002860  69 74 3a 4c 44 41 79 62  61 6c 6c 3a 43 4d 50 79  |it:LDAyball:CMPy|
00002870  62 61 6c 6c 2b 31 3a 42  4e 45 6e 6f 68 69 74 3a  |ball+1:BNEnohit:|
00002880  4c 44 41 23 31 3a 53 54  41 68 69 74 0d 0a b4 0e  |LDA#1:STAhit....|
00002890  2e 6e 6f 68 69 74 20 52  54 53 0d 0a be 2c 2e 73  |.nohit RTS...,.s|
000028a0  65 74 75 70 20 4c 44 59  23 30 3a 53 54 59 26 37  |etup LDY#0:STY&7|
000028b0  30 3a 4c 44 41 23 26 31  31 3a 53 54 41 26 37 31  |0:LDA#&11:STA&71|
000028c0  3a 4c 44 41 23 30 0d 0a  c8 6b 2e 73 65 74 6c 6f  |:LDA#0...k.setlo|
000028d0  70 20 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |p STA(&70),Y:INY|
000028e0  3a 42 4e 45 73 65 74 6c  6f 70 3a 49 4e 43 26 37  |:BNEsetlop:INC&7|
000028f0  31 3a 4c 44 58 26 37 31  3a 43 50 58 23 26 31 35  |1:LDX&71:CPX#&15|
00002900  3a 42 4e 45 73 65 74 6c  6f 70 3a 53 54 41 26 42  |:BNEsetlop:STA&B|
00002910  46 39 3a 53 54 41 26 42  45 46 3a 4c 44 41 28 26  |F9:STA&BEF:LDA(&|
00002920  37 33 29 2c 59 3a 54 41  58 3a 49 4e 58 3a 49 4e  |73),Y:TAX:INX:IN|
00002930  59 0d 0a d2 aa 2e 70 6f  6c 6f 70 20 4c 44 41 23  |Y.....polop LDA#|
00002940  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
00002950  28 26 37 33 29 2c 59 3a  50 48 41 3a 4a 53 52 6f  |(&73),Y:PHA:JSRo|
00002960  73 77 72 63 68 3a 49 4e  59 3a 4c 44 41 28 26 37  |swrch:INY:LDA(&7|
00002970  33 29 2c 59 3a 50 48 41  3a 4a 53 52 6f 73 77 72  |3),Y:PHA:JSRoswr|
00002980  63 68 3a 49 4e 59 3a 53  54 59 26 37 35 3a 4c 44  |ch:INY:STY&75:LD|
00002990  41 23 31 32 38 3a 4a 53  52 6f 73 77 72 63 68 3a  |A#128:JSRoswrch:|
000029a0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 4a 53 52 67  |PLA:TAY:PLA:JSRg|
000029b0  65 74 63 6c 72 3a 4c 44  41 23 31 3a 53 54 41 28  |etclr:LDA#1:STA(|
000029c0  26 37 30 29 2c 59 3a 4c  44 59 26 37 35 3a 44 45  |&70),Y:LDY&75:DE|
000029d0  58 3a 42 4e 45 20 70 6f  6c 6f 70 0d 0a dc 99 4c  |X:BNE polop....L|
000029e0  44 41 23 30 3a 53 54 41  26 42 46 32 3a 53 54 41  |DA#0:STA&BF2:STA|
000029f0  26 42 46 33 3a 4c 44 41  28 26 37 33 29 2c 59 3a  |&BF3:LDA(&73),Y:|
00002a00  53 54 41 26 42 46 34 3a  49 4e 59 3a 4c 44 41 28  |STA&BF4:INY:LDA(|
00002a10  26 37 33 29 2c 59 3a 53  54 41 26 42 46 36 3a 49  |&73),Y:STA&BF6:I|
00002a20  4e 59 3a 4c 44 41 28 26  37 33 29 2c 59 3a 53 54  |NY:LDA(&73),Y:ST|
00002a30  41 26 42 46 35 3a 49 4e  59 3a 4c 44 41 28 26 37  |A&BF5:INY:LDA(&7|
00002a40  33 29 2c 59 3a 53 54 41  26 42 46 37 3a 49 4e 59  |3),Y:STA&BF7:INY|
00002a50  3a 4c 44 41 28 26 37 33  29 2c 59 3a 54 41 58 3a  |:LDA(&73),Y:TAX:|
00002a60  49 4e 59 3a 43 50 58 23  30 3a 42 45 51 6e 6f 73  |INY:CPX#0:BEQnos|
00002a70  70 69 6b 65 0d 0a e6 ac  2e 73 70 6b 6c 6f 70 20  |pike.....spklop |
00002a80  4c 44 41 23 33 31 3a 4a  53 52 6f 73 77 72 63 68  |LDA#31:JSRoswrch|
00002a90  3a 4c 44 41 28 26 37 33  29 2c 59 3a 50 48 41 3a  |:LDA(&73),Y:PHA:|
00002aa0  4a 53 52 6f 73 77 72 63  68 3a 49 4e 59 3a 4c 44  |JSRoswrch:INY:LD|
00002ab0  41 28 26 37 33 29 2c 59  3a 50 48 41 3a 4a 53 52  |A(&73),Y:PHA:JSR|
00002ac0  6f 73 77 72 63 68 3a 49  4e 59 3a 53 54 59 26 37  |oswrch:INY:STY&7|
00002ad0  35 3a 4c 44 41 23 31 33  32 3a 4a 53 52 6f 73 77  |5:LDA#132:JSRosw|
00002ae0  72 63 68 3a 50 4c 41 3a  54 41 59 3a 50 4c 41 3a  |rch:PLA:TAY:PLA:|
00002af0  4a 53 52 67 65 74 63 6c  72 3a 4c 44 41 23 32 3a  |JSRgetclr:LDA#2:|
00002b00  53 54 41 28 26 37 30 29  2c 59 3a 4c 44 59 26 37  |STA(&70),Y:LDY&7|
00002b10  35 3a 44 45 58 3a 42 4e  45 20 73 70 6b 6c 6f 70  |5:DEX:BNE spklop|
00002b20  0d 0a f0 2f 2e 6e 6f 73  70 69 6b 65 20 4c 44 41  |.../.nospike LDA|
00002b30  28 26 37 33 29 2c 59 3a  54 41 58 3a 49 4e 59 3a  |(&73),Y:TAX:INY:|
00002b40  43 50 58 23 30 3a 42 45  51 6e 6f 68 61 72 64 0d  |CPX#0:BEQnohard.|
00002b50  0a fa ae 2e 68 61 72 64  6c 6f 70 20 4c 44 41 23  |....hardlop LDA#|
00002b60  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
00002b70  28 26 37 33 29 2c 59 3a  50 48 41 3a 4a 53 52 6f  |(&73),Y:PHA:JSRo|
00002b80  73 77 72 63 68 3a 49 4e  59 3a 4c 44 41 28 26 37  |swrch:INY:LDA(&7|
00002b90  33 29 2c 59 3a 50 48 41  3a 4a 53 52 6f 73 77 72  |3),Y:PHA:JSRoswr|
00002ba0  63 68 3a 49 4e 59 3a 53  54 59 26 37 35 3a 4c 44  |ch:INY:STY&75:LD|
00002bb0  41 23 31 33 33 3a 4a 53  52 6f 73 77 72 63 68 3a  |A#133:JSRoswrch:|
00002bc0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 4a 53 52 67  |PLA:TAY:PLA:JSRg|
00002bd0  65 74 63 6c 72 3a 4c 44  41 23 33 3a 53 54 41 28  |etclr:LDA#3:STA(|
00002be0  26 37 30 29 2c 59 3a 4c  44 59 26 37 35 3a 44 45  |&70),Y:LDY&75:DE|
00002bf0  58 3a 42 4e 45 20 68 61  72 64 6c 6f 70 0d 0b 04  |X:BNE hardlop...|
00002c00  0f 2e 6e 6f 68 61 72 64  20 52 54 53 0d 0b 0e 38  |..nohard RTS...8|
00002c10  2e 67 65 74 63 6c 72 20  50 48 41 3a 4c 44 41 23  |.getclr PHA:LDA#|
00002c20  30 3a 53 54 41 26 37 30  3a 4c 44 41 23 26 31 31  |0:STA&70:LDA#&11|
00002c30  3a 53 54 41 26 37 31 3a  50 4c 41 3a 4a 4d 50 67  |:STA&71:PLA:JMPg|
00002c40  65 74 61 64 0d 0b 18 0d  5d 3a 50 25 3d 26 42 45  |etad....]:P%=&BE|
00002c50  46 0d 0b 22 0d 5b 4f 50  54 20 70 61 73 73 0d 0b  |F..".[OPT pass..|
00002c60  2c 0f 2e 68 69 74 20 45  51 55 42 20 30 0d 0b 36  |,..hit EQUB 0..6|
00002c70  0e 2e 63 78 20 45 51 55  42 20 30 0d 0b 40 0e 2e  |..cx EQUB 0..@..|
00002c80  63 79 20 45 51 55 42 20  30 0d 0b 4a 0f 2e 64 69  |cy EQUB 0..J..di|
00002c90  72 20 45 51 55 57 20 30  0d 0b 54 11 2e 78 62 61  |r EQUW 0..T..xba|
00002ca0  6c 6c 20 45 51 55 57 20  30 0d 0b 5e 11 2e 79 62  |ll EQUW 0..^..yb|
00002cb0  61 6c 6c 20 45 51 55 57  20 30 0d 0b 68 0f 2e 6d  |all EQUW 0..h..m|
00002cc0  6f 6e 20 45 51 55 42 20  30 0d 0b 72 10 2e 64 65  |on EQUB 0..r..de|
00002cd0  61 64 20 45 51 55 42 20  30 0d 0b 7c 10 2e 6b 6c  |ad EQUB 0..|..kl|
00002ce0  20 45 51 55 53 20 22 5a  22 0d 0b 86 10 2e 6b 72  | EQUS "Z".....kr|
00002cf0  20 45 51 55 53 20 22 58  22 0d 0b 90 10 2e 6b 75  | EQUS "X".....ku|
00002d00  20 45 51 55 53 20 22 4b  22 0d 0b 9a 10 2e 6b 64  | EQUS "K".....kd|
00002d10  20 45 51 55 53 20 22 4d  22 0d 0b a4 10 2e 6b 73  | EQUS "M".....ks|
00002d20  20 45 51 55 53 20 22 4c  22 0d 0b ae 10 2e 6b 63  | EQUS "L".....kc|
00002d30  20 45 51 55 53 20 22 20  22 0d 0b b8 05 5d 0d 0b  | EQUS " "....]..|
00002d40  c2 05 ed 0d 0b cc 05 e1  0d 0b d6 05 3a 0d 0b e0  |............:...|
00002d50  0b dd f2 72 65 6c 6f 63  0d 0b ea 16 f1 22 52 65  |...reloc....."Re|
00002d60  6c 6f 63 61 74 69 6e 67  2e 20 2e 20 2e 22 0d 0b  |locating. . ."..|
00002d70  f4 0b 3f 26 37 38 3d 34  35 0d 0b fe 17 d3 3d 26  |..?&78=45.....=&|
00002d80  35 38 30 30 3a 6e 65 77  70 61 67 65 3d 26 31 44  |5800:newpage=&1D|
00002d90  0d 0c 08 14 e3 20 70 61  73 73 3d 30 20 b8 20 32  |..... pass=0 . 2|
00002da0  20 88 20 32 0d 0c 12 0b  50 25 3d 26 43 30 30 0d  | . 2....P%=&C00.|
00002db0  0c 1c 0c 5b 4f 50 54 70  61 73 73 0d 0c 26 0d 20  |...[OPTpass..&. |
00002dc0  20 20 20 4c 44 59 23 30  0d 0c 30 0e 20 20 20 20  |   LDY#0..0.    |
00002dd0  53 54 59 26 37 30 0d 0c  3a 0e 20 20 20 20 53 54  |STY&70..:.    ST|
00002de0  59 26 37 32 0d 0c 44 13  20 20 20 20 4c 44 41 23  |Y&72..D.    LDA#|
00002df0  6e 65 77 70 61 67 65 0d  0c 4e 0b 20 20 20 20 53  |newpage..N.    S|
00002e00  45 43 0d 0c 58 0e 20 20  20 20 53 42 43 26 31 38  |EC..X.    SBC&18|
00002e10  0d 0c 62 0e 20 20 20 20  53 54 41 26 37 34 0d 0c  |..b.    STA&74..|
00002e20  6c 0e 20 20 20 20 4c 44  41 26 31 38 0d 0c 76 13  |l.    LDA&18..v.|
00002e30  20 20 20 20 43 4d 50 23  6e 65 77 70 61 67 65 0d  |    CMP#newpage.|
00002e40  0c 80 0d 20 20 20 20 42  43 43 61 64 0d 0c 8a 0e  |...    BCCad....|
00002e50  2e 73 62 20 53 54 41 26  37 31 0d 0c 94 13 20 20  |.sb STA&71....  |
00002e60  20 20 4c 44 41 23 6e 65  77 70 61 67 65 0d 0c 9e  |  LDA#newpage...|
00002e70  0e 20 20 20 20 53 54 41  26 37 33 0d 0c a8 12 2e  |.    STA&73.....|
00002e80  6d 31 20 4c 44 41 28 26  37 30 29 2c 59 0d 0c b2  |m1 LDA(&70),Y...|
00002e90  12 20 20 20 20 53 54 41  28 26 37 32 29 2c 59 0d  |.    STA(&72),Y.|
00002ea0  0c bc 0b 20 20 20 20 49  4e 59 0d 0c c6 0d 20 20  |...    INY....  |
00002eb0  20 20 42 4e 45 6d 31 0d  0c d0 0e 20 20 20 20 49  |  BNEm1....    I|
00002ec0  4e 43 26 37 31 0d 0c da  0e 20 20 20 20 49 4e 43  |NC&71....    INC|
00002ed0  26 37 33 0d 0c e4 0e 20  20 20 20 4c 44 58 26 37  |&73....    LDX&7|
00002ee0  31 0d 0c ee 0b 20 20 20  20 44 45 58 0d 0c f8 0e  |1....    DEX....|
00002ef0  20 20 20 20 43 50 58 26  30 33 0d 0d 02 0d 20 20  |    CPX&03....  |
00002f00  20 20 42 43 43 6d 31 0d  0d 0c 0d 20 20 20 20 42  |  BCCm1....    B|
00002f10  43 53 65 6d 0d 0d 16 0e  2e 61 64 20 4c 44 41 26  |CSem.....ad LDA&|
00002f20  30 33 0d 0d 20 0e 20 20  20 20 53 54 41 26 37 31  |03.. .    STA&71|
00002f30  0d 0d 2a 0b 20 20 20 20  43 4c 43 0d 0d 34 0e 20  |..*.    CLC..4. |
00002f40  20 20 20 41 44 43 26 37  34 0d 0d 3e 0e 20 20 20  |   ADC&74..>.   |
00002f50  20 53 54 41 26 37 33 0d  0d 48 0d 20 20 20 20 4c  | STA&73..H.    L|
00002f60  44 41 23 30 0d 0d 52 0e  20 20 20 20 4c 44 59 26  |DA#0..R.    LDY&|
00002f70  30 32 0d 0d 5c 12 2e 6d  32 20 4c 44 41 28 26 37  |02..\..m2 LDA(&7|
00002f80  30 29 2c 59 0d 0d 66 12  20 20 20 20 53 54 41 28  |0),Y..f.    STA(|
00002f90  26 37 32 29 2c 59 0d 0d  70 0b 20 20 20 20 44 45  |&72),Y..p.    DE|
00002fa0  59 0d 0d 7a 0f 20 20 20  20 43 50 59 23 26 46 46  |Y..z.    CPY#&FF|
00002fb0  0d 0d 84 0d 20 20 20 20  42 4e 45 6d 32 0d 0d 8e  |....    BNEm2...|
00002fc0  0e 20 20 20 20 44 45 43  26 37 31 0d 0d 98 0e 20  |.    DEC&71.... |
00002fd0  20 20 20 44 45 43 26 37  33 0d 0d a2 0e 20 20 20  |   DEC&73....   |
00002fe0  20 4c 44 41 26 37 33 0d  0d ac 17 20 20 20 20 43  | LDA&73....    C|
00002ff0  4d 50 23 28 6e 65 77 70  61 67 65 2d 31 29 0d 0d  |MP#(newpage-1)..|
00003000  b6 0d 20 20 20 20 42 43  53 6d 32 0d 0d c0 0e 2e  |..    BCSm2.....|
00003010  65 6d 20 4c 44 41 26 31  33 0d 0d ca 0b 20 20 20  |em LDA&13....   |
00003020  20 43 4c 43 0d 0d d4 0e  20 20 20 20 41 44 43 26  | CLC....    ADC&|
00003030  37 34 0d 0d de 0e 20 20  20 20 53 54 41 26 31 33  |74....    STA&13|
00003040  0d 0d e8 0e 20 20 20 20  53 54 41 26 30 31 0d 0d  |....    STA&01..|
00003050  f2 13 20 20 20 20 4c 44  41 23 6e 65 77 70 61 67  |..    LDA#newpag|
00003060  65 0d 0d fc 0e 20 20 20  20 53 54 41 26 31 38 0d  |e....    STA&18.|
00003070  0e 06 0b 20 20 20 20 52  54 53 0d 0e 10 05 5d 0d  |...    RTS....].|
00003080  0e 1a 05 ed 0d 0e 24 08  ef 20 32 31 0d 0e 2e 31  |......$.. 21...1|
00003090  ff 22 4b 45 59 20 30 22  22 43 41 4c 4c 26 43 30  |."KEY 0""CALL&C0|
000030a0  30 7c 4d 52 55 4e 7c 46  7c 4d 22 22 22 3a ff 22  |0|MRUN|F|M""":."|
000030b0  46 58 20 31 35 33 2c 30  2c 31 32 38 22 0d 0e 38  |FX 153,0,128"..8|
000030c0  05 e0 0d 0e 42 05 e1 0d  ff                       |....B....|
000030c9
Bounce/B14.m0
Bounce/B14.m1
Bounce/B14.m2
Bounce/B14.m4
Bounce/B14.m5