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

Bounce/B13

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/B13
Read OK:
File size: 2903 bytes
Load address: FFFFFB46
Exec address: F4F8079D
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.1320,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:
   90VDU 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
  100sound=TRUE:DIMcl%(3):cl%(0)=2:cl%(1)=5:cl%(2)=6
  110MODE1:VDU23,1,0;0;0;0;
  120REPEAT
  130PROCtitle
  140VDU 19,1,1,0,0,0,0,19,2,4,0,0,0,0
  150IFk$="K"ORk$="k"THENPROCkeys
  160IFk$=" "THENPROCgame
  170UNTILk$="Q"ORk$="q"
  180MODE6:END
  190:
  200DEFPROCgame
  210lev%=0:scr%=0:live%=3:?&BF8=15
  220REPEAT
  230PROClevel
  240IF live%=-1 THEN lev%=20
  250UNTIL lev%=20
  260IF live%=-1 THEN PROCgameover:ENDPROC
  270PROCcongrat
  280ENDPROC
  290:
  300DEFPROClevel
  310CLS
  320COLOUR 3:PRINTTAB(9,16)"Get Ready for Level ";lev%+1;"!"
  330FORc=0 TO 5
  340FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,c*4+col*8+100,1
  350VDU 19,3,col,0,0,0
  360nt%=TIME+4
  370REPEAT UNTIL TIME>nt%
  380NEXT,:CLS
  390REPEAT
  400VDU 19,3,2,0,0,0
  410tim%=400:lev%=lev%+1:?&BF0=1:?&BF1=1
  420GCOL0,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
  430MOVE800,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
  440COLOUR3:PRINTTAB(1,1)CHR$131
  450?&73=(&14C0+&40*lev%)MOD256
  460?&74=(&14C0+&40*lev%)DIV256
  470COLOUR1:CALL&1A00
  480COLOUR3:PRINTTAB(1,29)"Score";TAB(8,29)"Lives";TAB(16,29)"Screen";TAB(25,29)"Time";TAB(32,29)"Money"
  490REPEAT
  500COLOUR3
  510PRINTTAB(2,30);scr%;TAB(11,30)live%;TAB(19,30)lev%;
  520PRINTTAB(27,30);tim%;" ";TAB(34,30);?&BF8;"0 "
  530REPEAT UNTIL TIME>nt%
  540nt%=TIME+8:CALL&AE9
  550IF?&BF9=0THENREPEAT UNTIL TIME>nt%:nt%=TIME+8:CALL&AE9:tim%=tim%-1
  560UNTIL tim%=-1 OR ?&BEF=1 OR ?&BF9=1
  570IF tim%<>-1 AND ?&BF9=0 THEN UNTIL TRUE:PROClevelfin:ENDPROC
  580live%=live%-1
  590IF live%=-1 THEN UNTIL TRUE:ENDPROC
  600CLS:COLOUR3:PRINTTAB(15,16);
  610IF?&BF9=0THENPRINT"Time Out!"ELSEPRINT"Lost Ball!"
  620FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,0,7
  630FORcol=0 TO 7
  640VDU 19,3,col,0,0,0
  650nt%=TIME+4
  660REPEAT UNTIL TIME>nt%
  670NEXT,:CLS:lev%=lev%-1
  680UNTIL FALSE
  690ENDPROC
  700:
  710DEFPROClevelfin
  720CLS:COLOUR 3
  730PRINTTAB(4,16);"Congratulations: Level Complete"
  740FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
  750FORcol=0 TO 7
  760VDU 19,3,col,0,0,0
  770nt%=TIME+4
  780REPEAT UNTIL TIME>nt%
  790NEXT,:CLS:?&BF8=(?&BF8)+15
  800ENDPROC
  810:
  820DEFPROCgameover
  830CLS:COLOUR 3
  840PRINTTAB(9,16)"That's it: Game Over!"
  850FORc=0 TO 5
  860FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,150-(c*4+col*8),1
  870VDU 19,3,col,0,0,0
  880nt%=TIME+4
  890REPEAT UNTIL TIME>nt%
  900NEXT,:CLS
  910ENDPROC
  920:
  930DEFPROCcongrat
  940CLS:COLOUR 3
  950FORx=0 TO 5
  960PRINTTAB(4,16);"Congratulations: Game Complete!"
  970FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
  980FORcol=0 TO 7
  990VDU 19,3,col,0,0,0
 1000nt%=TIME+4
 1010REPEAT UNTIL TIME>nt%
 1020NEXT,,:CLS
 1030ENDPROC
 1040:
 1050DEFPROCtitle
 1060col=0:CLS
 1070CALL&A00:COLOUR2
 1080PRINTTAB(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"
 1090VDU 23,1,0;0;0;0;:*FX15,1
 1100REPEAT
 1110nt%=TIME+10:col=((col+1) MOD 3)
 1120VDU 19,1,cl%(col),0,0,0,0
 1130VDU 19,2,cl%((col+1) MOD 3),0,0,0,0
 1140VDU 19,3,cl%((col+2) MOD 3),0,0,0,0
 1150REPEAT UNTIL TIME>nt%
 1160k$=INKEY$(0)
 1170IFk$="S"ORk$="s"THENPROCsound
 1180UNTIL INSTR(" QqKk",k$)<>0 AND LEN(k$)<>0
 1190ENDPROC
 1200:
 1210DEFPROCsound
 1220IFsound THEN sound=FALSE ELSE sound=TRUE
 1230PRINTTAB(22,25);:IFsound THEN PRINT"On "ELSEPRINT"Off"
 1240ENDPROC
 1250:
 1260DEFPROCkeys
 1270VDU23,1,1,0;0;0;0;
 1280CLS:PRINT"Please select new keys:"''"Left:"'"Right:"'"Up:"'"Down:"'"Wall:"'"Clear:"
 1290FORk=0TO5:PRINTTAB(8,2+k);:k$=GET$:PRINTk$:?(&BFA+k)=ASC(k$):NEXT
 1300VDU23,1,0;0;0;0;:k$=""
 1310ENDPROC
 1320:
 1330REM Level Data
 1340REM Level 1
 1350DATA 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
 1360:
 1370REM Level 2
 1380DATA 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
 1390:
 1400REM Level 3
 1410DATA 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
 1420:
 1430REM Level 4
 1440DATA 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
 1450:
 1460REM Level 5
 1470DATA 0,255
 1480:
 1490REM Level 6
 1500DATA 0,255
 1510:
 1520REM Level 7
 1530DATA 0,255
 1540:
 1550REM Level 8
 1560DATA 0,255
 1570:
 1580REM Level 9
 1590DATA 0,255
 1600:
 1610REM Level 10
 1620DATA 0,255
 1630:
 1640REM Level 11
 1650DATA 0,255
 1660:
 1670REM Level 12
 1680DATA 0,255
 1690:
 1700REM Level 13
 1710DATA 0,255
 1720:
 1730REM Level 14
 1740DATA 0,255
 1750:
 1760REM Level 15
 1770DATA 0,255
 1780:
 1790REM Level 16
 1800DATA 0,255
 1810:
 1820REM Level 17
 1830DATA 0,255
 1840:
 1850REM Level 18
 1860DATA 0,255
 1870:
 1880REM Level 19
 1890DATA 0,255
 1900:
 1910REM Level 20
 1920DATA 0,255
 1930:
 1940DATA-999
 1950:
 1960DEFPROCinit
 1970IF NOT ((?&78=45) AND (PAGE=&1D00)) THEN PRINT'"Please Wait. . ."':*TAPE
 1980IF PAGE<>&1D00 THEN PROCreloc
 1990VDU 6,11,23,1,0;0;0;0;
 2000PRINT"Calculating sphere. . ."
 2010P%=&D00:p=0
 2020FORx=-78.75 TO 90 STEP 11.25
 2030FORy=22.5 TO 180 STEP 22.5:p=p+.78125
 2040[OPT 2
 2050EQUW INT(480*SIN(PI*(x-11.25)/180)*SIN(PI*y/180)+640)
 2060EQUW INT(60+(COS(PI*y/180)+1)*450)
 2070EQUW INT(480*SIN(PI*x/180)*SIN(PI*y/180)+640)
 2080EQUW INT(60+(COS(PI*y/180)+1)*450)
 2090]
 2100PRINTTAB(24,4)INT(p);"%"
 2110NEXT,
 2120VDU23,1,1;0;0;0;0;
 2130PRINT"Moving level data. . .":ad=&1500
 2140REPEAT
 2150READ d
 2160IF d<>-999 THEN ?ad=d:ad=ad+1
 2170IF d=255 THEN ad=(ad+&40) AND &FFC0
 2180IF d<>-999 THEN UNTIL FALSE
 2190UNTIL TRUE
 2200PRINT"Assembling code. . .":PROCassemble
 2210PRINT"Removing source code. . ."
 2220ENDPROC
 2230:
 2240DEFPROCassemble
 2250oswrch=&FFEE
 2260osbyte=&FFF4
 2270FOR pass=0 TO 2 STEP 2
 2280P%=&A00
 2290[OPT pass
 2300.sphere LDY#0:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0
 2310.point LDAcol:CLC:ADC#1:AND#3:STAcol:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDYcol:TXA:LSR A:LSR A:LSR A:CLC:ADCseq,Y
 2320.colsub CMP #3:BCCcolgot:SEC:SBC#3:JMPcolsub
 2330.colgot CLC:ADC#1:JSRoswrch:LDY #0:TXA:AND#7:BEQnewxval
 2340LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2350INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
 2360.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
 2370LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2380INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
 2390.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
 2400.col EQUB 0
 2410.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
 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#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JSRoswrch:LDA#&15:LDX#0:JMPosbyte
 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]:PRINT~P%: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.1320,9999"+�13+"GOTO90"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
F�
P:
Z�� 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
d.sound=�:�cl%(3):cl%(0)=2:cl%(1)=5:cl%(2)=6
n�1:�23,1,0;0;0;0;
x�
�
�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
�
� lev%=20
� live%=-1 � �gameover:�
�congrat
�
":
,��level
6�
@0� 3:�9,16)"Get Ready for Level ";lev%+1;"!"
J�c=0 � 5
T2�col=0 � 7:� sound=� � � 1,-15,c*4+col*8+100,1
^� 19,3,col,0,0,0
hnt%=�+4
r
� � �>nt%
|�,:�
��
�� 19,3,2,0,0,0
�(tim%=400: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%=�+8:�&AE9
&0�?&BF9=0�� � �>nt%:nt%=�+8:�&AE9:tim%=tim%-1
0!� tim%=-1 � ?&BEF=1 � ?&BF9=1
:*� tim%<>-1 � ?&BF9=0 � � �:�levelfin:�
Dlive%=live%-1
N� live%=-1 � � �:�
X�:�3:�15,16);
b'�?&BF9=0��"Time Out!"��"Lost Ball!"
l$�c=0 � 5:� sound=� � � 1,-15,0,7
v�col=0 � 7
�� 19,3,col,0,0,0
�nt%=�+4
�
� � �>nt%
��,:�:lev%=lev%-1
�� �
��
�:
���levelfin
�	�:� 3
�-�4,16);"Congratulations: Level Complete"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
nt%=�+4

� � �>nt%
�,:�:?&BF8=(?&BF8)+15
 �
*:
4��gameover
>	�:� 3
H"�9,16)"That's it: Game Over!"
R�c=0 � 5
\4�col=0 � 7:� sound=� � � 1,-15,150-(c*4+col*8),1
f� 19,3,col,0,0,0
pnt%=�+4
z
� � �>nt%
��,:�
��
�:
�
��congrat
�	�:� 3
��x=0 � 5
�-�4,16);"Congratulations: Game Complete!"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�nt%=�+4
�
� � �>nt%
�	�,,:�
�
:
��title
$col=0:�
.�&A00:�2
8��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"
B� 23,1,0;0;0;0;:*FX15,1
L�
Vnt%=�+10:col=((col+1) � 3)
`� 19,1,cl%(col),0,0,0,0
j#� 19,2,cl%((col+1) � 3),0,0,0,0
t#� 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
<
� Level 1
Fu� 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
P:
Z
� Level 2
dO� 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
n:
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
�� 0,255
�:
�
� Level 6
�� 0,255
�:
�
� Level 7
�� 0,255
:

� Level 8
� 0,255
":
,
� Level 9
6� 0,255
@:
J� Level 10
T� 0,255
^:
h� Level 11
r� 0,255
|:
�� Level 12
�� 0,255
�:
�� Level 13
�� 0,255
�:
�� Level 14
�� 0,255
�:
�� Level 15
�� 0,255
�:
�� Level 16
� 0,255
:
� Level 17
&� 0,255
0:
:� Level 18
D� 0,255
N:
X� Level 19
b� 0,255
l:
v� Level 20
�� 0,255
�:
�	�-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�23,1,1;0;0;0;0;
R&�"Moving level data. . .":ad=&1500
\�
f� d
p� d<>-999 � ?ad=d:ad=ad+1
z!� 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
�;.sphere LDY#0:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0
	q.point LDAcol:CLC:ADC#1:�#3:STAcol:LDA#18:JSRoswrch:LDA#0:JSRoswrch:LDYcol:TXA:LSR A:LSR A:LSR A:CLC:ADCseq,Y
	0.colsub CMP #3:BCCcolgot:SEC:SBC#3:JMPcolsub
	9.colgot CLC:ADC#1:JSRoswrch: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
	8w.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
	BFLDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
	L<INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
	Vy.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
	`.col EQUB 0
	j$.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
	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#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JSRoswrch:LDA#&15:LDX#0:JMPosbyte
�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%: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 32  30 2c 39 39 39 39 22 2b  |"DEL.1320,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 d2 ef 20  36 2c 32 33 2c 31 32 38  |.:..Z.. 6,23,128|
000000d0  2c 32 35 35 2c 36 36 2c  33 36 2c 32 34 2c 32 34  |,255,66,36,24,24|
000000e0  2c 33 36 2c 36 36 2c 32  35 35 2c 32 33 2c 31 32  |,36,66,255,23,12|
000000f0  39 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |9,0,0,0,0,0,0,0,|
00000100  30 2c 32 33 2c 31 33 30  2c 36 30 2c 31 32 36 2c  |0,23,130,60,126,|
00000110  32 35 35 2c 32 35 33 2c  32 35 30 2c 32 34 35 2c  |255,253,250,245,|
00000120  34 32 2c 32 30 2c 32 33  2c 31 33 31 2c 32 35 35  |42,20,23,131,255|
00000130  2c 31 32 39 2c 31 32 39  2c 31 32 39 2c 31 32 39  |,129,129,129,129|
00000140  2c 31 32 39 2c 31 32 39  2c 32 35 35 2c 32 33 2c  |,129,129,255,23,|
00000150  31 33 32 2c 32 34 2c 39  30 2c 36 30 2c 32 35 35  |132,24,90,60,255|
00000160  2c 32 35 35 2c 36 30 2c  39 30 2c 32 34 2c 32 33  |,255,60,90,24,23|
00000170  2c 31 33 33 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,133,255,255,255|
00000180  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000190  2c 32 35 35 0d 00 64 2e  73 6f 75 6e 64 3d b9 3a  |,255..d.sound=.:|
000001a0  de 63 6c 25 28 33 29 3a  63 6c 25 28 30 29 3d 32  |.cl%(3):cl%(0)=2|
000001b0  3a 63 6c 25 28 31 29 3d  35 3a 63 6c 25 28 32 29  |:cl%(1)=5:cl%(2)|
000001c0  3d 36 0d 00 6e 15 eb 31  3a ef 32 33 2c 31 2c 30  |=6..n..1:.23,1,0|
000001d0  3b 30 3b 30 3b 30 3b 0d  00 78 05 f5 0d 00 82 0a  |;0;0;0;..x......|
000001e0  f2 74 69 74 6c 65 0d 00  8c 23 ef 20 31 39 2c 31  |.title...#. 19,1|
000001f0  2c 31 2c 30 2c 30 2c 30  2c 30 2c 31 39 2c 32 2c  |,1,0,0,0,0,19,2,|
00000200  34 2c 30 2c 30 2c 30 2c  30 0d 00 96 18 e7 6b 24  |4,0,0,0,0.....k$|
00000210  3d 22 4b 22 84 6b 24 3d  22 6b 22 8c f2 6b 65 79  |="K".k$="k"..key|
00000220  73 0d 00 a0 11 e7 6b 24  3d 22 20 22 8c f2 67 61  |s.....k$=" "..ga|
00000230  6d 65 0d 00 aa 12 fd 6b  24 3d 22 51 22 84 6b 24  |me.....k$="Q".k$|
00000240  3d 22 71 22 0d 00 b4 08  eb 36 3a e0 0d 00 be 05  |="q".....6:.....|
00000250  3a 0d 00 c8 0a dd f2 67  61 6d 65 0d 00 d2 22 6c  |:......game..."l|
00000260  65 76 25 3d 30 3a 73 63  72 25 3d 30 3a 6c 69 76  |ev%=0:scr%=0:liv|
00000270  65 25 3d 33 3a 3f 26 42  46 38 3d 31 35 0d 00 dc  |e%=3:?&BF8=15...|
00000280  05 f5 0d 00 e6 0a f2 6c  65 76 65 6c 0d 00 f0 18  |.......level....|
00000290  e7 20 6c 69 76 65 25 3d  2d 31 20 8c 20 6c 65 76  |. live%=-1 . lev|
000002a0  25 3d 32 30 0d 00 fa 0d  fd 20 6c 65 76 25 3d 32  |%=20..... lev%=2|
000002b0  30 0d 01 04 1c e7 20 6c  69 76 65 25 3d 2d 31 20  |0..... live%=-1 |
000002c0  8c 20 f2 67 61 6d 65 6f  76 65 72 3a e1 0d 01 0e  |. .gameover:....|
000002d0  0c f2 63 6f 6e 67 72 61  74 0d 01 18 05 e1 0d 01  |..congrat.......|
000002e0  22 05 3a 0d 01 2c 0b dd  f2 6c 65 76 65 6c 0d 01  |".:..,...level..|
000002f0  36 05 db 0d 01 40 30 fb  20 33 3a f1 8a 39 2c 31  |6....@0. 3:..9,1|
00000300  36 29 22 47 65 74 20 52  65 61 64 79 20 66 6f 72  |6)"Get Ready for|
00000310  20 4c 65 76 65 6c 20 22  3b 6c 65 76 25 2b 31 3b  | Level ";lev%+1;|
00000320  22 21 22 0d 01 4a 0c e3  63 3d 30 20 b8 20 35 0d  |"!"..J..c=0 . 5.|
00000330  01 54 32 e3 63 6f 6c 3d  30 20 b8 20 37 3a e7 20  |.T2.col=0 . 7:. |
00000340  73 6f 75 6e 64 3d b9 20  8c 20 d4 20 31 2c 2d 31  |sound=. . . 1,-1|
00000350  35 2c 63 2a 34 2b 63 6f  6c 2a 38 2b 31 30 30 2c  |5,c*4+col*8+100,|
00000360  31 0d 01 5e 14 ef 20 31  39 2c 33 2c 63 6f 6c 2c  |1..^.. 19,3,col,|
00000370  30 2c 30 2c 30 0d 01 68  0b 6e 74 25 3d 91 2b 34  |0,0,0..h.nt%=.+4|
00000380  0d 01 72 0d f5 20 fd 20  91 3e 6e 74 25 0d 01 7c  |..r.. . .>nt%..||
00000390  08 ed 2c 3a db 0d 01 86  05 f5 0d 01 90 12 ef 20  |..,:........... |
000003a0  31 39 2c 33 2c 32 2c 30  2c 30 2c 30 0d 01 9a 28  |19,3,2,0,0,0...(|
000003b0  74 69 6d 25 3d 34 30 30  3a 6c 65 76 25 3d 6c 65  |tim%=400:lev%=le|
000003c0  76 25 2b 31 3a 3f 26 42  46 30 3d 31 3a 3f 26 42  |v%+1:?&BF0=1:?&B|
000003d0  46 31 3d 31 0d 01 a4 95  e6 30 2c 31 3a ec 30 2c  |F1=1.....0,1:.0,|
000003e0  30 3a ec 33 30 30 30 2c  30 3a f0 38 35 2c 30 2c  |0:.3000,0:.85,0,|
000003f0  33 30 30 30 3a e6 30 2c  30 3a ec 33 32 2c 33 32  |3000:.0,0:.32,32|
00000400  3a ec 33 32 2c 39 36 3a  f0 38 35 2c 32 32 34 2c  |:.32,96:.85,224,|
00000410  33 32 3a f0 38 35 2c 32  32 34 2c 39 36 3a ec 32  |32:.85,224,96:.2|
00000420  35 36 2c 33 32 3a ec 32  35 36 2c 39 36 3a f0 38  |56,32:.256,96:.8|
00000430  35 2c 34 38 30 2c 33 32  3a f0 38 35 2c 34 38 30  |5,480,32:.85,480|
00000440  2c 39 36 3a ec 35 31 32  2c 33 32 3a ec 35 31 32  |,96:.512,32:.512|
00000450  2c 39 36 3a f0 38 35 2c  37 36 38 2c 33 32 3a f0  |,96:.85,768,32:.|
00000460  38 35 2c 37 36 38 2c 39  36 0d 01 ae 7d ec 38 30  |85,768,96...}.80|
00000470  30 2c 33 32 3a ec 38 30  30 2c 39 36 3a f0 38 35  |0,32:.800,96:.85|
00000480  2c 39 39 32 2c 33 32 3a  f0 38 35 2c 39 39 32 2c  |,992,32:.85,992,|
00000490  39 36 3a ec 31 30 32 34  2c 33 32 3a ec 31 30 32  |96:.1024,32:.102|
000004a0  34 2c 39 36 3a f0 38 35  2c 31 32 34 38 2c 33 32  |4,96:.85,1248,32|
000004b0  3a f0 38 35 2c 31 32 34  38 2c 39 36 3a ec 33 32  |:.85,1248,96:.32|
000004c0  2c 32 32 34 3a ec 31 32  34 38 2c 32 32 34 3a f0  |,224:.1248,224:.|
000004d0  38 35 2c 33 32 2c 39 39  32 3a f0 38 35 2c 31 32  |85,32,992:.85,12|
000004e0  34 38 2c 39 39 32 0d 01  b8 11 fb 33 3a f1 8a 31  |48,992.....3:..1|
000004f0  2c 31 29 bd 31 33 31 0d  01 c2 1d 3f 26 37 33 3d  |,1).131....?&73=|
00000500  28 26 31 34 43 30 2b 26  34 30 2a 6c 65 76 25 29  |(&14C0+&40*lev%)|
00000510  83 32 35 36 0d 01 cc 1d  3f 26 37 34 3d 28 26 31  |.256....?&74=(&1|
00000520  34 43 30 2b 26 34 30 2a  6c 65 76 25 29 81 32 35  |4C0+&40*lev%).25|
00000530  36 0d 01 d6 0d fb 31 3a  d6 26 31 41 30 30 0d 01  |6.....1:.&1A00..|
00000540  e0 50 fb 33 3a f1 8a 31  2c 32 39 29 22 53 63 6f  |.P.3:..1,29)"Sco|
00000550  72 65 22 3b 8a 38 2c 32  39 29 22 4c 69 76 65 73  |re";.8,29)"Lives|
00000560  22 3b 8a 31 36 2c 32 39  29 22 53 63 72 65 65 6e  |";.16,29)"Screen|
00000570  22 3b 8a 32 35 2c 32 39  29 22 54 69 6d 65 22 3b  |";.25,29)"Time";|
00000580  8a 33 32 2c 32 39 29 22  4d 6f 6e 65 79 22 0d 01  |.32,29)"Money"..|
00000590  ea 05 f5 0d 01 f4 06 fb  33 0d 01 fe 2a f1 8a 32  |........3...*..2|
000005a0  2c 33 30 29 3b 73 63 72  25 3b 8a 31 31 2c 33 30  |,30);scr%;.11,30|
000005b0  29 6c 69 76 65 25 3b 8a  31 39 2c 33 30 29 6c 65  |)live%;.19,30)le|
000005c0  76 25 3b 0d 02 08 28 f1  8a 32 37 2c 33 30 29 3b  |v%;...(..27,30);|
000005d0  74 69 6d 25 3b 22 20 22  3b 8a 33 34 2c 33 30 29  |tim%;" ";.34,30)|
000005e0  3b 3f 26 42 46 38 3b 22  30 20 22 0d 02 12 0d f5  |;?&BF8;"0 ".....|
000005f0  20 fd 20 91 3e 6e 74 25  0d 02 1c 11 6e 74 25 3d  | . .>nt%....nt%=|
00000600  91 2b 38 3a d6 26 41 45  39 0d 02 26 30 e7 3f 26  |.+8:.&AE9..&0.?&|
00000610  42 46 39 3d 30 8c f5 20  fd 20 91 3e 6e 74 25 3a  |BF9=0.. . .>nt%:|
00000620  6e 74 25 3d 91 2b 38 3a  d6 26 41 45 39 3a 74 69  |nt%=.+8:.&AE9:ti|
00000630  6d 25 3d 74 69 6d 25 2d  31 0d 02 30 21 fd 20 74  |m%=tim%-1..0!. t|
00000640  69 6d 25 3d 2d 31 20 84  20 3f 26 42 45 46 3d 31  |im%=-1 . ?&BEF=1|
00000650  20 84 20 3f 26 42 46 39  3d 31 0d 02 3a 2a e7 20  | . ?&BF9=1..:*. |
00000660  74 69 6d 25 3c 3e 2d 31  20 80 20 3f 26 42 46 39  |tim%<>-1 . ?&BF9|
00000670  3d 30 20 8c 20 fd 20 b9  3a f2 6c 65 76 65 6c 66  |=0 . . .:.levelf|
00000680  69 6e 3a e1 0d 02 44 11  6c 69 76 65 25 3d 6c 69  |in:...D.live%=li|
00000690  76 65 25 2d 31 0d 02 4e  16 e7 20 6c 69 76 65 25  |ve%-1..N.. live%|
000006a0  3d 2d 31 20 8c 20 fd 20  b9 3a e1 0d 02 58 12 db  |=-1 . . .:...X..|
000006b0  3a fb 33 3a f1 8a 31 35  2c 31 36 29 3b 0d 02 62  |:.3:..15,16);..b|
000006c0  27 e7 3f 26 42 46 39 3d  30 8c f1 22 54 69 6d 65  |'.?&BF9=0.."Time|
000006d0  20 4f 75 74 21 22 8b f1  22 4c 6f 73 74 20 42 61  | Out!".."Lost Ba|
000006e0  6c 6c 21 22 0d 02 6c 24  e3 63 3d 30 20 b8 20 35  |ll!"..l$.c=0 . 5|
000006f0  3a e7 20 73 6f 75 6e 64  3d b9 20 8c 20 d4 20 31  |:. sound=. . . 1|
00000700  2c 2d 31 35 2c 30 2c 37  0d 02 76 0e e3 63 6f 6c  |,-15,0,7..v..col|
00000710  3d 30 20 b8 20 37 0d 02  80 14 ef 20 31 39 2c 33  |=0 . 7..... 19,3|
00000720  2c 63 6f 6c 2c 30 2c 30  2c 30 0d 02 8a 0b 6e 74  |,col,0,0,0....nt|
00000730  25 3d 91 2b 34 0d 02 94  0d f5 20 fd 20 91 3e 6e  |%=.+4..... . .>n|
00000740  74 25 0d 02 9e 14 ed 2c  3a db 3a 6c 65 76 25 3d  |t%.....,:.:lev%=|
00000750  6c 65 76 25 2d 31 0d 02  a8 07 fd 20 a3 0d 02 b2  |lev%-1..... ....|
00000760  05 e1 0d 02 bc 05 3a 0d  02 c6 0e dd f2 6c 65 76  |......:......lev|
00000770  65 6c 66 69 6e 0d 02 d0  09 db 3a fb 20 33 0d 02  |elfin.....:. 3..|
00000780  da 2d f1 8a 34 2c 31 36  29 3b 22 43 6f 6e 67 72  |.-..4,16);"Congr|
00000790  61 74 75 6c 61 74 69 6f  6e 73 3a 20 4c 65 76 65  |atulations: Leve|
000007a0  6c 20 43 6f 6d 70 6c 65  74 65 22 0d 02 e4 2a e3  |l Complete"...*.|
000007b0  63 3d 30 20 b8 20 35 3a  e7 20 73 6f 75 6e 64 3d  |c=0 . 5:. sound=|
000007c0  b9 20 8c 20 d4 20 31 2c  2d 31 35 2c 34 2b 63 2a  |. . . 1,-15,4+c*|
000007d0  34 38 2c 31 30 0d 02 ee  0e e3 63 6f 6c 3d 30 20  |48,10.....col=0 |
000007e0  b8 20 37 0d 02 f8 14 ef  20 31 39 2c 33 2c 63 6f  |. 7..... 19,3,co|
000007f0  6c 2c 30 2c 30 2c 30 0d  03 02 0b 6e 74 25 3d 91  |l,0,0,0....nt%=.|
00000800  2b 34 0d 03 0c 0d f5 20  fd 20 91 3e 6e 74 25 0d  |+4..... . .>nt%.|
00000810  03 16 19 ed 2c 3a db 3a  3f 26 42 46 38 3d 28 3f  |....,:.:?&BF8=(?|
00000820  26 42 46 38 29 2b 31 35  0d 03 20 05 e1 0d 03 2a  |&BF8)+15.. ....*|
00000830  05 3a 0d 03 34 0e dd f2  67 61 6d 65 6f 76 65 72  |.:..4...gameover|
00000840  0d 03 3e 09 db 3a fb 20  33 0d 03 48 22 f1 8a 39  |..>..:. 3..H"..9|
00000850  2c 31 36 29 22 54 68 61  74 27 73 20 69 74 3a 20  |,16)"That's it: |
00000860  47 61 6d 65 20 4f 76 65  72 21 22 0d 03 52 0c e3  |Game Over!"..R..|
00000870  63 3d 30 20 b8 20 35 0d  03 5c 34 e3 63 6f 6c 3d  |c=0 . 5..\4.col=|
00000880  30 20 b8 20 37 3a e7 20  73 6f 75 6e 64 3d b9 20  |0 . 7:. sound=. |
00000890  8c 20 d4 20 31 2c 2d 31  35 2c 31 35 30 2d 28 63  |. . 1,-15,150-(c|
000008a0  2a 34 2b 63 6f 6c 2a 38  29 2c 31 0d 03 66 14 ef  |*4+col*8),1..f..|
000008b0  20 31 39 2c 33 2c 63 6f  6c 2c 30 2c 30 2c 30 0d  | 19,3,col,0,0,0.|
000008c0  03 70 0b 6e 74 25 3d 91  2b 34 0d 03 7a 0d f5 20  |.p.nt%=.+4..z.. |
000008d0  fd 20 91 3e 6e 74 25 0d  03 84 08 ed 2c 3a db 0d  |. .>nt%.....,:..|
000008e0  03 8e 05 e1 0d 03 98 05  3a 0d 03 a2 0d dd f2 63  |........:......c|
000008f0  6f 6e 67 72 61 74 0d 03  ac 09 db 3a fb 20 33 0d  |ongrat.....:. 3.|
00000900  03 b6 0c e3 78 3d 30 20  b8 20 35 0d 03 c0 2d f1  |....x=0 . 5...-.|
00000910  8a 34 2c 31 36 29 3b 22  43 6f 6e 67 72 61 74 75  |.4,16);"Congratu|
00000920  6c 61 74 69 6f 6e 73 3a  20 47 61 6d 65 20 43 6f  |lations: Game Co|
00000930  6d 70 6c 65 74 65 21 22  0d 03 ca 2a e3 63 3d 30  |mplete!"...*.c=0|
00000940  20 b8 20 35 3a e7 20 73  6f 75 6e 64 3d b9 20 8c  | . 5:. sound=. .|
00000950  20 d4 20 31 2c 2d 31 35  2c 34 2b 63 2a 34 38 2c  | . 1,-15,4+c*48,|
00000960  31 30 0d 03 d4 0e e3 63  6f 6c 3d 30 20 b8 20 37  |10.....col=0 . 7|
00000970  0d 03 de 14 ef 20 31 39  2c 33 2c 63 6f 6c 2c 30  |..... 19,3,col,0|
00000980  2c 30 2c 30 0d 03 e8 0b  6e 74 25 3d 91 2b 34 0d  |,0,0....nt%=.+4.|
00000990  03 f2 0d f5 20 fd 20 91  3e 6e 74 25 0d 03 fc 09  |.... . .>nt%....|
000009a0  ed 2c 2c 3a db 0d 04 06  05 e1 0d 04 10 05 3a 0d  |.,,:..........:.|
000009b0  04 1a 0b dd f2 74 69 74  6c 65 0d 04 24 0b 63 6f  |.....title..$.co|
000009c0  6c 3d 30 3a db 0d 04 2e  0c d6 26 41 30 30 3a fb  |l=0:......&A00:.|
000009d0  32 0d 04 38 b6 f1 8a 31  37 2c 35 29 22 42 4f 55  |2..8...17,5)"BOU|
000009e0  4e 43 45 22 3b 8a 31 30  2c 38 29 22 62 79 20 44  |NCE";.10,8)"by D|
000009f0  6f 6d 69 6e 69 63 20 46  6f 72 64 20 31 39 39 36  |ominic Ford 1996|
00000a00  22 3b 8a 31 32 2c 31 34  29 22 53 50 41 43 45 20  |";.12,14)"SPACE |
00000a10  2d 20 53 74 61 72 74 22  3b 8a 31 36 2c 31 36 29  |- Start";.16,16)|
00000a20  22 51 20 2d 20 51 75 69  74 22 3b 8a 31 36 2c 31  |"Q - Quit";.16,1|
00000a30  38 29 22 53 20 2d 20 53  6f 75 6e 64 20 4f 6e 2f  |8)"S - Sound On/|
00000a40  4f 66 66 22 3b 8a 31 36  2c 32 30 29 22 4b 20 2d  |Off";.16,20)"K -|
00000a50  20 43 68 61 6e 67 65 20  4b 65 79 73 22 3b 8a 31  | Change Keys";.1|
00000a60  35 2c 32 35 29 3b 22 53  6f 75 6e 64 3a 20 22 3b  |5,25);"Sound: ";|
00000a70  3a e7 73 6f 75 6e 64 20  8c 20 f1 22 4f 6e 20 22  |:.sound . ."On "|
00000a80  8b f1 22 4f 66 66 22 0d  04 42 1b ef 20 32 33 2c  |.."Off"..B.. 23,|
00000a90  31 2c 30 3b 30 3b 30 3b  30 3b 3a 2a 46 58 31 35  |1,0;0;0;0;:*FX15|
00000aa0  2c 31 0d 04 4c 05 f5 0d  04 56 1e 6e 74 25 3d 91  |,1..L....V.nt%=.|
00000ab0  2b 31 30 3a 63 6f 6c 3d  28 28 63 6f 6c 2b 31 29  |+10:col=((col+1)|
00000ac0  20 83 20 33 29 0d 04 60  1b ef 20 31 39 2c 31 2c  | . 3)..`.. 19,1,|
00000ad0  63 6c 25 28 63 6f 6c 29  2c 30 2c 30 2c 30 2c 30  |cl%(col),0,0,0,0|
00000ae0  0d 04 6a 23 ef 20 31 39  2c 32 2c 63 6c 25 28 28  |..j#. 19,2,cl%((|
00000af0  63 6f 6c 2b 31 29 20 83  20 33 29 2c 30 2c 30 2c  |col+1) . 3),0,0,|
00000b00  30 2c 30 0d 04 74 23 ef  20 31 39 2c 33 2c 63 6c  |0,0..t#. 19,3,cl|
00000b10  25 28 28 63 6f 6c 2b 32  29 20 83 20 33 29 2c 30  |%((col+2) . 3),0|
00000b20  2c 30 2c 30 2c 30 0d 04  7e 0d f5 20 fd 20 91 3e  |,0,0,0..~.. . .>|
00000b30  6e 74 25 0d 04 88 0b 6b  24 3d bf 28 30 29 0d 04  |nt%....k$=.(0)..|
00000b40  92 19 e7 6b 24 3d 22 53  22 84 6b 24 3d 22 73 22  |...k$="S".k$="s"|
00000b50  8c f2 73 6f 75 6e 64 0d  04 9c 20 fd 20 a7 22 20  |..sound... . ." |
00000b60  51 71 4b 6b 22 2c 6b 24  29 3c 3e 30 20 80 20 a9  |QqKk",k$)<>0 . .|
00000b70  28 6b 24 29 3c 3e 30 0d  04 a6 05 e1 0d 04 b0 05  |(k$)<>0.........|
00000b80  3a 0d 04 ba 0b dd f2 73  6f 75 6e 64 0d 04 c4 1e  |:......sound....|
00000b90  e7 73 6f 75 6e 64 20 8c  20 73 6f 75 6e 64 3d a3  |.sound . sound=.|
00000ba0  20 8b 20 73 6f 75 6e 64  3d b9 0d 04 ce 24 f1 8a  | . sound=....$..|
00000bb0  32 32 2c 32 35 29 3b 3a  e7 73 6f 75 6e 64 20 8c  |22,25);:.sound .|
00000bc0  20 f1 22 4f 6e 20 22 8b  f1 22 4f 66 66 22 0d 04  | ."On ".."Off"..|
00000bd0  d8 05 e1 0d 04 e2 05 3a  0d 04 ec 0a dd f2 6b 65  |.......:......ke|
00000be0  79 73 0d 04 f6 14 ef 32  33 2c 31 2c 31 2c 30 3b  |ys.....23,1,1,0;|
00000bf0  30 3b 30 3b 30 3b 0d 05  00 51 db 3a f1 22 50 6c  |0;0;0;...Q.:."Pl|
00000c00  65 61 73 65 20 73 65 6c  65 63 74 20 6e 65 77 20  |ease select new |
00000c10  6b 65 79 73 3a 22 27 27  22 4c 65 66 74 3a 22 27  |keys:"''"Left:"'|
00000c20  22 52 69 67 68 74 3a 22  27 22 55 70 3a 22 27 22  |"Right:"'"Up:"'"|
00000c30  44 6f 77 6e 3a 22 27 22  57 61 6c 6c 3a 22 27 22  |Down:"'"Wall:"'"|
00000c40  43 6c 65 61 72 3a 22 0d  05 0a 2f e3 6b 3d 30 b8  |Clear:".../.k=0.|
00000c50  35 3a f1 8a 38 2c 32 2b  6b 29 3b 3a 6b 24 3d be  |5:..8,2+k);:k$=.|
00000c60  3a f1 6b 24 3a 3f 28 26  42 46 41 2b 6b 29 3d 97  |:.k$:?(&BFA+k)=.|
00000c70  28 6b 24 29 3a ed 0d 05  14 18 ef 32 33 2c 31 2c  |(k$):......23,1,|
00000c80  30 3b 30 3b 30 3b 30 3b  3a 6b 24 3d 22 22 0d 05  |0;0;0;0;:k$=""..|
00000c90  1e 05 e1 0d 05 28 05 3a  0d 05 32 10 f4 20 4c 65  |.....(.:..2.. Le|
00000ca0  76 65 6c 20 44 61 74 61  0d 05 3c 0d f4 20 4c 65  |vel Data..<.. Le|
00000cb0  76 65 6c 20 31 0d 05 46  75 dc 20 31 37 2c 33 2c  |vel 1..Fu. 17,3,|
00000cc0  33 2c 34 2c 33 2c 35 2c  33 2c 36 2c 33 2c 37 2c  |3,4,3,5,3,6,3,7,|
00000cd0  33 2c 38 2c 33 2c 38 2c  38 2c 39 2c 39 2c 31 30  |3,8,3,8,8,9,9,10|
00000ce0  2c 39 2c 31 31 2c 39 2c  31 32 2c 39 2c 31 33 2c  |,9,11,9,12,9,13,|
00000cf0  39 2c 31 34 2c 39 2c 31  35 2c 39 2c 31 36 2c 39  |9,14,9,15,9,16,9|
00000d00  2c 31 37 2c 38 2c 31 38  2c 39 2c 31 39 2c 38 2c  |,17,8,18,9,19,8,|
00000d10  38 2c 31 2c 31 39 2c 31  2c 31 2c 31 37 2c 31 30  |8,1,19,1,1,17,10|
00000d20  2c 31 2c 32 2c 32 2c 32  35 35 0d 05 50 05 3a 0d  |,1,2,2,255..P.:.|
00000d30  05 5a 0d f4 20 4c 65 76  65 6c 20 32 0d 05 64 4f  |.Z.. Level 2..dO|
00000d40  dc 20 31 30 2c 35 2c 35  2c 36 2c 36 2c 37 2c 35  |. 10,5,5,6,6,7,5|
00000d50  2c 31 31 2c 35 2c 31 32  2c 36 2c 31 33 2c 35 2c  |,11,5,12,6,13,5,|
00000d60  37 2c 38 2c 38 2c 39 2c  31 30 2c 39 2c 31 31 2c  |7,8,8,9,10,9,11,|
00000d70  38 2c 39 2c 31 32 2c 36  2c 31 2c 31 32 2c 31 2c  |8,9,12,6,1,12,1,|
00000d80  30 2c 31 2c 39 2c 38 2c  32 35 35 0d 05 6e 05 3a  |0,1,9,8,255..n.:|
00000d90  0d 05 78 0d f4 20 4c 65  76 65 6c 20 33 0d 05 82  |..x.. Level 3...|
00000da0  7a dc 20 31 33 2c 35 2c  35 2c 36 2c 36 2c 37 2c  |z. 13,5,5,6,6,7,|
00000db0  36 2c 38 2c 36 2c 39 2c  36 2c 31 30 2c 35 2c 31  |6,8,6,9,6,10,5,1|
00000dc0  32 2c 35 2c 31 33 2c 36  2c 31 34 2c 36 2c 31 35  |2,5,13,6,14,6,15|
00000dd0  2c 36 2c 31 36 2c 36 2c  31 37 2c 35 2c 39 2c 39  |,6,16,6,17,5,9,9|
00000de0  2c 31 33 2c 39 2c 39 2c  31 2c 31 33 2c 32 2c 36  |,13,9,9,1,13,2,6|
00000df0  2c 31 31 2c 35 2c 31 31  2c 36 2c 31 30 2c 31 30  |,11,5,11,6,10,10|
00000e00  2c 31 34 2c 38 2c 31 30  2c 31 30 2c 31 32 2c 31  |,14,8,10,10,12,1|
00000e10  30 2c 30 2c 32 35 35 0d  05 8c 05 3a 0d 05 96 0d  |0,0,255....:....|
00000e20  f4 20 4c 65 76 65 6c 20  34 0d 05 a0 98 dc 20 31  |. Level 4..... 1|
00000e30  31 2c 35 2c 35 2c 36 2c  36 2c 37 2c 36 2c 38 2c  |1,5,5,6,6,7,6,8,|
00000e40  36 2c 39 2c 36 2c 31 30  2c 35 2c 31 32 2c 35 2c  |6,9,6,10,5,12,5,|
00000e50  31 33 2c 36 2c 31 34 2c  36 2c 31 35 2c 36 2c 31  |13,6,14,6,15,6,1|
00000e60  36 2c 36 2c 31 37 2c 35  2c 36 2c 31 2c 31 36 2c  |6,6,17,5,6,1,16,|
00000e70  31 2c 37 2c 31 31 2c 35  2c 31 31 2c 36 2c 31 31  |1,7,11,5,11,6,11|
00000e80  2c 37 2c 31 30 2c 38 2c  39 2c 37 2c 31 32 2c 38  |,7,10,8,9,7,12,8|
00000e90  2c 31 33 2c 37 2c 37 2c  38 2c 39 2c 39 2c 31 30  |,13,7,7,8,9,9,10|
00000ea0  2c 31 30 2c 31 30 2c 31  31 2c 31 30 2c 31 32 2c  |,10,10,11,10,12,|
00000eb0  31 30 2c 31 33 2c 31 30  2c 31 34 2c 39 2c 32 35  |10,13,10,14,9,25|
00000ec0  35 0d 05 aa 05 3a 0d 05  b4 0d f4 20 4c 65 76 65  |5....:..... Leve|
00000ed0  6c 20 35 0d 05 be 0b dc  20 30 2c 32 35 35 0d 05  |l 5..... 0,255..|
00000ee0  c8 05 3a 0d 05 d2 0d f4  20 4c 65 76 65 6c 20 36  |..:..... Level 6|
00000ef0  0d 05 dc 0b dc 20 30 2c  32 35 35 0d 05 e6 05 3a  |..... 0,255....:|
00000f00  0d 05 f0 0d f4 20 4c 65  76 65 6c 20 37 0d 05 fa  |..... Level 7...|
00000f10  0b dc 20 30 2c 32 35 35  0d 06 04 05 3a 0d 06 0e  |.. 0,255....:...|
00000f20  0d f4 20 4c 65 76 65 6c  20 38 0d 06 18 0b dc 20  |.. Level 8..... |
00000f30  30 2c 32 35 35 0d 06 22  05 3a 0d 06 2c 0d f4 20  |0,255..".:..,.. |
00000f40  4c 65 76 65 6c 20 39 0d  06 36 0b dc 20 30 2c 32  |Level 9..6.. 0,2|
00000f50  35 35 0d 06 40 05 3a 0d  06 4a 0e f4 20 4c 65 76  |55..@.:..J.. Lev|
00000f60  65 6c 20 31 30 0d 06 54  0b dc 20 30 2c 32 35 35  |el 10..T.. 0,255|
00000f70  0d 06 5e 05 3a 0d 06 68  0e f4 20 4c 65 76 65 6c  |..^.:..h.. Level|
00000f80  20 31 31 0d 06 72 0b dc  20 30 2c 32 35 35 0d 06  | 11..r.. 0,255..|
00000f90  7c 05 3a 0d 06 86 0e f4  20 4c 65 76 65 6c 20 31  ||.:..... Level 1|
00000fa0  32 0d 06 90 0b dc 20 30  2c 32 35 35 0d 06 9a 05  |2..... 0,255....|
00000fb0  3a 0d 06 a4 0e f4 20 4c  65 76 65 6c 20 31 33 0d  |:..... Level 13.|
00000fc0  06 ae 0b dc 20 30 2c 32  35 35 0d 06 b8 05 3a 0d  |.... 0,255....:.|
00000fd0  06 c2 0e f4 20 4c 65 76  65 6c 20 31 34 0d 06 cc  |.... Level 14...|
00000fe0  0b dc 20 30 2c 32 35 35  0d 06 d6 05 3a 0d 06 e0  |.. 0,255....:...|
00000ff0  0e f4 20 4c 65 76 65 6c  20 31 35 0d 06 ea 0b dc  |.. Level 15.....|
00001000  20 30 2c 32 35 35 0d 06  f4 05 3a 0d 06 fe 0e f4  | 0,255....:.....|
00001010  20 4c 65 76 65 6c 20 31  36 0d 07 08 0b dc 20 30  | Level 16..... 0|
00001020  2c 32 35 35 0d 07 12 05  3a 0d 07 1c 0e f4 20 4c  |,255....:..... L|
00001030  65 76 65 6c 20 31 37 0d  07 26 0b dc 20 30 2c 32  |evel 17..&.. 0,2|
00001040  35 35 0d 07 30 05 3a 0d  07 3a 0e f4 20 4c 65 76  |55..0.:..:.. Lev|
00001050  65 6c 20 31 38 0d 07 44  0b dc 20 30 2c 32 35 35  |el 18..D.. 0,255|
00001060  0d 07 4e 05 3a 0d 07 58  0e f4 20 4c 65 76 65 6c  |..N.:..X.. Level|
00001070  20 31 39 0d 07 62 0b dc  20 30 2c 32 35 35 0d 07  | 19..b.. 0,255..|
00001080  6c 05 3a 0d 07 76 0e f4  20 4c 65 76 65 6c 20 32  |l.:..v.. Level 2|
00001090  30 0d 07 80 0b dc 20 30  2c 32 35 35 0d 07 8a 05  |0..... 0,255....|
000010a0  3a 0d 07 94 09 dc 2d 39  39 39 0d 07 9e 05 3a 0d  |:.....-999....:.|
000010b0  07 a8 0a dd f2 69 6e 69  74 0d 07 b2 3d e7 20 ac  |.....init...=. .|
000010c0  20 28 28 3f 26 37 38 3d  34 35 29 20 80 20 28 90  | ((?&78=45) . (.|
000010d0  3d 26 31 44 30 30 29 29  20 8c 20 f1 27 22 50 6c  |=&1D00)) . .'"Pl|
000010e0  65 61 73 65 20 57 61 69  74 2e 20 2e 20 2e 22 27  |ease Wait. . ."'|
000010f0  3a 2a 54 41 50 45 0d 07  bc 17 e7 20 90 3c 3e 26  |:*TAPE..... .<>&|
00001100  31 44 30 30 20 8c 20 f2  72 65 6c 6f 63 0d 07 c6  |1D00 . .reloc...|
00001110  18 ef 20 36 2c 31 31 2c  32 33 2c 31 2c 30 3b 30  |.. 6,11,23,1,0;0|
00001120  3b 30 3b 30 3b 0d 07 d0  1e f1 22 43 61 6c 63 75  |;0;0;....."Calcu|
00001130  6c 61 74 69 6e 67 20 73  70 68 65 72 65 2e 20 2e  |lating sphere. .|
00001140  20 2e 22 0d 07 da 0f 50  25 3d 26 44 30 30 3a 70  | ."....P%=&D00:p|
00001150  3d 30 0d 07 e4 1a e3 78  3d 2d 37 38 2e 37 35 20  |=0.....x=-78.75 |
00001160  b8 20 39 30 20 88 20 31  31 2e 32 35 0d 07 ee 23  |. 90 . 11.25...#|
00001170  e3 79 3d 32 32 2e 35 20  b8 20 31 38 30 20 88 20  |.y=22.5 . 180 . |
00001180  32 32 2e 35 3a 70 3d 70  2b 2e 37 38 31 32 35 0d  |22.5:p=p+.78125.|
00001190  07 f8 0a 5b 4f 50 54 20  32 0d 08 02 31 45 51 55  |...[OPT 2...1EQU|
000011a0  57 20 a8 28 34 38 30 2a  b5 28 af 2a 28 78 2d 31  |W .(480*.(.*(x-1|
000011b0  31 2e 32 35 29 2f 31 38  30 29 2a b5 28 af 2a 79  |1.25)/180)*.(.*y|
000011c0  2f 31 38 30 29 2b 36 34  30 29 0d 08 0c 21 45 51  |/180)+640)...!EQ|
000011d0  55 57 20 a8 28 36 30 2b  28 9b 28 af 2a 79 2f 31  |UW .(60+(.(.*y/1|
000011e0  38 30 29 2b 31 29 2a 34  35 30 29 0d 08 16 29 45  |80)+1)*450)...)E|
000011f0  51 55 57 20 a8 28 34 38  30 2a b5 28 af 2a 78 2f  |QUW .(480*.(.*x/|
00001200  31 38 30 29 2a b5 28 af  2a 79 2f 31 38 30 29 2b  |180)*.(.*y/180)+|
00001210  36 34 30 29 0d 08 20 21  45 51 55 57 20 a8 28 36  |640).. !EQUW .(6|
00001220  30 2b 28 9b 28 af 2a 79  2f 31 38 30 29 2b 31 29  |0+(.(.*y/180)+1)|
00001230  2a 34 35 30 29 0d 08 2a  05 5d 0d 08 34 13 f1 8a  |*450)..*.]..4...|
00001240  32 34 2c 34 29 a8 28 70  29 3b 22 25 22 0d 08 3e  |24,4).(p);"%"..>|
00001250  06 ed 2c 0d 08 48 14 ef  32 33 2c 31 2c 31 3b 30  |..,..H..23,1,1;0|
00001260  3b 30 3b 30 3b 30 3b 0d  08 52 26 f1 22 4d 6f 76  |;0;0;0;..R&."Mov|
00001270  69 6e 67 20 6c 65 76 65  6c 20 64 61 74 61 2e 20  |ing level data. |
00001280  2e 20 2e 22 3a 61 64 3d  26 31 35 30 30 0d 08 5c  |. .":ad=&1500..\|
00001290  05 f5 0d 08 66 07 f3 20  64 0d 08 70 1d e7 20 64  |....f.. d..p.. d|
000012a0  3c 3e 2d 39 39 39 20 8c  20 3f 61 64 3d 64 3a 61  |<>-999 . ?ad=d:a|
000012b0  64 3d 61 64 2b 31 0d 08  7a 21 e7 20 64 3d 32 35  |d=ad+1..z!. d=25|
000012c0  35 20 8c 20 61 64 3d 28  61 64 2b 26 34 30 29 20  |5 . ad=(ad+&40) |
000012d0  80 20 26 46 46 43 30 0d  08 84 13 e7 20 64 3c 3e  |. &FFC0..... d<>|
000012e0  2d 39 39 39 20 8c 20 fd  20 a3 0d 08 8e 07 fd 20  |-999 . . ...... |
000012f0  b9 0d 08 98 25 f1 22 41  73 73 65 6d 62 6c 69 6e  |....%."Assemblin|
00001300  67 20 63 6f 64 65 2e 20  2e 20 2e 22 3a f2 61 73  |g code. . .":.as|
00001310  73 65 6d 62 6c 65 0d 08  a2 20 f1 22 52 65 6d 6f  |semble... ."Remo|
00001320  76 69 6e 67 20 73 6f 75  72 63 65 20 63 6f 64 65  |ving source code|
00001330  2e 20 2e 20 2e 22 0d 08  ac 05 e1 0d 08 b6 05 3a  |. . .".........:|
00001340  0d 08 c0 0e dd f2 61 73  73 65 6d 62 6c 65 0d 08  |......assemble..|
00001350  ca 10 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 08  |..oswrch=&FFEE..|
00001360  d4 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 08  |..osbyte=&FFF4..|
00001370  de 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |... pass=0 . 2 .|
00001380  20 32 0d 08 e8 0b 50 25  3d 26 41 30 30 0d 08 f2  | 2....P%=&A00...|
00001390  0d 5b 4f 50 54 20 70 61  73 73 0d 08 fc 3b 2e 73  |.[OPT pass...;.s|
000013a0  70 68 65 72 65 20 4c 44  59 23 30 3a 53 54 59 63  |phere LDY#0:STYc|
000013b0  6f 6c 3a 4c 44 41 23 26  43 3a 53 54 41 26 37 31  |ol:LDA#&C:STA&71|
000013c0  3a 4c 44 41 23 26 46 38  3a 53 54 41 26 37 30 3a  |:LDA#&F8:STA&70:|
000013d0  4c 44 58 23 30 0d 09 06  71 2e 70 6f 69 6e 74 20  |LDX#0...q.point |
000013e0  4c 44 41 63 6f 6c 3a 43  4c 43 3a 41 44 43 23 31  |LDAcol:CLC:ADC#1|
000013f0  3a 80 23 33 3a 53 54 41  63 6f 6c 3a 4c 44 41 23  |:.#3:STAcol:LDA#|
00001400  31 38 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |18:JSRoswrch:LDA|
00001410  23 30 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 59  |#0:JSRoswrch:LDY|
00001420  63 6f 6c 3a 54 58 41 3a  4c 53 52 20 41 3a 4c 53  |col:TXA:LSR A:LS|
00001430  52 20 41 3a 4c 53 52 20  41 3a 43 4c 43 3a 41 44  |R A:LSR A:CLC:AD|
00001440  43 73 65 71 2c 59 0d 09  10 30 2e 63 6f 6c 73 75  |Cseq,Y...0.colsu|
00001450  62 20 43 4d 50 20 23 33  3a 42 43 43 63 6f 6c 67  |b CMP #3:BCCcolg|
00001460  6f 74 3a 53 45 43 3a 53  42 43 23 33 3a 4a 4d 50  |ot:SEC:SBC#3:JMP|
00001470  63 6f 6c 73 75 62 0d 09  1a 39 2e 63 6f 6c 67 6f  |colsub...9.colgo|
00001480  74 20 43 4c 43 3a 41 44  43 23 31 3a 4a 53 52 6f  |t CLC:ADC#1:JSRo|
00001490  73 77 72 63 68 3a 4c 44  59 20 23 30 3a 54 58 41  |swrch:LDY #0:TXA|
000014a0  3a 80 23 37 3a 42 45 51  6e 65 77 78 76 61 6c 0d  |:.#7:BEQnewxval.|
000014b0  09 24 89 4c 44 41 23 32  35 3a 4a 53 52 6f 73 77  |.$.LDA#25:JSRosw|
000014c0  72 63 68 3a 4c 44 41 23  34 3a 4a 53 52 73 65 6e  |rch:LDA#4:JSRsen|
000014d0  64 63 6f 3a 4c 44 41 23  32 35 3a 4a 53 52 6f 73  |dco:LDA#25:JSRos|
000014e0  77 72 63 68 3a 4c 44 41  23 34 3a 4a 53 52 73 65  |wrch:LDA#4:JSRse|
000014f0  6e 64 63 6f 3a 4c 44 41  23 32 35 3a 4a 53 52 6f  |ndco:LDA#25:JSRo|
00001500  73 77 72 63 68 3a 4c 44  41 23 38 35 3a 4a 53 52  |swrch:LDA#85:JSR|
00001510  73 65 6e 64 63 6f 3a 4c  44 41 23 32 35 3a 4a 53  |sendco:LDA#25:JS|
00001520  52 6f 73 77 72 63 68 3a  4c 44 41 23 38 35 3a 4a  |Roswrch:LDA#85:J|
00001530  53 52 73 65 6e 64 63 6f  0d 09 2e 48 49 4e 58 3a  |SRsendco...HINX:|
00001540  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 38  |LDA&70:CLC:ADC#8|
00001550  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
00001560  44 43 23 30 3a 53 54 41  26 37 31 3a 43 50 58 23  |DC#0:STA&71:CPX#|
00001570  31 32 38 3a 42 4e 45 70  6f 69 6e 74 3a 52 54 53  |128:BNEpoint:RTS|
00001580  0d 09 38 77 2e 6e 65 77  78 76 61 6c 20 4c 44 41  |..8w.newxval LDA|
00001590  23 32 35 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |#25:JSRoswrch:LD|
000015a0  41 23 34 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |A#4:JSRoswrch:LD|
000015b0  41 23 31 32 38 3a 4a 53  52 6f 73 77 72 63 68 3a  |A#128:JSRoswrch:|
000015c0  4c 44 41 23 32 3a 4a 53  52 6f 73 77 72 63 68 3a  |LDA#2:JSRoswrch:|
000015d0  4c 44 41 23 31 39 32 3a  4a 53 52 6f 73 77 72 63  |LDA#192:JSRoswrc|
000015e0  68 3a 4c 44 41 23 33 3a  4a 53 52 6f 73 77 72 63  |h:LDA#3:JSRoswrc|
000015f0  68 3a 4c 44 59 23 38 0d  09 42 46 4c 44 41 23 32  |h:LDY#8..BFLDA#2|
00001600  35 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |5:JSRoswrch:LDA#|
00001610  34 3a 4a 53 52 73 65 6e  64 63 6f 3a 4c 44 41 23  |4:JSRsendco:LDA#|
00001620  32 35 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |25:JSRoswrch:LDA|
00001630  23 38 35 3a 4a 53 52 73  65 6e 64 63 6f 0d 09 4c  |#85:JSRsendco..L|
00001640  3c 49 4e 58 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |<INX:LDA&70:CLC:|
00001650  41 44 43 23 38 3a 53 54  41 26 37 30 3a 4c 44 41  |ADC#8:STA&70:LDA|
00001660  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
00001670  3a 4a 4d 50 70 6f 69 6e  74 0d 09 56 79 2e 73 65  |:JMPpoint..Vy.se|
00001680  6e 64 63 6f 20 4a 53 52  6f 73 77 72 63 68 3a 4c  |ndco JSRoswrch:L|
00001690  44 41 28 26 37 30 29 2c  59 3a 4a 53 52 6f 73 77  |DA(&70),Y:JSRosw|
000016a0  72 63 68 3a 49 4e 59 3a  4c 44 41 28 26 37 30 29  |rch:INY:LDA(&70)|
000016b0  2c 59 3a 4a 53 52 6f 73  77 72 63 68 3a 49 4e 59  |,Y:JSRoswrch:INY|
000016c0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 4a 53 52 6f  |:LDA(&70),Y:JSRo|
000016d0  73 77 72 63 68 3a 49 4e  59 3a 4c 44 41 28 26 37  |swrch:INY:LDA(&7|
000016e0  30 29 2c 59 3a 49 4e 59  3a 4a 4d 50 6f 73 77 72  |0),Y:INY:JMPoswr|
000016f0  63 68 0d 09 60 0f 2e 63  6f 6c 20 45 51 55 42 20  |ch..`..col EQUB |
00001700  30 0d 09 6a 24 2e 73 65  71 20 45 51 55 42 20 31  |0..j$.seq EQUB 1|
00001710  3a 45 51 55 42 20 33 3a  45 51 55 42 20 32 3a 45  |:EQUB 3:EQUB 2:E|
00001720  51 55 42 20 33 0d 09 74  0d 5d 3a 50 25 3d 26 41  |QUB 3..t.]:P%=&A|
00001730  45 39 0d 09 7e 0c 5b 4f  50 54 70 61 73 73 0d 09  |E9..~.[OPTpass..|
00001740  88 09 4c 44 58 23 30 0d  09 92 42 2e 62 61 6c 6c  |..LDX#0...B.ball|
00001750  6f 70 20 4c 44 41 78 62  61 6c 6c 2c 58 3a 43 4d  |op LDAxball,X:CM|
00001760  50 63 78 3a 42 4e 45 62  61 6c 6c 6f 6e 3a 4c 44  |Pcx:BNEballon:LD|
00001770  41 79 62 61 6c 6c 2c 58  3a 43 4d 50 63 79 3a 42  |Ayball,X:CMPcy:B|
00001780  45 51 62 61 6c 6c 6f 66  66 0d 09 9c 79 2e 62 61  |EQballoff...y.ba|
00001790  6c 6c 6f 6e 20 4c 44 41  23 31 37 3a 4a 53 52 6f  |llon LDA#17:JSRo|
000017a0  73 77 72 63 68 3a 4c 44  41 23 32 3a 4a 53 52 6f  |swrch:LDA#2:JSRo|
000017b0  73 77 72 63 68 3a 4c 44  41 23 33 31 3a 4a 53 52  |swrch:LDA#31:JSR|
000017c0  6f 73 77 72 63 68 3a 4c  44 41 78 62 61 6c 6c 2c  |oswrch:LDAxball,|
000017d0  58 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 79  |X:JSRoswrch:LDAy|
000017e0  62 61 6c 6c 2c 58 3a 4a  53 52 6f 73 77 72 63 68  |ball,X:JSRoswrch|
000017f0  3a 4c 44 41 23 31 32 39  3a 4a 53 52 6f 73 77 72  |:LDA#129:JSRoswr|
00001800  63 68 0d 09 a6 87 2e 62  61 6c 6c 6f 66 66 20 4c  |ch.....balloff L|
00001810  44 41 79 62 61 6c 6c 2c  58 3a 43 4d 50 23 32 34  |DAyball,X:CMP#24|
00001820  3a 42 45 51 64 69 65 3a  4c 44 41 23 26 32 38 3a  |:BEQdie:LDA#&28:|
00001830  53 54 41 26 37 30 3a 4c  44 41 23 26 31 31 3a 53  |STA&70:LDA#&11:S|
00001840  54 41 26 37 31 3a 4c 44  41 78 62 61 6c 6c 2c 58  |TA&71:LDAxball,X|
00001850  3a 4c 44 59 79 62 61 6c  6c 2c 58 3a 4a 53 52 67  |:LDYyball,X:JSRg|
00001860  65 74 61 64 3a 80 23 31  3a 42 4e 45 6e 6f 64 6f  |etad:.#1:BNEnodo|
00001870  77 6e 3a 49 4e 43 79 62  61 6c 6c 2c 58 3a 4a 4d  |wn:INCyball,X:JM|
00001880  50 64 6f 6e 65 62 61 6c  6c 0d 09 b0 9e 2e 6e 6f  |Pdoneball.....no|
00001890  64 6f 77 6e 20 4c 44 41  78 62 61 6c 6c 2c 58 3a  |down LDAxball,X:|
000018a0  43 4d 50 23 31 3a 42 45  51 64 69 65 3a 4c 44 41  |CMP#1:BEQdie:LDA|
000018b0  64 69 72 2c 58 3a 43 4d  50 23 30 3a 42 4e 45 6e  |dir,X:CMP#0:BNEn|
000018c0  6f 6c 65 66 74 3a 4c 44  41 23 26 46 46 3a 53 54  |oleft:LDA#&FF:ST|
000018d0  41 26 37 30 3a 4c 44 41  23 26 31 30 3a 53 54 41  |A&70:LDA#&10:STA|
000018e0  26 37 31 3a 4c 44 41 78  62 61 6c 6c 2c 58 3a 4c  |&71:LDAxball,X:L|
000018f0  44 59 79 62 61 6c 6c 2c  58 3a 4a 53 52 67 65 74  |DYyball,X:JSRget|
00001900  61 64 3a 80 23 31 3a 42  4e 45 6e 6f 6c 65 66 74  |ad:.#1:BNEnoleft|
00001910  3a 44 45 43 78 62 61 6c  6c 2c 58 3a 4a 4d 50 64  |:DECxball,X:JMPd|
00001920  6f 6e 65 62 61 6c 6c 0d  09 ba 1a 2e 64 69 65 20  |oneball.....die |
00001930  4c 44 41 23 31 3a 53 54  41 64 65 61 64 3a 52 54  |LDA#1:STAdead:RT|
00001940  53 0d 09 c4 9f 2e 6e 6f  6c 65 66 74 20 4c 44 41  |S.....noleft LDA|
00001950  78 62 61 6c 6c 2c 58 3a  43 4d 50 23 33 38 3a 42  |xball,X:CMP#38:B|
00001960  45 51 64 69 65 3a 4c 44  41 64 69 72 2c 58 3a 43  |EQdie:LDAdir,X:C|
00001970  4d 50 23 31 3a 42 4e 45  6e 6f 72 69 67 68 74 3a  |MP#1:BNEnoright:|
00001980  4c 44 41 23 31 3a 53 54  41 26 37 30 3a 4c 44 41  |LDA#1:STA&70:LDA|
00001990  23 26 31 31 3a 53 54 41  26 37 31 3a 4c 44 41 78  |#&11:STA&71:LDAx|
000019a0  62 61 6c 6c 2c 58 3a 4c  44 59 79 62 61 6c 6c 2c  |ball,X:LDYyball,|
000019b0  58 3a 4a 53 52 67 65 74  61 64 3a 80 23 31 3a 42  |X:JSRgetad:.#1:B|
000019c0  4e 45 6e 6f 72 69 67 68  74 3a 49 4e 43 78 62 61  |NEnoright:INCxba|
000019d0  6c 6c 2c 58 3a 4a 4d 50  64 6f 6e 65 62 61 6c 6c  |ll,X:JMPdoneball|
000019e0  0d 09 ce 22 2e 6e 6f 72  69 67 68 74 20 4c 44 41  |...".noright LDA|
000019f0  64 69 72 2c 58 3a 82 23  31 3a 53 54 41 64 69 72  |dir,X:.#1:STAdir|
00001a00  2c 58 0d 09 d8 44 2e 64  6f 6e 65 62 61 6c 6c 20  |,X...D.doneball |
00001a10  4c 44 41 78 62 61 6c 6c  2c 58 3a 43 4d 50 63 78  |LDAxball,X:CMPcx|
00001a20  3a 42 4e 45 62 61 6c 6c  64 3a 4c 44 41 79 62 61  |:BNEballd:LDAyba|
00001a30  6c 6c 2c 58 3a 43 4d 50  63 79 3a 42 45 51 6e 65  |ll,X:CMPcy:BEQne|
00001a40  78 74 62 61 6c 6c 0d 09  e2 57 2e 62 61 6c 6c 64  |xtball...W.balld|
00001a50  20 4c 44 41 23 33 31 3a  4a 53 52 6f 73 77 72 63  | LDA#31:JSRoswrc|
00001a60  68 3a 4c 44 41 78 62 61  6c 6c 2c 58 3a 4a 53 52  |h:LDAxball,X:JSR|
00001a70  6f 73 77 72 63 68 3a 4c  44 41 79 62 61 6c 6c 2c  |oswrch:LDAyball,|
00001a80  58 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |X:JSRoswrch:LDA#|
00001a90  31 33 30 3a 4a 53 52 6f  73 77 72 63 68 0d 09 ec  |130:JSRoswrch...|
00001aa0  69 2e 6e 65 78 74 62 61  6c 6c 20 4c 44 41 23 30  |i.nextball LDA#0|
00001ab0  3a 53 54 41 26 37 30 3a  4c 44 41 23 26 31 31 3a  |:STA&70:LDA#&11:|
00001ac0  53 54 41 26 37 31 3a 4c  44 41 78 62 61 6c 6c 2c  |STA&71:LDAxball,|
00001ad0  58 3a 4c 44 59 79 62 61  6c 6c 2c 58 3a 4a 53 52  |X:LDYyball,X:JSR|
00001ae0  67 65 74 61 64 3a 43 4d  50 23 32 3a 42 4e 45 6e  |getad:CMP#2:BNEn|
00001af0  65 78 74 62 61 6c 6c 62  3a 4c 44 41 23 31 3a 53  |extballb:LDA#1:S|
00001b00  54 41 64 65 61 64 0d 09  f6 4e 2e 6e 65 78 74 62  |TAdead...N.nextb|
00001b10  61 6c 6c 62 20 4a 53 52  62 61 6c 6c 63 68 65 63  |allb JSRballchec|
00001b20  6b 3a 49 4e 58 3a 43 50  58 23 32 3a 42 4e 45 20  |k:INX:CPX#2:BNE |
00001b30  62 61 6c 6c 6f 70 74 3a  4a 4d 50 63 75 72 73 6f  |ballopt:JMPcurso|
00001b40  72 3a 2e 62 61 6c 6c 6f  70 74 20 4a 4d 50 62 61  |r:.ballopt JMPba|
00001b50  6c 6c 6f 70 0d 0a 00 0e  5d 3a 50 25 3d 26 31 41  |llop....]:P%=&1A|
00001b60  30 30 0d 0a 0a 0d 5b 4f  50 54 20 70 61 73 73 0d  |00....[OPT pass.|
00001b70  0a 14 0c 4a 4d 50 73 65  74 75 70 0d 0a 1e 53 2e  |...JMPsetup...S.|
00001b80  67 65 74 61 64 20 43 4c  43 3a 41 44 43 26 37 30  |getad CLC:ADC&70|
00001b90  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
00001ba0  44 43 23 30 3a 53 54 41  26 37 31 3a 54 59 41 3a  |DC#0:STA&71:TYA:|
00001bb0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001bc0  41 3a 53 54 41 26 37 32  3a 4c 44 59 23 30 0d 0a  |A:STA&72:LDY#0..|
00001bd0  28 61 2e 67 65 74 6c 6f  70 20 4c 44 41 26 37 30  |(a.getlop LDA&70|
00001be0  3a 43 4c 43 3a 41 44 43  26 37 32 3a 53 54 41 26  |:CLC:ADC&72:STA&|
00001bf0  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00001c00  53 54 41 26 37 31 3a 49  4e 59 3a 43 50 59 23 35  |STA&71:INY:CPY#5|
00001c10  3a 42 4e 45 67 65 74 6c  6f 70 3a 4c 44 59 23 30  |:BNEgetlop:LDY#0|
00001c20  3a 4c 44 41 28 26 37 30  29 2c 59 3a 52 54 53 0d  |:LDA(&70),Y:RTS.|
00001c30  0a 32 b6 2e 63 75 72 73  6f 72 20 4c 44 41 23 33  |.2..cursor LDA#3|
00001c40  31 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 63  |1:JSRoswrch:LDAc|
00001c50  78 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 63  |x:JSRoswrch:LDAc|
00001c60  79 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |y:JSRoswrch:LDA#|
00001c70  30 3a 53 54 41 26 37 30  3a 4c 44 41 23 26 31 31  |0:STA&70:LDA#&11|
00001c80  3a 53 54 41 26 37 31 3a  4c 44 41 63 78 3a 4c 44  |:STA&71:LDAcx:LD|
00001c90  59 63 79 3a 4a 53 52 67  65 74 61 64 3a 43 4d 50  |Ycy:JSRgetad:CMP|
00001ca0  23 31 3a 42 45 51 62 6c  6f 63 6b 3a 43 4d 50 23  |#1:BEQblock:CMP#|
00001cb0  32 3a 42 45 51 73 70 69  6b 65 3a 43 4d 50 23 33  |2:BEQspike:CMP#3|
00001cc0  3a 42 45 51 68 61 72 64  62 3a 4c 44 41 23 31 32  |:BEQhardb:LDA#12|
00001cd0  39 3a 4a 53 52 6f 73 77  72 63 68 3a 4a 4d 50 63  |9:JSRoswrch:JMPc|
00001ce0  75 72 64 65 6c 0d 0a 3c  47 2e 62 6c 6f 63 6b 20  |urdel..<G.block |
00001cf0  4c 44 41 23 31 37 3a 4a  53 52 6f 73 77 72 63 68  |LDA#17:JSRoswrch|
00001d00  3a 4c 44 41 23 31 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#1:JSRoswrch|
00001d10  3a 4c 44 41 23 31 32 38  3a 4a 53 52 6f 73 77 72  |:LDA#128:JSRoswr|
00001d20  63 68 3a 4a 4d 50 63 75  72 64 65 6c 0d 0a 46 47  |ch:JMPcurdel..FG|
00001d30  2e 73 70 69 6b 65 20 4c  44 41 23 31 37 3a 4a 53  |.spike LDA#17:JS|
00001d40  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 3a 4a 53  |Roswrch:LDA#1:JS|
00001d50  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 33 32 3a  |Roswrch:LDA#132:|
00001d60  4a 53 52 6f 73 77 72 63  68 3a 4a 4d 50 63 75 72  |JSRoswrch:JMPcur|
00001d70  64 65 6c 0d 0a 50 3d 2e  68 61 72 64 62 20 4c 44  |del..P=.hardb LD|
00001d80  41 23 31 37 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A#17:JSRoswrch:L|
00001d90  44 41 23 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DA#1:JSRoswrch:L|
00001da0  44 41 23 31 33 33 3a 4a  53 52 6f 73 77 72 63 68  |DA#133:JSRoswrch|
00001db0  0d 0a 5a 47 2e 63 75 72  64 65 6c 20 4c 44 41 23  |..ZG.curdel LDA#|
00001dc0  26 38 31 3a 4c 44 58 23  30 3a 4c 44 59 23 30 3a  |&81:LDX#0:LDY#0:|
00001dd0  4a 53 52 6f 73 62 79 74  65 3a 42 43 43 6b 65 79  |JSRosbyte:BCCkey|
00001de0  70 72 6f 3a 2e 6e 6f 6d  6f 76 65 74 20 4a 4d 50  |pro:.nomovet JMP|
00001df0  20 6e 6f 6d 6f 76 65 0d  0a 64 43 2e 6b 65 79 70  | nomove..dC.keyp|
00001e00  72 6f 20 43 50 58 6b 6c  3a 42 4e 45 6e 6f 74 6b  |ro CPXkl:BNEnotk|
00001e10  6c 3a 4c 44 41 63 78 3a  43 4d 50 23 31 3a 42 45  |l:LDAcx:CMP#1:BE|
00001e20  51 20 6e 6f 6d 6f 76 65  74 3a 44 45 43 63 78 3a  |Q nomovet:DECcx:|
00001e30  4a 4d 50 6e 6f 6d 6f 76  65 74 0d 0a 6e 42 2e 6e  |JMPnomovet..nB.n|
00001e40  6f 74 6b 6c 20 43 50 58  6b 72 3a 42 4e 45 6e 6f  |otkl CPXkr:BNEno|
00001e50  74 6b 72 3a 4c 44 41 63  78 3a 43 4d 50 23 33 38  |tkr:LDAcx:CMP#38|
00001e60  3a 42 45 51 20 6e 6f 6d  6f 76 65 3a 49 4e 43 63  |:BEQ nomove:INCc|
00001e70  78 3a 4a 4d 50 6e 6f 6d  6f 76 65 74 0d 0a 78 41  |x:JMPnomovet..xA|
00001e80  2e 6e 6f 74 6b 72 20 43  50 58 6b 75 3a 42 4e 45  |.notkr CPXku:BNE|
00001e90  6e 6f 74 6b 75 3a 4c 44  41 63 79 3a 43 4d 50 23  |notku:LDAcy:CMP#|
00001ea0  31 3a 42 45 51 20 6e 6f  6d 6f 76 65 3a 44 45 43  |1:BEQ nomove:DEC|
00001eb0  63 79 3a 4a 4d 50 6e 6f  6d 6f 76 65 74 0d 0a 82  |cy:JMPnomovet...|
00001ec0  41 2e 6e 6f 74 6b 75 20  43 50 58 6b 64 3a 42 4e  |A.notku CPXkd:BN|
00001ed0  45 6e 6f 74 6b 64 3a 4c  44 41 63 79 3a 43 4d 50  |Enotkd:LDAcy:CMP|
00001ee0  23 32 34 3a 42 45 51 20  6e 6f 6d 6f 76 65 3a 49  |#24:BEQ nomove:I|
00001ef0  4e 43 63 79 3a 4a 4d 50  6e 6f 6d 6f 76 65 0d 0a  |NCcy:JMPnomove..|
00001f00  8c 8f 2e 6e 6f 74 6b 64  20 43 50 58 6b 73 3a 42  |...notkd CPXks:B|
00001f10  4e 45 6e 6f 74 6b 73 3a  4c 44 41 6d 6f 6e 3a 43  |NEnotks:LDAmon:C|
00001f20  4d 50 23 35 3a 42 43 43  20 6e 6f 6d 6f 76 65 3a  |MP#5:BCC nomove:|
00001f30  4c 44 41 63 78 3a 4c 44  59 63 79 3a 4a 53 52 67  |LDAcx:LDYcy:JSRg|
00001f40  65 74 63 6c 72 3a 4c 44  41 28 26 37 30 29 2c 59  |etclr:LDA(&70),Y|
00001f50  3a 42 4e 45 6e 6f 6d 6f  76 65 3a 4c 44 41 23 31  |:BNEnomove:LDA#1|
00001f60  3a 53 54 41 28 26 37 30  29 2c 59 3a 4c 44 41 6d  |:STA(&70),Y:LDAm|
00001f70  6f 6e 3a 53 45 43 3a 53  42 43 23 35 3a 53 54 41  |on:SEC:SBC#5:STA|
00001f80  6d 6f 6e 3a 4a 4d 50 6e  6f 6d 6f 76 65 0d 0a 96  |mon:JMPnomove...|
00001f90  58 2e 6e 6f 74 6b 73 20  43 50 58 6b 63 3a 42 4e  |X.notks CPXkc:BN|
00001fa0  45 6e 6f 6d 6f 76 65 3a  4c 44 41 63 78 3a 4c 44  |Enomove:LDAcx:LD|
00001fb0  59 63 79 3a 4a 53 52 67  65 74 63 6c 72 3a 43 4d  |Ycy:JSRgetclr:CM|
00001fc0  50 23 31 3a 42 4e 45 6e  6f 6d 6f 76 65 3a 4c 44  |P#1:BNEnomove:LD|
00001fd0  41 23 30 3a 53 54 41 28  26 37 30 29 2c 59 3a 49  |A#0:STA(&70),Y:I|
00001fe0  4e 43 6d 6f 6e 0d 0a a0  87 2e 6e 6f 6d 6f 76 65  |NCmon.....nomove|
00001ff0  20 4c 44 41 23 33 31 3a  4a 53 52 6f 73 77 72 63  | LDA#31:JSRoswrc|
00002000  68 3a 4c 44 41 63 78 3a  4a 53 52 6f 73 77 72 63  |h:LDAcx:JSRoswrc|
00002010  68 3a 4c 44 41 63 79 3a  4a 53 52 6f 73 77 72 63  |h:LDAcy:JSRoswrc|
00002020  68 3a 4c 44 41 23 31 37  3a 4a 53 52 6f 73 77 72  |h:LDA#17:JSRoswr|
00002030  63 68 3a 4c 44 41 23 33  3a 4a 53 52 6f 73 77 72  |ch:LDA#3:JSRoswr|
00002040  63 68 3a 4c 44 41 23 31  33 31 3a 4a 53 52 6f 73  |ch:LDA#131:JSRos|
00002050  77 72 63 68 3a 4c 44 41  23 26 31 35 3a 4c 44 58  |wrch:LDA#&15:LDX|
00002060  23 30 3a 4a 4d 50 6f 73  62 79 74 65 0d 0a aa 55  |#0:JMPosbyte...U|
00002070  2e 62 61 6c 6c 63 68 65  63 6b 20 4c 44 41 78 62  |.ballcheck LDAxb|
00002080  61 6c 6c 3a 43 4d 50 78  62 61 6c 6c 2b 31 3a 42  |all:CMPxball+1:B|
00002090  4e 45 6e 6f 68 69 74 3a  4c 44 41 79 62 61 6c 6c  |NEnohit:LDAyball|
000020a0  3a 43 4d 50 79 62 61 6c  6c 2b 31 3a 42 4e 45 6e  |:CMPyball+1:BNEn|
000020b0  6f 68 69 74 3a 4c 44 41  23 31 3a 53 54 41 68 69  |ohit:LDA#1:STAhi|
000020c0  74 0d 0a b4 0e 2e 6e 6f  68 69 74 20 52 54 53 0d  |t.....nohit RTS.|
000020d0  0a be 2c 2e 73 65 74 75  70 20 4c 44 59 23 30 3a  |..,.setup LDY#0:|
000020e0  53 54 59 26 37 30 3a 4c  44 41 23 26 31 31 3a 53  |STY&70:LDA#&11:S|
000020f0  54 41 26 37 31 3a 4c 44  41 23 30 0d 0a c8 6b 2e  |TA&71:LDA#0...k.|
00002100  73 65 74 6c 6f 70 20 53  54 41 28 26 37 30 29 2c  |setlop STA(&70),|
00002110  59 3a 49 4e 59 3a 42 4e  45 73 65 74 6c 6f 70 3a  |Y:INY:BNEsetlop:|
00002120  49 4e 43 26 37 31 3a 4c  44 58 26 37 31 3a 43 50  |INC&71:LDX&71:CP|
00002130  58 23 26 31 35 3a 42 4e  45 73 65 74 6c 6f 70 3a  |X#&15:BNEsetlop:|
00002140  53 54 41 26 42 46 39 3a  53 54 41 26 42 45 46 3a  |STA&BF9:STA&BEF:|
00002150  4c 44 41 28 26 37 33 29  2c 59 3a 54 41 58 3a 49  |LDA(&73),Y:TAX:I|
00002160  4e 58 3a 49 4e 59 0d 0a  d2 aa 2e 70 6f 6c 6f 70  |NX:INY.....polop|
00002170  20 4c 44 41 23 33 31 3a  4a 53 52 6f 73 77 72 63  | LDA#31:JSRoswrc|
00002180  68 3a 4c 44 41 28 26 37  33 29 2c 59 3a 50 48 41  |h:LDA(&73),Y:PHA|
00002190  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 4c  |:JSRoswrch:INY:L|
000021a0  44 41 28 26 37 33 29 2c  59 3a 50 48 41 3a 4a 53  |DA(&73),Y:PHA:JS|
000021b0  52 6f 73 77 72 63 68 3a  49 4e 59 3a 53 54 59 26  |Roswrch:INY:STY&|
000021c0  37 35 3a 4c 44 41 23 31  32 38 3a 4a 53 52 6f 73  |75:LDA#128:JSRos|
000021d0  77 72 63 68 3a 50 4c 41  3a 54 41 59 3a 50 4c 41  |wrch:PLA:TAY:PLA|
000021e0  3a 4a 53 52 67 65 74 63  6c 72 3a 4c 44 41 23 31  |:JSRgetclr:LDA#1|
000021f0  3a 53 54 41 28 26 37 30  29 2c 59 3a 4c 44 59 26  |:STA(&70),Y:LDY&|
00002200  37 35 3a 44 45 58 3a 42  4e 45 20 70 6f 6c 6f 70  |75:DEX:BNE polop|
00002210  0d 0a dc 99 4c 44 41 23  30 3a 53 54 41 26 42 46  |....LDA#0:STA&BF|
00002220  32 3a 53 54 41 26 42 46  33 3a 4c 44 41 28 26 37  |2:STA&BF3:LDA(&7|
00002230  33 29 2c 59 3a 53 54 41  26 42 46 34 3a 49 4e 59  |3),Y:STA&BF4:INY|
00002240  3a 4c 44 41 28 26 37 33  29 2c 59 3a 53 54 41 26  |:LDA(&73),Y:STA&|
00002250  42 46 36 3a 49 4e 59 3a  4c 44 41 28 26 37 33 29  |BF6:INY:LDA(&73)|
00002260  2c 59 3a 53 54 41 26 42  46 35 3a 49 4e 59 3a 4c  |,Y:STA&BF5:INY:L|
00002270  44 41 28 26 37 33 29 2c  59 3a 53 54 41 26 42 46  |DA(&73),Y:STA&BF|
00002280  37 3a 49 4e 59 3a 4c 44  41 28 26 37 33 29 2c 59  |7:INY:LDA(&73),Y|
00002290  3a 54 41 58 3a 49 4e 59  3a 43 50 58 23 30 3a 42  |:TAX:INY:CPX#0:B|
000022a0  45 51 6e 6f 73 70 69 6b  65 0d 0a e6 ac 2e 73 70  |EQnospike.....sp|
000022b0  6b 6c 6f 70 20 4c 44 41  23 33 31 3a 4a 53 52 6f  |klop LDA#31:JSRo|
000022c0  73 77 72 63 68 3a 4c 44  41 28 26 37 33 29 2c 59  |swrch:LDA(&73),Y|
000022d0  3a 50 48 41 3a 4a 53 52  6f 73 77 72 63 68 3a 49  |:PHA:JSRoswrch:I|
000022e0  4e 59 3a 4c 44 41 28 26  37 33 29 2c 59 3a 50 48  |NY:LDA(&73),Y:PH|
000022f0  41 3a 4a 53 52 6f 73 77  72 63 68 3a 49 4e 59 3a  |A:JSRoswrch:INY:|
00002300  53 54 59 26 37 35 3a 4c  44 41 23 31 33 32 3a 4a  |STY&75:LDA#132:J|
00002310  53 52 6f 73 77 72 63 68  3a 50 4c 41 3a 54 41 59  |SRoswrch:PLA:TAY|
00002320  3a 50 4c 41 3a 4a 53 52  67 65 74 63 6c 72 3a 4c  |:PLA:JSRgetclr:L|
00002330  44 41 23 32 3a 53 54 41  28 26 37 30 29 2c 59 3a  |DA#2:STA(&70),Y:|
00002340  4c 44 59 26 37 35 3a 44  45 58 3a 42 4e 45 20 73  |LDY&75:DEX:BNE s|
00002350  70 6b 6c 6f 70 0d 0a f0  2f 2e 6e 6f 73 70 69 6b  |pklop.../.nospik|
00002360  65 20 4c 44 41 28 26 37  33 29 2c 59 3a 54 41 58  |e LDA(&73),Y:TAX|
00002370  3a 49 4e 59 3a 43 50 58  23 30 3a 42 45 51 6e 6f  |:INY:CPX#0:BEQno|
00002380  68 61 72 64 0d 0a fa ae  2e 68 61 72 64 6c 6f 70  |hard.....hardlop|
00002390  20 4c 44 41 23 33 31 3a  4a 53 52 6f 73 77 72 63  | LDA#31:JSRoswrc|
000023a0  68 3a 4c 44 41 28 26 37  33 29 2c 59 3a 50 48 41  |h:LDA(&73),Y:PHA|
000023b0  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 4c  |:JSRoswrch:INY:L|
000023c0  44 41 28 26 37 33 29 2c  59 3a 50 48 41 3a 4a 53  |DA(&73),Y:PHA:JS|
000023d0  52 6f 73 77 72 63 68 3a  49 4e 59 3a 53 54 59 26  |Roswrch:INY:STY&|
000023e0  37 35 3a 4c 44 41 23 31  33 33 3a 4a 53 52 6f 73  |75:LDA#133:JSRos|
000023f0  77 72 63 68 3a 50 4c 41  3a 54 41 59 3a 50 4c 41  |wrch:PLA:TAY:PLA|
00002400  3a 4a 53 52 67 65 74 63  6c 72 3a 4c 44 41 23 33  |:JSRgetclr:LDA#3|
00002410  3a 53 54 41 28 26 37 30  29 2c 59 3a 4c 44 59 26  |:STA(&70),Y:LDY&|
00002420  37 35 3a 44 45 58 3a 42  4e 45 20 68 61 72 64 6c  |75:DEX:BNE hardl|
00002430  6f 70 0d 0b 04 0f 2e 6e  6f 68 61 72 64 20 52 54  |op.....nohard RT|
00002440  53 0d 0b 0e 38 2e 67 65  74 63 6c 72 20 50 48 41  |S...8.getclr PHA|
00002450  3a 4c 44 41 23 30 3a 53  54 41 26 37 30 3a 4c 44  |:LDA#0:STA&70:LD|
00002460  41 23 26 31 31 3a 53 54  41 26 37 31 3a 50 4c 41  |A#&11:STA&71:PLA|
00002470  3a 4a 4d 50 67 65 74 61  64 0d 0b 18 12 5d 3a f1  |:JMPgetad....]:.|
00002480  7e 50 25 3a 50 25 3d 26  42 45 46 0d 0b 22 0d 5b  |~P%:P%=&BEF..".[|
00002490  4f 50 54 20 70 61 73 73  0d 0b 2c 0f 2e 68 69 74  |OPT pass..,..hit|
000024a0  20 45 51 55 42 20 30 0d  0b 36 0e 2e 63 78 20 45  | EQUB 0..6..cx E|
000024b0  51 55 42 20 30 0d 0b 40  0e 2e 63 79 20 45 51 55  |QUB 0..@..cy EQU|
000024c0  42 20 30 0d 0b 4a 0f 2e  64 69 72 20 45 51 55 57  |B 0..J..dir EQUW|
000024d0  20 30 0d 0b 54 11 2e 78  62 61 6c 6c 20 45 51 55  | 0..T..xball EQU|
000024e0  57 20 30 0d 0b 5e 11 2e  79 62 61 6c 6c 20 45 51  |W 0..^..yball EQ|
000024f0  55 57 20 30 0d 0b 68 0f  2e 6d 6f 6e 20 45 51 55  |UW 0..h..mon EQU|
00002500  42 20 30 0d 0b 72 10 2e  64 65 61 64 20 45 51 55  |B 0..r..dead EQU|
00002510  42 20 30 0d 0b 7c 10 2e  6b 6c 20 45 51 55 53 20  |B 0..|..kl EQUS |
00002520  22 5a 22 0d 0b 86 10 2e  6b 72 20 45 51 55 53 20  |"Z".....kr EQUS |
00002530  22 58 22 0d 0b 90 10 2e  6b 75 20 45 51 55 53 20  |"X".....ku EQUS |
00002540  22 4b 22 0d 0b 9a 10 2e  6b 64 20 45 51 55 53 20  |"K".....kd EQUS |
00002550  22 4d 22 0d 0b a4 10 2e  6b 73 20 45 51 55 53 20  |"M".....ks EQUS |
00002560  22 4c 22 0d 0b ae 10 2e  6b 63 20 45 51 55 53 20  |"L".....kc EQUS |
00002570  22 20 22 0d 0b b8 05 5d  0d 0b c2 05 ed 0d 0b cc  |" "....]........|
00002580  05 e1 0d 0b d6 05 3a 0d  0b e0 0b dd f2 72 65 6c  |......:......rel|
00002590  6f 63 0d 0b ea 16 f1 22  52 65 6c 6f 63 61 74 69  |oc....."Relocati|
000025a0  6e 67 2e 20 2e 20 2e 22  0d 0b f4 0b 3f 26 37 38  |ng. . ."....?&78|
000025b0  3d 34 35 0d 0b fe 17 d3  3d 26 35 38 30 30 3a 6e  |=45.....=&5800:n|
000025c0  65 77 70 61 67 65 3d 26  31 44 0d 0c 08 14 e3 20  |ewpage=&1D..... |
000025d0  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 0c  |pass=0 . 2 . 2..|
000025e0  12 0b 50 25 3d 26 43 30  30 0d 0c 1c 0c 5b 4f 50  |..P%=&C00....[OP|
000025f0  54 70 61 73 73 0d 0c 26  0d 20 20 20 20 4c 44 59  |Tpass..&.    LDY|
00002600  23 30 0d 0c 30 0e 20 20  20 20 53 54 59 26 37 30  |#0..0.    STY&70|
00002610  0d 0c 3a 0e 20 20 20 20  53 54 59 26 37 32 0d 0c  |..:.    STY&72..|
00002620  44 13 20 20 20 20 4c 44  41 23 6e 65 77 70 61 67  |D.    LDA#newpag|
00002630  65 0d 0c 4e 0b 20 20 20  20 53 45 43 0d 0c 58 0e  |e..N.    SEC..X.|
00002640  20 20 20 20 53 42 43 26  31 38 0d 0c 62 0e 20 20  |    SBC&18..b.  |
00002650  20 20 53 54 41 26 37 34  0d 0c 6c 0e 20 20 20 20  |  STA&74..l.    |
00002660  4c 44 41 26 31 38 0d 0c  76 13 20 20 20 20 43 4d  |LDA&18..v.    CM|
00002670  50 23 6e 65 77 70 61 67  65 0d 0c 80 0d 20 20 20  |P#newpage....   |
00002680  20 42 43 43 61 64 0d 0c  8a 0e 2e 73 62 20 53 54  | BCCad.....sb ST|
00002690  41 26 37 31 0d 0c 94 13  20 20 20 20 4c 44 41 23  |A&71....    LDA#|
000026a0  6e 65 77 70 61 67 65 0d  0c 9e 0e 20 20 20 20 53  |newpage....    S|
000026b0  54 41 26 37 33 0d 0c a8  12 2e 6d 31 20 4c 44 41  |TA&73.....m1 LDA|
000026c0  28 26 37 30 29 2c 59 0d  0c b2 12 20 20 20 20 53  |(&70),Y....    S|
000026d0  54 41 28 26 37 32 29 2c  59 0d 0c bc 0b 20 20 20  |TA(&72),Y....   |
000026e0  20 49 4e 59 0d 0c c6 0d  20 20 20 20 42 4e 45 6d  | INY....    BNEm|
000026f0  31 0d 0c d0 0e 20 20 20  20 49 4e 43 26 37 31 0d  |1....    INC&71.|
00002700  0c da 0e 20 20 20 20 49  4e 43 26 37 33 0d 0c e4  |...    INC&73...|
00002710  0e 20 20 20 20 4c 44 58  26 37 31 0d 0c ee 0b 20  |.    LDX&71.... |
00002720  20 20 20 44 45 58 0d 0c  f8 0e 20 20 20 20 43 50  |   DEX....    CP|
00002730  58 26 30 33 0d 0d 02 0d  20 20 20 20 42 43 43 6d  |X&03....    BCCm|
00002740  31 0d 0d 0c 0d 20 20 20  20 42 43 53 65 6d 0d 0d  |1....    BCSem..|
00002750  16 0e 2e 61 64 20 4c 44  41 26 30 33 0d 0d 20 0e  |...ad LDA&03.. .|
00002760  20 20 20 20 53 54 41 26  37 31 0d 0d 2a 0b 20 20  |    STA&71..*.  |
00002770  20 20 43 4c 43 0d 0d 34  0e 20 20 20 20 41 44 43  |  CLC..4.    ADC|
00002780  26 37 34 0d 0d 3e 0e 20  20 20 20 53 54 41 26 37  |&74..>.    STA&7|
00002790  33 0d 0d 48 0d 20 20 20  20 4c 44 41 23 30 0d 0d  |3..H.    LDA#0..|
000027a0  52 0e 20 20 20 20 4c 44  59 26 30 32 0d 0d 5c 12  |R.    LDY&02..\.|
000027b0  2e 6d 32 20 4c 44 41 28  26 37 30 29 2c 59 0d 0d  |.m2 LDA(&70),Y..|
000027c0  66 12 20 20 20 20 53 54  41 28 26 37 32 29 2c 59  |f.    STA(&72),Y|
000027d0  0d 0d 70 0b 20 20 20 20  44 45 59 0d 0d 7a 0f 20  |..p.    DEY..z. |
000027e0  20 20 20 43 50 59 23 26  46 46 0d 0d 84 0d 20 20  |   CPY#&FF....  |
000027f0  20 20 42 4e 45 6d 32 0d  0d 8e 0e 20 20 20 20 44  |  BNEm2....    D|
00002800  45 43 26 37 31 0d 0d 98  0e 20 20 20 20 44 45 43  |EC&71....    DEC|
00002810  26 37 33 0d 0d a2 0e 20  20 20 20 4c 44 41 26 37  |&73....    LDA&7|
00002820  33 0d 0d ac 17 20 20 20  20 43 4d 50 23 28 6e 65  |3....    CMP#(ne|
00002830  77 70 61 67 65 2d 31 29  0d 0d b6 0d 20 20 20 20  |wpage-1)....    |
00002840  42 43 53 6d 32 0d 0d c0  0e 2e 65 6d 20 4c 44 41  |BCSm2.....em LDA|
00002850  26 31 33 0d 0d ca 0b 20  20 20 20 43 4c 43 0d 0d  |&13....    CLC..|
00002860  d4 0e 20 20 20 20 41 44  43 26 37 34 0d 0d de 0e  |..    ADC&74....|
00002870  20 20 20 20 53 54 41 26  31 33 0d 0d e8 0e 20 20  |    STA&13....  |
00002880  20 20 53 54 41 26 30 31  0d 0d f2 13 20 20 20 20  |  STA&01....    |
00002890  4c 44 41 23 6e 65 77 70  61 67 65 0d 0d fc 0e 20  |LDA#newpage.... |
000028a0  20 20 20 53 54 41 26 31  38 0d 0e 06 0b 20 20 20  |   STA&18....   |
000028b0  20 52 54 53 0d 0e 10 05  5d 0d 0e 1a 05 ed 0d 0e  | RTS....].......|
000028c0  24 08 ef 20 32 31 0d 0e  2e 31 ff 22 4b 45 59 20  |$.. 21...1."KEY |
000028d0  30 22 22 43 41 4c 4c 26  43 30 30 7c 4d 52 55 4e  |0""CALL&C00|MRUN|
000028e0  7c 46 7c 4d 22 22 22 3a  ff 22 46 58 20 31 35 33  ||F|M""":."FX 153|
000028f0  2c 30 2c 31 32 38 22 0d  0e 38 05 e0 0d 0e 42 05  |,0,128"..8....B.|
00002900  e1 0d ff                                          |...|
00002903
Bounce/B13.m0
Bounce/B13.m1
Bounce/B13.m2
Bounce/B13.m4
Bounce/B13.m5