Bounce/temp

Home » Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/temp

Bounce/temp

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 hard disk » misc » dcfprogs
Filename:	Bounce/temp
Read OK:	✔
File size:	30F1 bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Bounce/temp
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Bounce/temp
Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/temp

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,-2,1,5,5,5,126,0,0,-126,126,126:ENVELOPE2,1,4,1,1,50,1,1,126,0,0,-126,126,126:ENVELOPE3,1,-1,1,1,40,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:mon%=?&BF8
  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 OR INKEY(-82)
  580IF tim%<>-1 AND ?&BF9=0 OR INKEY(-82)THEN UNTIL TRUE:PROClevelfin:ENDPROC
  590live%=live%-1:?&BF8=mon%
  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,8+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,8+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,-2,1,5,5,5,126,0,0,-126,126,126:�2,1,4,1,1,50,1,1,126,0,0,-126,126,126:�3,1,-1,1,1,40,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
@�:mon%=?&BF8
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 � �(-82)
D2� tim%<>-1 � ?&BF9=0 � �(-82)� � �:�levelfin:�
Nlive%=live%-1:?&BF8=mon%
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,8+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,8+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 a4 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 2d 32 2c 31 2c 35 2c  |6:.1,1,1,-2,1,5,|
000001e0  35 2c 35 2c 31 32 36 2c  30 2c 30 2c 2d 31 32 36  |5,5,126,0,0,-126|
000001f0  2c 31 32 36 2c 31 32 36  3a e2 32 2c 31 2c 34 2c  |,126,126:.2,1,4,|
00000200  31 2c 31 2c 35 30 2c 31  2c 31 2c 31 32 36 2c 30  |1,1,50,1,1,126,0|
00000210  2c 30 2c 2d 31 32 36 2c  31 32 36 2c 31 32 36 3a  |,0,-126,126,126:|
00000220  e2 33 2c 31 2c 2d 31 2c  31 2c 31 2c 34 30 2c 31  |.3,1,-1,1,1,40,1|
00000230  2c 31 2c 31 32 36 2c 30  2c 30 2c 2d 31 32 36 2c  |,1,126,0,0,-126,|
00000240  31 32 36 2c 31 32 36 0d  00 78 15 eb 31 3a ef 32  |126,126..x..1:.2|
00000250  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 82 05  |3,1,0;0;0;0;....|
00000260  f5 0d 00 8c 0a f2 74 69  74 6c 65 0d 00 96 23 ef  |......title...#.|
00000270  20 31 39 2c 31 2c 31 2c  30 2c 30 2c 30 2c 30 2c  | 19,1,1,0,0,0,0,|
00000280  31 39 2c 32 2c 34 2c 30  2c 30 2c 30 2c 30 0d 00  |19,2,4,0,0,0,0..|
00000290  a0 18 e7 6b 24 3d 22 4b  22 84 6b 24 3d 22 6b 22  |...k$="K".k$="k"|
000002a0  8c f2 6b 65 79 73 0d 00  aa 11 e7 6b 24 3d 22 20  |..keys.....k$=" |
000002b0  22 8c f2 67 61 6d 65 0d  00 b4 12 fd 6b 24 3d 22  |"..game.....k$="|
000002c0  51 22 84 6b 24 3d 22 71  22 0d 00 be 08 eb 36 3a  |Q".k$="q".....6:|
000002d0  e0 0d 00 c8 05 3a 0d 00  d2 0a dd f2 67 61 6d 65  |.....:......game|
000002e0  0d 00 dc 22 6c 65 76 25  3d 30 3a 73 63 72 25 3d  |..."lev%=0:scr%=|
000002f0  30 3a 6c 69 76 65 25 3d  33 3a 3f 26 42 46 38 3d  |0:live%=3:?&BF8=|
00000300  31 35 0d 00 e6 05 f5 0d  00 f0 0a f2 6c 65 76 65  |15..........leve|
00000310  6c 0d 00 fa 29 e7 20 6c  69 76 65 25 3d 2d 31 20  |l...). live%=-1 |
00000320  8c 20 6c 65 76 25 3d 32  30 20 8b 20 73 63 72 25  |. lev%=20 . scr%|
00000330  3d 73 63 72 25 2b 74 69  6d 25 0d 01 04 0d fd 20  |=scr%+tim%..... |
00000340  6c 65 76 25 3d 32 30 0d  01 0e 1c e7 20 6c 69 76  |lev%=20..... liv|
00000350  65 25 3d 2d 31 20 8c 20  f2 67 61 6d 65 6f 76 65  |e%=-1 . .gameove|
00000360  72 3a e1 0d 01 18 0c f2  63 6f 6e 67 72 61 74 0d  |r:......congrat.|
00000370  01 22 05 e1 0d 01 2c 05  3a 0d 01 36 0b dd f2 6c  |."....,.:..6...l|
00000380  65 76 65 6c 0d 01 40 10  db 3a 6d 6f 6e 25 3d 3f  |evel..@..:mon%=?|
00000390  26 42 46 38 0d 01 4a 30  fb 20 33 3a f1 8a 39 2c  |&BF8..J0. 3:..9,|
000003a0  31 36 29 22 47 65 74 20  52 65 61 64 79 20 66 6f  |16)"Get Ready fo|
000003b0  72 20 4c 65 76 65 6c 20  22 3b 6c 65 76 25 2b 31  |r Level ";lev%+1|
000003c0  3b 22 21 22 0d 01 54 0c  e3 63 3d 30 20 b8 20 35  |;"!"..T..c=0 . 5|
000003d0  0d 01 5e 30 e3 63 6f 6c  3d 30 20 b8 20 37 3a e7  |..^0.col=0 . 7:.|
000003e0  20 73 6f 75 6e 64 3d b9  20 8c 20 d4 20 31 2c 32  | sound=. . . 1,2|
000003f0  2c 63 2a 34 2b 63 6f 6c  2a 38 2b 31 30 30 2c 31  |,c*4+col*8+100,1|
00000400  0d 01 68 14 ef 20 31 39  2c 33 2c 63 6f 6c 2c 30  |..h.. 19,3,col,0|
00000410  2c 30 2c 30 0d 01 72 0b  6e 74 25 3d 91 2b 34 0d  |,0,0..r.nt%=.+4.|
00000420  01 7c 0d f5 20 fd 20 91  3e 6e 74 25 0d 01 86 08  |.|.. . .>nt%....|
00000430  ed 2c 3a db 0d 01 90 05  f5 0d 01 9a 12 ef 20 31  |.,:........... 1|
00000440  39 2c 33 2c 32 2c 30 2c  30 2c 30 0d 01 a4 28 74  |9,3,2,0,0,0...(t|
00000450  69 6d 25 3d 32 30 30 3a  6c 65 76 25 3d 6c 65 76  |im%=200:lev%=lev|
00000460  25 2b 31 3a 3f 26 42 46  30 3d 31 3a 3f 26 42 46  |%+1:?&BF0=1:?&BF|
00000470  31 3d 31 0d 01 ae 95 e6  30 2c 31 3a ec 30 2c 30  |1=1.....0,1:.0,0|
00000480  3a ec 33 30 30 30 2c 30  3a f0 38 35 2c 30 2c 33  |:.3000,0:.85,0,3|
00000490  30 30 30 3a e6 30 2c 30  3a ec 33 32 2c 33 32 3a  |000:.0,0:.32,32:|
000004a0  ec 33 32 2c 39 36 3a f0  38 35 2c 32 32 34 2c 33  |.32,96:.85,224,3|
000004b0  32 3a f0 38 35 2c 32 32  34 2c 39 36 3a ec 32 35  |2:.85,224,96:.25|
000004c0  36 2c 33 32 3a ec 32 35  36 2c 39 36 3a f0 38 35  |6,32:.256,96:.85|
000004d0  2c 34 38 30 2c 33 32 3a  f0 38 35 2c 34 38 30 2c  |,480,32:.85,480,|
000004e0  39 36 3a ec 35 31 32 2c  33 32 3a ec 35 31 32 2c  |96:.512,32:.512,|
000004f0  39 36 3a f0 38 35 2c 37  36 38 2c 33 32 3a f0 38  |96:.85,768,32:.8|
00000500  35 2c 37 36 38 2c 39 36  0d 01 b8 7d ec 38 30 30  |5,768,96...}.800|
00000510  2c 33 32 3a ec 38 30 30  2c 39 36 3a f0 38 35 2c  |,32:.800,96:.85,|
00000520  39 39 32 2c 33 32 3a f0  38 35 2c 39 39 32 2c 39  |992,32:.85,992,9|
00000530  36 3a ec 31 30 32 34 2c  33 32 3a ec 31 30 32 34  |6:.1024,32:.1024|
00000540  2c 39 36 3a f0 38 35 2c  31 32 34 38 2c 33 32 3a  |,96:.85,1248,32:|
00000550  f0 38 35 2c 31 32 34 38  2c 39 36 3a ec 33 32 2c  |.85,1248,96:.32,|
00000560  32 32 34 3a ec 31 32 34  38 2c 32 32 34 3a f0 38  |224:.1248,224:.8|
00000570  35 2c 33 32 2c 39 39 32  3a f0 38 35 2c 31 32 34  |5,32,992:.85,124|
00000580  38 2c 39 39 32 0d 01 c2  11 fb 33 3a f1 8a 31 2c  |8,992.....3:..1,|
00000590  31 29 bd 31 33 31 0d 01  cc 1d 3f 26 37 33 3d 28  |1).131....?&73=(|
000005a0  26 31 34 43 30 2b 26 34  30 2a 6c 65 76 25 29 83  |&14C0+&40*lev%).|
000005b0  32 35 36 0d 01 d6 1d 3f  26 37 34 3d 28 26 31 34  |256....?&74=(&14|
000005c0  43 30 2b 26 34 30 2a 6c  65 76 25 29 81 32 35 36  |C0+&40*lev%).256|
000005d0  0d 01 e0 0d fb 31 3a d6  26 31 41 30 30 0d 01 ea  |.....1:.&1A00...|
000005e0  50 fb 33 3a f1 8a 31 2c  32 39 29 22 53 63 6f 72  |P.3:..1,29)"Scor|
000005f0  65 22 3b 8a 38 2c 32 39  29 22 4c 69 76 65 73 22  |e";.8,29)"Lives"|
00000600  3b 8a 31 36 2c 32 39 29  22 53 63 72 65 65 6e 22  |;.16,29)"Screen"|
00000610  3b 8a 32 35 2c 32 39 29  22 54 69 6d 65 22 3b 8a  |;.25,29)"Time";.|
00000620  33 32 2c 32 39 29 22 4d  6f 6e 65 79 22 0d 01 f4  |32,29)"Money"...|
00000630  05 f5 0d 01 fe 06 fb 33  0d 02 08 2a f1 8a 32 2c  |.......3...*..2,|
00000640  33 30 29 3b 73 63 72 25  3b 8a 31 31 2c 33 30 29  |30);scr%;.11,30)|
00000650  6c 69 76 65 25 3b 8a 31  39 2c 33 30 29 6c 65 76  |live%;.19,30)lev|
00000660  25 3b 0d 02 12 28 f1 8a  32 37 2c 33 30 29 3b 74  |%;...(..27,30);t|
00000670  69 6d 25 3b 22 20 22 3b  8a 33 34 2c 33 30 29 3b  |im%;" ";.34,30);|
00000680  3f 26 42 46 38 3b 22 30  20 22 0d 02 1c 0d f5 20  |?&BF8;"0 "..... |
00000690  fd 20 91 3e 6e 74 25 0d  02 26 12 6e 74 25 3d 91  |. .>nt%..&.nt%=.|
000006a0  2b 31 35 3a d6 26 41 45  39 0d 02 30 39 e7 3f 26  |+15:.&AE9..09.?&|
000006b0  42 46 39 3d 30 80 3f 26  42 45 46 3d 30 8c f5 20  |BF9=0.?&BEF=0.. |
000006c0  fd 20 91 3e 6e 74 25 3a  6e 74 25 3d 91 2b 31 35  |. .>nt%:nt%=.+15|
000006d0  3a d6 26 41 45 39 3a 74  69 6d 25 3d 74 69 6d 25  |:.&AE9:tim%=tim%|
000006e0  2d 31 0d 02 3a 2a fd 20  74 69 6d 25 3d 2d 31 20  |-1..:*. tim%=-1 |
000006f0  84 20 3f 26 42 45 46 3d  31 20 84 20 3f 26 42 46  |. ?&BEF=1 . ?&BF|
00000700  39 3d 31 20 84 20 a6 28  2d 38 32 29 0d 02 44 32  |9=1 . .(-82)..D2|
00000710  e7 20 74 69 6d 25 3c 3e  2d 31 20 80 20 3f 26 42  |. tim%<>-1 . ?&B|
00000720  46 39 3d 30 20 84 20 a6  28 2d 38 32 29 8c 20 fd  |F9=0 . .(-82). .|
00000730  20 b9 3a f2 6c 65 76 65  6c 66 69 6e 3a e1 0d 02  | .:.levelfin:...|
00000740  4e 1c 6c 69 76 65 25 3d  6c 69 76 65 25 2d 31 3a  |N.live%=live%-1:|
00000750  3f 26 42 46 38 3d 6d 6f  6e 25 0d 02 58 16 e7 20  |?&BF8=mon%..X.. |
00000760  6c 69 76 65 25 3d 2d 31  20 8c 20 fd 20 b9 3a e1  |live%=-1 . . .:.|
00000770  0d 02 62 12 db 3a fb 33  3a f1 8a 31 35 2c 31 36  |..b..:.3:..15,16|
00000780  29 3b 0d 02 6c 27 e7 3f  26 42 46 39 3d 30 8c f1  |);..l'.?&BF9=0..|
00000790  22 54 69 6d 65 20 4f 75  74 21 22 8b f1 22 4c 6f  |"Time Out!".."Lo|
000007a0  73 74 20 42 61 6c 6c 21  22 0d 02 76 23 e3 63 3d  |st Ball!"..v#.c=|
000007b0  30 20 b8 20 35 3a e7 20  73 6f 75 6e 64 3d b9 20  |0 . 5:. sound=. |
000007c0  8c 20 d4 20 31 2c 33 2c  33 35 2c 37 0d 02 80 0e  |. . 1,3,35,7....|
000007d0  e3 63 6f 6c 3d 30 20 b8  20 37 0d 02 8a 14 ef 20  |.col=0 . 7..... |
000007e0  31 39 2c 33 2c 63 6f 6c  2c 30 2c 30 2c 30 0d 02  |19,3,col,0,0,0..|
000007f0  94 0b 6e 74 25 3d 91 2b  34 0d 02 9e 0d f5 20 fd  |..nt%=.+4..... .|
00000800  20 91 3e 6e 74 25 0d 02  a8 14 ed 2c 3a db 3a 6c  | .>nt%.....,:.:l|
00000810  65 76 25 3d 6c 65 76 25  2d 31 0d 02 b2 07 fd 20  |ev%=lev%-1..... |
00000820  a3 0d 02 bc 05 e1 0d 02  c6 05 3a 0d 02 d0 0e dd  |..........:.....|
00000830  f2 6c 65 76 65 6c 66 69  6e 0d 02 da 09 db 3a fb  |.levelfin.....:.|
00000840  20 33 0d 02 e4 2d f1 8a  34 2c 31 36 29 3b 22 43  | 3...-..4,16);"C|
00000850  6f 6e 67 72 61 74 75 6c  61 74 69 6f 6e 73 3a 20  |ongratulations: |
00000860  4c 65 76 65 6c 20 43 6f  6d 70 6c 65 74 65 22 0d  |Level Complete".|
00000870  02 ee 28 e3 63 3d 30 20  b8 20 34 3a e7 20 73 6f  |..(.c=0 . 4:. so|
00000880  75 6e 64 3d b9 20 8c 20  d4 20 31 2c 31 2c 38 2b  |und=. . . 1,1,8+|
00000890  63 2a 34 38 2c 31 30 0d  02 f8 0e e3 63 6f 6c 3d  |c*48,10.....col=|
000008a0  30 20 b8 20 37 0d 03 02  14 ef 20 31 39 2c 33 2c  |0 . 7..... 19,3,|
000008b0  63 6f 6c 2c 30 2c 30 2c  30 0d 03 0c 0b 6e 74 25  |col,0,0,0....nt%|
000008c0  3d 91 2b 34 0d 03 16 0d  f5 20 fd 20 91 3e 6e 74  |=.+4..... . .>nt|
000008d0  25 0d 03 20 19 ed 2c 3a  db 3a 3f 26 42 46 38 3d  |%.. ..,:.:?&BF8=|
000008e0  28 3f 26 42 46 38 29 2b  31 35 0d 03 2a 05 e1 0d  |(?&BF8)+15..*...|
000008f0  03 34 05 3a 0d 03 3e 0e  dd f2 67 61 6d 65 6f 76  |.4.:..>...gameov|
00000900  65 72 0d 03 48 09 db 3a  fb 20 33 0d 03 52 22 f1  |er..H..:. 3..R".|
00000910  8a 39 2c 31 36 29 22 54  68 61 74 27 73 20 69 74  |.9,16)"That's it|
00000920  3a 20 47 61 6d 65 20 4f  76 65 72 21 22 0d 03 5c  |: Game Over!"..\|
00000930  0c e3 63 3d 30 20 b8 20  35 0d 03 66 32 e3 63 6f  |..c=0 . 5..f2.co|
00000940  6c 3d 30 20 b8 20 37 3a  e7 20 73 6f 75 6e 64 3d  |l=0 . 7:. sound=|
00000950  b9 20 8c 20 d4 20 31 2c  32 2c 31 35 30 2d 28 63  |. . . 1,2,150-(c|
00000960  2a 34 2b 63 6f 6c 2a 38  29 2c 31 0d 03 70 14 ef  |*4+col*8),1..p..|
00000970  20 31 39 2c 33 2c 63 6f  6c 2c 30 2c 30 2c 30 0d  | 19,3,col,0,0,0.|
00000980  03 7a 0b 6e 74 25 3d 91  2b 34 0d 03 84 0d f5 20  |.z.nt%=.+4..... |
00000990  fd 20 91 3e 6e 74 25 0d  03 8e 08 ed 2c 3a db 0d  |. .>nt%.....,:..|
000009a0  03 98 05 e1 0d 03 a2 05  3a 0d 03 ac 0d dd f2 63  |........:......c|
000009b0  6f 6e 67 72 61 74 0d 03  b6 09 db 3a fb 20 33 0d  |ongrat.....:. 3.|
000009c0  03 c0 0c e3 78 3d 30 20  b8 20 35 0d 03 ca 2d f1  |....x=0 . 5...-.|
000009d0  8a 34 2c 31 36 29 3b 22  43 6f 6e 67 72 61 74 75  |.4,16);"Congratu|
000009e0  6c 61 74 69 6f 6e 73 3a  20 47 61 6d 65 20 43 6f  |lations: Game Co|
000009f0  6d 70 6c 65 74 65 21 22  0d 03 d4 28 e3 63 3d 30  |mplete!"...(.c=0|
00000a00  20 b8 20 34 3a e7 20 73  6f 75 6e 64 3d b9 20 8c  | . 4:. sound=. .|
00000a10  20 d4 20 31 2c 31 2c 38  2b 63 2a 34 38 2c 31 30  | . 1,1,8+c*48,10|
00000a20  0d 03 de 0e e3 63 6f 6c  3d 30 20 b8 20 37 0d 03  |.....col=0 . 7..|
00000a30  e8 14 ef 20 31 39 2c 33  2c 63 6f 6c 2c 30 2c 30  |... 19,3,col,0,0|
00000a40  2c 30 0d 03 f2 0b 6e 74  25 3d 91 2b 34 0d 03 fc  |,0....nt%=.+4...|
00000a50  0d f5 20 fd 20 91 3e 6e  74 25 0d 04 06 09 ed 2c  |.. . .>nt%.....,|
00000a60  2c 3a db 0d 04 10 05 e1  0d 04 1a 05 3a 0d 04 24  |,:..........:..$|
00000a70  0b dd f2 74 69 74 6c 65  0d 04 2e 0b 63 6f 6c 3d  |...title....col=|
00000a80  30 3a db 0d 04 38 0c d6  26 41 30 30 3a fb 32 0d  |0:...8..&A00:.2.|
00000a90  04 42 b6 f1 8a 31 37 2c  35 29 22 42 4f 55 4e 43  |.B...17,5)"BOUNC|
00000aa0  45 22 3b 8a 31 30 2c 38  29 22 62 79 20 44 6f 6d  |E";.10,8)"by Dom|
00000ab0  69 6e 69 63 20 46 6f 72  64 20 31 39 39 36 22 3b  |inic Ford 1996";|
00000ac0  8a 31 32 2c 31 34 29 22  53 50 41 43 45 20 2d 20  |.12,14)"SPACE - |
00000ad0  53 74 61 72 74 22 3b 8a  31 36 2c 31 36 29 22 51  |Start";.16,16)"Q|
00000ae0  20 2d 20 51 75 69 74 22  3b 8a 31 36 2c 31 38 29  | - Quit";.16,18)|
00000af0  22 53 20 2d 20 53 6f 75  6e 64 20 4f 6e 2f 4f 66  |"S - Sound On/Of|
00000b00  66 22 3b 8a 31 36 2c 32  30 29 22 4b 20 2d 20 43  |f";.16,20)"K - C|
00000b10  68 61 6e 67 65 20 4b 65  79 73 22 3b 8a 31 35 2c  |hange Keys";.15,|
00000b20  32 35 29 3b 22 53 6f 75  6e 64 3a 20 22 3b 3a e7  |25);"Sound: ";:.|
00000b30  73 6f 75 6e 64 20 8c 20  f1 22 4f 6e 20 22 8b f1  |sound . ."On "..|
00000b40  22 4f 66 66 22 0d 04 4c  1b ef 20 32 33 2c 31 2c  |"Off"..L.. 23,1,|
00000b50  30 3b 30 3b 30 3b 30 3b  3a 2a 46 58 31 35 2c 31  |0;0;0;0;:*FX15,1|
00000b60  0d 04 56 05 f5 0d 04 60  1e 6e 74 25 3d 91 2b 31  |..V....`.nt%=.+1|
00000b70  30 3a 63 6f 6c 3d 28 28  63 6f 6c 2b 31 29 20 83  |0:col=((col+1) .|
00000b80  20 33 29 0d 04 6a 1b ef  20 31 39 2c 31 2c 63 6c  | 3)..j.. 19,1,cl|
00000b90  25 28 63 6f 6c 29 2c 30  2c 30 2c 30 2c 30 0d 04  |%(col),0,0,0,0..|
00000ba0  74 23 ef 20 31 39 2c 32  2c 63 6c 25 28 28 63 6f  |t#. 19,2,cl%((co|
00000bb0  6c 2b 31 29 20 83 20 33  29 2c 30 2c 30 2c 30 2c  |l+1) . 3),0,0,0,|
00000bc0  30 0d 04 7e 23 ef 20 31  39 2c 33 2c 63 6c 25 28  |0..~#. 19,3,cl%(|
00000bd0  28 63 6f 6c 2b 32 29 20  83 20 33 29 2c 30 2c 30  |(col+2) . 3),0,0|
00000be0  2c 30 2c 30 0d 04 88 0d  f5 20 fd 20 91 3e 6e 74  |,0,0..... . .>nt|
00000bf0  25 0d 04 92 0b 6b 24 3d  bf 28 30 29 0d 04 9c 19  |%....k$=.(0)....|
00000c00  e7 6b 24 3d 22 53 22 84  6b 24 3d 22 73 22 8c f2  |.k$="S".k$="s"..|
00000c10  73 6f 75 6e 64 0d 04 a6  20 fd 20 a7 22 20 51 71  |sound... . ." Qq|
00000c20  4b 6b 22 2c 6b 24 29 3c  3e 30 20 80 20 a9 28 6b  |Kk",k$)<>0 . .(k|
00000c30  24 29 3c 3e 30 0d 04 b0  05 e1 0d 04 ba 05 3a 0d  |$)<>0.........:.|
00000c40  04 c4 0b dd f2 73 6f 75  6e 64 0d 04 ce 1e e7 73  |.....sound.....s|
00000c50  6f 75 6e 64 20 8c 20 73  6f 75 6e 64 3d a3 20 8b  |ound . sound=. .|
00000c60  20 73 6f 75 6e 64 3d b9  0d 04 d8 24 f1 8a 32 32  | sound=....$..22|
00000c70  2c 32 35 29 3b 3a e7 73  6f 75 6e 64 20 8c 20 f1  |,25);:.sound . .|
00000c80  22 4f 6e 20 22 8b f1 22  4f 66 66 22 0d 04 e2 05  |"On ".."Off"....|
00000c90  e1 0d 04 ec 05 3a 0d 04  f6 0a dd f2 6b 65 79 73  |.....:......keys|
00000ca0  0d 05 00 14 ef 32 33 2c  31 2c 31 2c 30 3b 30 3b  |.....23,1,1,0;0;|
00000cb0  30 3b 30 3b 0d 05 0a 51  db 3a f1 22 50 6c 65 61  |0;0;...Q.:."Plea|
00000cc0  73 65 20 73 65 6c 65 63  74 20 6e 65 77 20 6b 65  |se select new ke|
00000cd0  79 73 3a 22 27 27 22 4c  65 66 74 3a 22 27 22 52  |ys:"''"Left:"'"R|
00000ce0  69 67 68 74 3a 22 27 22  55 70 3a 22 27 22 44 6f  |ight:"'"Up:"'"Do|
00000cf0  77 6e 3a 22 27 22 57 61  6c 6c 3a 22 27 22 43 6c  |wn:"'"Wall:"'"Cl|
00000d00  65 61 72 3a 22 0d 05 14  2f e3 6b 3d 30 b8 35 3a  |ear:".../.k=0.5:|
00000d10  f1 8a 38 2c 32 2b 6b 29  3b 3a 6b 24 3d be 3a f1  |..8,2+k);:k$=.:.|
00000d20  6b 24 3a 3f 28 26 42 46  41 2b 6b 29 3d 97 28 6b  |k$:?(&BFA+k)=.(k|
00000d30  24 29 3a ed 0d 05 1e 18  ef 32 33 2c 31 2c 30 3b  |$):......23,1,0;|
00000d40  30 3b 30 3b 30 3b 3a 6b  24 3d 22 22 0d 05 28 05  |0;0;0;:k$=""..(.|
00000d50  e1 0d 05 32 05 3a 0d 05  3c 10 f4 20 4c 65 76 65  |...2.:..<.. Leve|
00000d60  6c 20 44 61 74 61 0d 05  46 0d f4 20 4c 65 76 65  |l Data..F.. Leve|
00000d70  6c 20 31 0d 05 50 75 dc  20 31 37 2c 33 2c 33 2c  |l 1..Pu. 17,3,3,|
00000d80  34 2c 33 2c 35 2c 33 2c  36 2c 33 2c 37 2c 33 2c  |4,3,5,3,6,3,7,3,|
00000d90  38 2c 33 2c 38 2c 38 2c  39 2c 39 2c 31 30 2c 39  |8,3,8,8,9,9,10,9|
00000da0  2c 31 31 2c 39 2c 31 32  2c 39 2c 31 33 2c 39 2c  |,11,9,12,9,13,9,|
00000db0  31 34 2c 39 2c 31 35 2c  39 2c 31 36 2c 39 2c 31  |14,9,15,9,16,9,1|
00000dc0  37 2c 38 2c 31 38 2c 39  2c 31 39 2c 38 2c 38 2c  |7,8,18,9,19,8,8,|
00000dd0  31 2c 31 39 2c 31 2c 31  2c 31 37 2c 31 30 2c 31  |1,19,1,1,17,10,1|
00000de0  2c 32 2c 32 2c 32 35 35  0d 05 5a 05 3a 0d 05 64  |,2,2,255..Z.:..d|
00000df0  0d f4 20 4c 65 76 65 6c  20 32 0d 05 6e 4f dc 20  |.. Level 2..nO. |
00000e00  31 30 2c 35 2c 35 2c 36  2c 36 2c 37 2c 35 2c 31  |10,5,5,6,6,7,5,1|
00000e10  31 2c 35 2c 31 32 2c 36  2c 31 33 2c 35 2c 37 2c  |1,5,12,6,13,5,7,|
00000e20  38 2c 38 2c 39 2c 31 30  2c 39 2c 31 31 2c 38 2c  |8,8,9,10,9,11,8,|
00000e30  39 2c 31 32 2c 36 2c 31  2c 31 32 2c 31 2c 30 2c  |9,12,6,1,12,1,0,|
00000e40  31 2c 39 2c 38 2c 32 35  35 0d 05 78 05 3a 0d 05  |1,9,8,255..x.:..|
00000e50  82 0d f4 20 4c 65 76 65  6c 20 33 0d 05 8c 7a dc  |... Level 3...z.|
00000e60  20 31 33 2c 35 2c 35 2c  36 2c 36 2c 37 2c 36 2c  | 13,5,5,6,6,7,6,|
00000e70  38 2c 36 2c 39 2c 36 2c  31 30 2c 35 2c 31 32 2c  |8,6,9,6,10,5,12,|
00000e80  35 2c 31 33 2c 36 2c 31  34 2c 36 2c 31 35 2c 36  |5,13,6,14,6,15,6|
00000e90  2c 31 36 2c 36 2c 31 37  2c 35 2c 39 2c 39 2c 31  |,16,6,17,5,9,9,1|
00000ea0  33 2c 39 2c 39 2c 31 2c  31 33 2c 32 2c 36 2c 31  |3,9,9,1,13,2,6,1|
00000eb0  31 2c 35 2c 31 31 2c 36  2c 31 30 2c 31 30 2c 31  |1,5,11,6,10,10,1|
00000ec0  34 2c 38 2c 31 30 2c 31  30 2c 31 32 2c 31 30 2c  |4,8,10,10,12,10,|
00000ed0  30 2c 32 35 35 0d 05 96  05 3a 0d 05 a0 0d f4 20  |0,255....:..... |
00000ee0  4c 65 76 65 6c 20 34 0d  05 aa 98 dc 20 31 31 2c  |Level 4..... 11,|
00000ef0  35 2c 35 2c 36 2c 36 2c  37 2c 36 2c 38 2c 36 2c  |5,5,6,6,7,6,8,6,|
00000f00  39 2c 36 2c 31 30 2c 35  2c 31 32 2c 35 2c 31 33  |9,6,10,5,12,5,13|
00000f10  2c 36 2c 31 34 2c 36 2c  31 35 2c 36 2c 31 36 2c  |,6,14,6,15,6,16,|
00000f20  36 2c 31 37 2c 35 2c 36  2c 31 2c 31 36 2c 31 2c  |6,17,5,6,1,16,1,|
00000f30  37 2c 31 31 2c 35 2c 31  31 2c 36 2c 31 31 2c 37  |7,11,5,11,6,11,7|
00000f40  2c 31 30 2c 38 2c 39 2c  37 2c 31 32 2c 38 2c 31  |,10,8,9,7,12,8,1|
00000f50  33 2c 37 2c 37 2c 38 2c  39 2c 39 2c 31 30 2c 31  |3,7,7,8,9,9,10,1|
00000f60  30 2c 31 30 2c 31 31 2c  31 30 2c 31 32 2c 31 30  |0,10,11,10,12,10|
00000f70  2c 31 33 2c 31 30 2c 31  34 2c 39 2c 32 35 35 0d  |,13,10,14,9,255.|
00000f80  05 b4 05 3a 0d 05 be 0d  f4 20 4c 65 76 65 6c 20  |...:..... Level |
00000f90  35 0d 05 c8 3b dc 20 34  2c 35 2c 35 2c 39 2c 35  |5...;. 4,5,5,9,5|
00000fa0  2c 36 2c 39 2c 37 2c 39  2c 38 2c 39 2c 36 2c 31  |,6,9,7,9,8,9,6,1|
00000fb0  2c 38 2c 31 2c 31 2c 37  2c 36 2c 33 2c 36 2c 36  |,8,1,1,7,6,3,6,6|
00000fc0  2c 37 2c 35 2c 38 2c 36  2c 32 35 35 0d 05 d2 05  |,7,5,8,6,255....|
00000fd0  3a 0d 05 dc 0d f4 20 4c  65 76 65 6c 20 36 0d 05  |:..... Level 6..|
00000fe0  e6 58 dc 20 36 2c 35 2c  35 2c 36 2c 36 2c 37 2c  |.X. 6,5,5,6,6,7,|
00000ff0  35 2c 34 2c 37 2c 35 2c  38 2c 34 2c 31 31 2c 35  |5,4,7,5,8,4,11,5|
00001000  2c 31 32 2c 36 2c 31 2c  39 2c 31 2c 31 2c 31 30  |,12,6,1,9,1,1,10|
00001010  2c 31 32 2c 36 2c 36 2c  31 30 2c 37 2c 39 2c 38  |,12,6,6,10,7,9,8|
00001020  2c 31 30 2c 37 2c 31 33  2c 38 2c 31 34 2c 39 2c  |,10,7,13,8,14,9,|
00001030  31 33 2c 32 35 35 0d 05  f0 05 3a 0d 05 fa 0d f4  |13,255....:.....|
00001040  20 4c 65 76 65 6c 20 37  0d 06 04 92 dc 20 33 2c  | Level 7..... 3,|
00001050  37 2c 35 2c 38 2c 36 2c  31 30 2c 36 2c 31 31 2c  |7,5,8,6,10,6,11,|
00001060  35 2c 39 2c 31 2c 31 31  2c 31 2c 31 30 2c 35 2c  |5,9,1,11,1,10,5,|
00001070  38 2c 35 2c 39 2c 35 2c  31 30 2c 35 2c 31 31 2c  |8,5,9,5,10,5,11,|
00001080  37 2c 31 32 2c 39 2c 38  2c 39 2c 39 2c 39 2c 31  |7,12,9,8,9,9,9,1|
00001090  30 2c 39 2c 31 31 2c 31  31 2c 31 32 2c 31 31 2c  |0,9,11,11,12,11,|
000010a0  37 2c 38 2c 37 2c 39 2c  37 2c 31 31 2c 37 2c 31  |7,8,7,9,7,11,7,1|
000010b0  31 2c 31 31 2c 38 2c 31  31 2c 39 2c 31 31 2c 31  |1,11,8,11,9,11,1|
000010c0  30 2c 31 31 2c 31 31 2c  38 2c 31 33 2c 31 30 2c  |0,11,11,8,13,10,|
000010d0  31 33 2c 39 2c 35 2c 32  35 35 0d 06 0e 05 3a 0d  |13,9,5,255....:.|
000010e0  06 18 0d f4 20 4c 65 76  65 6c 20 38 0d 06 22 8b  |.... Level 8..".|
000010f0  dc 20 31 34 2c 35 2c 35  2c 35 2c 36 2c 36 2c 36  |. 14,5,5,5,6,6,6|
00001100  2c 31 30 2c 36 2c 31 31  2c 36 2c 31 31 2c 35 2c  |,10,6,11,6,11,5,|
00001110  35 2c 39 2c 35 2c 31 30  2c 36 2c 31 31 2c 37 2c  |5,9,5,10,6,11,7,|
00001120  31 32 2c 38 2c 31 34 2c  39 2c 31 32 2c 31 30 2c  |12,8,14,9,12,10,|
00001130  31 31 2c 31 31 2c 31 30  2c 31 31 2c 39 2c 38 2c  |11,11,10,11,9,8,|
00001140  31 2c 31 31 2c 31 2c 30  2c 39 2c 37 2c 36 2c 38  |1,11,1,0,9,7,6,8|
00001150  2c 35 2c 39 2c 36 2c 38  2c 39 2c 38 2c 31 30 2c  |,5,9,6,8,9,8,10,|
00001160  38 2c 31 31 2c 38 2c 31  32 2c 38 2c 31 33 2c 38  |8,11,8,12,8,13,8|
00001170  2c 31 35 2c 32 35 35 0d  06 2c 05 3a 0d 06 36 0d  |,15,255..,.:..6.|
00001180  f4 20 4c 65 76 65 6c 20  39 0d 06 40 80 dc 20 31  |. Level 9..@.. 1|
00001190  32 2c 38 2c 35 2c 39 2c  36 2c 31 31 2c 35 2c 31  |2,8,5,9,6,11,5,1|
000011a0  32 2c 36 2c 31 33 2c 35  2c 35 2c 39 2c 35 2c 31  |2,6,13,5,5,9,5,1|
000011b0  30 2c 37 2c 39 2c 37 2c  31 30 2c 39 2c 39 2c 39  |0,7,9,7,10,9,9,9|
000011c0  2c 31 30 2c 31 31 2c 39  2c 31 31 2c 31 30 2c 39  |,10,11,9,11,10,9|
000011d0  2c 31 2c 31 32 2c 31 2c  33 2c 31 30 2c 36 2c 38  |,1,12,1,3,10,6,8|
000011e0  2c 31 32 2c 38 2c 31 33  2c 35 2c 36 2c 31 32 2c  |,12,8,13,5,6,12,|
000011f0  36 2c 31 33 2c 31 30 2c  31 32 2c 31 30 2c 31 33  |6,13,10,12,10,13|
00001200  2c 31 30 2c 35 2c 32 35  35 0d 06 4a 05 3a 0d 06  |,10,5,255..J.:..|
00001210  54 0e f4 20 4c 65 76 65  6c 20 31 30 0d 06 5e a1  |T.. Level 10..^.|
00001220  dc 20 31 37 2c 35 2c 35  2c 36 2c 36 2c 37 2c 37  |. 17,5,5,6,6,7,7|
00001230  2c 38 2c 38 2c 39 2c 39  2c 31 30 2c 31 30 2c 38  |,8,8,9,9,10,10,8|
00001240  2c 35 2c 39 2c 36 2c 31  30 2c 35 2c 31 34 2c 35  |,5,9,6,10,5,14,5|
00001250  2c 31 35 2c 36 2c 31 36  2c 35 2c 31 34 2c 31 30  |,15,6,16,5,14,10|
00001260  2c 31 35 2c 39 2c 31 36  2c 38 2c 31 37 2c 37 2c  |,15,9,16,8,17,7,|
00001270  31 38 2c 36 2c 31 39 2c  35 2c 39 2c 31 2c 31 35  |18,6,19,5,9,1,15|
00001280  2c 31 2c 39 2c 31 32 2c  35 2c 31 32 2c 36 2c 31  |,1,9,12,5,12,6,1|
00001290  32 2c 39 2c 31 32 2c 31  30 2c 31 32 2c 31 32 2c  |2,9,12,10,12,12,|
000012a0  31 31 2c 31 33 2c 31 33  2c 31 33 2c 31 34 2c 31  |11,13,13,13,14,1|
000012b0  33 2c 31 35 2c 31 33 2c  30 2c 32 35 35 0d 06 68  |3,15,13,0,255..h|
000012c0  05 3a 0d 06 72 0e f4 20  4c 65 76 65 6c 20 31 31  |.:..r.. Level 11|
000012d0  0d 06 7c 6d dc 20 31 30  2c 35 2c 36 2c 36 2c 35  |..|m. 10,5,6,6,5|
000012e0  2c 36 2c 37 2c 37 2c 36  2c 39 2c 36 2c 31 30 2c  |,6,7,7,6,9,6,10,|
000012f0  35 2c 31 30 2c 37 2c 31  31 2c 36 2c 38 2c 39 2c  |5,10,7,11,6,8,9,|
00001300  38 2c 31 30 2c 38 2c 31  31 2c 37 2c 31 2c 39 2c  |8,10,8,11,7,1,9,|
00001310  31 2c 37 2c 38 2c 36 2c  36 2c 38 2c 38 2c 38 2c  |1,7,8,6,6,8,8,8,|
00001320  31 30 2c 38 2c 37 2c 31  32 2c 38 2c 31 32 2c 39  |10,8,7,12,8,12,9|
00001330  2c 31 32 2c 31 2c 38 2c  35 2c 32 35 35 0d 06 86  |,12,1,8,5,255...|
00001340  05 3a 0d 06 90 0e f4 20  4c 65 76 65 6c 20 31 32  |.:..... Level 12|
00001350  0d 06 9a 78 dc 20 31 32  2c 35 2c 36 2c 36 2c 35  |...x. 12,5,6,6,5|
00001360  2c 36 2c 37 2c 31 30 2c  35 2c 31 31 2c 36 2c 31  |,6,7,10,5,11,6,1|
00001370  30 2c 37 2c 35 2c 31 33  2c 36 2c 31 33 2c 37 2c  |0,7,5,13,6,13,7,|
00001380  31 33 2c 38 2c 31 33 2c  39 2c 31 33 2c 31 30 2c  |13,8,13,9,13,10,|
00001390  31 33 2c 31 31 2c 31 33  2c 37 2c 31 2c 39 2c 31  |13,11,13,7,1,9,1|
000013a0  2c 34 2c 36 2c 38 2c 31  30 2c 38 2c 34 2c 31 32  |,4,6,8,10,8,4,12|
000013b0  2c 31 32 2c 31 32 2c 33  2c 37 2c 36 2c 38 2c 35  |,12,12,3,7,6,8,5|
000013c0  2c 39 2c 36 2c 32 35 35  0d 06 a4 05 3a 0d 06 ae  |,9,6,255....:...|
000013d0  0e f4 20 4c 65 76 65 6c  20 31 33 0d 06 b8 8b dc  |.. Level 13.....|
000013e0  20 36 2c 35 2c 35 2c 37  2c 35 2c 38 2c 31 32 2c  | 6,5,5,7,5,8,12,|
000013f0  39 2c 31 33 2c 31 30 2c  31 33 2c 31 30 2c 31 32  |9,13,10,13,10,12|
00001400  2c 31 31 2c 31 33 2c 36  2c 31 2c 39 2c 31 32 2c  |,11,13,6,1,9,12,|
00001410  35 2c 35 2c 36 2c 31 32  2c 31 32 2c 31 30 2c 31  |5,5,6,12,12,10,1|
00001420  30 2c 31 30 2c 31 31 2c  31 30 2c 39 2c 31 31 2c  |0,10,11,10,9,11,|
00001430  36 2c 36 2c 37 2c 37 2c  38 2c 37 2c 39 2c 37 2c  |6,6,7,7,8,7,9,7,|
00001440  31 30 2c 37 2c 31 31 2c  36 2c 31 32 2c 38 2c 31  |10,7,11,6,12,8,1|
00001450  33 2c 38 2c 31 34 2c 38  2c 31 35 2c 38 2c 31 36  |3,8,14,8,15,8,16|
00001460  2c 37 2c 32 35 35 0d 06  c2 05 3a 0d 06 cc 0e f4  |,7,255....:.....|
00001470  20 4c 65 76 65 6c 20 31  34 0d 06 d6 50 dc 20 31  | Level 14...P. 1|
00001480  30 2c 35 2c 35 2c 36 2c  36 2c 37 2c 36 2c 38 2c  |0,5,5,6,6,7,6,8,|
00001490  36 2c 39 2c 36 2c 31 30  2c 35 2c 31 31 2c 36 2c  |6,9,6,10,5,11,6,|
000014a0  31 32 2c 36 2c 31 33 2c  36 2c 31 34 2c 36 2c 31  |12,6,13,6,14,6,1|
000014b0  35 2c 35 2c 39 2c 31 2c  31 34 2c 31 2c 31 2c 31  |5,5,9,1,14,1,1,1|
000014c0  30 2c 36 2c 30 2c 32 35  35 0d 06 e0 05 3a 0d 06  |0,6,0,255....:..|
000014d0  ea 0e f4 20 4c 65 76 65  6c 20 31 35 0d 06 f4 9c  |... Level 15....|
000014e0  dc 20 32 36 2c 35 2c 35  2c 36 2c 36 2c 37 2c 37  |. 26,5,5,6,6,7,7|
000014f0  2c 38 2c 38 2c 39 2c 39  2c 31 30 2c 31 30 2c 37  |,8,8,9,9,10,10,7|
00001500  2c 35 2c 38 2c 36 2c 39  2c 37 2c 31 30 2c 38 2c  |,5,8,6,9,7,10,8,|
00001510  31 31 2c 39 2c 31 32 2c  31 30 2c 31 32 2c 38 2c  |11,9,12,10,12,8,|
00001520  31 33 2c 39 2c 31 34 2c  31 30 2c 31 34 2c 38 2c  |13,9,14,10,14,8,|
00001530  31 35 2c 39 2c 31 36 2c  31 30 2c 31 37 2c 39 2c  |15,9,16,10,17,9,|
00001540  31 38 2c 38 2c 31 39 2c  37 2c 32 30 2c 36 2c 32  |18,8,19,7,20,6,2|
00001550  31 2c 35 2c 31 36 2c 38  2c 31 37 2c 37 2c 31 38  |1,5,16,8,17,7,18|
00001560  2c 36 2c 31 39 2c 35 2c  36 2c 31 2c 32 30 2c 31  |,6,19,5,6,1,20,1|
00001570  2c 30 2c 30 2c 32 35 35  0d 06 fe 05 3a 0d 07 08  |,0,0,255....:...|
00001580  0e f4 20 4c 65 76 65 6c  20 31 36 0d 07 12 a3 dc  |.. Level 16.....|
00001590  20 31 37 2c 35 2c 35 2c  36 2c 36 2c 37 2c 35 2c  | 17,5,5,6,6,7,5,|
000015a0  31 30 2c 35 2c 31 31 2c  36 2c 31 32 2c 35 2c 35  |10,5,11,6,12,5,5|
000015b0  2c 39 2c 31 32 2c 39 2c  31 33 2c 38 2c 31 33 2c  |,9,12,9,13,8,13,|
000015c0  31 32 2c 31 34 2c 31 31  2c 35 2c 31 34 2c 31 31  |12,14,11,5,14,11|
000015d0  2c 31 34 2c 31 32 2c 31  34 2c 36 2c 31 36 2c 37  |,14,12,14,6,16,7|
000015e0  2c 31 36 2c 38 2c 31 38  2c 39 2c 31 39 2c 36 2c  |,16,8,18,9,19,6,|
000015f0  31 2c 31 31 2c 31 2c 35  2c 36 2c 37 2c 37 2c 38  |1,11,1,5,6,7,7,8|
00001600  2c 31 30 2c 38 2c 31 31  2c 31 32 2c 34 2c 31 32  |,10,8,11,12,4,12|
00001610  2c 35 2c 37 2c 31 31 2c  36 2c 31 32 2c 38 2c 31  |,5,7,11,6,12,8,1|
00001620  34 2c 39 2c 31 34 2c 31  30 2c 31 34 2c 30 0d 07  |4,9,14,10,14,0..|
00001630  1c 05 3a 0d 07 26 0e f4  20 4c 65 76 65 6c 20 31  |..:..&.. Level 1|
00001640  37 0d 07 30 71 dc 20 35  2c 39 2c 36 2c 31 30 2c  |7..0q. 5,9,6,10,|
00001650  37 2c 31 31 2c 36 2c 31  32 2c 35 2c 31 33 2c 36  |7,11,6,12,5,13,6|
00001660  2c 31 34 2c 35 2c 31 32  2c 31 2c 31 33 2c 31 2c  |,14,5,12,1,13,1,|
00001670  38 2c 31 32 2c 36 2c 31  33 2c 38 2c 39 2c 39 2c  |8,12,6,13,8,9,9,|
00001680  31 30 2c 39 2c 31 31 2c  39 2c 31 32 2c 39 2c 31  |10,9,11,9,12,9,1|
00001690  33 2c 39 2c 31 34 2c 39  2c 35 2c 35 2c 36 2c 36  |3,9,14,9,5,5,6,6|
000016a0  2c 37 2c 37 2c 37 2c 38  2c 37 2c 39 2c 37 2c 32  |,7,7,7,8,7,9,7,2|
000016b0  35 35 0d 07 3a 05 3a 0d  07 44 0e f4 20 4c 65 76  |55..:.:..D.. Lev|
000016c0  65 6c 20 31 38 0d 07 4e  9a dc 20 31 30 2c 31 2c  |el 18..N.. 10,1,|
000016d0  38 2c 32 2c 39 2c 33 2c  39 2c 34 2c 39 2c 35 2c  |8,2,9,3,9,4,9,5,|
000016e0  39 2c 31 34 2c 38 2c 31  35 2c 39 2c 31 36 2c 39  |9,14,8,15,9,16,9|
000016f0  2c 31 37 2c 39 2c 31 38  2c 39 2c 31 39 2c 38 2c  |,17,9,18,9,19,8,|
00001700  35 2c 31 2c 31 31 2c 31  2c 36 2c 36 2c 31 30 2c  |5,1,11,1,6,6,10,|
00001710  37 2c 31 31 2c 39 2c 39  2c 31 31 2c 39 2c 31 34  |7,11,9,9,11,9,14|
00001720  2c 31 30 2c 31 33 2c 31  31 2c 31 30 2c 34 2c 31  |,10,13,11,10,4,1|
00001730  2c 35 2c 32 2c 36 2c 36  2c 37 2c 36 2c 38 2c 36  |,5,2,6,6,7,6,8,6|
00001740  2c 39 2c 36 2c 31 30 2c  35 2c 31 31 2c 36 2c 31  |,9,6,10,5,11,6,1|
00001750  32 2c 36 2c 31 33 2c 36  2c 31 34 2c 36 2c 30 0d  |2,6,13,6,14,6,0.|
00001760  07 58 05 3a 0d 07 62 0e  f4 20 4c 65 76 65 6c 20  |.X.:..b.. Level |
00001770  31 39 0d 07 6c 96 dc 20  38 2c 37 2c 35 2c 31 33  |19..l.. 8,7,5,13|
00001780  2c 35 2c 37 2c 31 32 2c  38 2c 31 33 2c 39 2c 31  |,5,7,12,8,13,9,1|
00001790  33 2c 31 30 2c 31 33 2c  31 31 2c 31 33 2c 31 32  |3,10,13,11,13,12|
000017a0  2c 31 33 2c 31 33 2c 31  32 2c 36 2c 31 2c 31 34  |,13,13,12,6,1,14|
000017b0  2c 31 2c 37 2c 31 30 2c  36 2c 31 30 2c 37 2c 31  |,1,7,10,6,10,7,1|
000017c0  30 2c 38 2c 31 30 2c 39  2c 39 2c 31 30 2c 31 30  |0,8,10,9,9,10,10|
000017d0  2c 31 30 2c 31 31 2c 31  30 2c 39 2c 35 2c 35 2c  |,10,11,10,9,5,5,|
000017e0  36 2c 36 2c 37 2c 37 2c  38 2c 36 2c 31 32 2c 36  |6,6,7,7,8,6,12,6|
000017f0  2c 31 33 2c 37 2c 31 34  2c 36 2c 31 35 2c 35 2c  |,13,7,14,6,15,5,|
00001800  31 30 2c 35 2c 32 35 35  0d 07 76 05 3a 0d 07 80  |10,5,255..v.:...|
00001810  0e f4 20 4c 65 76 65 6c  20 32 30 0d 07 8a a9 dc  |.. Level 20.....|
00001820  20 31 39 2c 35 2c 35 2c  36 2c 36 2c 37 2c 35 2c  | 19,5,5,6,6,7,5,|
00001830  31 32 2c 35 2c 31 33 2c  36 2c 31 34 2c 35 2c 38  |12,5,13,6,14,5,8|
00001840  2c 31 30 2c 31 36 2c 31  30 2c 39 2c 31 32 2c 31  |,10,16,10,9,12,1|
00001850  30 2c 31 33 2c 31 33 2c  31 33 2c 31 34 2c 31 34  |0,13,13,13,14,14|
00001860  2c 39 2c 31 36 2c 31 36  2c 31 35 2c 31 35 2c 31  |,9,16,16,15,15,1|
00001870  36 2c 31 30 2c 31 38 2c  31 31 2c 31 39 2c 31 32  |6,10,18,11,19,12|
00001880  2c 31 39 2c 31 33 2c 31  39 2c 31 34 2c 31 38 2c  |,19,13,19,14,18,|
00001890  36 2c 31 2c 31 33 2c 31  2c 37 2c 31 33 2c 38 2c  |6,1,13,1,7,13,8,|
000018a0  31 34 2c 39 2c 31 31 2c  31 31 2c 31 35 2c 31 32  |14,9,11,11,15,12|
000018b0  2c 31 32 2c 31 33 2c 31  33 2c 31 36 2c 31 31 2c  |,12,13,13,16,11,|
000018c0  31 35 2c 30 0d 07 94 05  3a 0d 07 9e 09 dc 2d 39  |15,0....:.....-9|
000018d0  39 39 0d 07 a8 05 3a 0d  07 b2 0a dd f2 69 6e 69  |99....:......ini|
000018e0  74 0d 07 bc 3d e7 20 ac  20 28 28 3f 26 37 38 3d  |t...=. . ((?&78=|
000018f0  34 35 29 20 80 20 28 90  3d 26 31 44 30 30 29 29  |45) . (.=&1D00))|
00001900  20 8c 20 f1 27 22 50 6c  65 61 73 65 20 57 61 69  | . .'"Please Wai|
00001910  74 2e 20 2e 20 2e 22 27  3a 2a 54 41 50 45 0d 07  |t. . ."':*TAPE..|
00001920  c6 17 e7 20 90 3c 3e 26  31 44 30 30 20 8c 20 f2  |... .<>&1D00 . .|
00001930  72 65 6c 6f 63 0d 07 d0  18 ef 20 36 2c 31 31 2c  |reloc..... 6,11,|
00001940  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 07 da  |23,1,0;0;0;0;...|
00001950  1e f1 22 43 61 6c 63 75  6c 61 74 69 6e 67 20 73  |.."Calculating s|
00001960  70 68 65 72 65 2e 20 2e  20 2e 22 0d 07 e4 0f 50  |phere. . ."....P|
00001970  25 3d 26 44 30 30 3a 70  3d 30 0d 07 ee 1a e3 78  |%=&D00:p=0.....x|
00001980  3d 2d 37 38 2e 37 35 20  b8 20 39 30 20 88 20 31  |=-78.75 . 90 . 1|
00001990  31 2e 32 35 0d 07 f8 23  e3 79 3d 32 32 2e 35 20  |1.25...#.y=22.5 |
000019a0  b8 20 31 38 30 20 88 20  32 32 2e 35 3a 70 3d 70  |. 180 . 22.5:p=p|
000019b0  2b 2e 37 38 31 32 35 0d  08 02 0a 5b 4f 50 54 20  |+.78125....[OPT |
000019c0  32 0d 08 0c 31 45 51 55  57 20 a8 28 34 38 30 2a  |2...1EQUW .(480*|
000019d0  b5 28 af 2a 28 78 2d 31  31 2e 32 35 29 2f 31 38  |.(.*(x-11.25)/18|
000019e0  30 29 2a b5 28 af 2a 79  2f 31 38 30 29 2b 36 34  |0)*.(.*y/180)+64|
000019f0  30 29 0d 08 16 21 45 51  55 57 20 a8 28 36 30 2b  |0)...!EQUW .(60+|
00001a00  28 9b 28 af 2a 79 2f 31  38 30 29 2b 31 29 2a 34  |(.(.*y/180)+1)*4|
00001a10  35 30 29 0d 08 20 29 45  51 55 57 20 a8 28 34 38  |50).. )EQUW .(48|
00001a20  30 2a b5 28 af 2a 78 2f  31 38 30 29 2a b5 28 af  |0*.(.*x/180)*.(.|
00001a30  2a 79 2f 31 38 30 29 2b  36 34 30 29 0d 08 2a 21  |*y/180)+640)..*!|
00001a40  45 51 55 57 20 a8 28 36  30 2b 28 9b 28 af 2a 79  |EQUW .(60+(.(.*y|
00001a50  2f 31 38 30 29 2b 31 29  2a 34 35 30 29 0d 08 34  |/180)+1)*450)..4|
00001a60  05 5d 0d 08 3e 13 f1 8a  32 34 2c 34 29 a8 28 70  |.]..>...24,4).(p|
00001a70  29 3b 22 25 22 0d 08 48  06 ed 2c 0d 08 52 14 ef  |);"%"..H..,..R..|
00001a80  32 33 2c 31 2c 31 3b 30  3b 30 3b 30 3b 30 3b 0d  |23,1,1;0;0;0;0;.|
00001a90  08 5c 26 f1 22 4d 6f 76  69 6e 67 20 6c 65 76 65  |.\&."Moving leve|
00001aa0  6c 20 64 61 74 61 2e 20  2e 20 2e 22 3a 61 64 3d  |l data. . .":ad=|
00001ab0  26 31 35 30 30 0d 08 66  05 f5 0d 08 70 07 f3 20  |&1500..f....p.. |
00001ac0  64 0d 08 7a 1d e7 20 64  3c 3e 2d 39 39 39 20 8c  |d..z.. d<>-999 .|
00001ad0  20 3f 61 64 3d 64 3a 61  64 3d 61 64 2b 31 0d 08  | ?ad=d:ad=ad+1..|
00001ae0  84 21 e7 20 64 3d 32 35  35 20 8c 20 61 64 3d 28  |.!. d=255 . ad=(|
00001af0  61 64 2b 26 34 30 29 20  80 20 26 46 46 43 30 0d  |ad+&40) . &FFC0.|
00001b00  08 8e 13 e7 20 64 3c 3e  2d 39 39 39 20 8c 20 fd  |.... d<>-999 . .|
00001b10  20 a3 0d 08 98 07 fd 20  b9 0d 08 a2 25 f1 22 41  | ...... ....%."A|
00001b20  73 73 65 6d 62 6c 69 6e  67 20 63 6f 64 65 2e 20  |ssembling code. |
00001b30  2e 20 2e 22 3a f2 61 73  73 65 6d 62 6c 65 0d 08  |. .":.assemble..|
00001b40  ac 20 f1 22 52 65 6d 6f  76 69 6e 67 20 73 6f 75  |. ."Removing sou|
00001b50  72 63 65 20 63 6f 64 65  2e 20 2e 20 2e 22 0d 08  |rce code. . ."..|
00001b60  b6 05 e1 0d 08 c0 05 3a  0d 08 ca 0e dd f2 61 73  |.......:......as|
00001b70  73 65 6d 62 6c 65 0d 08  d4 10 6f 73 77 72 63 68  |semble....oswrch|
00001b80  3d 26 46 46 45 45 0d 08  de 10 6f 73 62 79 74 65  |=&FFEE....osbyte|
00001b90  3d 26 46 46 46 34 0d 08  e8 14 e3 20 70 61 73 73  |=&FFF4..... pass|
00001ba0  3d 30 20 b8 20 32 20 88  20 32 0d 08 f2 0b 50 25  |=0 . 2 . 2....P%|
00001bb0  3d 26 41 30 30 0d 08 fc  0d 5b 4f 50 54 20 70 61  |=&A00....[OPT pa|
00001bc0  73 73 0d 09 06 6c 2e 73  70 68 65 72 65 20 4c 44  |ss...l.sphere LD|
00001bd0  59 23 31 3a 53 54 59 63  6f 6c 3a 4c 44 41 23 26  |Y#1:STYcol:LDA#&|
00001be0  43 3a 53 54 41 26 37 31  3a 4c 44 41 23 26 46 38  |C:STA&71:LDA#&F8|
00001bf0  3a 53 54 41 26 37 30 3a  4c 44 58 23 30 3a 4c 44  |:STA&70:LDX#0:LD|
00001c00  41 23 31 38 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A#18:JSRoswrch:L|
00001c10  44 41 23 30 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DA#0:JSRoswrch:L|
00001c20  44 41 23 31 3a 4a 53 52  6f 73 77 72 63 68 0d 09  |DA#1:JSRoswrch..|
00001c30  10 24 2e 70 6f 69 6e 74  20 4c 44 59 20 23 30 3a  |.$.point LDY #0:|
00001c40  54 58 41 3a 80 23 37 3a  42 45 51 6e 65 77 78 76  |TXA:.#7:BEQnewxv|
00001c50  61 6c 0d 09 1a 89 4c 44  41 23 32 35 3a 4a 53 52  |al....LDA#25:JSR|
00001c60  6f 73 77 72 63 68 3a 4c  44 41 23 34 3a 4a 53 52  |oswrch:LDA#4:JSR|
00001c70  73 65 6e 64 63 6f 3a 4c  44 41 23 32 35 3a 4a 53  |sendco:LDA#25:JS|
00001c80  52 6f 73 77 72 63 68 3a  4c 44 41 23 34 3a 4a 53  |Roswrch:LDA#4:JS|
00001c90  52 73 65 6e 64 63 6f 3a  4c 44 41 23 32 35 3a 4a  |Rsendco:LDA#25:J|
00001ca0  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 38 35 3a  |SRoswrch:LDA#85:|
00001cb0  4a 53 52 73 65 6e 64 63  6f 3a 4c 44 41 23 32 35  |JSRsendco:LDA#25|
00001cc0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 38  |:JSRoswrch:LDA#8|
00001cd0  35 3a 4a 53 52 73 65 6e  64 63 6f 0d 09 24 48 49  |5:JSRsendco..$HI|
00001ce0  4e 58 3a 4c 44 41 26 37  30 3a 43 4c 43 3a 41 44  |NX:LDA&70:CLC:AD|
00001cf0  43 23 38 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |C#8:STA&70:LDA&7|
00001d00  31 3a 41 44 43 23 30 3a  53 54 41 26 37 31 3a 43  |1:ADC#0:STA&71:C|
00001d10  50 58 23 31 32 38 3a 42  4e 45 70 6f 69 6e 74 3a  |PX#128:BNEpoint:|
00001d20  52 54 53 0d 09 2e 37 2e  6e 65 77 78 76 61 6c 20  |RTS...7.newxval |
00001d30  4c 44 41 63 6f 6c 3a 43  4c 43 3a 41 44 43 23 31  |LDAcol:CLC:ADC#1|
00001d40  3a 80 23 33 3a 42 4e 45  6e 6f 74 62 6c 61 63 6b  |:.#3:BNEnotblack|
00001d50  3a 43 4c 43 3a 41 44 43  23 31 0d 09 38 46 2e 6e  |:CLC:ADC#1..8F.n|
00001d60  6f 74 62 6c 61 63 6b 20  53 54 41 63 6f 6c 3a 4c  |otblack STAcol:L|
00001d70  44 41 23 31 38 3a 4a 53  52 6f 73 77 72 63 68 3a  |DA#18:JSRoswrch:|
00001d80  4c 44 41 23 30 3a 4a 53  52 6f 73 77 72 63 68 3a  |LDA#0:JSRoswrch:|
00001d90  4c 44 41 63 6f 6c 3a 4a  53 52 6f 73 77 72 63 68  |LDAcol:JSRoswrch|
00001da0  0d 09 42 6e 4c 44 41 23  32 35 3a 4a 53 52 6f 73  |..BnLDA#25:JSRos|
00001db0  77 72 63 68 3a 4c 44 41  23 34 3a 4a 53 52 6f 73  |wrch:LDA#4:JSRos|
00001dc0  77 72 63 68 3a 4c 44 41  23 31 32 38 3a 4a 53 52  |wrch:LDA#128:JSR|
00001dd0  6f 73 77 72 63 68 3a 4c  44 41 23 32 3a 4a 53 52  |oswrch:LDA#2:JSR|
00001de0  6f 73 77 72 63 68 3a 4c  44 41 23 31 39 32 3a 4a  |oswrch:LDA#192:J|
00001df0  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 33 3a 4a  |SRoswrch:LDA#3:J|
00001e00  53 52 6f 73 77 72 63 68  3a 4c 44 59 23 38 0d 09  |SRoswrch:LDY#8..|
00001e10  4c 46 4c 44 41 23 32 35  3a 4a 53 52 6f 73 77 72  |LFLDA#25:JSRoswr|
00001e20  63 68 3a 4c 44 41 23 34  3a 4a 53 52 73 65 6e 64  |ch:LDA#4:JSRsend|
00001e30  63 6f 3a 4c 44 41 23 32  35 3a 4a 53 52 6f 73 77  |co:LDA#25:JSRosw|
00001e40  72 63 68 3a 4c 44 41 23  38 35 3a 4a 53 52 73 65  |rch:LDA#85:JSRse|
00001e50  6e 64 63 6f 0d 09 56 3c  49 4e 58 3a 4c 44 41 26  |ndco..V<INX:LDA&|
00001e60  37 30 3a 43 4c 43 3a 41  44 43 23 38 3a 53 54 41  |70:CLC:ADC#8:STA|
00001e70  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 23 30  |&70:LDA&71:ADC#0|
00001e80  3a 53 54 41 26 37 31 3a  4a 4d 50 70 6f 69 6e 74  |:STA&71:JMPpoint|
00001e90  0d 09 60 79 2e 73 65 6e  64 63 6f 20 4a 53 52 6f  |..`y.sendco JSRo|
00001ea0  73 77 72 63 68 3a 4c 44  41 28 26 37 30 29 2c 59  |swrch:LDA(&70),Y|
00001eb0  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 4c  |:JSRoswrch:INY:L|
00001ec0  44 41 28 26 37 30 29 2c  59 3a 4a 53 52 6f 73 77  |DA(&70),Y:JSRosw|
00001ed0  72 63 68 3a 49 4e 59 3a  4c 44 41 28 26 37 30 29  |rch:INY:LDA(&70)|
00001ee0  2c 59 3a 4a 53 52 6f 73  77 72 63 68 3a 49 4e 59  |,Y:JSRoswrch:INY|
00001ef0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 49 4e 59 3a  |:LDA(&70),Y:INY:|
00001f00  4a 4d 50 6f 73 77 72 63  68 0d 09 6a 0f 2e 63 6f  |JMPoswrch..j..co|
00001f10  6c 20 45 51 55 42 20 30  0d 09 74 0d 5d 3a 50 25  |l EQUB 0..t.]:P%|
00001f20  3d 26 41 45 39 0d 09 7e  0c 5b 4f 50 54 70 61 73  |=&AE9..~.[OPTpas|
00001f30  73 0d 09 88 09 4c 44 58  23 30 0d 09 92 42 2e 62  |s....LDX#0...B.b|
00001f40  61 6c 6c 6f 70 20 4c 44  41 78 62 61 6c 6c 2c 58  |allop LDAxball,X|
00001f50  3a 43 4d 50 63 78 3a 42  4e 45 62 61 6c 6c 6f 6e  |:CMPcx:BNEballon|
00001f60  3a 4c 44 41 79 62 61 6c  6c 2c 58 3a 43 4d 50 63  |:LDAyball,X:CMPc|
00001f70  79 3a 42 45 51 62 61 6c  6c 6f 66 66 0d 09 9c 79  |y:BEQballoff...y|
00001f80  2e 62 61 6c 6c 6f 6e 20  4c 44 41 23 31 37 3a 4a  |.ballon LDA#17:J|
00001f90  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 32 3a 4a  |SRoswrch:LDA#2:J|
00001fa0  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 33 31 3a  |SRoswrch:LDA#31:|
00001fb0  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 78 62 61  |JSRoswrch:LDAxba|
00001fc0  6c 6c 2c 58 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |ll,X:JSRoswrch:L|
00001fd0  44 41 79 62 61 6c 6c 2c  58 3a 4a 53 52 6f 73 77  |DAyball,X:JSRosw|
00001fe0  72 63 68 3a 4c 44 41 23  31 32 39 3a 4a 53 52 6f  |rch:LDA#129:JSRo|
00001ff0  73 77 72 63 68 0d 09 a6  87 2e 62 61 6c 6c 6f 66  |swrch.....ballof|
00002000  66 20 4c 44 41 79 62 61  6c 6c 2c 58 3a 43 4d 50  |f LDAyball,X:CMP|
00002010  23 32 34 3a 42 45 51 64  69 65 3a 4c 44 41 23 26  |#24:BEQdie:LDA#&|
00002020  32 38 3a 53 54 41 26 37  30 3a 4c 44 41 23 26 31  |28:STA&70:LDA#&1|
00002030  31 3a 53 54 41 26 37 31  3a 4c 44 41 78 62 61 6c  |1:STA&71:LDAxbal|
00002040  6c 2c 58 3a 4c 44 59 79  62 61 6c 6c 2c 58 3a 4a  |l,X:LDYyball,X:J|
00002050  53 52 67 65 74 61 64 3a  80 23 31 3a 42 4e 45 6e  |SRgetad:.#1:BNEn|
00002060  6f 64 6f 77 6e 3a 49 4e  43 79 62 61 6c 6c 2c 58  |odown:INCyball,X|
00002070  3a 4a 4d 50 64 6f 6e 65  62 61 6c 6c 0d 09 b0 9e  |:JMPdoneball....|
00002080  2e 6e 6f 64 6f 77 6e 20  4c 44 41 78 62 61 6c 6c  |.nodown LDAxball|
00002090  2c 58 3a 43 4d 50 23 31  3a 42 45 51 64 69 65 3a  |,X:CMP#1:BEQdie:|
000020a0  4c 44 41 64 69 72 2c 58  3a 43 4d 50 23 30 3a 42  |LDAdir,X:CMP#0:B|
000020b0  4e 45 6e 6f 6c 65 66 74  3a 4c 44 41 23 26 46 46  |NEnoleft:LDA#&FF|
000020c0  3a 53 54 41 26 37 30 3a  4c 44 41 23 26 31 30 3a  |:STA&70:LDA#&10:|
000020d0  53 54 41 26 37 31 3a 4c  44 41 78 62 61 6c 6c 2c  |STA&71:LDAxball,|
000020e0  58 3a 4c 44 59 79 62 61  6c 6c 2c 58 3a 4a 53 52  |X:LDYyball,X:JSR|
000020f0  67 65 74 61 64 3a 80 23  31 3a 42 4e 45 6e 6f 6c  |getad:.#1:BNEnol|
00002100  65 66 74 3a 44 45 43 78  62 61 6c 6c 2c 58 3a 4a  |eft:DECxball,X:J|
00002110  4d 50 64 6f 6e 65 62 61  6c 6c 0d 09 ba 1a 2e 64  |MPdoneball.....d|
00002120  69 65 20 4c 44 41 23 31  3a 53 54 41 64 65 61 64  |ie LDA#1:STAdead|
00002130  3a 52 54 53 0d 09 c4 9f  2e 6e 6f 6c 65 66 74 20  |:RTS.....noleft |
00002140  4c 44 41 78 62 61 6c 6c  2c 58 3a 43 4d 50 23 33  |LDAxball,X:CMP#3|
00002150  38 3a 42 45 51 64 69 65  3a 4c 44 41 64 69 72 2c  |8:BEQdie:LDAdir,|
00002160  58 3a 43 4d 50 23 31 3a  42 4e 45 6e 6f 72 69 67  |X:CMP#1:BNEnorig|
00002170  68 74 3a 4c 44 41 23 31  3a 53 54 41 26 37 30 3a  |ht:LDA#1:STA&70:|
00002180  4c 44 41 23 26 31 31 3a  53 54 41 26 37 31 3a 4c  |LDA#&11:STA&71:L|
00002190  44 41 78 62 61 6c 6c 2c  58 3a 4c 44 59 79 62 61  |DAxball,X:LDYyba|
000021a0  6c 6c 2c 58 3a 4a 53 52  67 65 74 61 64 3a 80 23  |ll,X:JSRgetad:.#|
000021b0  31 3a 42 4e 45 6e 6f 72  69 67 68 74 3a 49 4e 43  |1:BNEnoright:INC|
000021c0  78 62 61 6c 6c 2c 58 3a  4a 4d 50 64 6f 6e 65 62  |xball,X:JMPdoneb|
000021d0  61 6c 6c 0d 09 ce 22 2e  6e 6f 72 69 67 68 74 20  |all...".noright |
000021e0  4c 44 41 64 69 72 2c 58  3a 82 23 31 3a 53 54 41  |LDAdir,X:.#1:STA|
000021f0  64 69 72 2c 58 0d 09 d8  44 2e 64 6f 6e 65 62 61  |dir,X...D.doneba|
00002200  6c 6c 20 4c 44 41 78 62  61 6c 6c 2c 58 3a 43 4d  |ll LDAxball,X:CM|
00002210  50 63 78 3a 42 4e 45 62  61 6c 6c 64 3a 4c 44 41  |Pcx:BNEballd:LDA|
00002220  79 62 61 6c 6c 2c 58 3a  43 4d 50 63 79 3a 42 45  |yball,X:CMPcy:BE|
00002230  51 6e 65 78 74 62 61 6c  6c 0d 09 e2 57 2e 62 61  |Qnextball...W.ba|
00002240  6c 6c 64 20 4c 44 41 23  33 31 3a 4a 53 52 6f 73  |lld LDA#31:JSRos|
00002250  77 72 63 68 3a 4c 44 41  78 62 61 6c 6c 2c 58 3a  |wrch:LDAxball,X:|
00002260  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 79 62 61  |JSRoswrch:LDAyba|
00002270  6c 6c 2c 58 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |ll,X:JSRoswrch:L|
00002280  44 41 23 31 33 30 3a 4a  53 52 6f 73 77 72 63 68  |DA#130:JSRoswrch|
00002290  0d 09 ec 69 2e 6e 65 78  74 62 61 6c 6c 20 4c 44  |...i.nextball LD|
000022a0  41 23 30 3a 53 54 41 26  37 30 3a 4c 44 41 23 26  |A#0:STA&70:LDA#&|
000022b0  31 31 3a 53 54 41 26 37  31 3a 4c 44 41 78 62 61  |11:STA&71:LDAxba|
000022c0  6c 6c 2c 58 3a 4c 44 59  79 62 61 6c 6c 2c 58 3a  |ll,X:LDYyball,X:|
000022d0  4a 53 52 67 65 74 61 64  3a 43 4d 50 23 32 3a 42  |JSRgetad:CMP#2:B|
000022e0  4e 45 6e 65 78 74 62 61  6c 6c 62 3a 4c 44 41 23  |NEnextballb:LDA#|
000022f0  31 3a 53 54 41 64 65 61  64 0d 09 f6 4e 2e 6e 65  |1:STAdead...N.ne|
00002300  78 74 62 61 6c 6c 62 20  4a 53 52 62 61 6c 6c 63  |xtballb JSRballc|
00002310  68 65 63 6b 3a 49 4e 58  3a 43 50 58 23 32 3a 42  |heck:INX:CPX#2:B|
00002320  4e 45 20 62 61 6c 6c 6f  70 74 3a 4a 4d 50 63 75  |NE ballopt:JMPcu|
00002330  72 73 6f 72 3a 2e 62 61  6c 6c 6f 70 74 20 4a 4d  |rsor:.ballopt JM|
00002340  50 62 61 6c 6c 6f 70 0d  0a 00 0e 5d 3a 50 25 3d  |Pballop....]:P%=|
00002350  26 31 41 30 30 0d 0a 0a  0d 5b 4f 50 54 20 70 61  |&1A00....[OPT pa|
00002360  73 73 0d 0a 14 0c 4a 4d  50 73 65 74 75 70 0d 0a  |ss....JMPsetup..|
00002370  1e 53 2e 67 65 74 61 64  20 43 4c 43 3a 41 44 43  |.S.getad CLC:ADC|
00002380  26 37 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&70:STA&70:LDA&7|
00002390  31 3a 41 44 43 23 30 3a  53 54 41 26 37 31 3a 54  |1:ADC#0:STA&71:T|
000023a0  59 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |YA:ASL A:ASL A:A|
000023b0  53 4c 20 41 3a 53 54 41  26 37 32 3a 4c 44 59 23  |SL A:STA&72:LDY#|
000023c0  30 0d 0a 28 61 2e 67 65  74 6c 6f 70 20 4c 44 41  |0..(a.getlop LDA|
000023d0  26 37 30 3a 43 4c 43 3a  41 44 43 26 37 32 3a 53  |&70:CLC:ADC&72:S|
000023e0  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
000023f0  23 30 3a 53 54 41 26 37  31 3a 49 4e 59 3a 43 50  |#0:STA&71:INY:CP|
00002400  59 23 35 3a 42 4e 45 67  65 74 6c 6f 70 3a 4c 44  |Y#5:BNEgetlop:LD|
00002410  59 23 30 3a 4c 44 41 28  26 37 30 29 2c 59 3a 52  |Y#0:LDA(&70),Y:R|
00002420  54 53 0d 0a 32 b6 2e 63  75 72 73 6f 72 20 4c 44  |TS..2..cursor LD|
00002430  41 23 33 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A#31:JSRoswrch:L|
00002440  44 41 63 78 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DAcx:JSRoswrch:L|
00002450  44 41 63 79 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DAcy:JSRoswrch:L|
00002460  44 41 23 30 3a 53 54 41  26 37 30 3a 4c 44 41 23  |DA#0:STA&70:LDA#|
00002470  26 31 31 3a 53 54 41 26  37 31 3a 4c 44 41 63 78  |&11:STA&71:LDAcx|
00002480  3a 4c 44 59 63 79 3a 4a  53 52 67 65 74 61 64 3a  |:LDYcy:JSRgetad:|
00002490  43 4d 50 23 31 3a 42 45  51 62 6c 6f 63 6b 3a 43  |CMP#1:BEQblock:C|
000024a0  4d 50 23 32 3a 42 45 51  73 70 69 6b 65 3a 43 4d  |MP#2:BEQspike:CM|
000024b0  50 23 33 3a 42 45 51 68  61 72 64 62 3a 4c 44 41  |P#3:BEQhardb:LDA|
000024c0  23 31 32 39 3a 4a 53 52  6f 73 77 72 63 68 3a 4a  |#129:JSRoswrch:J|
000024d0  4d 50 63 75 72 64 65 6c  0d 0a 3c 47 2e 62 6c 6f  |MPcurdel..<G.blo|
000024e0  63 6b 20 4c 44 41 23 31  37 3a 4a 53 52 6f 73 77  |ck LDA#17:JSRosw|
000024f0  72 63 68 3a 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |rch:LDA#1:JSRosw|
00002500  72 63 68 3a 4c 44 41 23  31 32 38 3a 4a 53 52 6f  |rch:LDA#128:JSRo|
00002510  73 77 72 63 68 3a 4a 4d  50 63 75 72 64 65 6c 0d  |swrch:JMPcurdel.|
00002520  0a 46 47 2e 73 70 69 6b  65 20 4c 44 41 23 31 37  |.FG.spike LDA#17|
00002530  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 31  |:JSRoswrch:LDA#1|
*
00002550  33 32 3a 4a 53 52 6f 73  77 72 63 68 3a 4a 4d 50  |32:JSRoswrch:JMP|
00002560  63 75 72 64 65 6c 0d 0a  50 3d 2e 68 61 72 64 62  |curdel..P=.hardb|
00002570  20 4c 44 41 23 31 37 3a  4a 53 52 6f 73 77 72 63  | LDA#17:JSRoswrc|
00002580  68 3a 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |h:LDA#1:JSRoswrc|
00002590  68 3a 4c 44 41 23 31 33  33 3a 4a 53 52 6f 73 77  |h:LDA#133:JSRosw|
000025a0  72 63 68 0d 0a 5a 47 2e  63 75 72 64 65 6c 20 4c  |rch..ZG.curdel L|
000025b0  44 41 23 26 38 31 3a 4c  44 58 23 30 3a 4c 44 59  |DA#&81:LDX#0:LDY|
000025c0  23 30 3a 4a 53 52 6f 73  62 79 74 65 3a 42 43 43  |#0:JSRosbyte:BCC|
000025d0  6b 65 79 70 72 6f 3a 2e  6e 6f 6d 6f 76 65 74 20  |keypro:.nomovet |
000025e0  4a 4d 50 20 6e 6f 6d 6f  76 65 0d 0a 64 43 2e 6b  |JMP nomove..dC.k|
000025f0  65 79 70 72 6f 20 43 50  58 6b 6c 3a 42 4e 45 6e  |eypro CPXkl:BNEn|
00002600  6f 74 6b 6c 3a 4c 44 41  63 78 3a 43 4d 50 23 31  |otkl:LDAcx:CMP#1|
00002610  3a 42 45 51 20 6e 6f 6d  6f 76 65 74 3a 44 45 43  |:BEQ nomovet:DEC|
00002620  63 78 3a 4a 4d 50 6e 6f  6d 6f 76 65 74 0d 0a 6e  |cx:JMPnomovet..n|
00002630  42 2e 6e 6f 74 6b 6c 20  43 50 58 6b 72 3a 42 4e  |B.notkl CPXkr:BN|
00002640  45 6e 6f 74 6b 72 3a 4c  44 41 63 78 3a 43 4d 50  |Enotkr:LDAcx:CMP|
00002650  23 33 38 3a 42 45 51 20  6e 6f 6d 6f 76 65 3a 49  |#38:BEQ nomove:I|
00002660  4e 43 63 78 3a 4a 4d 50  6e 6f 6d 6f 76 65 74 0d  |NCcx:JMPnomovet.|
00002670  0a 78 41 2e 6e 6f 74 6b  72 20 43 50 58 6b 75 3a  |.xA.notkr CPXku:|
00002680  42 4e 45 6e 6f 74 6b 75  3a 4c 44 41 63 79 3a 43  |BNEnotku:LDAcy:C|
00002690  4d 50 23 31 3a 42 45 51  20 6e 6f 6d 6f 76 65 3a  |MP#1:BEQ nomove:|
000026a0  44 45 43 63 79 3a 4a 4d  50 6e 6f 6d 6f 76 65 74  |DECcy:JMPnomovet|
000026b0  0d 0a 82 41 2e 6e 6f 74  6b 75 20 43 50 58 6b 64  |...A.notku CPXkd|
000026c0  3a 42 4e 45 6e 6f 74 6b  64 3a 4c 44 41 63 79 3a  |:BNEnotkd:LDAcy:|
000026d0  43 4d 50 23 32 34 3a 42  45 51 20 6e 6f 6d 6f 76  |CMP#24:BEQ nomov|
000026e0  65 3a 49 4e 43 63 79 3a  4a 4d 50 6e 6f 6d 6f 76  |e:INCcy:JMPnomov|
000026f0  65 0d 0a 8c 8f 2e 6e 6f  74 6b 64 20 43 50 58 6b  |e.....notkd CPXk|
00002700  73 3a 42 4e 45 6e 6f 74  6b 73 3a 4c 44 41 6d 6f  |s:BNEnotks:LDAmo|
00002710  6e 3a 43 4d 50 23 35 3a  42 43 43 20 6e 6f 6d 6f  |n:CMP#5:BCC nomo|
00002720  76 65 3a 4c 44 41 63 78  3a 4c 44 59 63 79 3a 4a  |ve:LDAcx:LDYcy:J|
00002730  53 52 67 65 74 63 6c 72  3a 4c 44 41 28 26 37 30  |SRgetclr:LDA(&70|
00002740  29 2c 59 3a 42 4e 45 6e  6f 6d 6f 76 65 3a 4c 44  |),Y:BNEnomove:LD|
00002750  41 23 31 3a 53 54 41 28  26 37 30 29 2c 59 3a 4c  |A#1:STA(&70),Y:L|
00002760  44 41 6d 6f 6e 3a 53 45  43 3a 53 42 43 23 35 3a  |DAmon:SEC:SBC#5:|
00002770  53 54 41 6d 6f 6e 3a 4a  4d 50 6e 6f 6d 6f 76 65  |STAmon:JMPnomove|
00002780  0d 0a 96 58 2e 6e 6f 74  6b 73 20 43 50 58 6b 63  |...X.notks CPXkc|
00002790  3a 42 4e 45 6e 6f 6d 6f  76 65 3a 4c 44 41 63 78  |:BNEnomove:LDAcx|
000027a0  3a 4c 44 59 63 79 3a 4a  53 52 67 65 74 63 6c 72  |:LDYcy:JSRgetclr|
000027b0  3a 43 4d 50 23 31 3a 42  4e 45 6e 6f 6d 6f 76 65  |:CMP#1:BNEnomove|
000027c0  3a 4c 44 41 23 30 3a 53  54 41 28 26 37 30 29 2c  |:LDA#0:STA(&70),|
000027d0  59 3a 49 4e 43 6d 6f 6e  0d 0a a0 87 2e 6e 6f 6d  |Y:INCmon.....nom|
000027e0  6f 76 65 20 4c 44 41 23  26 31 35 3a 4c 44 58 23  |ove LDA#&15:LDX#|
000027f0  30 3a 4a 53 52 6f 73 62  79 74 65 3a 4c 44 41 23  |0:JSRosbyte:LDA#|
00002800  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
00002810  63 78 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |cx:JSRoswrch:LDA|
00002820  63 79 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |cy:JSRoswrch:LDA|
00002830  23 31 37 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |#17:JSRoswrch:LD|
00002840  41 23 33 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |A#3:JSRoswrch:LD|
00002850  41 23 31 33 31 3a 4a 4d  50 6f 73 77 72 63 68 0d  |A#131:JMPoswrch.|
00002860  0a aa 55 2e 62 61 6c 6c  63 68 65 63 6b 20 4c 44  |..U.ballcheck LD|
00002870  41 78 62 61 6c 6c 3a 43  4d 50 78 62 61 6c 6c 2b  |Axball:CMPxball+|
00002880  31 3a 42 4e 45 6e 6f 68  69 74 3a 4c 44 41 79 62  |1:BNEnohit:LDAyb|
00002890  61 6c 6c 3a 43 4d 50 79  62 61 6c 6c 2b 31 3a 42  |all:CMPyball+1:B|
000028a0  4e 45 6e 6f 68 69 74 3a  4c 44 41 23 31 3a 53 54  |NEnohit:LDA#1:ST|
000028b0  41 68 69 74 0d 0a b4 0e  2e 6e 6f 68 69 74 20 52  |Ahit.....nohit R|
000028c0  54 53 0d 0a be 2c 2e 73  65 74 75 70 20 4c 44 59  |TS...,.setup LDY|
000028d0  23 30 3a 53 54 59 26 37  30 3a 4c 44 41 23 26 31  |#0:STY&70:LDA#&1|
000028e0  31 3a 53 54 41 26 37 31  3a 4c 44 41 23 30 0d 0a  |1:STA&71:LDA#0..|
000028f0  c8 6b 2e 73 65 74 6c 6f  70 20 53 54 41 28 26 37  |.k.setlop STA(&7|
00002900  30 29 2c 59 3a 49 4e 59  3a 42 4e 45 73 65 74 6c  |0),Y:INY:BNEsetl|
00002910  6f 70 3a 49 4e 43 26 37  31 3a 4c 44 58 26 37 31  |op:INC&71:LDX&71|
00002920  3a 43 50 58 23 26 31 35  3a 42 4e 45 73 65 74 6c  |:CPX#&15:BNEsetl|
00002930  6f 70 3a 53 54 41 26 42  46 39 3a 53 54 41 26 42  |op:STA&BF9:STA&B|
00002940  45 46 3a 4c 44 41 28 26  37 33 29 2c 59 3a 54 41  |EF:LDA(&73),Y:TA|
00002950  58 3a 49 4e 58 3a 49 4e  59 0d 0a d2 aa 2e 70 6f  |X:INX:INY.....po|
00002960  6c 6f 70 20 4c 44 41 23  33 31 3a 4a 53 52 6f 73  |lop LDA#31:JSRos|
00002970  77 72 63 68 3a 4c 44 41  28 26 37 33 29 2c 59 3a  |wrch:LDA(&73),Y:|
00002980  50 48 41 3a 4a 53 52 6f  73 77 72 63 68 3a 49 4e  |PHA:JSRoswrch:IN|
00002990  59 3a 4c 44 41 28 26 37  33 29 2c 59 3a 50 48 41  |Y:LDA(&73),Y:PHA|
000029a0  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 53  |:JSRoswrch:INY:S|
000029b0  54 59 26 37 35 3a 4c 44  41 23 31 32 38 3a 4a 53  |TY&75:LDA#128:JS|
000029c0  52 6f 73 77 72 63 68 3a  50 4c 41 3a 54 41 59 3a  |Roswrch:PLA:TAY:|
000029d0  50 4c 41 3a 4a 53 52 67  65 74 63 6c 72 3a 4c 44  |PLA:JSRgetclr:LD|
000029e0  41 23 31 3a 53 54 41 28  26 37 30 29 2c 59 3a 4c  |A#1:STA(&70),Y:L|
000029f0  44 59 26 37 35 3a 44 45  58 3a 42 4e 45 20 70 6f  |DY&75:DEX:BNE po|
00002a00  6c 6f 70 0d 0a dc 99 4c  44 41 23 30 3a 53 54 41  |lop....LDA#0:STA|
00002a10  26 42 46 32 3a 53 54 41  26 42 46 33 3a 4c 44 41  |&BF2:STA&BF3:LDA|
00002a20  28 26 37 33 29 2c 59 3a  53 54 41 26 42 46 34 3a  |(&73),Y:STA&BF4:|
00002a30  49 4e 59 3a 4c 44 41 28  26 37 33 29 2c 59 3a 53  |INY:LDA(&73),Y:S|
00002a40  54 41 26 42 46 36 3a 49  4e 59 3a 4c 44 41 28 26  |TA&BF6:INY:LDA(&|
00002a50  37 33 29 2c 59 3a 53 54  41 26 42 46 35 3a 49 4e  |73),Y:STA&BF5:IN|
00002a60  59 3a 4c 44 41 28 26 37  33 29 2c 59 3a 53 54 41  |Y:LDA(&73),Y:STA|
00002a70  26 42 46 37 3a 49 4e 59  3a 4c 44 41 28 26 37 33  |&BF7:INY:LDA(&73|
00002a80  29 2c 59 3a 54 41 58 3a  49 4e 59 3a 43 50 58 23  |),Y:TAX:INY:CPX#|
00002a90  30 3a 42 45 51 6e 6f 73  70 69 6b 65 0d 0a e6 ac  |0:BEQnospike....|
00002aa0  2e 73 70 6b 6c 6f 70 20  4c 44 41 23 33 31 3a 4a  |.spklop LDA#31:J|
00002ab0  53 52 6f 73 77 72 63 68  3a 4c 44 41 28 26 37 33  |SRoswrch:LDA(&73|
00002ac0  29 2c 59 3a 50 48 41 3a  4a 53 52 6f 73 77 72 63  |),Y:PHA:JSRoswrc|
00002ad0  68 3a 49 4e 59 3a 4c 44  41 28 26 37 33 29 2c 59  |h:INY:LDA(&73),Y|
00002ae0  3a 50 48 41 3a 4a 53 52  6f 73 77 72 63 68 3a 49  |:PHA:JSRoswrch:I|
00002af0  4e 59 3a 53 54 59 26 37  35 3a 4c 44 41 23 31 33  |NY:STY&75:LDA#13|
00002b00  32 3a 4a 53 52 6f 73 77  72 63 68 3a 50 4c 41 3a  |2:JSRoswrch:PLA:|
00002b10  54 41 59 3a 50 4c 41 3a  4a 53 52 67 65 74 63 6c  |TAY:PLA:JSRgetcl|
00002b20  72 3a 4c 44 41 23 32 3a  53 54 41 28 26 37 30 29  |r:LDA#2:STA(&70)|
00002b30  2c 59 3a 4c 44 59 26 37  35 3a 44 45 58 3a 42 4e  |,Y:LDY&75:DEX:BN|
00002b40  45 20 73 70 6b 6c 6f 70  0d 0a f0 2f 2e 6e 6f 73  |E spklop.../.nos|
00002b50  70 69 6b 65 20 4c 44 41  28 26 37 33 29 2c 59 3a  |pike LDA(&73),Y:|
00002b60  54 41 58 3a 49 4e 59 3a  43 50 58 23 30 3a 42 45  |TAX:INY:CPX#0:BE|
00002b70  51 6e 6f 68 61 72 64 0d  0a fa ae 2e 68 61 72 64  |Qnohard.....hard|
00002b80  6c 6f 70 20 4c 44 41 23  33 31 3a 4a 53 52 6f 73  |lop LDA#31:JSRos|
00002b90  77 72 63 68 3a 4c 44 41  28 26 37 33 29 2c 59 3a  |wrch:LDA(&73),Y:|
00002ba0  50 48 41 3a 4a 53 52 6f  73 77 72 63 68 3a 49 4e  |PHA:JSRoswrch:IN|
00002bb0  59 3a 4c 44 41 28 26 37  33 29 2c 59 3a 50 48 41  |Y:LDA(&73),Y:PHA|
00002bc0  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 53  |:JSRoswrch:INY:S|
00002bd0  54 59 26 37 35 3a 4c 44  41 23 31 33 33 3a 4a 53  |TY&75:LDA#133:JS|
00002be0  52 6f 73 77 72 63 68 3a  50 4c 41 3a 54 41 59 3a  |Roswrch:PLA:TAY:|
00002bf0  50 4c 41 3a 4a 53 52 67  65 74 63 6c 72 3a 4c 44  |PLA:JSRgetclr:LD|
00002c00  41 23 33 3a 53 54 41 28  26 37 30 29 2c 59 3a 4c  |A#3:STA(&70),Y:L|
00002c10  44 59 26 37 35 3a 44 45  58 3a 42 4e 45 20 68 61  |DY&75:DEX:BNE ha|
00002c20  72 64 6c 6f 70 0d 0b 04  0f 2e 6e 6f 68 61 72 64  |rdlop.....nohard|
00002c30  20 52 54 53 0d 0b 0e 38  2e 67 65 74 63 6c 72 20  | RTS...8.getclr |
00002c40  50 48 41 3a 4c 44 41 23  30 3a 53 54 41 26 37 30  |PHA:LDA#0:STA&70|
00002c50  3a 4c 44 41 23 26 31 31  3a 53 54 41 26 37 31 3a  |:LDA#&11:STA&71:|
00002c60  50 4c 41 3a 4a 4d 50 67  65 74 61 64 0d 0b 18 0d  |PLA:JMPgetad....|
00002c70  5d 3a 50 25 3d 26 42 45  46 0d 0b 22 0d 5b 4f 50  |]:P%=&BEF..".[OP|
00002c80  54 20 70 61 73 73 0d 0b  2c 0f 2e 68 69 74 20 45  |T pass..,..hit E|
00002c90  51 55 42 20 30 0d 0b 36  0e 2e 63 78 20 45 51 55  |QUB 0..6..cx EQU|
00002ca0  42 20 30 0d 0b 40 0e 2e  63 79 20 45 51 55 42 20  |B 0..@..cy EQUB |
00002cb0  30 0d 0b 4a 0f 2e 64 69  72 20 45 51 55 57 20 30  |0..J..dir EQUW 0|
00002cc0  0d 0b 54 11 2e 78 62 61  6c 6c 20 45 51 55 57 20  |..T..xball EQUW |
00002cd0  30 0d 0b 5e 11 2e 79 62  61 6c 6c 20 45 51 55 57  |0..^..yball EQUW|
00002ce0  20 30 0d 0b 68 0f 2e 6d  6f 6e 20 45 51 55 42 20  | 0..h..mon EQUB |
00002cf0  30 0d 0b 72 10 2e 64 65  61 64 20 45 51 55 42 20  |0..r..dead EQUB |
00002d00  30 0d 0b 7c 10 2e 6b 6c  20 45 51 55 53 20 22 5a  |0..|..kl EQUS "Z|
00002d10  22 0d 0b 86 10 2e 6b 72  20 45 51 55 53 20 22 58  |".....kr EQUS "X|
00002d20  22 0d 0b 90 10 2e 6b 75  20 45 51 55 53 20 22 4b  |".....ku EQUS "K|
00002d30  22 0d 0b 9a 10 2e 6b 64  20 45 51 55 53 20 22 4d  |".....kd EQUS "M|
00002d40  22 0d 0b a4 10 2e 6b 73  20 45 51 55 53 20 22 4c  |".....ks EQUS "L|
00002d50  22 0d 0b ae 10 2e 6b 63  20 45 51 55 53 20 22 20  |".....kc EQUS " |
00002d60  22 0d 0b b8 05 5d 0d 0b  c2 05 ed 0d 0b cc 05 e1  |"....]..........|
00002d70  0d 0b d6 05 3a 0d 0b e0  0b dd f2 72 65 6c 6f 63  |....:......reloc|
00002d80  0d 0b ea 16 f1 22 52 65  6c 6f 63 61 74 69 6e 67  |....."Relocating|
00002d90  2e 20 2e 20 2e 22 0d 0b  f4 0b 3f 26 37 38 3d 34  |. . ."....?&78=4|
00002da0  35 0d 0b fe 17 d3 3d 26  35 38 30 30 3a 6e 65 77  |5.....=&5800:new|
00002db0  70 61 67 65 3d 26 31 44  0d 0c 08 14 e3 20 70 61  |page=&1D..... pa|
00002dc0  73 73 3d 30 20 b8 20 32  20 88 20 32 0d 0c 12 0b  |ss=0 . 2 . 2....|
00002dd0  50 25 3d 26 43 30 30 0d  0c 1c 0c 5b 4f 50 54 70  |P%=&C00....[OPTp|
00002de0  61 73 73 0d 0c 26 0d 20  20 20 20 4c 44 59 23 30  |ass..&.    LDY#0|
00002df0  0d 0c 30 0e 20 20 20 20  53 54 59 26 37 30 0d 0c  |..0.    STY&70..|
00002e00  3a 0e 20 20 20 20 53 54  59 26 37 32 0d 0c 44 13  |:.    STY&72..D.|
00002e10  20 20 20 20 4c 44 41 23  6e 65 77 70 61 67 65 0d  |    LDA#newpage.|
00002e20  0c 4e 0b 20 20 20 20 53  45 43 0d 0c 58 0e 20 20  |.N.    SEC..X.  |
00002e30  20 20 53 42 43 26 31 38  0d 0c 62 0e 20 20 20 20  |  SBC&18..b.    |
00002e40  53 54 41 26 37 34 0d 0c  6c 0e 20 20 20 20 4c 44  |STA&74..l.    LD|
00002e50  41 26 31 38 0d 0c 76 13  20 20 20 20 43 4d 50 23  |A&18..v.    CMP#|
00002e60  6e 65 77 70 61 67 65 0d  0c 80 0d 20 20 20 20 42  |newpage....    B|
00002e70  43 43 61 64 0d 0c 8a 0e  2e 73 62 20 53 54 41 26  |CCad.....sb STA&|
00002e80  37 31 0d 0c 94 13 20 20  20 20 4c 44 41 23 6e 65  |71....    LDA#ne|
00002e90  77 70 61 67 65 0d 0c 9e  0e 20 20 20 20 53 54 41  |wpage....    STA|
00002ea0  26 37 33 0d 0c a8 12 2e  6d 31 20 4c 44 41 28 26  |&73.....m1 LDA(&|
00002eb0  37 30 29 2c 59 0d 0c b2  12 20 20 20 20 53 54 41  |70),Y....    STA|
00002ec0  28 26 37 32 29 2c 59 0d  0c bc 0b 20 20 20 20 49  |(&72),Y....    I|
00002ed0  4e 59 0d 0c c6 0d 20 20  20 20 42 4e 45 6d 31 0d  |NY....    BNEm1.|
00002ee0  0c d0 0e 20 20 20 20 49  4e 43 26 37 31 0d 0c da  |...    INC&71...|
00002ef0  0e 20 20 20 20 49 4e 43  26 37 33 0d 0c e4 0e 20  |.    INC&73.... |
00002f00  20 20 20 4c 44 58 26 37  31 0d 0c ee 0b 20 20 20  |   LDX&71....   |
00002f10  20 44 45 58 0d 0c f8 0e  20 20 20 20 43 50 58 26  | DEX....    CPX&|
00002f20  30 33 0d 0d 02 0d 20 20  20 20 42 43 43 6d 31 0d  |03....    BCCm1.|
00002f30  0d 0c 0d 20 20 20 20 42  43 53 65 6d 0d 0d 16 0e  |...    BCSem....|
00002f40  2e 61 64 20 4c 44 41 26  30 33 0d 0d 20 0e 20 20  |.ad LDA&03.. .  |
00002f50  20 20 53 54 41 26 37 31  0d 0d 2a 0b 20 20 20 20  |  STA&71..*.    |
00002f60  43 4c 43 0d 0d 34 0e 20  20 20 20 41 44 43 26 37  |CLC..4.    ADC&7|
00002f70  34 0d 0d 3e 0e 20 20 20  20 53 54 41 26 37 33 0d  |4..>.    STA&73.|
00002f80  0d 48 0d 20 20 20 20 4c  44 41 23 30 0d 0d 52 0e  |.H.    LDA#0..R.|
00002f90  20 20 20 20 4c 44 59 26  30 32 0d 0d 5c 12 2e 6d  |    LDY&02..\..m|
00002fa0  32 20 4c 44 41 28 26 37  30 29 2c 59 0d 0d 66 12  |2 LDA(&70),Y..f.|
00002fb0  20 20 20 20 53 54 41 28  26 37 32 29 2c 59 0d 0d  |    STA(&72),Y..|
00002fc0  70 0b 20 20 20 20 44 45  59 0d 0d 7a 0f 20 20 20  |p.    DEY..z.   |
00002fd0  20 43 50 59 23 26 46 46  0d 0d 84 0d 20 20 20 20  | CPY#&FF....    |
00002fe0  42 4e 45 6d 32 0d 0d 8e  0e 20 20 20 20 44 45 43  |BNEm2....    DEC|
00002ff0  26 37 31 0d 0d 98 0e 20  20 20 20 44 45 43 26 37  |&71....    DEC&7|
00003000  33 0d 0d a2 0e 20 20 20  20 4c 44 41 26 37 33 0d  |3....    LDA&73.|
00003010  0d ac 17 20 20 20 20 43  4d 50 23 28 6e 65 77 70  |...    CMP#(newp|
00003020  61 67 65 2d 31 29 0d 0d  b6 0d 20 20 20 20 42 43  |age-1)....    BC|
00003030  53 6d 32 0d 0d c0 0e 2e  65 6d 20 4c 44 41 26 31  |Sm2.....em LDA&1|
00003040  33 0d 0d ca 0b 20 20 20  20 43 4c 43 0d 0d d4 0e  |3....    CLC....|
00003050  20 20 20 20 41 44 43 26  37 34 0d 0d de 0e 20 20  |    ADC&74....  |
00003060  20 20 53 54 41 26 31 33  0d 0d e8 0e 20 20 20 20  |  STA&13....    |
00003070  53 54 41 26 30 31 0d 0d  f2 13 20 20 20 20 4c 44  |STA&01....    LD|
00003080  41 23 6e 65 77 70 61 67  65 0d 0d fc 0e 20 20 20  |A#newpage....   |
00003090  20 53 54 41 26 31 38 0d  0e 06 0b 20 20 20 20 52  | STA&18....    R|
000030a0  54 53 0d 0e 10 05 5d 0d  0e 1a 05 ed 0d 0e 24 08  |TS....].......$.|
000030b0  ef 20 32 31 0d 0e 2e 31  ff 22 4b 45 59 20 30 22  |. 21...1."KEY 0"|
000030c0  22 43 41 4c 4c 26 43 30  30 7c 4d 52 55 4e 7c 46  |"CALL&C00|MRUN|F|
000030d0  7c 4d 22 22 22 3a ff 22  46 58 20 31 35 33 2c 30  ||M""":."FX 153,0|
000030e0  2c 31 32 38 22 0d 0e 38  05 e0 0d 0e 42 05 e1 0d  |,128"..8....B...|
000030f0  ff                                                |.|
000030f1

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .