Bounce/B9

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

Bounce/B9

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/B9
Read OK:	✔
File size:	2150 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/B9
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Bounce/B9
Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/B9

File contents

   10REM Bounce
   20REM by Dominic Ford 1996
   30:
   40IF NOT ((?&78=45) AND (PAGE=&1C00)) THEN MODE 6
   50PROCinit
   60A$="DEL.1310,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
  100sound=TRUE
  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$=" "THENPROCgame
  160UNTILk$="Q"ORk$="q"
  170MODE6:END
  180:
  190DEFPROCgame
  200lev%=0:scr%=0:live%=3:?&BF8=25
  210RESTORE
  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
  440COLOUR1:PRINTTAB(1,1)CHR$131
  450FORad=&1100TO&14E8STEP4
  460!ad=0
  470NEXT:?&BF9=0:?&BEF=0
  480ad=&14C1+&40*lev%
  490l=?(ad-1)
  500FOR point=0 TO l
  510x=?ad:y=?(ad+1):ad=ad+2
  520PRINTTAB(x,y)CHR$128
  530?(&1100+x+y*40)=1
  540NEXT
  550?&BF2=0:?&BF4=?ad:?&BF6=?(ad+1)
  560?&BF3=0:?&BF5=?(ad+2):?&BF7=?(ad+3):ad=ad+5
  570l=?(ad-1):IFl<>0THENFORp=1TOl:x=?ad:y=?(ad+1):ad=ad+2:PRINTTAB(x,y)CHR$132:?(&1100+x+y*40)=2:NEXT
  580COLOUR 3
  590PRINTTAB(1,29)"Score";TAB(8,29)"Lives";TAB(16,29)"Screen";TAB(25,29)"Time";TAB(32,29)"Money"
  600REPEAT
  610COLOUR3
  620PRINTTAB(2,30);scr%;TAB(11,30)live%;TAB(19,30)lev%;
  630PRINTTAB(27,30);tim%;" ";TAB(34,30);?&BF8;"0 "
  640REPEAT UNTIL TIME>nt%
  650nt%=TIME+8:CALL&AE9
  660IF?&BF9=0THENREPEAT UNTIL TIME>nt%:nt%=TIME+8:CALL&AE9:tim%=tim%-1
  670UNTIL tim%=-1 OR ?&BEF=1 OR ?&BF9=1
  680IF tim%<>-1 AND ?&BF9=0 THEN UNTIL TRUE:PROClevelfin:ENDPROC
  690live%=live%-1
  700IF live%=-1 THEN UNTIL TRUE:ENDPROC
  710CLS:COLOUR3:PRINTTAB(15,16);
  720IF?&BF9=0THENPRINT"Time Out!"ELSEPRINT"Lost Ball!"
  730FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,0,7
  740FORcol=0 TO 7
  750VDU 19,3,col,0,0,0
  760nt%=TIME+4
  770REPEAT UNTIL TIME>nt%
  780NEXT,:CLS:lev%=lev%-1
  790UNTIL FALSE
  800ENDPROC
  810:
  820DEFPROClevelfin
  830CLS:COLOUR 3
  840PRINTTAB(4,16);"Congratulations: Level Complete"
  850FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
  860FORcol=0 TO 7
  870VDU 19,3,col,0,0,0
  880nt%=TIME+4
  890REPEAT UNTIL TIME>nt%
  900NEXT,:CLS:?&BF8=(?&BF8)+10
  910ENDPROC
  920:
  930DEFPROCgameover
  940CLS:COLOUR 3
  950PRINTTAB(9,16)"That's it: Game Over!"
  960FORc=0 TO 5
  970FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,150-(c*4+col*8),1
  980VDU 19,3,col,0,0,0
  990nt%=TIME+4
 1000REPEAT UNTIL TIME>nt%
 1010NEXT,:CLS
 1020ENDPROC
 1030:
 1040DEFPROCcongrat
 1050CLS:COLOUR 3
 1060FORx=0 TO 5
 1070PRINTTAB(4,16);"Congratulations: Game Complete!"
 1080FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
 1090FORcol=0 TO 7
 1100VDU 19,3,col,0,0,0
 1110nt%=TIME+4
 1120REPEAT UNTIL TIME>nt%
 1130NEXT,,:CLS
 1140ENDPROC
 1150:
 1160DEFPROCtitle
 1170col=0
 1180CALL&A00
 1190GCOL 0,0:VDU 5
 1200MOVE544,896:PRINT"BOUNCE":MOVE320,768:PRINT"by Dominic Ford 1996":MOVE432,544:PRINT"SPACE - Start":MOVE560,480:PRINT"Q - Quit":MOVE560,416:PRINT"I - Instructions"
 1210VDU 4,23,1,0;0;0;0;:*FX15,1
 1220REPEAT
 1230nt%=TIME+10:col=((col+1) MOD 3)
 1240VDU 19,1,col+4,0,0,0,0
 1250VDU 19,2,((col+1) MOD 3)+4,0,0,0,0
 1260VDU 19,3,((col+2) MOD 3)+4,0,0,0,0
 1270REPEAT UNTIL TIME>nt%
 1280k$=INKEY$(0)
 1290UNTIL k$="Q" OR k$="q" OR k$=" " OR k$="I" OR k$="i"
 1300ENDPROC
 1310:
 1320REM Level Data
 1330DATA 18,2,2,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9
 1340DATA 14,9,15,9,16,9,17,8,18,9,19,8,8,1,19,1,1,17,10,255
 1350:
 1360DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0
 1370DATA 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,-999
 1380:
 1390DEFPROCinit
 1400IF NOT ((?&78=45) AND (PAGE=&1C00)) THEN PRINT'"Please Wait. . ."':*TAPE
 1410IF PAGE<>&1C00 THEN PROCreloc
 1420VDU 6,11,23,1,0;0;0;0;
 1430PRINT"Calculating sphere. . ."
 1440P%=&D00:p=0
 1450FORx=-78.75 TO 90 STEP 11.25
 1460FORy=22.5 TO 180 STEP 22.5:p=p+.78125
 1470[OPT 2
 1480EQUW INT(480*SIN(PI*(x-11.25)/180)*SIN(PI*y/180)+640)
 1490EQUW INT(60+(COS(PI*y/180)+1)*450)
 1500EQUW INT(480*SIN(PI*x/180)*SIN(PI*y/180)+640)
 1510EQUW INT(60+(COS(PI*y/180)+1)*450)
 1520]
 1530PRINTTAB(24,4)INT(p);"%"
 1540NEXT,
 1550VDU23,1,1;0;0;0;0;
 1560PRINT"Moving level data. . .":ad=&1500
 1570REPEAT
 1580READ d
 1590IF d<>-999 THEN ?ad=d:ad=ad+1
 1600IF d=255 THEN ad=(ad+&40) AND &FFC0
 1610IF d<>-999 THEN UNTIL FALSE
 1620UNTIL TRUE
 1630PRINT"Assembling code. . .":PROCassemble
 1640PRINT"Removing source code. . ."
 1650ENDPROC
 1660:
 1670DEFPROCassemble
 1680oswrch=&FFEE
 1690osbyte=&FFF4
 1700FOR pass=0 TO 2 STEP 2
 1710P%=&A00
 1720[OPT pass
 1730.sphere LDY#0:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0
 1740.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
 1750.colsub CMP #3:BCCcolgot:SEC:SBC#3:JMPcolsub
 1760.colgot CLC:ADC#1:JSRoswrch:LDY #0:TXA:AND#7:BEQnewxval
 1770LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 1780INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
 1790.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
 1800LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 1810INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
 1820.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
 1830.col EQUB 0
 1840.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
 1850]:P%=&AE9
 1860[OPTpass
 1870LDX#0
 1880.ballop LDAxball,X:CMPcx:BNEballon:LDAyball,X:CMPcy:BEQballoff
 1890.ballon LDA#17:JSRoswrch:LDA#2:JSRoswrch:LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#129:JSRoswrch
 1900.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
 1910.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
 1920.die LDA#1:STAdead:RTS
 1930.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
 1940.noright LDAdir,X:EOR#1:STAdir,X
 1950.doneball LDAxball,X:CMPcx:BNEballd:LDAyball,X:CMPcy:BEQnextball
 1960.balld LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#130:JSRoswrch
 1970.nextball LDA#0:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:CMP#2:BNEnextballb:LDA#1:STAdead
 1980.nextballb JSRballcheck:INX:CPX#2:BNE ballopt:JMPcursor:.ballopt JMPballop
 1990]:PRINT~P%:P%=&1A00
 2000[OPT pass
 2010.getad CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71:TYA:ASL A:ASL A:ASL A:STA&72:LDY#0
 2020.getlop LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC#0:STA&71:INY:CPY#5:BNEgetlop:LDY#0:LDA(&70),Y:RTS
 2030.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:LDA#129:JSRoswrch:JMPcurdel
 2040.block LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#128:JSRoswrch:JMPcurdel
 2050.spike LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#132:JSRoswrch
 2060.curdel LDA#&81:LDX#0:LDY#0:JSRosbyte:BCCkeypro:.nomovet JMP nomove
 2070.keypro CPXkl:BNEnotkl:LDAcx:CMP#1:BEQ nomovet:DECcx:JMPnomovet
 2080.notkl CPXkr:BNEnotkr:LDAcx:CMP#38:BEQ nomove:INCcx:JMPnomovet
 2090.notkr CPXku:BNEnotku:LDAcy:CMP#1:BEQ nomove:DECcy:JMPnomovet
 2100.notku CPXkd:BNEnotkd:LDAcy:CMP#24:BEQ nomove:INCcy:JMPnomove
 2110.notkd CPXks:BNEnotks:LDAmon:CMP#5:BCC nomove:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:LDA#1:STA(&70),Y:LDAmon:SEC:SBC#5:STAmon:JMPnomove
 2120.notks CPXkc:BNEnomove:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#1:BNEnomove:LDA#0:STA(&70),Y:INCmon
 2130.nomove LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JSRoswrch:LDA#&15:LDX#0:JMPosbyte
 2140.ballcheck LDAxball:CMPxball+1:BNEnohit:LDAyball:CMPyball+1:BNEnohit:LDA#1:STAhit:
 2150.nohit RTS
 2160]:PRINT~P%:P%=&BEF
 2170[OPT pass
 2180.hit EQUB 0
 2190.cx EQUB 0
 2200.cy EQUB 0
 2210.dir EQUW 0
 2220.xball EQUW 0
 2230.yball EQUW 0
 2240.mon EQUB 0
 2250.dead EQUB 0
 2260.kl EQUS "Z"
 2270.kr EQUS "X"
 2280.ku EQUS "K"
 2290.kd EQUS "M"
 2300.ks EQUS "L"
 2310.kc EQUS " "
 2320]
 2330NEXT
 2340ENDPROC
 2350:
 2360DEFPROCreloc
 2370PRINT"Relocating. . ."
 2380?&78=45
 2390HIMEM=&5800
 2400FOR pass=0 TO 2 STEP 2
 2410P%=&C00
 2420[OPTpass
 2430    LDY#0
 2440    STY&70
 2450    STY&72
 2460    LDA#&1C
 2470    SEC
 2480    SBC&18
 2490    STA&74
 2500    LDA&18
 2510    CMP#&1C
 2520    BCCad
 2530.sb STA&71
 2540    LDA#&1C
 2550    STA&73
 2560.m1 LDA(&70),Y
 2570    STA(&72),Y
 2580    INY
 2590    BNEm1
 2600    INC&71
 2610    INC&73
 2620    LDX&71
 2630    DEX
 2640    CPX&03
 2650    BCCm1
 2660    BCSem
 2670.ad LDA&03
 2680    STA&71
 2690    CLC
 2700    ADC&74
 2710    STA&73
 2720    LDA#0
 2730    LDY&02
 2740.m2 LDA(&70),Y
 2750    STA(&72),Y
 2760    DEY
 2770    CPY#&FF
 2780    BNEm2
 2790    DEC&71
 2800    DEC&73
 2810    LDA&73
 2820    CMP#&16
 2830    BCSm2
 2840.em LDA&13
 2850    CLC
 2860    ADC&74
 2870    STA&13
 2880    STA&01
 2890    LDA#&1C
 2900    STA&18
 2910    RTS
 2920]
 2930NEXT
 2940VDU 21
 2950OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
 2960END
 2970ENDPROC


� Bounce
� by Dominic Ford 1996
:
(%� � ((?&78=45) � (�=&1C00)) � � 6
2	�init
<_A$="DEL.1310,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
dsound=�
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$=" "��game
��k$="Q"�k$="q"
��6:�
�:
�
��game
�"lev%=0:scr%=0:live%=3:?&BF8=25
��
��
�
�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
��1:�1,1)�131
��ad=&1100�&14E8�4
�	!ad=0
��:?&BF9=0:?&BEF=0
�ad=&14C1+&40*lev%
�
l=?(ad-1)
�� point=0 � l
�x=?ad:y=?(ad+1):ad=ad+2
�x,y)�128
?(&1100+x+y*40)=1
�
&#?&BF2=0:?&BF4=?ad:?&BF6=?(ad+1)
0/?&BF3=0:?&BF5=?(ad+2):?&BF7=?(ad+3):ad=ad+5
:Ql=?(ad-1):�l<>0��p=1�l:x=?ad:y=?(ad+1):ad=ad+2:�x,y)�132:?(&1100+x+y*40)=2:�
D� 3
NM�1,29)"Score";�8,29)"Lives";�16,29)"Screen";�25,29)"Time";�32,29)"Money"
X�
b�3
l*�2,30);scr%;�11,30)live%;�19,30)lev%;
v(�27,30);tim%;" ";�34,30);?&BF8;"0 "
�
� � �>nt%
�nt%=�+8:�&AE9
�0�?&BF9=0�� � �>nt%:nt%=�+8:�&AE9:tim%=tim%-1
�!� tim%=-1 � ?&BEF=1 � ?&BF9=1
�*� tim%<>-1 � ?&BF9=0 � � �:�levelfin:�
�live%=live%-1
�� live%=-1 � � �:�
��:�3:�15,16);
�'�?&BF9=0��"Time Out!"��"Lost Ball!"
�$�c=0 � 5:� sound=� � � 1,-15,0,7
��col=0 � 7
�� 19,3,col,0,0,0
�nt%=�+4

� � �>nt%
�,:�:lev%=lev%-1
� �
 �
*:
4��levelfin
>	�:� 3
H-�4,16);"Congratulations: Level Complete"
R*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
\�col=0 � 7
f� 19,3,col,0,0,0
pnt%=�+4
z
� � �>nt%
��,:�:?&BF8=(?&BF8)+10
��
�:
���gameover
�	�:� 3
�"�9,16)"That's it: Game Over!"
��c=0 � 5
�4�col=0 � 7:� sound=� � � 1,-15,150-(c*4+col*8),1
�� 19,3,col,0,0,0
�nt%=�+4
�
� � �>nt%
��,:�
��
:

��congrat
	�:� 3
$�x=0 � 5
.-�4,16);"Congratulations: Game Complete!"
8*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
B�col=0 � 7
L� 19,3,col,0,0,0
Vnt%=�+4
`
� � �>nt%
j	�,,:�
t�
~:
���title
�	col=0
�	�&A00
�
� 0,0:� 5
���544,896:�"BOUNCE":�320,768:�"by Dominic Ford 1996":�432,544:�"SPACE - Start":�560,480:�"Q - Quit":�560,416:�"I - Instructions"
�� 4,23,1,0;0;0;0;:*FX15,1
��
�nt%=�+10:col=((col+1) � 3)
�� 19,1,col+4,0,0,0,0
�"� 19,2,((col+1) � 3)+4,0,0,0,0
�"� 19,3,((col+2) � 3)+4,0,0,0,0
�
� � �>nt%
k$=�(0)

0� k$="Q" � k$="q" � k$=" " � k$="I" � k$="i"
�
:
(� Level Data
2@� 18,2,2,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9
<8� 14,9,15,9,16,9,17,8,18,9,19,8,8,1,19,1,1,17,10,255
F:
PC� 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0
Z:� 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,-999
d:
n
��init
x=� � ((?&78=45) � (�=&1C00)) � �'"Please Wait. . ."':*TAPE
�� �<>&1C00 � �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)
�]
��24,4)�(p);"%"
�,
�23,1,1;0;0;0;0;
&�"Moving level data. . .":ad=&1500
"�
,� d
6� d<>-999 � ?ad=d:ad=ad+1
@!� d=255 � ad=(ad+&40) � &FFC0
J� d<>-999 � � �
T� �
^%�"Assembling code. . .":�assemble
h �"Removing source code. . ."
r�
|:
���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
�w.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
FLDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
<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
&.col EQUB 0
0$.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
:
]:P%=&AE9
D[OPTpass
N	LDX#0
XB.ballop LDAxball,X:CMPcx:BNEballon:LDAyball,X:CMPcy:BEQballoff
by.ballon LDA#17:JSRoswrch:LDA#2:JSRoswrch:LDA#31:JSRoswrch:LDAxball,X:JSRoswrch:LDAyball,X:JSRoswrch:LDA#129:JSRoswrch
l�.balloff LDAyball,X:CMP#24:BEQdie:LDA#&28:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:�#1:BNEnodown:INCyball,X:JMPdoneball
v�.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%:P%=&1A00
�
[OPT pass
�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
�.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:LDA#129:JSRoswrch:JMPcurdel
�G.block LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#128:JSRoswrch:JMPcurdel
=.spike LDA#17:JSRoswrch:LDA#1:JSRoswrch:LDA#132:JSRoswrch
G.curdel LDA#&81:LDX#0:LDY#0:JSRosbyte:BCCkeypro:.nomovet JMP nomove
C.keypro CPXkl:BNEnotkl:LDAcx:CMP#1:BEQ nomovet:DECcx:JMPnomovet
 B.notkl CPXkr:BNEnotkr:LDAcx:CMP#38:BEQ nomove:INCcx:JMPnomovet
*A.notkr CPXku:BNEnotku:LDAcy:CMP#1:BEQ nomove:DECcy:JMPnomovet
4A.notku CPXkd:BNEnotkd:LDAcy:CMP#24:BEQ nomove:INCcy:JMPnomove
>�.notkd CPXks:BNEnotks:LDAmon:CMP#5:BCC nomove:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:LDA#1:STA(&70),Y:LDAmon:SEC:SBC#5:STAmon:JMPnomove
Hs.notks CPXkc:BNEnomove:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#1:BNEnomove:LDA#0:STA(&70),Y:INCmon
R�.nomove LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#17:JSRoswrch:LDA#3:JSRoswrch:LDA#131:JSRoswrch:LDA#&15:LDX#0:JMPosbyte
\V.ballcheck LDAxball:CMPxball+1:BNEnohit:LDAyball:CMPyball+1:BNEnohit:LDA#1:STAhit:
f.nohit RTS
p]:�~P%:P%=&BEF
z
[OPT pass
�.hit EQUB 0
�.cx EQUB 0
�.cy EQUB 0
�.dir EQUW 0
�.xball EQUW 0
�.yball EQUW 0
�.mon EQUB 0
�.dead EQUB 0
�.kl EQUS "Z"
�.kr EQUS "X"
�.ku EQUS "K"
�.kd EQUS "M"
�.ks EQUS "L"
	.kc EQUS " "
	]
	�
	$�
	.:
	8��reloc
	B�"Relocating. . ."
	L?&78=45
	V�=&5800
	`� pass=0 � 2 � 2
	jP%=&C00
	t[OPTpass
	~
    LDY#0
	�    STY&70
	�    STY&72
	�    LDA#&1C
	�    SEC
	�    SBC&18
	�    STA&74
	�    LDA&18
	�    CMP#&1C
	�
    BCCad
	�.sb STA&71
	�    LDA#&1C
	�    STA&73
.m1 LDA(&70),Y

    STA(&72),Y
    INY

    BNEm1
(    INC&71
2    INC&73
<    LDX&71
F    DEX
P    CPX&03
Z
    BCCm1
d
    BCSem
n.ad LDA&03
x    STA&71
�    CLC
�    ADC&74
�    STA&73
�
    LDA#0
�    LDY&02
�.m2 LDA(&70),Y
�    STA(&72),Y
�    DEY
�    CPY#&FF
�
    BNEm2
�    DEC&71
�    DEC&73
�    LDA&73
    CMP#&16

    BCSm2
.em LDA&13
"    CLC
,    ADC&74
6    STA&13
@    STA&01
J    LDA#&1C
T    STA&18
^    RTS
h]
r�
|� 21
�1�"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"
��
��
�

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 43 30 30  29 29 20 8c 20 eb 20 36  |(.=&1C00)) . . 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 31  30 2c 39 39 39 39 22 2b  |"DEL.1310,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 ab 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 0d 00 64  |,255,60,90,24..d|
00000170  0b 73 6f 75 6e 64 3d b9  0d 00 6e 15 eb 31 3a ef  |.sound=...n..1:.|
00000180  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 00 78  |23,1,0;0;0;0;..x|
00000190  05 f5 0d 00 82 0a f2 74  69 74 6c 65 0d 00 8c 23  |.......title...#|
000001a0  ef 20 31 39 2c 31 2c 31  2c 30 2c 30 2c 30 2c 30  |. 19,1,1,0,0,0,0|
000001b0  2c 31 39 2c 32 2c 34 2c  30 2c 30 2c 30 2c 30 0d  |,19,2,4,0,0,0,0.|
000001c0  00 96 11 e7 6b 24 3d 22  20 22 8c f2 67 61 6d 65  |....k$=" "..game|
000001d0  0d 00 a0 12 fd 6b 24 3d  22 51 22 84 6b 24 3d 22  |.....k$="Q".k$="|
000001e0  71 22 0d 00 aa 08 eb 36  3a e0 0d 00 b4 05 3a 0d  |q".....6:.....:.|
000001f0  00 be 0a dd f2 67 61 6d  65 0d 00 c8 22 6c 65 76  |.....game..."lev|
00000200  25 3d 30 3a 73 63 72 25  3d 30 3a 6c 69 76 65 25  |%=0:scr%=0:live%|
00000210  3d 33 3a 3f 26 42 46 38  3d 32 35 0d 00 d2 05 f7  |=3:?&BF8=25.....|
00000220  0d 00 dc 05 f5 0d 00 e6  0a f2 6c 65 76 65 6c 0d  |..........level.|
00000230  00 f0 18 e7 20 6c 69 76  65 25 3d 2d 31 20 8c 20  |.... live%=-1 . |
00000240  6c 65 76 25 3d 32 30 0d  00 fa 0d fd 20 6c 65 76  |lev%=20..... lev|
00000250  25 3d 32 30 0d 01 04 1c  e7 20 6c 69 76 65 25 3d  |%=20..... live%=|
00000260  2d 31 20 8c 20 f2 67 61  6d 65 6f 76 65 72 3a e1  |-1 . .gameover:.|
00000270  0d 01 0e 0c f2 63 6f 6e  67 72 61 74 0d 01 18 05  |.....congrat....|
00000280  e1 0d 01 22 05 3a 0d 01  2c 0b dd f2 6c 65 76 65  |...".:..,...leve|
00000290  6c 0d 01 36 05 db 0d 01  40 30 fb 20 33 3a f1 8a  |l..6....@0. 3:..|
000002a0  39 2c 31 36 29 22 47 65  74 20 52 65 61 64 79 20  |9,16)"Get Ready |
000002b0  66 6f 72 20 4c 65 76 65  6c 20 22 3b 6c 65 76 25  |for Level ";lev%|
000002c0  2b 31 3b 22 21 22 0d 01  4a 0c e3 63 3d 30 20 b8  |+1;"!"..J..c=0 .|
000002d0  20 35 0d 01 54 32 e3 63  6f 6c 3d 30 20 b8 20 37  | 5..T2.col=0 . 7|
000002e0  3a e7 20 73 6f 75 6e 64  3d b9 20 8c 20 d4 20 31  |:. sound=. . . 1|
000002f0  2c 2d 31 35 2c 63 2a 34  2b 63 6f 6c 2a 38 2b 31  |,-15,c*4+col*8+1|
00000300  30 30 2c 31 0d 01 5e 14  ef 20 31 39 2c 33 2c 63  |00,1..^.. 19,3,c|
00000310  6f 6c 2c 30 2c 30 2c 30  0d 01 68 0b 6e 74 25 3d  |ol,0,0,0..h.nt%=|
00000320  91 2b 34 0d 01 72 0d f5  20 fd 20 91 3e 6e 74 25  |.+4..r.. . .>nt%|
00000330  0d 01 7c 08 ed 2c 3a db  0d 01 86 05 f5 0d 01 90  |..|..,:.........|
00000340  12 ef 20 31 39 2c 33 2c  32 2c 30 2c 30 2c 30 0d  |.. 19,3,2,0,0,0.|
00000350  01 9a 28 74 69 6d 25 3d  34 30 30 3a 6c 65 76 25  |..(tim%=400:lev%|
00000360  3d 6c 65 76 25 2b 31 3a  3f 26 42 46 30 3d 31 3a  |=lev%+1:?&BF0=1:|
00000370  3f 26 42 46 31 3d 31 0d  01 a4 95 e6 30 2c 31 3a  |?&BF1=1.....0,1:|
00000380  ec 30 2c 30 3a ec 33 30  30 30 2c 30 3a f0 38 35  |.0,0:.3000,0:.85|
00000390  2c 30 2c 33 30 30 30 3a  e6 30 2c 30 3a ec 33 32  |,0,3000:.0,0:.32|
000003a0  2c 33 32 3a ec 33 32 2c  39 36 3a f0 38 35 2c 32  |,32:.32,96:.85,2|
000003b0  32 34 2c 33 32 3a f0 38  35 2c 32 32 34 2c 39 36  |24,32:.85,224,96|
000003c0  3a ec 32 35 36 2c 33 32  3a ec 32 35 36 2c 39 36  |:.256,32:.256,96|
000003d0  3a f0 38 35 2c 34 38 30  2c 33 32 3a f0 38 35 2c  |:.85,480,32:.85,|
000003e0  34 38 30 2c 39 36 3a ec  35 31 32 2c 33 32 3a ec  |480,96:.512,32:.|
000003f0  35 31 32 2c 39 36 3a f0  38 35 2c 37 36 38 2c 33  |512,96:.85,768,3|
00000400  32 3a f0 38 35 2c 37 36  38 2c 39 36 0d 01 ae 7d  |2:.85,768,96...}|
00000410  ec 38 30 30 2c 33 32 3a  ec 38 30 30 2c 39 36 3a  |.800,32:.800,96:|
00000420  f0 38 35 2c 39 39 32 2c  33 32 3a f0 38 35 2c 39  |.85,992,32:.85,9|
00000430  39 32 2c 39 36 3a ec 31  30 32 34 2c 33 32 3a ec  |92,96:.1024,32:.|
00000440  31 30 32 34 2c 39 36 3a  f0 38 35 2c 31 32 34 38  |1024,96:.85,1248|
00000450  2c 33 32 3a f0 38 35 2c  31 32 34 38 2c 39 36 3a  |,32:.85,1248,96:|
00000460  ec 33 32 2c 32 32 34 3a  ec 31 32 34 38 2c 32 32  |.32,224:.1248,22|
00000470  34 3a f0 38 35 2c 33 32  2c 39 39 32 3a f0 38 35  |4:.85,32,992:.85|
00000480  2c 31 32 34 38 2c 39 39  32 0d 01 b8 11 fb 31 3a  |,1248,992.....1:|
00000490  f1 8a 31 2c 31 29 bd 31  33 31 0d 01 c2 15 e3 61  |..1,1).131.....a|
000004a0  64 3d 26 31 31 30 30 b8  26 31 34 45 38 88 34 0d  |d=&1100.&14E8.4.|
000004b0  01 cc 09 21 61 64 3d 30  0d 01 d6 15 ed 3a 3f 26  |...!ad=0.....:?&|
000004c0  42 46 39 3d 30 3a 3f 26  42 45 46 3d 30 0d 01 e0  |BF9=0:?&BEF=0...|
000004d0  15 61 64 3d 26 31 34 43  31 2b 26 34 30 2a 6c 65  |.ad=&14C1+&40*le|
000004e0  76 25 0d 01 ea 0d 6c 3d  3f 28 61 64 2d 31 29 0d  |v%....l=?(ad-1).|
000004f0  01 f4 11 e3 20 70 6f 69  6e 74 3d 30 20 b8 20 6c  |.... point=0 . l|
00000500  0d 01 fe 1b 78 3d 3f 61  64 3a 79 3d 3f 28 61 64  |....x=?ad:y=?(ad|
00000510  2b 31 29 3a 61 64 3d 61  64 2b 32 0d 02 08 0e f1  |+1):ad=ad+2.....|
00000520  8a 78 2c 79 29 bd 31 32  38 0d 02 12 15 3f 28 26  |.x,y).128....?(&|
00000530  31 31 30 30 2b 78 2b 79  2a 34 30 29 3d 31 0d 02  |1100+x+y*40)=1..|
00000540  1c 05 ed 0d 02 26 23 3f  26 42 46 32 3d 30 3a 3f  |.....&#?&BF2=0:?|
00000550  26 42 46 34 3d 3f 61 64  3a 3f 26 42 46 36 3d 3f  |&BF4=?ad:?&BF6=?|
00000560  28 61 64 2b 31 29 0d 02  30 2f 3f 26 42 46 33 3d  |(ad+1)..0/?&BF3=|
00000570  30 3a 3f 26 42 46 35 3d  3f 28 61 64 2b 32 29 3a  |0:?&BF5=?(ad+2):|
00000580  3f 26 42 46 37 3d 3f 28  61 64 2b 33 29 3a 61 64  |?&BF7=?(ad+3):ad|
00000590  3d 61 64 2b 35 0d 02 3a  51 6c 3d 3f 28 61 64 2d  |=ad+5..:Ql=?(ad-|
000005a0  31 29 3a e7 6c 3c 3e 30  8c e3 70 3d 31 b8 6c 3a  |1):.l<>0..p=1.l:|
000005b0  78 3d 3f 61 64 3a 79 3d  3f 28 61 64 2b 31 29 3a  |x=?ad:y=?(ad+1):|
000005c0  61 64 3d 61 64 2b 32 3a  f1 8a 78 2c 79 29 bd 31  |ad=ad+2:..x,y).1|
000005d0  33 32 3a 3f 28 26 31 31  30 30 2b 78 2b 79 2a 34  |32:?(&1100+x+y*4|
000005e0  30 29 3d 32 3a ed 0d 02  44 07 fb 20 33 0d 02 4e  |0)=2:...D.. 3..N|
000005f0  4d f1 8a 31 2c 32 39 29  22 53 63 6f 72 65 22 3b  |M..1,29)"Score";|
00000600  8a 38 2c 32 39 29 22 4c  69 76 65 73 22 3b 8a 31  |.8,29)"Lives";.1|
00000610  36 2c 32 39 29 22 53 63  72 65 65 6e 22 3b 8a 32  |6,29)"Screen";.2|
00000620  35 2c 32 39 29 22 54 69  6d 65 22 3b 8a 33 32 2c  |5,29)"Time";.32,|
00000630  32 39 29 22 4d 6f 6e 65  79 22 0d 02 58 05 f5 0d  |29)"Money"..X...|
00000640  02 62 06 fb 33 0d 02 6c  2a f1 8a 32 2c 33 30 29  |.b..3..l*..2,30)|
00000650  3b 73 63 72 25 3b 8a 31  31 2c 33 30 29 6c 69 76  |;scr%;.11,30)liv|
00000660  65 25 3b 8a 31 39 2c 33  30 29 6c 65 76 25 3b 0d  |e%;.19,30)lev%;.|
00000670  02 76 28 f1 8a 32 37 2c  33 30 29 3b 74 69 6d 25  |.v(..27,30);tim%|
00000680  3b 22 20 22 3b 8a 33 34  2c 33 30 29 3b 3f 26 42  |;" ";.34,30);?&B|
00000690  46 38 3b 22 30 20 22 0d  02 80 0d f5 20 fd 20 91  |F8;"0 "..... . .|
000006a0  3e 6e 74 25 0d 02 8a 11  6e 74 25 3d 91 2b 38 3a  |>nt%....nt%=.+8:|
000006b0  d6 26 41 45 39 0d 02 94  30 e7 3f 26 42 46 39 3d  |.&AE9...0.?&BF9=|
000006c0  30 8c f5 20 fd 20 91 3e  6e 74 25 3a 6e 74 25 3d  |0.. . .>nt%:nt%=|
000006d0  91 2b 38 3a d6 26 41 45  39 3a 74 69 6d 25 3d 74  |.+8:.&AE9:tim%=t|
000006e0  69 6d 25 2d 31 0d 02 9e  21 fd 20 74 69 6d 25 3d  |im%-1...!. tim%=|
000006f0  2d 31 20 84 20 3f 26 42  45 46 3d 31 20 84 20 3f  |-1 . ?&BEF=1 . ?|
00000700  26 42 46 39 3d 31 0d 02  a8 2a e7 20 74 69 6d 25  |&BF9=1...*. tim%|
00000710  3c 3e 2d 31 20 80 20 3f  26 42 46 39 3d 30 20 8c  |<>-1 . ?&BF9=0 .|
00000720  20 fd 20 b9 3a f2 6c 65  76 65 6c 66 69 6e 3a e1  | . .:.levelfin:.|
00000730  0d 02 b2 11 6c 69 76 65  25 3d 6c 69 76 65 25 2d  |....live%=live%-|
00000740  31 0d 02 bc 16 e7 20 6c  69 76 65 25 3d 2d 31 20  |1..... live%=-1 |
00000750  8c 20 fd 20 b9 3a e1 0d  02 c6 12 db 3a fb 33 3a  |. . .:......:.3:|
00000760  f1 8a 31 35 2c 31 36 29  3b 0d 02 d0 27 e7 3f 26  |..15,16);...'.?&|
00000770  42 46 39 3d 30 8c f1 22  54 69 6d 65 20 4f 75 74  |BF9=0.."Time Out|
00000780  21 22 8b f1 22 4c 6f 73  74 20 42 61 6c 6c 21 22  |!".."Lost Ball!"|
00000790  0d 02 da 24 e3 63 3d 30  20 b8 20 35 3a e7 20 73  |...$.c=0 . 5:. s|
000007a0  6f 75 6e 64 3d b9 20 8c  20 d4 20 31 2c 2d 31 35  |ound=. . . 1,-15|
000007b0  2c 30 2c 37 0d 02 e4 0e  e3 63 6f 6c 3d 30 20 b8  |,0,7.....col=0 .|
000007c0  20 37 0d 02 ee 14 ef 20  31 39 2c 33 2c 63 6f 6c  | 7..... 19,3,col|
000007d0  2c 30 2c 30 2c 30 0d 02  f8 0b 6e 74 25 3d 91 2b  |,0,0,0....nt%=.+|
000007e0  34 0d 03 02 0d f5 20 fd  20 91 3e 6e 74 25 0d 03  |4..... . .>nt%..|
000007f0  0c 14 ed 2c 3a db 3a 6c  65 76 25 3d 6c 65 76 25  |...,:.:lev%=lev%|
00000800  2d 31 0d 03 16 07 fd 20  a3 0d 03 20 05 e1 0d 03  |-1..... ... ....|
00000810  2a 05 3a 0d 03 34 0e dd  f2 6c 65 76 65 6c 66 69  |*.:..4...levelfi|
00000820  6e 0d 03 3e 09 db 3a fb  20 33 0d 03 48 2d f1 8a  |n..>..:. 3..H-..|
00000830  34 2c 31 36 29 3b 22 43  6f 6e 67 72 61 74 75 6c  |4,16);"Congratul|
00000840  61 74 69 6f 6e 73 3a 20  4c 65 76 65 6c 20 43 6f  |ations: Level Co|
00000850  6d 70 6c 65 74 65 22 0d  03 52 2a e3 63 3d 30 20  |mplete"..R*.c=0 |
00000860  b8 20 35 3a e7 20 73 6f  75 6e 64 3d b9 20 8c 20  |. 5:. sound=. . |
00000870  d4 20 31 2c 2d 31 35 2c  34 2b 63 2a 34 38 2c 31  |. 1,-15,4+c*48,1|
00000880  30 0d 03 5c 0e e3 63 6f  6c 3d 30 20 b8 20 37 0d  |0..\..col=0 . 7.|
00000890  03 66 14 ef 20 31 39 2c  33 2c 63 6f 6c 2c 30 2c  |.f.. 19,3,col,0,|
000008a0  30 2c 30 0d 03 70 0b 6e  74 25 3d 91 2b 34 0d 03  |0,0..p.nt%=.+4..|
000008b0  7a 0d f5 20 fd 20 91 3e  6e 74 25 0d 03 84 19 ed  |z.. . .>nt%.....|
000008c0  2c 3a db 3a 3f 26 42 46  38 3d 28 3f 26 42 46 38  |,:.:?&BF8=(?&BF8|
000008d0  29 2b 31 30 0d 03 8e 05  e1 0d 03 98 05 3a 0d 03  |)+10.........:..|
000008e0  a2 0e dd f2 67 61 6d 65  6f 76 65 72 0d 03 ac 09  |....gameover....|
000008f0  db 3a fb 20 33 0d 03 b6  22 f1 8a 39 2c 31 36 29  |.:. 3..."..9,16)|
00000900  22 54 68 61 74 27 73 20  69 74 3a 20 47 61 6d 65  |"That's it: Game|
00000910  20 4f 76 65 72 21 22 0d  03 c0 0c e3 63 3d 30 20  | Over!".....c=0 |
00000920  b8 20 35 0d 03 ca 34 e3  63 6f 6c 3d 30 20 b8 20  |. 5...4.col=0 . |
00000930  37 3a e7 20 73 6f 75 6e  64 3d b9 20 8c 20 d4 20  |7:. sound=. . . |
00000940  31 2c 2d 31 35 2c 31 35  30 2d 28 63 2a 34 2b 63  |1,-15,150-(c*4+c|
00000950  6f 6c 2a 38 29 2c 31 0d  03 d4 14 ef 20 31 39 2c  |ol*8),1..... 19,|
00000960  33 2c 63 6f 6c 2c 30 2c  30 2c 30 0d 03 de 0b 6e  |3,col,0,0,0....n|
00000970  74 25 3d 91 2b 34 0d 03  e8 0d f5 20 fd 20 91 3e  |t%=.+4..... . .>|
00000980  6e 74 25 0d 03 f2 08 ed  2c 3a db 0d 03 fc 05 e1  |nt%.....,:......|
00000990  0d 04 06 05 3a 0d 04 10  0d dd f2 63 6f 6e 67 72  |....:......congr|
000009a0  61 74 0d 04 1a 09 db 3a  fb 20 33 0d 04 24 0c e3  |at.....:. 3..$..|
000009b0  78 3d 30 20 b8 20 35 0d  04 2e 2d f1 8a 34 2c 31  |x=0 . 5...-..4,1|
000009c0  36 29 3b 22 43 6f 6e 67  72 61 74 75 6c 61 74 69  |6);"Congratulati|
000009d0  6f 6e 73 3a 20 47 61 6d  65 20 43 6f 6d 70 6c 65  |ons: Game Comple|
000009e0  74 65 21 22 0d 04 38 2a  e3 63 3d 30 20 b8 20 35  |te!"..8*.c=0 . 5|
000009f0  3a e7 20 73 6f 75 6e 64  3d b9 20 8c 20 d4 20 31  |:. sound=. . . 1|
00000a00  2c 2d 31 35 2c 34 2b 63  2a 34 38 2c 31 30 0d 04  |,-15,4+c*48,10..|
00000a10  42 0e e3 63 6f 6c 3d 30  20 b8 20 37 0d 04 4c 14  |B..col=0 . 7..L.|
00000a20  ef 20 31 39 2c 33 2c 63  6f 6c 2c 30 2c 30 2c 30  |. 19,3,col,0,0,0|
00000a30  0d 04 56 0b 6e 74 25 3d  91 2b 34 0d 04 60 0d f5  |..V.nt%=.+4..`..|
00000a40  20 fd 20 91 3e 6e 74 25  0d 04 6a 09 ed 2c 2c 3a  | . .>nt%..j..,,:|
00000a50  db 0d 04 74 05 e1 0d 04  7e 05 3a 0d 04 88 0b dd  |...t....~.:.....|
00000a60  f2 74 69 74 6c 65 0d 04  92 09 63 6f 6c 3d 30 0d  |.title....col=0.|
00000a70  04 9c 09 d6 26 41 30 30  0d 04 a6 0d e6 20 30 2c  |....&A00..... 0,|
00000a80  30 3a ef 20 35 0d 04 b0  83 ec 35 34 34 2c 38 39  |0:. 5.....544,89|
00000a90  36 3a f1 22 42 4f 55 4e  43 45 22 3a ec 33 32 30  |6:."BOUNCE":.320|
00000aa0  2c 37 36 38 3a f1 22 62  79 20 44 6f 6d 69 6e 69  |,768:."by Domini|
00000ab0  63 20 46 6f 72 64 20 31  39 39 36 22 3a ec 34 33  |c Ford 1996":.43|
00000ac0  32 2c 35 34 34 3a f1 22  53 50 41 43 45 20 2d 20  |2,544:."SPACE - |
00000ad0  53 74 61 72 74 22 3a ec  35 36 30 2c 34 38 30 3a  |Start":.560,480:|
00000ae0  f1 22 51 20 2d 20 51 75  69 74 22 3a ec 35 36 30  |."Q - Quit":.560|
00000af0  2c 34 31 36 3a f1 22 49  20 2d 20 49 6e 73 74 72  |,416:."I - Instr|
00000b00  75 63 74 69 6f 6e 73 22  0d 04 ba 1d ef 20 34 2c  |uctions"..... 4,|
00000b10  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a 2a 46  |23,1,0;0;0;0;:*F|
00000b20  58 31 35 2c 31 0d 04 c4  05 f5 0d 04 ce 1e 6e 74  |X15,1.........nt|
00000b30  25 3d 91 2b 31 30 3a 63  6f 6c 3d 28 28 63 6f 6c  |%=.+10:col=((col|
00000b40  2b 31 29 20 83 20 33 29  0d 04 d8 18 ef 20 31 39  |+1) . 3)..... 19|
00000b50  2c 31 2c 63 6f 6c 2b 34  2c 30 2c 30 2c 30 2c 30  |,1,col+4,0,0,0,0|
00000b60  0d 04 e2 22 ef 20 31 39  2c 32 2c 28 28 63 6f 6c  |...". 19,2,((col|
00000b70  2b 31 29 20 83 20 33 29  2b 34 2c 30 2c 30 2c 30  |+1) . 3)+4,0,0,0|
00000b80  2c 30 0d 04 ec 22 ef 20  31 39 2c 33 2c 28 28 63  |,0...". 19,3,((c|
00000b90  6f 6c 2b 32 29 20 83 20  33 29 2b 34 2c 30 2c 30  |ol+2) . 3)+4,0,0|
00000ba0  2c 30 2c 30 0d 04 f6 0d  f5 20 fd 20 91 3e 6e 74  |,0,0..... . .>nt|
00000bb0  25 0d 05 00 0b 6b 24 3d  bf 28 30 29 0d 05 0a 30  |%....k$=.(0)...0|
00000bc0  fd 20 6b 24 3d 22 51 22  20 84 20 6b 24 3d 22 71  |. k$="Q" . k$="q|
00000bd0  22 20 84 20 6b 24 3d 22  20 22 20 84 20 6b 24 3d  |" . k$=" " . k$=|
00000be0  22 49 22 20 84 20 6b 24  3d 22 69 22 0d 05 14 05  |"I" . k$="i"....|
00000bf0  e1 0d 05 1e 05 3a 0d 05  28 10 f4 20 4c 65 76 65  |.....:..(.. Leve|
00000c00  6c 20 44 61 74 61 0d 05  32 40 dc 20 31 38 2c 32  |l Data..2@. 18,2|
00000c10  2c 32 2c 33 2c 33 2c 34  2c 33 2c 35 2c 33 2c 36  |,2,3,3,4,3,5,3,6|
00000c20  2c 33 2c 37 2c 33 2c 38  2c 33 2c 38 2c 38 2c 39  |,3,7,3,8,3,8,8,9|
00000c30  2c 39 2c 31 30 2c 39 2c  31 31 2c 39 2c 31 32 2c  |,9,10,9,11,9,12,|
00000c40  39 2c 31 33 2c 39 0d 05  3c 38 dc 20 31 34 2c 39  |9,13,9..<8. 14,9|
00000c50  2c 31 35 2c 39 2c 31 36  2c 39 2c 31 37 2c 38 2c  |,15,9,16,9,17,8,|
00000c60  31 38 2c 39 2c 31 39 2c  38 2c 38 2c 31 2c 31 39  |18,9,19,8,8,1,19|
00000c70  2c 31 2c 31 2c 31 37 2c  31 30 2c 32 35 35 0d 05  |,1,1,17,10,255..|
00000c80  46 05 3a 0d 05 50 43 dc  20 30 2c 32 35 35 2c 30  |F.:..PC. 0,255,0|
00000c90  2c 32 35 35 2c 30 2c 32  35 35 2c 30 2c 32 35 35  |,255,0,255,0,255|
00000ca0  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
00000cb0  35 35 2c 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |55,0,255,0,255,0|
00000cc0  2c 32 35 35 2c 30 0d 05  5a 3a dc 20 32 35 35 2c  |,255,0..Z:. 255,|
00000cd0  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,255,0,255,0,25|
00000ce0  35 2c 30 2c 32 35 35 2c  30 2c 32 35 35 2c 30 2c  |5,0,255,0,255,0,|
00000cf0  32 35 35 2c 30 2c 32 35  35 2c 30 2c 2d 39 39 39  |255,0,255,0,-999|
00000d00  0d 05 64 05 3a 0d 05 6e  0a dd f2 69 6e 69 74 0d  |..d.:..n...init.|
00000d10  05 78 3d e7 20 ac 20 28  28 3f 26 37 38 3d 34 35  |.x=. . ((?&78=45|
00000d20  29 20 80 20 28 90 3d 26  31 43 30 30 29 29 20 8c  |) . (.=&1C00)) .|
00000d30  20 f1 27 22 50 6c 65 61  73 65 20 57 61 69 74 2e  | .'"Please Wait.|
00000d40  20 2e 20 2e 22 27 3a 2a  54 41 50 45 0d 05 82 17  | . ."':*TAPE....|
00000d50  e7 20 90 3c 3e 26 31 43  30 30 20 8c 20 f2 72 65  |. .<>&1C00 . .re|
00000d60  6c 6f 63 0d 05 8c 18 ef  20 36 2c 31 31 2c 32 33  |loc..... 6,11,23|
00000d70  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 05 96 1e f1  |,1,0;0;0;0;.....|
00000d80  22 43 61 6c 63 75 6c 61  74 69 6e 67 20 73 70 68  |"Calculating sph|
00000d90  65 72 65 2e 20 2e 20 2e  22 0d 05 a0 0f 50 25 3d  |ere. . ."....P%=|
00000da0  26 44 30 30 3a 70 3d 30  0d 05 aa 1a e3 78 3d 2d  |&D00:p=0.....x=-|
00000db0  37 38 2e 37 35 20 b8 20  39 30 20 88 20 31 31 2e  |78.75 . 90 . 11.|
00000dc0  32 35 0d 05 b4 23 e3 79  3d 32 32 2e 35 20 b8 20  |25...#.y=22.5 . |
00000dd0  31 38 30 20 88 20 32 32  2e 35 3a 70 3d 70 2b 2e  |180 . 22.5:p=p+.|
00000de0  37 38 31 32 35 0d 05 be  0a 5b 4f 50 54 20 32 0d  |78125....[OPT 2.|
00000df0  05 c8 31 45 51 55 57 20  a8 28 34 38 30 2a b5 28  |..1EQUW .(480*.(|
00000e00  af 2a 28 78 2d 31 31 2e  32 35 29 2f 31 38 30 29  |.*(x-11.25)/180)|
00000e10  2a b5 28 af 2a 79 2f 31  38 30 29 2b 36 34 30 29  |*.(.*y/180)+640)|
00000e20  0d 05 d2 21 45 51 55 57  20 a8 28 36 30 2b 28 9b  |...!EQUW .(60+(.|
00000e30  28 af 2a 79 2f 31 38 30  29 2b 31 29 2a 34 35 30  |(.*y/180)+1)*450|
00000e40  29 0d 05 dc 29 45 51 55  57 20 a8 28 34 38 30 2a  |)...)EQUW .(480*|
00000e50  b5 28 af 2a 78 2f 31 38  30 29 2a b5 28 af 2a 79  |.(.*x/180)*.(.*y|
00000e60  2f 31 38 30 29 2b 36 34  30 29 0d 05 e6 21 45 51  |/180)+640)...!EQ|
00000e70  55 57 20 a8 28 36 30 2b  28 9b 28 af 2a 79 2f 31  |UW .(60+(.(.*y/1|
00000e80  38 30 29 2b 31 29 2a 34  35 30 29 0d 05 f0 05 5d  |80)+1)*450)....]|
00000e90  0d 05 fa 13 f1 8a 32 34  2c 34 29 a8 28 70 29 3b  |......24,4).(p);|
00000ea0  22 25 22 0d 06 04 06 ed  2c 0d 06 0e 14 ef 32 33  |"%".....,.....23|
00000eb0  2c 31 2c 31 3b 30 3b 30  3b 30 3b 30 3b 0d 06 18  |,1,1;0;0;0;0;...|
00000ec0  26 f1 22 4d 6f 76 69 6e  67 20 6c 65 76 65 6c 20  |&."Moving level |
00000ed0  64 61 74 61 2e 20 2e 20  2e 22 3a 61 64 3d 26 31  |data. . .":ad=&1|
00000ee0  35 30 30 0d 06 22 05 f5  0d 06 2c 07 f3 20 64 0d  |500.."....,.. d.|
00000ef0  06 36 1d e7 20 64 3c 3e  2d 39 39 39 20 8c 20 3f  |.6.. d<>-999 . ?|
00000f00  61 64 3d 64 3a 61 64 3d  61 64 2b 31 0d 06 40 21  |ad=d:ad=ad+1..@!|
00000f10  e7 20 64 3d 32 35 35 20  8c 20 61 64 3d 28 61 64  |. d=255 . ad=(ad|
00000f20  2b 26 34 30 29 20 80 20  26 46 46 43 30 0d 06 4a  |+&40) . &FFC0..J|
00000f30  13 e7 20 64 3c 3e 2d 39  39 39 20 8c 20 fd 20 a3  |.. d<>-999 . . .|
00000f40  0d 06 54 07 fd 20 b9 0d  06 5e 25 f1 22 41 73 73  |..T.. ...^%."Ass|
00000f50  65 6d 62 6c 69 6e 67 20  63 6f 64 65 2e 20 2e 20  |embling code. . |
00000f60  2e 22 3a f2 61 73 73 65  6d 62 6c 65 0d 06 68 20  |.":.assemble..h |
00000f70  f1 22 52 65 6d 6f 76 69  6e 67 20 73 6f 75 72 63  |."Removing sourc|
00000f80  65 20 63 6f 64 65 2e 20  2e 20 2e 22 0d 06 72 05  |e code. . ."..r.|
00000f90  e1 0d 06 7c 05 3a 0d 06  86 0e dd f2 61 73 73 65  |...|.:......asse|
00000fa0  6d 62 6c 65 0d 06 90 10  6f 73 77 72 63 68 3d 26  |mble....oswrch=&|
00000fb0  46 46 45 45 0d 06 9a 10  6f 73 62 79 74 65 3d 26  |FFEE....osbyte=&|
00000fc0  46 46 46 34 0d 06 a4 14  e3 20 70 61 73 73 3d 30  |FFF4..... pass=0|
00000fd0  20 b8 20 32 20 88 20 32  0d 06 ae 0b 50 25 3d 26  | . 2 . 2....P%=&|
00000fe0  41 30 30 0d 06 b8 0d 5b  4f 50 54 20 70 61 73 73  |A00....[OPT pass|
00000ff0  0d 06 c2 3b 2e 73 70 68  65 72 65 20 4c 44 59 23  |...;.sphere LDY#|
00001000  30 3a 53 54 59 63 6f 6c  3a 4c 44 41 23 26 43 3a  |0:STYcol:LDA#&C:|
00001010  53 54 41 26 37 31 3a 4c  44 41 23 26 46 38 3a 53  |STA&71:LDA#&F8:S|
00001020  54 41 26 37 30 3a 4c 44  58 23 30 0d 06 cc 71 2e  |TA&70:LDX#0...q.|
00001030  70 6f 69 6e 74 20 4c 44  41 63 6f 6c 3a 43 4c 43  |point LDAcol:CLC|
00001040  3a 41 44 43 23 31 3a 80  23 33 3a 53 54 41 63 6f  |:ADC#1:.#3:STAco|
00001050  6c 3a 4c 44 41 23 31 38  3a 4a 53 52 6f 73 77 72  |l:LDA#18:JSRoswr|
00001060  63 68 3a 4c 44 41 23 30  3a 4a 53 52 6f 73 77 72  |ch:LDA#0:JSRoswr|
00001070  63 68 3a 4c 44 59 63 6f  6c 3a 54 58 41 3a 4c 53  |ch:LDYcol:TXA:LS|
00001080  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00001090  43 4c 43 3a 41 44 43 73  65 71 2c 59 0d 06 d6 30  |CLC:ADCseq,Y...0|
000010a0  2e 63 6f 6c 73 75 62 20  43 4d 50 20 23 33 3a 42  |.colsub CMP #3:B|
000010b0  43 43 63 6f 6c 67 6f 74  3a 53 45 43 3a 53 42 43  |CCcolgot:SEC:SBC|
000010c0  23 33 3a 4a 4d 50 63 6f  6c 73 75 62 0d 06 e0 39  |#3:JMPcolsub...9|
000010d0  2e 63 6f 6c 67 6f 74 20  43 4c 43 3a 41 44 43 23  |.colgot CLC:ADC#|
000010e0  31 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 59 20  |1:JSRoswrch:LDY |
000010f0  23 30 3a 54 58 41 3a 80  23 37 3a 42 45 51 6e 65  |#0:TXA:.#7:BEQne|
00001100  77 78 76 61 6c 0d 06 ea  89 4c 44 41 23 32 35 3a  |wxval....LDA#25:|
00001110  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 34 3a  |JSRoswrch:LDA#4:|
00001120  4a 53 52 73 65 6e 64 63  6f 3a 4c 44 41 23 32 35  |JSRsendco:LDA#25|
00001130  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 34  |:JSRoswrch:LDA#4|
00001140  3a 4a 53 52 73 65 6e 64  63 6f 3a 4c 44 41 23 32  |:JSRsendco:LDA#2|
00001150  35 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |5:JSRoswrch:LDA#|
00001160  38 35 3a 4a 53 52 73 65  6e 64 63 6f 3a 4c 44 41  |85:JSRsendco:LDA|
00001170  23 32 35 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |#25:JSRoswrch:LD|
00001180  41 23 38 35 3a 4a 53 52  73 65 6e 64 63 6f 0d 06  |A#85:JSRsendco..|
00001190  f4 48 49 4e 58 3a 4c 44  41 26 37 30 3a 43 4c 43  |.HINX:LDA&70:CLC|
000011a0  3a 41 44 43 23 38 3a 53  54 41 26 37 30 3a 4c 44  |:ADC#8:STA&70:LD|
000011b0  41 26 37 31 3a 41 44 43  23 30 3a 53 54 41 26 37  |A&71:ADC#0:STA&7|
000011c0  31 3a 43 50 58 23 31 32  38 3a 42 4e 45 70 6f 69  |1:CPX#128:BNEpoi|
000011d0  6e 74 3a 52 54 53 0d 06  fe 77 2e 6e 65 77 78 76  |nt:RTS...w.newxv|
000011e0  61 6c 20 4c 44 41 23 32  35 3a 4a 53 52 6f 73 77  |al LDA#25:JSRosw|
000011f0  72 63 68 3a 4c 44 41 23  34 3a 4a 53 52 6f 73 77  |rch:LDA#4:JSRosw|
00001200  72 63 68 3a 4c 44 41 23  31 32 38 3a 4a 53 52 6f  |rch:LDA#128:JSRo|
00001210  73 77 72 63 68 3a 4c 44  41 23 32 3a 4a 53 52 6f  |swrch:LDA#2:JSRo|
00001220  73 77 72 63 68 3a 4c 44  41 23 31 39 32 3a 4a 53  |swrch:LDA#192:JS|
00001230  52 6f 73 77 72 63 68 3a  4c 44 41 23 33 3a 4a 53  |Roswrch:LDA#3:JS|
00001240  52 6f 73 77 72 63 68 3a  4c 44 59 23 38 0d 07 08  |Roswrch:LDY#8...|
00001250  46 4c 44 41 23 32 35 3a  4a 53 52 6f 73 77 72 63  |FLDA#25:JSRoswrc|
00001260  68 3a 4c 44 41 23 34 3a  4a 53 52 73 65 6e 64 63  |h:LDA#4:JSRsendc|
00001270  6f 3a 4c 44 41 23 32 35  3a 4a 53 52 6f 73 77 72  |o:LDA#25:JSRoswr|
00001280  63 68 3a 4c 44 41 23 38  35 3a 4a 53 52 73 65 6e  |ch:LDA#85:JSRsen|
00001290  64 63 6f 0d 07 12 3c 49  4e 58 3a 4c 44 41 26 37  |dco...<INX:LDA&7|
000012a0  30 3a 43 4c 43 3a 41 44  43 23 38 3a 53 54 41 26  |0:CLC:ADC#8:STA&|
000012b0  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
000012c0  53 54 41 26 37 31 3a 4a  4d 50 70 6f 69 6e 74 0d  |STA&71:JMPpoint.|
000012d0  07 1c 79 2e 73 65 6e 64  63 6f 20 4a 53 52 6f 73  |..y.sendco JSRos|
000012e0  77 72 63 68 3a 4c 44 41  28 26 37 30 29 2c 59 3a  |wrch:LDA(&70),Y:|
000012f0  4a 53 52 6f 73 77 72 63  68 3a 49 4e 59 3a 4c 44  |JSRoswrch:INY:LD|
00001300  41 28 26 37 30 29 2c 59  3a 4a 53 52 6f 73 77 72  |A(&70),Y:JSRoswr|
00001310  63 68 3a 49 4e 59 3a 4c  44 41 28 26 37 30 29 2c  |ch:INY:LDA(&70),|
00001320  59 3a 4a 53 52 6f 73 77  72 63 68 3a 49 4e 59 3a  |Y:JSRoswrch:INY:|
00001330  4c 44 41 28 26 37 30 29  2c 59 3a 49 4e 59 3a 4a  |LDA(&70),Y:INY:J|
00001340  4d 50 6f 73 77 72 63 68  0d 07 26 0f 2e 63 6f 6c  |MPoswrch..&..col|
00001350  20 45 51 55 42 20 30 0d  07 30 24 2e 73 65 71 20  | EQUB 0..0$.seq |
00001360  45 51 55 42 20 31 3a 45  51 55 42 20 33 3a 45 51  |EQUB 1:EQUB 3:EQ|
00001370  55 42 20 32 3a 45 51 55  42 20 33 0d 07 3a 0d 5d  |UB 2:EQUB 3..:.]|
00001380  3a 50 25 3d 26 41 45 39  0d 07 44 0c 5b 4f 50 54  |:P%=&AE9..D.[OPT|
00001390  70 61 73 73 0d 07 4e 09  4c 44 58 23 30 0d 07 58  |pass..N.LDX#0..X|
000013a0  42 2e 62 61 6c 6c 6f 70  20 4c 44 41 78 62 61 6c  |B.ballop LDAxbal|
000013b0  6c 2c 58 3a 43 4d 50 63  78 3a 42 4e 45 62 61 6c  |l,X:CMPcx:BNEbal|
000013c0  6c 6f 6e 3a 4c 44 41 79  62 61 6c 6c 2c 58 3a 43  |lon:LDAyball,X:C|
000013d0  4d 50 63 79 3a 42 45 51  62 61 6c 6c 6f 66 66 0d  |MPcy:BEQballoff.|
000013e0  07 62 79 2e 62 61 6c 6c  6f 6e 20 4c 44 41 23 31  |.by.ballon LDA#1|
000013f0  37 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |7:JSRoswrch:LDA#|
00001400  32 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |2:JSRoswrch:LDA#|
00001410  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
00001420  78 62 61 6c 6c 2c 58 3a  4a 53 52 6f 73 77 72 63  |xball,X:JSRoswrc|
00001430  68 3a 4c 44 41 79 62 61  6c 6c 2c 58 3a 4a 53 52  |h:LDAyball,X:JSR|
00001440  6f 73 77 72 63 68 3a 4c  44 41 23 31 32 39 3a 4a  |oswrch:LDA#129:J|
00001450  53 52 6f 73 77 72 63 68  0d 07 6c 87 2e 62 61 6c  |SRoswrch..l..bal|
00001460  6c 6f 66 66 20 4c 44 41  79 62 61 6c 6c 2c 58 3a  |loff LDAyball,X:|
00001470  43 4d 50 23 32 34 3a 42  45 51 64 69 65 3a 4c 44  |CMP#24:BEQdie:LD|
00001480  41 23 26 32 38 3a 53 54  41 26 37 30 3a 4c 44 41  |A#&28:STA&70:LDA|
00001490  23 26 31 31 3a 53 54 41  26 37 31 3a 4c 44 41 78  |#&11:STA&71:LDAx|
000014a0  62 61 6c 6c 2c 58 3a 4c  44 59 79 62 61 6c 6c 2c  |ball,X:LDYyball,|
000014b0  58 3a 4a 53 52 67 65 74  61 64 3a 80 23 31 3a 42  |X:JSRgetad:.#1:B|
000014c0  4e 45 6e 6f 64 6f 77 6e  3a 49 4e 43 79 62 61 6c  |NEnodown:INCybal|
000014d0  6c 2c 58 3a 4a 4d 50 64  6f 6e 65 62 61 6c 6c 0d  |l,X:JMPdoneball.|
000014e0  07 76 9e 2e 6e 6f 64 6f  77 6e 20 4c 44 41 78 62  |.v..nodown LDAxb|
000014f0  61 6c 6c 2c 58 3a 43 4d  50 23 31 3a 42 45 51 64  |all,X:CMP#1:BEQd|
00001500  69 65 3a 4c 44 41 64 69  72 2c 58 3a 43 4d 50 23  |ie:LDAdir,X:CMP#|
00001510  30 3a 42 4e 45 6e 6f 6c  65 66 74 3a 4c 44 41 23  |0:BNEnoleft:LDA#|
00001520  26 46 46 3a 53 54 41 26  37 30 3a 4c 44 41 23 26  |&FF:STA&70:LDA#&|
00001530  31 30 3a 53 54 41 26 37  31 3a 4c 44 41 78 62 61  |10:STA&71:LDAxba|
00001540  6c 6c 2c 58 3a 4c 44 59  79 62 61 6c 6c 2c 58 3a  |ll,X:LDYyball,X:|
00001550  4a 53 52 67 65 74 61 64  3a 80 23 31 3a 42 4e 45  |JSRgetad:.#1:BNE|
00001560  6e 6f 6c 65 66 74 3a 44  45 43 78 62 61 6c 6c 2c  |noleft:DECxball,|
00001570  58 3a 4a 4d 50 64 6f 6e  65 62 61 6c 6c 0d 07 80  |X:JMPdoneball...|
00001580  1a 2e 64 69 65 20 4c 44  41 23 31 3a 53 54 41 64  |..die LDA#1:STAd|
00001590  65 61 64 3a 52 54 53 0d  07 8a 9f 2e 6e 6f 6c 65  |ead:RTS.....nole|
000015a0  66 74 20 4c 44 41 78 62  61 6c 6c 2c 58 3a 43 4d  |ft LDAxball,X:CM|
000015b0  50 23 33 38 3a 42 45 51  64 69 65 3a 4c 44 41 64  |P#38:BEQdie:LDAd|
000015c0  69 72 2c 58 3a 43 4d 50  23 31 3a 42 4e 45 6e 6f  |ir,X:CMP#1:BNEno|
000015d0  72 69 67 68 74 3a 4c 44  41 23 31 3a 53 54 41 26  |right:LDA#1:STA&|
000015e0  37 30 3a 4c 44 41 23 26  31 31 3a 53 54 41 26 37  |70:LDA#&11:STA&7|
000015f0  31 3a 4c 44 41 78 62 61  6c 6c 2c 58 3a 4c 44 59  |1:LDAxball,X:LDY|
00001600  79 62 61 6c 6c 2c 58 3a  4a 53 52 67 65 74 61 64  |yball,X:JSRgetad|
00001610  3a 80 23 31 3a 42 4e 45  6e 6f 72 69 67 68 74 3a  |:.#1:BNEnoright:|
00001620  49 4e 43 78 62 61 6c 6c  2c 58 3a 4a 4d 50 64 6f  |INCxball,X:JMPdo|
00001630  6e 65 62 61 6c 6c 0d 07  94 22 2e 6e 6f 72 69 67  |neball...".norig|
00001640  68 74 20 4c 44 41 64 69  72 2c 58 3a 82 23 31 3a  |ht LDAdir,X:.#1:|
00001650  53 54 41 64 69 72 2c 58  0d 07 9e 44 2e 64 6f 6e  |STAdir,X...D.don|
00001660  65 62 61 6c 6c 20 4c 44  41 78 62 61 6c 6c 2c 58  |eball LDAxball,X|
00001670  3a 43 4d 50 63 78 3a 42  4e 45 62 61 6c 6c 64 3a  |:CMPcx:BNEballd:|
00001680  4c 44 41 79 62 61 6c 6c  2c 58 3a 43 4d 50 63 79  |LDAyball,X:CMPcy|
00001690  3a 42 45 51 6e 65 78 74  62 61 6c 6c 0d 07 a8 57  |:BEQnextball...W|
000016a0  2e 62 61 6c 6c 64 20 4c  44 41 23 33 31 3a 4a 53  |.balld LDA#31:JS|
000016b0  52 6f 73 77 72 63 68 3a  4c 44 41 78 62 61 6c 6c  |Roswrch:LDAxball|
000016c0  2c 58 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |,X:JSRoswrch:LDA|
000016d0  79 62 61 6c 6c 2c 58 3a  4a 53 52 6f 73 77 72 63  |yball,X:JSRoswrc|
000016e0  68 3a 4c 44 41 23 31 33  30 3a 4a 53 52 6f 73 77  |h:LDA#130:JSRosw|
000016f0  72 63 68 0d 07 b2 69 2e  6e 65 78 74 62 61 6c 6c  |rch...i.nextball|
00001700  20 4c 44 41 23 30 3a 53  54 41 26 37 30 3a 4c 44  | LDA#0:STA&70:LD|
00001710  41 23 26 31 31 3a 53 54  41 26 37 31 3a 4c 44 41  |A#&11:STA&71:LDA|
00001720  78 62 61 6c 6c 2c 58 3a  4c 44 59 79 62 61 6c 6c  |xball,X:LDYyball|
00001730  2c 58 3a 4a 53 52 67 65  74 61 64 3a 43 4d 50 23  |,X:JSRgetad:CMP#|
00001740  32 3a 42 4e 45 6e 65 78  74 62 61 6c 6c 62 3a 4c  |2:BNEnextballb:L|
00001750  44 41 23 31 3a 53 54 41  64 65 61 64 0d 07 bc 4e  |DA#1:STAdead...N|
00001760  2e 6e 65 78 74 62 61 6c  6c 62 20 4a 53 52 62 61  |.nextballb JSRba|
00001770  6c 6c 63 68 65 63 6b 3a  49 4e 58 3a 43 50 58 23  |llcheck:INX:CPX#|
00001780  32 3a 42 4e 45 20 62 61  6c 6c 6f 70 74 3a 4a 4d  |2:BNE ballopt:JM|
00001790  50 63 75 72 73 6f 72 3a  2e 62 61 6c 6c 6f 70 74  |Pcursor:.ballopt|
000017a0  20 4a 4d 50 62 61 6c 6c  6f 70 0d 07 c6 13 5d 3a  | JMPballop....]:|
000017b0  f1 7e 50 25 3a 50 25 3d  26 31 41 30 30 0d 07 d0  |.~P%:P%=&1A00...|
000017c0  0d 5b 4f 50 54 20 70 61  73 73 0d 07 da 53 2e 67  |.[OPT pass...S.g|
000017d0  65 74 61 64 20 43 4c 43  3a 41 44 43 26 37 30 3a  |etad CLC:ADC&70:|
000017e0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
000017f0  43 23 30 3a 53 54 41 26  37 31 3a 54 59 41 3a 41  |C#0:STA&71:TYA:A|
00001800  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00001810  3a 53 54 41 26 37 32 3a  4c 44 59 23 30 0d 07 e4  |:STA&72:LDY#0...|
00001820  61 2e 67 65 74 6c 6f 70  20 4c 44 41 26 37 30 3a  |a.getlop LDA&70:|
00001830  43 4c 43 3a 41 44 43 26  37 32 3a 53 54 41 26 37  |CLC:ADC&72:STA&7|
00001840  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 30 3a 53  |0:LDA&71:ADC#0:S|
00001850  54 41 26 37 31 3a 49 4e  59 3a 43 50 59 23 35 3a  |TA&71:INY:CPY#5:|
00001860  42 4e 45 67 65 74 6c 6f  70 3a 4c 44 59 23 30 3a  |BNEgetlop:LDY#0:|
00001870  4c 44 41 28 26 37 30 29  2c 59 3a 52 54 53 0d 07  |LDA(&70),Y:RTS..|
00001880  ee a7 2e 63 75 72 73 6f  72 20 4c 44 41 23 33 31  |...cursor LDA#31|
00001890  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 63 78  |:JSRoswrch:LDAcx|
000018a0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 63 79  |:JSRoswrch:LDAcy|
000018b0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 30  |:JSRoswrch:LDA#0|
000018c0  3a 53 54 41 26 37 30 3a  4c 44 41 23 26 31 31 3a  |:STA&70:LDA#&11:|
000018d0  53 54 41 26 37 31 3a 4c  44 41 63 78 3a 4c 44 59  |STA&71:LDAcx:LDY|
000018e0  63 79 3a 4a 53 52 67 65  74 61 64 3a 43 4d 50 23  |cy:JSRgetad:CMP#|
000018f0  31 3a 42 45 51 62 6c 6f  63 6b 3a 43 4d 50 23 32  |1:BEQblock:CMP#2|
00001900  3a 42 45 51 73 70 69 6b  65 3a 4c 44 41 23 31 32  |:BEQspike:LDA#12|
00001910  39 3a 4a 53 52 6f 73 77  72 63 68 3a 4a 4d 50 63  |9:JSRoswrch:JMPc|
00001920  75 72 64 65 6c 0d 07 f8  47 2e 62 6c 6f 63 6b 20  |urdel...G.block |
00001930  4c 44 41 23 31 37 3a 4a  53 52 6f 73 77 72 63 68  |LDA#17:JSRoswrch|
00001940  3a 4c 44 41 23 31 3a 4a  53 52 6f 73 77 72 63 68  |:LDA#1:JSRoswrch|
00001950  3a 4c 44 41 23 31 32 38  3a 4a 53 52 6f 73 77 72  |:LDA#128:JSRoswr|
00001960  63 68 3a 4a 4d 50 63 75  72 64 65 6c 0d 08 02 3d  |ch:JMPcurdel...=|
00001970  2e 73 70 69 6b 65 20 4c  44 41 23 31 37 3a 4a 53  |.spike LDA#17:JS|
00001980  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 3a 4a 53  |Roswrch:LDA#1:JS|
00001990  52 6f 73 77 72 63 68 3a  4c 44 41 23 31 33 32 3a  |Roswrch:LDA#132:|
000019a0  4a 53 52 6f 73 77 72 63  68 0d 08 0c 47 2e 63 75  |JSRoswrch...G.cu|
000019b0  72 64 65 6c 20 4c 44 41  23 26 38 31 3a 4c 44 58  |rdel LDA#&81:LDX|
000019c0  23 30 3a 4c 44 59 23 30  3a 4a 53 52 6f 73 62 79  |#0:LDY#0:JSRosby|
000019d0  74 65 3a 42 43 43 6b 65  79 70 72 6f 3a 2e 6e 6f  |te:BCCkeypro:.no|
000019e0  6d 6f 76 65 74 20 4a 4d  50 20 6e 6f 6d 6f 76 65  |movet JMP nomove|
000019f0  0d 08 16 43 2e 6b 65 79  70 72 6f 20 43 50 58 6b  |...C.keypro CPXk|
00001a00  6c 3a 42 4e 45 6e 6f 74  6b 6c 3a 4c 44 41 63 78  |l:BNEnotkl:LDAcx|
00001a10  3a 43 4d 50 23 31 3a 42  45 51 20 6e 6f 6d 6f 76  |:CMP#1:BEQ nomov|
00001a20  65 74 3a 44 45 43 63 78  3a 4a 4d 50 6e 6f 6d 6f  |et:DECcx:JMPnomo|
00001a30  76 65 74 0d 08 20 42 2e  6e 6f 74 6b 6c 20 43 50  |vet.. B.notkl CP|
00001a40  58 6b 72 3a 42 4e 45 6e  6f 74 6b 72 3a 4c 44 41  |Xkr:BNEnotkr:LDA|
00001a50  63 78 3a 43 4d 50 23 33  38 3a 42 45 51 20 6e 6f  |cx:CMP#38:BEQ no|
00001a60  6d 6f 76 65 3a 49 4e 43  63 78 3a 4a 4d 50 6e 6f  |move:INCcx:JMPno|
00001a70  6d 6f 76 65 74 0d 08 2a  41 2e 6e 6f 74 6b 72 20  |movet..*A.notkr |
00001a80  43 50 58 6b 75 3a 42 4e  45 6e 6f 74 6b 75 3a 4c  |CPXku:BNEnotku:L|
00001a90  44 41 63 79 3a 43 4d 50  23 31 3a 42 45 51 20 6e  |DAcy:CMP#1:BEQ n|
00001aa0  6f 6d 6f 76 65 3a 44 45  43 63 79 3a 4a 4d 50 6e  |omove:DECcy:JMPn|
00001ab0  6f 6d 6f 76 65 74 0d 08  34 41 2e 6e 6f 74 6b 75  |omovet..4A.notku|
00001ac0  20 43 50 58 6b 64 3a 42  4e 45 6e 6f 74 6b 64 3a  | CPXkd:BNEnotkd:|
00001ad0  4c 44 41 63 79 3a 43 4d  50 23 32 34 3a 42 45 51  |LDAcy:CMP#24:BEQ|
00001ae0  20 6e 6f 6d 6f 76 65 3a  49 4e 43 63 79 3a 4a 4d  | nomove:INCcy:JM|
00001af0  50 6e 6f 6d 6f 76 65 0d  08 3e 95 2e 6e 6f 74 6b  |Pnomove..>..notk|
00001b00  64 20 43 50 58 6b 73 3a  42 4e 45 6e 6f 74 6b 73  |d CPXks:BNEnotks|
00001b10  3a 4c 44 41 6d 6f 6e 3a  43 4d 50 23 35 3a 42 43  |:LDAmon:CMP#5:BC|
00001b20  43 20 6e 6f 6d 6f 76 65  3a 4c 44 41 23 30 3a 53  |C nomove:LDA#0:S|
00001b30  54 41 26 37 30 3a 4c 44  41 23 26 31 31 3a 53 54  |TA&70:LDA#&11:ST|
00001b40  41 26 37 31 3a 4c 44 41  63 78 3a 4c 44 59 63 79  |A&71:LDAcx:LDYcy|
00001b50  3a 4a 53 52 67 65 74 61  64 3a 4c 44 41 23 31 3a  |:JSRgetad:LDA#1:|
00001b60  53 54 41 28 26 37 30 29  2c 59 3a 4c 44 41 6d 6f  |STA(&70),Y:LDAmo|
00001b70  6e 3a 53 45 43 3a 53 42  43 23 35 3a 53 54 41 6d  |n:SEC:SBC#5:STAm|
00001b80  6f 6e 3a 4a 4d 50 6e 6f  6d 6f 76 65 0d 08 48 73  |on:JMPnomove..Hs|
00001b90  2e 6e 6f 74 6b 73 20 43  50 58 6b 63 3a 42 4e 45  |.notks CPXkc:BNE|
00001ba0  6e 6f 6d 6f 76 65 3a 4c  44 41 23 30 3a 53 54 41  |nomove:LDA#0:STA|
00001bb0  26 37 30 3a 4c 44 41 23  26 31 31 3a 53 54 41 26  |&70:LDA#&11:STA&|
00001bc0  37 31 3a 4c 44 41 63 78  3a 4c 44 59 63 79 3a 4a  |71:LDAcx:LDYcy:J|
00001bd0  53 52 67 65 74 61 64 3a  43 4d 50 23 31 3a 42 4e  |SRgetad:CMP#1:BN|
00001be0  45 6e 6f 6d 6f 76 65 3a  4c 44 41 23 30 3a 53 54  |Enomove:LDA#0:ST|
00001bf0  41 28 26 37 30 29 2c 59  3a 49 4e 43 6d 6f 6e 0d  |A(&70),Y:INCmon.|
00001c00  08 52 87 2e 6e 6f 6d 6f  76 65 20 4c 44 41 23 33  |.R..nomove LDA#3|
00001c10  31 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 63  |1:JSRoswrch:LDAc|
00001c20  78 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 63  |x:JSRoswrch:LDAc|
00001c30  79 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |y:JSRoswrch:LDA#|
00001c40  31 37 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |17:JSRoswrch:LDA|
00001c50  23 33 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |#3:JSRoswrch:LDA|
00001c60  23 31 33 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |#131:JSRoswrch:L|
00001c70  44 41 23 26 31 35 3a 4c  44 58 23 30 3a 4a 4d 50  |DA#&15:LDX#0:JMP|
00001c80  6f 73 62 79 74 65 0d 08  5c 56 2e 62 61 6c 6c 63  |osbyte..\V.ballc|
00001c90  68 65 63 6b 20 4c 44 41  78 62 61 6c 6c 3a 43 4d  |heck LDAxball:CM|
00001ca0  50 78 62 61 6c 6c 2b 31  3a 42 4e 45 6e 6f 68 69  |Pxball+1:BNEnohi|
00001cb0  74 3a 4c 44 41 79 62 61  6c 6c 3a 43 4d 50 79 62  |t:LDAyball:CMPyb|
00001cc0  61 6c 6c 2b 31 3a 42 4e  45 6e 6f 68 69 74 3a 4c  |all+1:BNEnohit:L|
00001cd0  44 41 23 31 3a 53 54 41  68 69 74 3a 0d 08 66 0e  |DA#1:STAhit:..f.|
00001ce0  2e 6e 6f 68 69 74 20 52  54 53 0d 08 70 12 5d 3a  |.nohit RTS..p.]:|
00001cf0  f1 7e 50 25 3a 50 25 3d  26 42 45 46 0d 08 7a 0d  |.~P%:P%=&BEF..z.|
00001d00  5b 4f 50 54 20 70 61 73  73 0d 08 84 0f 2e 68 69  |[OPT pass.....hi|
00001d10  74 20 45 51 55 42 20 30  0d 08 8e 0e 2e 63 78 20  |t EQUB 0.....cx |
00001d20  45 51 55 42 20 30 0d 08  98 0e 2e 63 79 20 45 51  |EQUB 0.....cy EQ|
00001d30  55 42 20 30 0d 08 a2 0f  2e 64 69 72 20 45 51 55  |UB 0.....dir EQU|
00001d40  57 20 30 0d 08 ac 11 2e  78 62 61 6c 6c 20 45 51  |W 0.....xball EQ|
00001d50  55 57 20 30 0d 08 b6 11  2e 79 62 61 6c 6c 20 45  |UW 0.....yball E|
00001d60  51 55 57 20 30 0d 08 c0  0f 2e 6d 6f 6e 20 45 51  |QUW 0.....mon EQ|
00001d70  55 42 20 30 0d 08 ca 10  2e 64 65 61 64 20 45 51  |UB 0.....dead EQ|
00001d80  55 42 20 30 0d 08 d4 10  2e 6b 6c 20 45 51 55 53  |UB 0.....kl EQUS|
00001d90  20 22 5a 22 0d 08 de 10  2e 6b 72 20 45 51 55 53  | "Z".....kr EQUS|
00001da0  20 22 58 22 0d 08 e8 10  2e 6b 75 20 45 51 55 53  | "X".....ku EQUS|
00001db0  20 22 4b 22 0d 08 f2 10  2e 6b 64 20 45 51 55 53  | "K".....kd EQUS|
00001dc0  20 22 4d 22 0d 08 fc 10  2e 6b 73 20 45 51 55 53  | "M".....ks EQUS|
00001dd0  20 22 4c 22 0d 09 06 10  2e 6b 63 20 45 51 55 53  | "L".....kc EQUS|
00001de0  20 22 20 22 0d 09 10 05  5d 0d 09 1a 05 ed 0d 09  | " "....].......|
00001df0  24 05 e1 0d 09 2e 05 3a  0d 09 38 0b dd f2 72 65  |$......:..8...re|
00001e00  6c 6f 63 0d 09 42 16 f1  22 52 65 6c 6f 63 61 74  |loc..B.."Relocat|
00001e10  69 6e 67 2e 20 2e 20 2e  22 0d 09 4c 0b 3f 26 37  |ing. . ."..L.?&7|
00001e20  38 3d 34 35 0d 09 56 0b  d3 3d 26 35 38 30 30 0d  |8=45..V..=&5800.|
00001e30  09 60 14 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.`.. pass=0 . 2 |
00001e40  88 20 32 0d 09 6a 0b 50  25 3d 26 43 30 30 0d 09  |. 2..j.P%=&C00..|
00001e50  74 0c 5b 4f 50 54 70 61  73 73 0d 09 7e 0d 20 20  |t.[OPTpass..~.  |
00001e60  20 20 4c 44 59 23 30 0d  09 88 0e 20 20 20 20 53  |  LDY#0....    S|
00001e70  54 59 26 37 30 0d 09 92  0e 20 20 20 20 53 54 59  |TY&70....    STY|
00001e80  26 37 32 0d 09 9c 0f 20  20 20 20 4c 44 41 23 26  |&72....    LDA#&|
00001e90  31 43 0d 09 a6 0b 20 20  20 20 53 45 43 0d 09 b0  |1C....    SEC...|
00001ea0  0e 20 20 20 20 53 42 43  26 31 38 0d 09 ba 0e 20  |.    SBC&18.... |
00001eb0  20 20 20 53 54 41 26 37  34 0d 09 c4 0e 20 20 20  |   STA&74....   |
00001ec0  20 4c 44 41 26 31 38 0d  09 ce 0f 20 20 20 20 43  | LDA&18....    C|
00001ed0  4d 50 23 26 31 43 0d 09  d8 0d 20 20 20 20 42 43  |MP#&1C....    BC|
00001ee0  43 61 64 0d 09 e2 0e 2e  73 62 20 53 54 41 26 37  |Cad.....sb STA&7|
00001ef0  31 0d 09 ec 0f 20 20 20  20 4c 44 41 23 26 31 43  |1....    LDA#&1C|
00001f00  0d 09 f6 0e 20 20 20 20  53 54 41 26 37 33 0d 0a  |....    STA&73..|
00001f10  00 12 2e 6d 31 20 4c 44  41 28 26 37 30 29 2c 59  |...m1 LDA(&70),Y|
00001f20  0d 0a 0a 12 20 20 20 20  53 54 41 28 26 37 32 29  |....    STA(&72)|
00001f30  2c 59 0d 0a 14 0b 20 20  20 20 49 4e 59 0d 0a 1e  |,Y....    INY...|
00001f40  0d 20 20 20 20 42 4e 45  6d 31 0d 0a 28 0e 20 20  |.    BNEm1..(.  |
00001f50  20 20 49 4e 43 26 37 31  0d 0a 32 0e 20 20 20 20  |  INC&71..2.    |
00001f60  49 4e 43 26 37 33 0d 0a  3c 0e 20 20 20 20 4c 44  |INC&73..<.    LD|
00001f70  58 26 37 31 0d 0a 46 0b  20 20 20 20 44 45 58 0d  |X&71..F.    DEX.|
00001f80  0a 50 0e 20 20 20 20 43  50 58 26 30 33 0d 0a 5a  |.P.    CPX&03..Z|
00001f90  0d 20 20 20 20 42 43 43  6d 31 0d 0a 64 0d 20 20  |.    BCCm1..d.  |
00001fa0  20 20 42 43 53 65 6d 0d  0a 6e 0e 2e 61 64 20 4c  |  BCSem..n..ad L|
00001fb0  44 41 26 30 33 0d 0a 78  0e 20 20 20 20 53 54 41  |DA&03..x.    STA|
00001fc0  26 37 31 0d 0a 82 0b 20  20 20 20 43 4c 43 0d 0a  |&71....    CLC..|
00001fd0  8c 0e 20 20 20 20 41 44  43 26 37 34 0d 0a 96 0e  |..    ADC&74....|
00001fe0  20 20 20 20 53 54 41 26  37 33 0d 0a a0 0d 20 20  |    STA&73....  |
00001ff0  20 20 4c 44 41 23 30 0d  0a aa 0e 20 20 20 20 4c  |  LDA#0....    L|
00002000  44 59 26 30 32 0d 0a b4  12 2e 6d 32 20 4c 44 41  |DY&02.....m2 LDA|
00002010  28 26 37 30 29 2c 59 0d  0a be 12 20 20 20 20 53  |(&70),Y....    S|
00002020  54 41 28 26 37 32 29 2c  59 0d 0a c8 0b 20 20 20  |TA(&72),Y....   |
00002030  20 44 45 59 0d 0a d2 0f  20 20 20 20 43 50 59 23  | DEY....    CPY#|
00002040  26 46 46 0d 0a dc 0d 20  20 20 20 42 4e 45 6d 32  |&FF....    BNEm2|
00002050  0d 0a e6 0e 20 20 20 20  44 45 43 26 37 31 0d 0a  |....    DEC&71..|
00002060  f0 0e 20 20 20 20 44 45  43 26 37 33 0d 0a fa 0e  |..    DEC&73....|
00002070  20 20 20 20 4c 44 41 26  37 33 0d 0b 04 0f 20 20  |    LDA&73....  |
00002080  20 20 43 4d 50 23 26 31  36 0d 0b 0e 0d 20 20 20  |  CMP#&16....   |
00002090  20 42 43 53 6d 32 0d 0b  18 0e 2e 65 6d 20 4c 44  | BCSm2.....em LD|
000020a0  41 26 31 33 0d 0b 22 0b  20 20 20 20 43 4c 43 0d  |A&13..".    CLC.|
000020b0  0b 2c 0e 20 20 20 20 41  44 43 26 37 34 0d 0b 36  |.,.    ADC&74..6|
000020c0  0e 20 20 20 20 53 54 41  26 31 33 0d 0b 40 0e 20  |.    STA&13..@. |
000020d0  20 20 20 53 54 41 26 30  31 0d 0b 4a 0f 20 20 20  |   STA&01..J.   |
000020e0  20 4c 44 41 23 26 31 43  0d 0b 54 0e 20 20 20 20  | LDA#&1C..T.    |
000020f0  53 54 41 26 31 38 0d 0b  5e 0b 20 20 20 20 52 54  |STA&18..^.    RT|
00002100  53 0d 0b 68 05 5d 0d 0b  72 05 ed 0d 0b 7c 08 ef  |S..h.]..r....|..|
00002110  20 32 31 0d 0b 86 31 ff  22 4b 45 59 20 30 22 22  | 21...1."KEY 0""|
00002120  43 41 4c 4c 26 43 30 30  7c 4d 52 55 4e 7c 46 7c  |CALL&C00|MRUN|F||
00002130  4d 22 22 22 3a ff 22 46  58 20 31 35 33 2c 30 2c  |M""":."FX 153,0,|
00002140  31 32 38 22 0d 0b 90 05  e0 0d 0b 9a 05 e1 0d ff  |128"............|
00002150

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .