Bounce/B7

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

Bounce/B7

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

File contents

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


� Bounce
� by Dominic Ford 1996
:
(%� � ((?&78=45) � (�=&1C00)) � � 6
2	�init
<_A$="DEL.1390,9999"+�13+"GOTO90"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
F�
P:
Z� 6
d(� 23,128,0,189,219,231,231,219,189,0
n,� 23,129,255,255,255,255,255,255,255,255
x$� 23,130,195,129,0,0,0,0,129,195
�(� 23,131,0,126,126,126,126,126,126,0
�sound=�
�?l%=�("Z"):r%=�("X"):u%=�("K"):d%=�("M"):s%=�("L"):c%=�(" ")
�� 1:� 23,1,0;0;0;0;
�:
��
�
�title
�� 19,1,1,0,0,0,0
�� 19,2,2,0,0,0,0
�� k$=" " � �game
�� k$="Q" � k$="q"
��
�:
��game
"lev%=0:scr%=0:live%=3:?&BF8=25
�
"�
,
�level
6� live%=-1 � lev%=20
@
� lev%=20
J� live%=-1 � �gameover:�
T�congrat
^�
h:
r��level
|�
�0� 3:�9,16)"Get Ready for Level ";lev%+1;"!"
��c=0 � 5
�2�col=0 � 7:� sound=� � � 1,-15,c*4+col*8+100,1
�� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
��,:�
��
�� 19,3,2,0,0,0
�� 0,1:� 0,128:� 1280,128
�� 85,0,1024:� 85,1280,1024
� tim%=200:lev%=lev%+1:!&BF0=0
��1:�0,0)�131
�ad=&1100�&14E8�4
	!ad=0

�:?&BF9=0
&ad=&14C1+&40*lev%
0
l=?(ad-1)
:� point=0 � l
Dx=?ad:y=?(ad+1):ad=ad+2
N�x,y)�128
X?(&1100+x+y*40)=1
b�
l#?&BF2=0:?&BF4=?ad:?&BF6=?(ad+1)
v'?&BF3=0:?&BF5=?(ad+2):?&BF7=?(ad+3)
�� 3
�3�0,29)" Score   Lives   Screen   Time   Money"
��
�nt%=�+15
�� 3
�*�2,30);scr%;�11,30)live%;�19,30)lev%;
�(�27,30);tim%;" ";�34,30);?&BF8;"0 "
�� 1
�
� &AE9
�tim%=tim%-1
�� REPEAT UNTIL TIME>nt%
�5� tim%=-1 � (?&BF4=?&BF5 � ?&BF6=?&BF7) � ?&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
4�col=0 � 7
>� 19,3,col,0,0,0
H
nt=�+4
R� � �>nt
\�,:�:lev%=lev%-1
f� �
p�
z:
���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)+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
8� � �>nt
B�,:�
L�
V:
`
��congrat
j	�:� 3
t�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
�
� 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
2"� 19,2,((col+1) � 3)+4,0,0,0,0
<"� 19,3,((col+2) � 3)+4,0,0,0,0
F� � �>nt
Pk$=�(0)
Z0� k$="Q" � k$="q" � k$=" " � k$="I" � k$="i"
d�
n:
x� Level Data
�@� 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
�0� 14,9,15,9,16,9,17,8,18,9,19,8,8,0,19,0,255
�:
�C� 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0
�:� 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,-999
�:
�
��init
�=� � ((?&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)
6!EQUW �(60+(�(�*y/180)+1)*450)
@]
J�24,4)�(p);"%"
T�,
^�23,1,1;0;0;0;0;
h&�"Moving level data. . .":ad=&1500
r�
|� d
�� d<>-999 � ?ad=d:ad=ad+1
�!� d=255 � ad=(ad+&40) � &FFC0
�� d<>-999 � � �
�� �
�%�"Assembling code. . .":�assemble
� �"Removing source code. . ."
��
�:
���assemble
�oswrch=&FFEE
�osbyte=&FFF4
�� pass=0 � 2 � 2
�P%=&A00

[OPT pass
;.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
09.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
DHINX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
Nw.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
XFLDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
b<INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
ly.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
v.col EQUB 0
�$.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
�
]:P%=&AE9
�[OPTpass
�	LDX#0
�B.ballop LDAxball,X:CMPcx:BNEballon:LDAyball,X:CMPcy:BEQballoff
�X.ballon 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:CMP#0:BNEnodown:INCyball,X:JMPdoneball
Ơ.nodown LDAxball,X:CMP#0:BEQdie:LDAdir,X:CMP#0:BNEnoleft:LDA#&FF:STA&70:LDA#&10:STA&71:LDAxball,X:LDYyball,X:JSRgetad:CMP#0:BNEnoleft:DECxball,X:JMPdoneball
�.die LDA#1:STAdead:RTS
ڡ.noleft LDAxball,X:CMP#39:BEQdie:LDAdir,X:CMP#1:BNEnoright:LDA#1:STA&70:LDA#&11:STA&71:LDAxball,X:LDYyball,X:JSRgetad:CMP#0: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
A.nextball INX:CPX#2:BNE ballopt:JMPcursor:.ballopt JMP ballop
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
 ]:P%=&1A00
*
[OPT pass
4�.cursor LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#0:BNEblock:LDA#129:JSRoswrch:JMPcurdel
>.block LDA#128:JSRoswrch
HG.curdel LDA#&81:LDX#0:LDY#0:JSRosbyte:BCCkeypro:.nomovet JMP nomove
R=.keypro CPXkl:BNEnotkl:LDAcx:BEQ nomovet:DECcx:JMPnomovet
\B.notkl CPXkr:BNEnotkr:LDAcx:CMP#39:BEQ nomove:INCcx:JMPnomovet
f;.notkr CPXku:BNEnotku:LDAcy:BEQ nomove:DECcy:JMPnomovet
pA.notku CPXkd:BNEnotkd:LDAcy:CMP#24:BEQ nomove:INCcy:JMPnomove
z�.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
�s.notks CPXkc:BNEnomove:LDA#0:STA&70:LDA#&11:STA&71:LDAcx:LDYcy:JSRgetad:CMP#1:BNEnomove:LDA#0:STA(&70),Y:INCmon
�f.nomove LDA#31:JSRoswrch:LDAcx:JSRoswrch:LDAcy:JSRoswrch:LDA#131:JSRoswrch:LDA#&15:LDX#0:JMPosbyte
�
]:P%=&BF0
�
[OPT pass
�.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�
	B�
	L:
	V��reloc
	`�"Relocating. . ."
	j?&78=45
	t�=&5800
	~� pass=0 � 2 � 2
	�P%=&C00
	�[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
2    INY
<
    BNEm1
F    INC&71
P    INC&73
Z    LDX&71
d    DEX
n    CPX&03
x
    BCCm1
�
    BCSem
�.ad LDA&03
�    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
6.em LDA&13
@    CLC
J    ADC&74
T    STA&13
^    STA&01
h    LDA#&1C
r    STA&18
|    RTS
�]
��
�� 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 39  30 2c 39 39 39 39 22 2b  |"DEL.1390,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 07 ef 20  36 0d 00 64 28 ef 20 32  |.:..Z.. 6..d(. 2|
000000d0  33 2c 31 32 38 2c 30 2c  31 38 39 2c 32 31 39 2c  |3,128,0,189,219,|
000000e0  32 33 31 2c 32 33 31 2c  32 31 39 2c 31 38 39 2c  |231,231,219,189,|
000000f0  30 0d 00 6e 2c ef 20 32  33 2c 31 32 39 2c 32 35  |0..n,. 23,129,25|
00000100  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000110  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 00 78  |5,255,255,255..x|
00000120  24 ef 20 32 33 2c 31 33  30 2c 31 39 35 2c 31 32  |$. 23,130,195,12|
00000130  39 2c 30 2c 30 2c 30 2c  30 2c 31 32 39 2c 31 39  |9,0,0,0,0,129,19|
00000140  35 0d 00 82 28 ef 20 32  33 2c 31 33 31 2c 30 2c  |5...(. 23,131,0,|
00000150  31 32 36 2c 31 32 36 2c  31 32 36 2c 31 32 36 2c  |126,126,126,126,|
00000160  31 32 36 2c 31 32 36 2c  30 0d 00 8c 0b 73 6f 75  |126,126,0....sou|
00000170  6e 64 3d b9 0d 00 96 3f  6c 25 3d 97 28 22 5a 22  |nd=....?l%=.("Z"|
00000180  29 3a 72 25 3d 97 28 22  58 22 29 3a 75 25 3d 97  |):r%=.("X"):u%=.|
00000190  28 22 4b 22 29 3a 64 25  3d 97 28 22 4d 22 29 3a  |("K"):d%=.("M"):|
000001a0  73 25 3d 97 28 22 4c 22  29 3a 63 25 3d 97 28 22  |s%=.("L"):c%=.("|
000001b0  20 22 29 0d 00 a0 17 eb  20 31 3a ef 20 32 33 2c  | ")..... 1:. 23,|
000001c0  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 aa 05 3a 0d  |1,0;0;0;0;....:.|
000001d0  00 b4 05 f5 0d 00 be 0a  f2 74 69 74 6c 65 0d 00  |.........title..|
000001e0  c8 14 ef 20 31 39 2c 31  2c 31 2c 30 2c 30 2c 30  |... 19,1,1,0,0,0|
000001f0  2c 30 0d 00 d2 14 ef 20  31 39 2c 32 2c 32 2c 30  |,0..... 19,2,2,0|
00000200  2c 30 2c 30 2c 30 0d 00  dc 14 e7 20 6b 24 3d 22  |,0,0,0..... k$="|
00000210  20 22 20 8c 20 f2 67 61  6d 65 0d 00 e6 15 fd 20  | " . .game..... |
00000220  6b 24 3d 22 51 22 20 84  20 6b 24 3d 22 71 22 0d  |k$="Q" . k$="q".|
00000230  00 f0 05 e0 0d 00 fa 05  3a 0d 01 04 0a dd f2 67  |........:......g|
00000240  61 6d 65 0d 01 0e 22 6c  65 76 25 3d 30 3a 73 63  |ame..."lev%=0:sc|
00000250  72 25 3d 30 3a 6c 69 76  65 25 3d 33 3a 3f 26 42  |r%=0:live%=3:?&B|
00000260  46 38 3d 32 35 0d 01 18  05 f7 0d 01 22 05 f5 0d  |F8=25......."...|
00000270  01 2c 0a f2 6c 65 76 65  6c 0d 01 36 18 e7 20 6c  |.,..level..6.. l|
00000280  69 76 65 25 3d 2d 31 20  8c 20 6c 65 76 25 3d 32  |ive%=-1 . lev%=2|
00000290  30 0d 01 40 0d fd 20 6c  65 76 25 3d 32 30 0d 01  |0..@.. lev%=20..|
000002a0  4a 1c e7 20 6c 69 76 65  25 3d 2d 31 20 8c 20 f2  |J.. live%=-1 . .|
000002b0  67 61 6d 65 6f 76 65 72  3a e1 0d 01 54 0c f2 63  |gameover:...T..c|
000002c0  6f 6e 67 72 61 74 0d 01  5e 05 e1 0d 01 68 05 3a  |ongrat..^....h.:|
000002d0  0d 01 72 0b dd f2 6c 65  76 65 6c 0d 01 7c 05 db  |..r...level..|..|
000002e0  0d 01 86 30 fb 20 33 3a  f1 8a 39 2c 31 36 29 22  |...0. 3:..9,16)"|
000002f0  47 65 74 20 52 65 61 64  79 20 66 6f 72 20 4c 65  |Get Ready for Le|
00000300  76 65 6c 20 22 3b 6c 65  76 25 2b 31 3b 22 21 22  |vel ";lev%+1;"!"|
00000310  0d 01 90 0c e3 63 3d 30  20 b8 20 35 0d 01 9a 32  |.....c=0 . 5...2|
00000320  e3 63 6f 6c 3d 30 20 b8  20 37 3a e7 20 73 6f 75  |.col=0 . 7:. sou|
00000330  6e 64 3d b9 20 8c 20 d4  20 31 2c 2d 31 35 2c 63  |nd=. . . 1,-15,c|
00000340  2a 34 2b 63 6f 6c 2a 38  2b 31 30 30 2c 31 0d 01  |*4+col*8+100,1..|
00000350  a4 14 ef 20 31 39 2c 33  2c 63 6f 6c 2c 30 2c 30  |... 19,3,col,0,0|
00000360  2c 30 0d 01 ae 0a 6e 74  3d 91 2b 34 0d 01 b8 0c  |,0....nt=.+4....|
00000370  f5 20 fd 20 91 3e 6e 74  0d 01 c2 08 ed 2c 3a db  |. . .>nt.....,:.|
00000380  0d 01 cc 05 f5 0d 01 d6  12 ef 20 31 39 2c 33 2c  |.......... 19,3,|
00000390  32 2c 30 2c 30 2c 30 0d  01 e0 1c e6 20 30 2c 31  |2,0,0,0..... 0,1|
000003a0  3a ec 20 30 2c 31 32 38  3a ec 20 31 32 38 30 2c  |:. 0,128:. 1280,|
000003b0  31 32 38 0d 01 ea 1e f0  20 38 35 2c 30 2c 31 30  |128..... 85,0,10|
000003c0  32 34 3a f0 20 38 35 2c  31 32 38 30 2c 31 30 32  |24:. 85,1280,102|
000003d0  34 0d 01 f4 20 74 69 6d  25 3d 32 30 30 3a 6c 65  |4... tim%=200:le|
000003e0  76 25 3d 6c 65 76 25 2b  31 3a 21 26 42 46 30 3d  |v%=lev%+1:!&BF0=|
000003f0  30 0d 01 fe 11 fb 31 3a  f1 8a 30 2c 30 29 bd 31  |0.....1:..0,0).1|
00000400  33 31 0d 02 08 15 e3 61  64 3d 26 31 31 30 30 b8  |31.....ad=&1100.|
00000410  26 31 34 45 38 88 34 0d  02 12 09 21 61 64 3d 30  |&14E8.4....!ad=0|
00000420  0d 02 1c 0d ed 3a 3f 26  42 46 39 3d 30 0d 02 26  |.....:?&BF9=0..&|
00000430  15 61 64 3d 26 31 34 43  31 2b 26 34 30 2a 6c 65  |.ad=&14C1+&40*le|
00000440  76 25 0d 02 30 0d 6c 3d  3f 28 61 64 2d 31 29 0d  |v%..0.l=?(ad-1).|
00000450  02 3a 11 e3 20 70 6f 69  6e 74 3d 30 20 b8 20 6c  |.:.. point=0 . l|
00000460  0d 02 44 1b 78 3d 3f 61  64 3a 79 3d 3f 28 61 64  |..D.x=?ad:y=?(ad|
00000470  2b 31 29 3a 61 64 3d 61  64 2b 32 0d 02 4e 0e f1  |+1):ad=ad+2..N..|
00000480  8a 78 2c 79 29 bd 31 32  38 0d 02 58 15 3f 28 26  |.x,y).128..X.?(&|
00000490  31 31 30 30 2b 78 2b 79  2a 34 30 29 3d 31 0d 02  |1100+x+y*40)=1..|
000004a0  62 05 ed 0d 02 6c 23 3f  26 42 46 32 3d 30 3a 3f  |b....l#?&BF2=0:?|
000004b0  26 42 46 34 3d 3f 61 64  3a 3f 26 42 46 36 3d 3f  |&BF4=?ad:?&BF6=?|
000004c0  28 61 64 2b 31 29 0d 02  76 27 3f 26 42 46 33 3d  |(ad+1)..v'?&BF3=|
000004d0  30 3a 3f 26 42 46 35 3d  3f 28 61 64 2b 32 29 3a  |0:?&BF5=?(ad+2):|
000004e0  3f 26 42 46 37 3d 3f 28  61 64 2b 33 29 0d 02 80  |?&BF7=?(ad+3)...|
000004f0  07 fb 20 33 0d 02 8a 33  f1 8a 30 2c 32 39 29 22  |.. 3...3..0,29)"|
00000500  20 53 63 6f 72 65 20 20  20 4c 69 76 65 73 20 20  | Score   Lives  |
00000510  20 53 63 72 65 65 6e 20  20 20 54 69 6d 65 20 20  | Screen   Time  |
00000520  20 4d 6f 6e 65 79 22 0d  02 94 05 f5 0d 02 9e 0c  | Money".........|
00000530  6e 74 25 3d 91 2b 31 35  0d 02 a8 07 fb 20 33 0d  |nt%=.+15..... 3.|
00000540  02 b2 2a f1 8a 32 2c 33  30 29 3b 73 63 72 25 3b  |..*..2,30);scr%;|
00000550  8a 31 31 2c 33 30 29 6c  69 76 65 25 3b 8a 31 39  |.11,30)live%;.19|
00000560  2c 33 30 29 6c 65 76 25  3b 0d 02 bc 28 f1 8a 32  |,30)lev%;...(..2|
00000570  37 2c 33 30 29 3b 74 69  6d 25 3b 22 20 22 3b 8a  |7,30);tim%;" ";.|
00000580  33 34 2c 33 30 29 3b 3f  26 42 46 38 3b 22 30 20  |34,30);?&BF8;"0 |
00000590  22 0d 02 c6 07 fb 20 31  0d 02 d0 0a d6 20 26 41  |"..... 1..... &A|
000005a0  45 39 0d 02 da 0f 74 69  6d 25 3d 74 69 6d 25 2d  |E9....tim%=tim%-|
000005b0  31 0d 02 e4 1b f4 20 52  45 50 45 41 54 20 55 4e  |1..... REPEAT UN|
000005c0  54 49 4c 20 54 49 4d 45  3e 6e 74 25 0d 02 ee 35  |TIL TIME>nt%...5|
000005d0  fd 20 74 69 6d 25 3d 2d  31 20 84 20 28 3f 26 42  |. tim%=-1 . (?&B|
000005e0  46 34 3d 3f 26 42 46 35  20 80 20 3f 26 42 46 36  |F4=?&BF5 . ?&BF6|
000005f0  3d 3f 26 42 46 37 29 20  84 20 3f 26 42 46 39 3d  |=?&BF7) . ?&BF9=|
00000600  31 0d 02 f8 2a e7 20 74  69 6d 25 3c 3e 2d 31 20  |1...*. tim%<>-1 |
00000610  80 20 3f 26 42 46 39 3d  30 20 8c 20 fd 20 b9 3a  |. ?&BF9=0 . . .:|
00000620  f2 6c 65 76 65 6c 66 69  6e 3a e1 0d 03 02 11 6c  |.levelfin:.....l|
00000630  69 76 65 25 3d 6c 69 76  65 25 2d 31 0d 03 0c 16  |ive%=live%-1....|
00000640  e7 20 6c 69 76 65 25 3d  2d 31 20 8c 20 fd 20 b9  |. live%=-1 . . .|
00000650  3a e1 0d 03 16 13 db 3a  fb 20 33 3a f1 8a 31 35  |:......:. 3:..15|
00000660  2c 31 36 29 3b 0d 03 20  27 e7 3f 26 42 46 39 3d  |,16);.. '.?&BF9=|
00000670  30 8c f1 22 54 69 6d 65  20 4f 75 74 21 22 8b f1  |0.."Time Out!"..|
00000680  22 4c 6f 73 74 20 42 61  6c 6c 21 22 0d 03 2a 24  |"Lost Ball!"..*$|
00000690  e3 63 3d 30 20 b8 20 35  3a e7 20 73 6f 75 6e 64  |.c=0 . 5:. sound|
000006a0  3d b9 20 8c 20 d4 20 31  2c 2d 31 35 2c 30 2c 37  |=. . . 1,-15,0,7|
000006b0  0d 03 34 0e e3 63 6f 6c  3d 30 20 b8 20 37 0d 03  |..4..col=0 . 7..|
000006c0  3e 14 ef 20 31 39 2c 33  2c 63 6f 6c 2c 30 2c 30  |>.. 19,3,col,0,0|
000006d0  2c 30 0d 03 48 0a 6e 74  3d 91 2b 34 0d 03 52 0c  |,0..H.nt=.+4..R.|
000006e0  f5 20 fd 20 91 3e 6e 74  0d 03 5c 14 ed 2c 3a db  |. . .>nt..\..,:.|
000006f0  3a 6c 65 76 25 3d 6c 65  76 25 2d 31 0d 03 66 07  |:lev%=lev%-1..f.|
00000700  fd 20 a3 0d 03 70 05 e1  0d 03 7a 05 3a 0d 03 84  |. ...p....z.:...|
00000710  0e dd f2 6c 65 76 65 6c  66 69 6e 0d 03 8e 09 db  |...levelfin.....|
00000720  3a fb 20 33 0d 03 98 2d  f1 8a 34 2c 31 36 29 3b  |:. 3...-..4,16);|
00000730  22 43 6f 6e 67 72 61 74  75 6c 61 74 69 6f 6e 73  |"Congratulations|
00000740  3a 20 4c 65 76 65 6c 20  43 6f 6d 70 6c 65 74 65  |: Level Complete|
00000750  22 0d 03 a2 2a e3 63 3d  30 20 b8 20 35 3a e7 20  |"...*.c=0 . 5:. |
00000760  73 6f 75 6e 64 3d b9 20  8c 20 d4 20 31 2c 2d 31  |sound=. . . 1,-1|
00000770  35 2c 34 2b 63 2a 34 38  2c 31 30 0d 03 ac 0e e3  |5,4+c*48,10.....|
00000780  63 6f 6c 3d 30 20 b8 20  37 0d 03 b6 14 ef 20 31  |col=0 . 7..... 1|
00000790  39 2c 33 2c 63 6f 6c 2c  30 2c 30 2c 30 0d 03 c0  |9,3,col,0,0,0...|
000007a0  0a 6e 74 3d 91 2b 34 0d  03 ca 0c f5 20 fd 20 91  |.nt=.+4..... . .|
000007b0  3e 6e 74 0d 03 d4 19 ed  2c 3a db 3a 3f 26 42 46  |>nt.....,:.:?&BF|
000007c0  38 3d 28 3f 26 42 46 38  29 2b 31 30 0d 03 de 05  |8=(?&BF8)+10....|
000007d0  e1 0d 03 e8 05 3a 0d 03  f2 0e dd f2 67 61 6d 65  |.....:......game|
000007e0  6f 76 65 72 0d 03 fc 09  db 3a fb 20 33 0d 04 06  |over.....:. 3...|
000007f0  22 f1 8a 39 2c 31 36 29  22 54 68 61 74 27 73 20  |"..9,16)"That's |
00000800  69 74 3a 20 47 61 6d 65  20 4f 76 65 72 21 22 0d  |it: Game Over!".|
00000810  04 10 0c e3 63 3d 30 20  b8 20 35 0d 04 1a 34 e3  |....c=0 . 5...4.|
00000820  63 6f 6c 3d 30 20 b8 20  37 3a e7 20 73 6f 75 6e  |col=0 . 7:. soun|
00000830  64 3d b9 20 8c 20 d4 20  31 2c 2d 31 35 2c 31 35  |d=. . . 1,-15,15|
00000840  30 2d 28 63 2a 34 2b 63  6f 6c 2a 38 29 2c 31 0d  |0-(c*4+col*8),1.|
00000850  04 24 14 ef 20 31 39 2c  33 2c 63 6f 6c 2c 30 2c  |.$.. 19,3,col,0,|
00000860  30 2c 30 0d 04 2e 0a 6e  74 3d 91 2b 34 0d 04 38  |0,0....nt=.+4..8|
00000870  0c f5 20 fd 20 91 3e 6e  74 0d 04 42 08 ed 2c 3a  |.. . .>nt..B..,:|
00000880  db 0d 04 4c 05 e1 0d 04  56 05 3a 0d 04 60 0d dd  |...L....V.:..`..|
00000890  f2 63 6f 6e 67 72 61 74  0d 04 6a 09 db 3a fb 20  |.congrat..j..:. |
000008a0  33 0d 04 74 0c e3 78 3d  30 20 b8 20 35 0d 04 7e  |3..t..x=0 . 5..~|
000008b0  2d f1 8a 34 2c 31 36 29  3b 22 43 6f 6e 67 72 61  |-..4,16);"Congra|
000008c0  74 75 6c 61 74 69 6f 6e  73 3a 20 47 61 6d 65 20  |tulations: Game |
000008d0  43 6f 6d 70 6c 65 74 65  21 22 0d 04 88 2a e3 63  |Complete!"...*.c|
000008e0  3d 30 20 b8 20 35 3a e7  20 73 6f 75 6e 64 3d b9  |=0 . 5:. sound=.|
000008f0  20 8c 20 d4 20 31 2c 2d  31 35 2c 34 2b 63 2a 34  | . . 1,-15,4+c*4|
00000900  38 2c 31 30 0d 04 92 0e  e3 63 6f 6c 3d 30 20 b8  |8,10.....col=0 .|
00000910  20 37 0d 04 9c 14 ef 20  31 39 2c 33 2c 63 6f 6c  | 7..... 19,3,col|
00000920  2c 30 2c 30 2c 30 0d 04  a6 0a 6e 74 3d 91 2b 34  |,0,0,0....nt=.+4|
00000930  0d 04 b0 0c f5 20 fd 20  91 3e 6e 74 0d 04 ba 09  |..... . .>nt....|
00000940  ed 2c 2c 3a db 0d 04 c4  05 e1 0d 04 ce 05 3a 0d  |.,,:..........:.|
00000950  04 d8 0b dd f2 74 69 74  6c 65 0d 04 e2 09 63 6f  |.....title....co|
00000960  6c 3d 30 0d 04 ec 09 d6  26 41 30 30 0d 04 f6 0d  |l=0.....&A00....|
00000970  e6 20 30 2c 30 3a ef 20  35 0d 05 00 83 ec 35 34  |. 0,0:. 5.....54|
00000980  34 2c 38 39 36 3a f1 22  42 4f 55 4e 43 45 22 3a  |4,896:."BOUNCE":|
00000990  ec 33 32 30 2c 37 36 38  3a f1 22 62 79 20 44 6f  |.320,768:."by Do|
000009a0  6d 69 6e 69 63 20 46 6f  72 64 20 31 39 39 36 22  |minic Ford 1996"|
000009b0  3a ec 34 33 32 2c 35 34  34 3a f1 22 53 50 41 43  |:.432,544:."SPAC|
000009c0  45 20 2d 20 53 74 61 72  74 22 3a ec 35 36 30 2c  |E - Start":.560,|
000009d0  34 38 30 3a f1 22 51 20  2d 20 51 75 69 74 22 3a  |480:."Q - Quit":|
000009e0  ec 35 36 30 2c 34 31 36  3a f1 22 49 20 2d 20 49  |.560,416:."I - I|
000009f0  6e 73 74 72 75 63 74 69  6f 6e 73 22 0d 05 0a 1d  |nstructions"....|
00000a00  ef 20 34 2c 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |. 4,23,1,0;0;0;0|
00000a10  3b 3a 2a 46 58 31 35 2c  31 0d 05 14 05 f5 0d 05  |;:*FX15,1.......|
00000a20  1e 1d 6e 74 3d 91 2b 31  30 3a 63 6f 6c 3d 28 28  |..nt=.+10:col=((|
00000a30  63 6f 6c 2b 31 29 20 83  20 33 29 0d 05 28 18 ef  |col+1) . 3)..(..|
00000a40  20 31 39 2c 31 2c 63 6f  6c 2b 34 2c 30 2c 30 2c  | 19,1,col+4,0,0,|
00000a50  30 2c 30 0d 05 32 22 ef  20 31 39 2c 32 2c 28 28  |0,0..2". 19,2,((|
00000a60  63 6f 6c 2b 31 29 20 83  20 33 29 2b 34 2c 30 2c  |col+1) . 3)+4,0,|
00000a70  30 2c 30 2c 30 0d 05 3c  22 ef 20 31 39 2c 33 2c  |0,0,0..<". 19,3,|
00000a80  28 28 63 6f 6c 2b 32 29  20 83 20 33 29 2b 34 2c  |((col+2) . 3)+4,|
00000a90  30 2c 30 2c 30 2c 30 0d  05 46 0c f5 20 fd 20 91  |0,0,0,0..F.. . .|
00000aa0  3e 6e 74 0d 05 50 0b 6b  24 3d bf 28 30 29 0d 05  |>nt..P.k$=.(0)..|
00000ab0  5a 30 fd 20 6b 24 3d 22  51 22 20 84 20 6b 24 3d  |Z0. k$="Q" . k$=|
00000ac0  22 71 22 20 84 20 6b 24  3d 22 20 22 20 84 20 6b  |"q" . k$=" " . k|
00000ad0  24 3d 22 49 22 20 84 20  6b 24 3d 22 69 22 0d 05  |$="I" . k$="i"..|
00000ae0  64 05 e1 0d 05 6e 05 3a  0d 05 78 10 f4 20 4c 65  |d....n.:..x.. Le|
00000af0  76 65 6c 20 44 61 74 61  0d 05 82 40 dc 20 31 38  |vel Data...@. 18|
00000b00  2c 32 2c 32 2c 33 2c 33  2c 34 2c 33 2c 35 2c 33  |,2,2,3,3,4,3,5,3|
00000b10  2c 36 2c 33 2c 37 2c 33  2c 38 2c 33 2c 38 2c 38  |,6,3,7,3,8,3,8,8|
00000b20  2c 39 2c 39 2c 31 30 2c  39 2c 31 31 2c 39 2c 31  |,9,9,10,9,11,9,1|
00000b30  32 2c 39 2c 31 33 2c 39  0d 05 8c 30 dc 20 31 34  |2,9,13,9...0. 14|
00000b40  2c 39 2c 31 35 2c 39 2c  31 36 2c 39 2c 31 37 2c  |,9,15,9,16,9,17,|
00000b50  38 2c 31 38 2c 39 2c 31  39 2c 38 2c 38 2c 30 2c  |8,18,9,19,8,8,0,|
00000b60  31 39 2c 30 2c 32 35 35  0d 05 96 05 3a 0d 05 a0  |19,0,255....:...|
00000b70  43 dc 20 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |C. 0,255,0,255,0|
00000b80  2c 32 35 35 2c 30 2c 32  35 35 2c 30 2c 32 35 35  |,255,0,255,0,255|
00000b90  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
00000ba0  35 35 2c 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |55,0,255,0,255,0|
00000bb0  0d 05 aa 3a dc 20 32 35  35 2c 30 2c 32 35 35 2c  |...:. 255,0,255,|
00000bc0  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,255,0,255,0,25|
00000bd0  35 2c 30 2c 32 35 35 2c  30 2c 32 35 35 2c 30 2c  |5,0,255,0,255,0,|
00000be0  32 35 35 2c 30 2c 2d 39  39 39 0d 05 b4 05 3a 0d  |255,0,-999....:.|
00000bf0  05 be 0a dd f2 69 6e 69  74 0d 05 c8 3d e7 20 ac  |.....init...=. .|
00000c00  20 28 28 3f 26 37 38 3d  34 35 29 20 80 20 28 90  | ((?&78=45) . (.|
00000c10  3d 26 31 43 30 30 29 29  20 8c 20 f1 27 22 50 6c  |=&1C00)) . .'"Pl|
00000c20  65 61 73 65 20 57 61 69  74 2e 20 2e 20 2e 22 27  |ease Wait. . ."'|
00000c30  3a 2a 54 41 50 45 0d 05  d2 17 e7 20 90 3c 3e 26  |:*TAPE..... .<>&|
00000c40  31 43 30 30 20 8c 20 f2  72 65 6c 6f 63 0d 05 dc  |1C00 . .reloc...|
00000c50  18 ef 20 36 2c 31 31 2c  32 33 2c 31 2c 30 3b 30  |.. 6,11,23,1,0;0|
00000c60  3b 30 3b 30 3b 0d 05 e6  1e f1 22 43 61 6c 63 75  |;0;0;....."Calcu|
00000c70  6c 61 74 69 6e 67 20 73  70 68 65 72 65 2e 20 2e  |lating sphere. .|
00000c80  20 2e 22 0d 05 f0 0f 50  25 3d 26 44 30 30 3a 70  | ."....P%=&D00:p|
00000c90  3d 30 0d 05 fa 1a e3 78  3d 2d 37 38 2e 37 35 20  |=0.....x=-78.75 |
00000ca0  b8 20 39 30 20 88 20 31  31 2e 32 35 0d 06 04 23  |. 90 . 11.25...#|
00000cb0  e3 79 3d 32 32 2e 35 20  b8 20 31 38 30 20 88 20  |.y=22.5 . 180 . |
00000cc0  32 32 2e 35 3a 70 3d 70  2b 2e 37 38 31 32 35 0d  |22.5:p=p+.78125.|
00000cd0  06 0e 0a 5b 4f 50 54 20  32 0d 06 18 31 45 51 55  |...[OPT 2...1EQU|
00000ce0  57 20 a8 28 34 38 30 2a  b5 28 af 2a 28 78 2d 31  |W .(480*.(.*(x-1|
00000cf0  31 2e 32 35 29 2f 31 38  30 29 2a b5 28 af 2a 79  |1.25)/180)*.(.*y|
00000d00  2f 31 38 30 29 2b 36 34  30 29 0d 06 22 21 45 51  |/180)+640).."!EQ|
00000d10  55 57 20 a8 28 36 30 2b  28 9b 28 af 2a 79 2f 31  |UW .(60+(.(.*y/1|
00000d20  38 30 29 2b 31 29 2a 34  35 30 29 0d 06 2c 29 45  |80)+1)*450)..,)E|
00000d30  51 55 57 20 a8 28 34 38  30 2a b5 28 af 2a 78 2f  |QUW .(480*.(.*x/|
00000d40  31 38 30 29 2a b5 28 af  2a 79 2f 31 38 30 29 2b  |180)*.(.*y/180)+|
00000d50  36 34 30 29 0d 06 36 21  45 51 55 57 20 a8 28 36  |640)..6!EQUW .(6|
00000d60  30 2b 28 9b 28 af 2a 79  2f 31 38 30 29 2b 31 29  |0+(.(.*y/180)+1)|
00000d70  2a 34 35 30 29 0d 06 40  05 5d 0d 06 4a 13 f1 8a  |*450)..@.]..J...|
00000d80  32 34 2c 34 29 a8 28 70  29 3b 22 25 22 0d 06 54  |24,4).(p);"%"..T|
00000d90  06 ed 2c 0d 06 5e 14 ef  32 33 2c 31 2c 31 3b 30  |..,..^..23,1,1;0|
00000da0  3b 30 3b 30 3b 30 3b 0d  06 68 26 f1 22 4d 6f 76  |;0;0;0;..h&."Mov|
00000db0  69 6e 67 20 6c 65 76 65  6c 20 64 61 74 61 2e 20  |ing level data. |
00000dc0  2e 20 2e 22 3a 61 64 3d  26 31 35 30 30 0d 06 72  |. .":ad=&1500..r|
00000dd0  05 f5 0d 06 7c 07 f3 20  64 0d 06 86 1d e7 20 64  |....|.. d..... d|
00000de0  3c 3e 2d 39 39 39 20 8c  20 3f 61 64 3d 64 3a 61  |<>-999 . ?ad=d:a|
00000df0  64 3d 61 64 2b 31 0d 06  90 21 e7 20 64 3d 32 35  |d=ad+1...!. d=25|
00000e00  35 20 8c 20 61 64 3d 28  61 64 2b 26 34 30 29 20  |5 . ad=(ad+&40) |
00000e10  80 20 26 46 46 43 30 0d  06 9a 13 e7 20 64 3c 3e  |. &FFC0..... d<>|
00000e20  2d 39 39 39 20 8c 20 fd  20 a3 0d 06 a4 07 fd 20  |-999 . . ...... |
00000e30  b9 0d 06 ae 25 f1 22 41  73 73 65 6d 62 6c 69 6e  |....%."Assemblin|
00000e40  67 20 63 6f 64 65 2e 20  2e 20 2e 22 3a f2 61 73  |g code. . .":.as|
00000e50  73 65 6d 62 6c 65 0d 06  b8 20 f1 22 52 65 6d 6f  |semble... ."Remo|
00000e60  76 69 6e 67 20 73 6f 75  72 63 65 20 63 6f 64 65  |ving source code|
00000e70  2e 20 2e 20 2e 22 0d 06  c2 05 e1 0d 06 cc 05 3a  |. . .".........:|
00000e80  0d 06 d6 0e dd f2 61 73  73 65 6d 62 6c 65 0d 06  |......assemble..|
00000e90  e0 10 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 06  |..oswrch=&FFEE..|
00000ea0  ea 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 06  |..osbyte=&FFF4..|
00000eb0  f4 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |... pass=0 . 2 .|
00000ec0  20 32 0d 06 fe 0b 50 25  3d 26 41 30 30 0d 07 08  | 2....P%=&A00...|
00000ed0  0d 5b 4f 50 54 20 70 61  73 73 0d 07 12 3b 2e 73  |.[OPT pass...;.s|
00000ee0  70 68 65 72 65 20 4c 44  59 23 30 3a 53 54 59 63  |phere LDY#0:STYc|
00000ef0  6f 6c 3a 4c 44 41 23 26  43 3a 53 54 41 26 37 31  |ol:LDA#&C:STA&71|
00000f00  3a 4c 44 41 23 26 46 38  3a 53 54 41 26 37 30 3a  |:LDA#&F8:STA&70:|
00000f10  4c 44 58 23 30 0d 07 1c  71 2e 70 6f 69 6e 74 20  |LDX#0...q.point |
00000f20  4c 44 41 63 6f 6c 3a 43  4c 43 3a 41 44 43 23 31  |LDAcol:CLC:ADC#1|
00000f30  3a 80 23 33 3a 53 54 41  63 6f 6c 3a 4c 44 41 23  |:.#3:STAcol:LDA#|
00000f40  31 38 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |18:JSRoswrch:LDA|
00000f50  23 30 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 59  |#0:JSRoswrch:LDY|
00000f60  63 6f 6c 3a 54 58 41 3a  4c 53 52 20 41 3a 4c 53  |col:TXA:LSR A:LS|
00000f70  52 20 41 3a 4c 53 52 20  41 3a 43 4c 43 3a 41 44  |R A:LSR A:CLC:AD|
00000f80  43 73 65 71 2c 59 0d 07  26 30 2e 63 6f 6c 73 75  |Cseq,Y..&0.colsu|
00000f90  62 20 43 4d 50 20 23 33  3a 42 43 43 63 6f 6c 67  |b CMP #3:BCCcolg|
00000fa0  6f 74 3a 53 45 43 3a 53  42 43 23 33 3a 4a 4d 50  |ot:SEC:SBC#3:JMP|
00000fb0  63 6f 6c 73 75 62 0d 07  30 39 2e 63 6f 6c 67 6f  |colsub..09.colgo|
00000fc0  74 20 43 4c 43 3a 41 44  43 23 31 3a 4a 53 52 6f  |t CLC:ADC#1:JSRo|
00000fd0  73 77 72 63 68 3a 4c 44  59 20 23 30 3a 54 58 41  |swrch:LDY #0:TXA|
00000fe0  3a 80 23 37 3a 42 45 51  6e 65 77 78 76 61 6c 0d  |:.#7:BEQnewxval.|
00000ff0  07 3a 89 4c 44 41 23 32  35 3a 4a 53 52 6f 73 77  |.:.LDA#25:JSRosw|
00001000  72 63 68 3a 4c 44 41 23  34 3a 4a 53 52 73 65 6e  |rch:LDA#4:JSRsen|
00001010  64 63 6f 3a 4c 44 41 23  32 35 3a 4a 53 52 6f 73  |dco:LDA#25:JSRos|
00001020  77 72 63 68 3a 4c 44 41  23 34 3a 4a 53 52 73 65  |wrch:LDA#4:JSRse|
00001030  6e 64 63 6f 3a 4c 44 41  23 32 35 3a 4a 53 52 6f  |ndco:LDA#25:JSRo|
00001040  73 77 72 63 68 3a 4c 44  41 23 38 35 3a 4a 53 52  |swrch:LDA#85:JSR|
00001050  73 65 6e 64 63 6f 3a 4c  44 41 23 32 35 3a 4a 53  |sendco:LDA#25:JS|
00001060  52 6f 73 77 72 63 68 3a  4c 44 41 23 38 35 3a 4a  |Roswrch:LDA#85:J|
00001070  53 52 73 65 6e 64 63 6f  0d 07 44 48 49 4e 58 3a  |SRsendco..DHINX:|
00001080  4c 44 41 26 37 30 3a 43  4c 43 3a 41 44 43 23 38  |LDA&70:CLC:ADC#8|
00001090  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
000010a0  44 43 23 30 3a 53 54 41  26 37 31 3a 43 50 58 23  |DC#0:STA&71:CPX#|
000010b0  31 32 38 3a 42 4e 45 70  6f 69 6e 74 3a 52 54 53  |128:BNEpoint:RTS|
000010c0  0d 07 4e 77 2e 6e 65 77  78 76 61 6c 20 4c 44 41  |..Nw.newxval LDA|
000010d0  23 32 35 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |#25:JSRoswrch:LD|
000010e0  41 23 34 3a 4a 53 52 6f  73 77 72 63 68 3a 4c 44  |A#4:JSRoswrch:LD|
000010f0  41 23 31 32 38 3a 4a 53  52 6f 73 77 72 63 68 3a  |A#128:JSRoswrch:|
00001100  4c 44 41 23 32 3a 4a 53  52 6f 73 77 72 63 68 3a  |LDA#2:JSRoswrch:|
00001110  4c 44 41 23 31 39 32 3a  4a 53 52 6f 73 77 72 63  |LDA#192:JSRoswrc|
00001120  68 3a 4c 44 41 23 33 3a  4a 53 52 6f 73 77 72 63  |h:LDA#3:JSRoswrc|
00001130  68 3a 4c 44 59 23 38 0d  07 58 46 4c 44 41 23 32  |h:LDY#8..XFLDA#2|
00001140  35 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 23  |5:JSRoswrch:LDA#|
00001150  34 3a 4a 53 52 73 65 6e  64 63 6f 3a 4c 44 41 23  |4:JSRsendco:LDA#|
00001160  32 35 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |25:JSRoswrch:LDA|
00001170  23 38 35 3a 4a 53 52 73  65 6e 64 63 6f 0d 07 62  |#85:JSRsendco..b|
00001180  3c 49 4e 58 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |<INX:LDA&70:CLC:|
00001190  41 44 43 23 38 3a 53 54  41 26 37 30 3a 4c 44 41  |ADC#8:STA&70:LDA|
000011a0  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
000011b0  3a 4a 4d 50 70 6f 69 6e  74 0d 07 6c 79 2e 73 65  |:JMPpoint..ly.se|
000011c0  6e 64 63 6f 20 4a 53 52  6f 73 77 72 63 68 3a 4c  |ndco JSRoswrch:L|
000011d0  44 41 28 26 37 30 29 2c  59 3a 4a 53 52 6f 73 77  |DA(&70),Y:JSRosw|
000011e0  72 63 68 3a 49 4e 59 3a  4c 44 41 28 26 37 30 29  |rch:INY:LDA(&70)|
000011f0  2c 59 3a 4a 53 52 6f 73  77 72 63 68 3a 49 4e 59  |,Y:JSRoswrch:INY|
00001200  3a 4c 44 41 28 26 37 30  29 2c 59 3a 4a 53 52 6f  |:LDA(&70),Y:JSRo|
00001210  73 77 72 63 68 3a 49 4e  59 3a 4c 44 41 28 26 37  |swrch:INY:LDA(&7|
00001220  30 29 2c 59 3a 49 4e 59  3a 4a 4d 50 6f 73 77 72  |0),Y:INY:JMPoswr|
00001230  63 68 0d 07 76 0f 2e 63  6f 6c 20 45 51 55 42 20  |ch..v..col EQUB |
00001240  30 0d 07 80 24 2e 73 65  71 20 45 51 55 42 20 31  |0...$.seq EQUB 1|
00001250  3a 45 51 55 42 20 33 3a  45 51 55 42 20 32 3a 45  |:EQUB 3:EQUB 2:E|
00001260  51 55 42 20 33 0d 07 8a  0d 5d 3a 50 25 3d 26 41  |QUB 3....]:P%=&A|
00001270  45 39 0d 07 94 0c 5b 4f  50 54 70 61 73 73 0d 07  |E9....[OPTpass..|
00001280  9e 09 4c 44 58 23 30 0d  07 a8 42 2e 62 61 6c 6c  |..LDX#0...B.ball|
00001290  6f 70 20 4c 44 41 78 62  61 6c 6c 2c 58 3a 43 4d  |op LDAxball,X:CM|
000012a0  50 63 78 3a 42 4e 45 62  61 6c 6c 6f 6e 3a 4c 44  |Pcx:BNEballon:LD|
000012b0  41 79 62 61 6c 6c 2c 58  3a 43 4d 50 63 79 3a 42  |Ayball,X:CMPcy:B|
000012c0  45 51 62 61 6c 6c 6f 66  66 0d 07 b2 58 2e 62 61  |EQballoff...X.ba|
000012d0  6c 6c 6f 6e 20 4c 44 41  23 33 31 3a 4a 53 52 6f  |llon LDA#31:JSRo|
000012e0  73 77 72 63 68 3a 4c 44  41 78 62 61 6c 6c 2c 58  |swrch:LDAxball,X|
000012f0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 79 62  |:JSRoswrch:LDAyb|
00001300  61 6c 6c 2c 58 3a 4a 53  52 6f 73 77 72 63 68 3a  |all,X:JSRoswrch:|
00001310  4c 44 41 23 31 32 39 3a  4a 53 52 6f 73 77 72 63  |LDA#129:JSRoswrc|
00001320  68 0d 07 bc 89 2e 62 61  6c 6c 6f 66 66 20 4c 44  |h.....balloff LD|
00001330  41 79 62 61 6c 6c 2c 58  3a 43 4d 50 23 32 34 3a  |Ayball,X:CMP#24:|
00001340  42 45 51 64 69 65 3a 4c  44 41 23 26 32 38 3a 53  |BEQdie:LDA#&28:S|
00001350  54 41 26 37 30 3a 4c 44  41 23 26 31 31 3a 53 54  |TA&70:LDA#&11:ST|
00001360  41 26 37 31 3a 4c 44 41  78 62 61 6c 6c 2c 58 3a  |A&71:LDAxball,X:|
00001370  4c 44 59 79 62 61 6c 6c  2c 58 3a 4a 53 52 67 65  |LDYyball,X:JSRge|
00001380  74 61 64 3a 43 4d 50 23  30 3a 42 4e 45 6e 6f 64  |tad:CMP#0:BNEnod|
00001390  6f 77 6e 3a 49 4e 43 79  62 61 6c 6c 2c 58 3a 4a  |own:INCyball,X:J|
000013a0  4d 50 64 6f 6e 65 62 61  6c 6c 0d 07 c6 a0 2e 6e  |MPdoneball.....n|
000013b0  6f 64 6f 77 6e 20 4c 44  41 78 62 61 6c 6c 2c 58  |odown LDAxball,X|
000013c0  3a 43 4d 50 23 30 3a 42  45 51 64 69 65 3a 4c 44  |:CMP#0:BEQdie:LD|
000013d0  41 64 69 72 2c 58 3a 43  4d 50 23 30 3a 42 4e 45  |Adir,X:CMP#0:BNE|
000013e0  6e 6f 6c 65 66 74 3a 4c  44 41 23 26 46 46 3a 53  |noleft:LDA#&FF:S|
000013f0  54 41 26 37 30 3a 4c 44  41 23 26 31 30 3a 53 54  |TA&70:LDA#&10:ST|
00001400  41 26 37 31 3a 4c 44 41  78 62 61 6c 6c 2c 58 3a  |A&71:LDAxball,X:|
00001410  4c 44 59 79 62 61 6c 6c  2c 58 3a 4a 53 52 67 65  |LDYyball,X:JSRge|
00001420  74 61 64 3a 43 4d 50 23  30 3a 42 4e 45 6e 6f 6c  |tad:CMP#0:BNEnol|
00001430  65 66 74 3a 44 45 43 78  62 61 6c 6c 2c 58 3a 4a  |eft:DECxball,X:J|
00001440  4d 50 64 6f 6e 65 62 61  6c 6c 0d 07 d0 1a 2e 64  |MPdoneball.....d|
00001450  69 65 20 4c 44 41 23 31  3a 53 54 41 64 65 61 64  |ie LDA#1:STAdead|
00001460  3a 52 54 53 0d 07 da a1  2e 6e 6f 6c 65 66 74 20  |:RTS.....noleft |
00001470  4c 44 41 78 62 61 6c 6c  2c 58 3a 43 4d 50 23 33  |LDAxball,X:CMP#3|
00001480  39 3a 42 45 51 64 69 65  3a 4c 44 41 64 69 72 2c  |9:BEQdie:LDAdir,|
00001490  58 3a 43 4d 50 23 31 3a  42 4e 45 6e 6f 72 69 67  |X:CMP#1:BNEnorig|
000014a0  68 74 3a 4c 44 41 23 31  3a 53 54 41 26 37 30 3a  |ht:LDA#1:STA&70:|
000014b0  4c 44 41 23 26 31 31 3a  53 54 41 26 37 31 3a 4c  |LDA#&11:STA&71:L|
000014c0  44 41 78 62 61 6c 6c 2c  58 3a 4c 44 59 79 62 61  |DAxball,X:LDYyba|
000014d0  6c 6c 2c 58 3a 4a 53 52  67 65 74 61 64 3a 43 4d  |ll,X:JSRgetad:CM|
000014e0  50 23 30 3a 42 4e 45 6e  6f 72 69 67 68 74 3a 49  |P#0:BNEnoright:I|
000014f0  4e 43 78 62 61 6c 6c 2c  58 3a 4a 4d 50 64 6f 6e  |NCxball,X:JMPdon|
00001500  65 62 61 6c 6c 0d 07 e4  22 2e 6e 6f 72 69 67 68  |eball...".norigh|
00001510  74 20 4c 44 41 64 69 72  2c 58 3a 82 23 31 3a 53  |t LDAdir,X:.#1:S|
00001520  54 41 64 69 72 2c 58 0d  07 ee 44 2e 64 6f 6e 65  |TAdir,X...D.done|
00001530  62 61 6c 6c 20 4c 44 41  78 62 61 6c 6c 2c 58 3a  |ball LDAxball,X:|
00001540  43 4d 50 63 78 3a 42 4e  45 62 61 6c 6c 64 3a 4c  |CMPcx:BNEballd:L|
00001550  44 41 79 62 61 6c 6c 2c  58 3a 43 4d 50 63 79 3a  |DAyball,X:CMPcy:|
00001560  42 45 51 6e 65 78 74 62  61 6c 6c 0d 07 f8 57 2e  |BEQnextball...W.|
00001570  62 61 6c 6c 64 20 4c 44  41 23 33 31 3a 4a 53 52  |balld LDA#31:JSR|
00001580  6f 73 77 72 63 68 3a 4c  44 41 78 62 61 6c 6c 2c  |oswrch:LDAxball,|
00001590  58 3a 4a 53 52 6f 73 77  72 63 68 3a 4c 44 41 79  |X:JSRoswrch:LDAy|
000015a0  62 61 6c 6c 2c 58 3a 4a  53 52 6f 73 77 72 63 68  |ball,X:JSRoswrch|
000015b0  3a 4c 44 41 23 31 33 30  3a 4a 53 52 6f 73 77 72  |:LDA#130:JSRoswr|
000015c0  63 68 0d 08 02 41 2e 6e  65 78 74 62 61 6c 6c 20  |ch...A.nextball |
000015d0  49 4e 58 3a 43 50 58 23  32 3a 42 4e 45 20 62 61  |INX:CPX#2:BNE ba|
000015e0  6c 6c 6f 70 74 3a 4a 4d  50 63 75 72 73 6f 72 3a  |llopt:JMPcursor:|
000015f0  2e 62 61 6c 6c 6f 70 74  20 4a 4d 50 20 62 61 6c  |.ballopt JMP bal|
00001600  6c 6f 70 0d 08 0c 53 2e  67 65 74 61 64 20 43 4c  |lop...S.getad CL|
00001610  43 3a 41 44 43 26 37 30  3a 53 54 41 26 37 30 3a  |C:ADC&70:STA&70:|
00001620  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
00001630  26 37 31 3a 54 59 41 3a  41 53 4c 20 41 3a 41 53  |&71:TYA:ASL A:AS|
00001640  4c 20 41 3a 41 53 4c 20  41 3a 53 54 41 26 37 32  |L A:ASL A:STA&72|
00001650  3a 4c 44 59 23 30 0d 08  16 61 2e 67 65 74 6c 6f  |:LDY#0...a.getlo|
00001660  70 20 4c 44 41 26 37 30  3a 43 4c 43 3a 41 44 43  |p LDA&70:CLC:ADC|
00001670  26 37 32 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&72:STA&70:LDA&7|
00001680  31 3a 41 44 43 23 30 3a  53 54 41 26 37 31 3a 49  |1:ADC#0:STA&71:I|
00001690  4e 59 3a 43 50 59 23 35  3a 42 4e 45 67 65 74 6c  |NY:CPY#5:BNEgetl|
000016a0  6f 70 3a 4c 44 59 23 30  3a 4c 44 41 28 26 37 30  |op:LDY#0:LDA(&70|
000016b0  29 2c 59 3a 52 54 53 0d  08 20 0e 5d 3a 50 25 3d  |),Y:RTS.. .]:P%=|
000016c0  26 31 41 30 30 0d 08 2a  0d 5b 4f 50 54 20 70 61  |&1A00..*.[OPT pa|
000016d0  73 73 0d 08 34 98 2e 63  75 72 73 6f 72 20 4c 44  |ss..4..cursor LD|
000016e0  41 23 33 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |A#31:JSRoswrch:L|
000016f0  44 41 63 78 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DAcx:JSRoswrch:L|
00001700  44 41 63 79 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |DAcy:JSRoswrch:L|
00001710  44 41 23 30 3a 53 54 41  26 37 30 3a 4c 44 41 23  |DA#0:STA&70:LDA#|
00001720  26 31 31 3a 53 54 41 26  37 31 3a 4c 44 41 63 78  |&11:STA&71:LDAcx|
00001730  3a 4c 44 59 63 79 3a 4a  53 52 67 65 74 61 64 3a  |:LDYcy:JSRgetad:|
00001740  43 4d 50 23 30 3a 42 4e  45 62 6c 6f 63 6b 3a 4c  |CMP#0:BNEblock:L|
00001750  44 41 23 31 32 39 3a 4a  53 52 6f 73 77 72 63 68  |DA#129:JSRoswrch|
00001760  3a 4a 4d 50 63 75 72 64  65 6c 0d 08 3e 1c 2e 62  |:JMPcurdel..>..b|
00001770  6c 6f 63 6b 20 4c 44 41  23 31 32 38 3a 4a 53 52  |lock LDA#128:JSR|
00001780  6f 73 77 72 63 68 0d 08  48 47 2e 63 75 72 64 65  |oswrch..HG.curde|
00001790  6c 20 4c 44 41 23 26 38  31 3a 4c 44 58 23 30 3a  |l LDA#&81:LDX#0:|
000017a0  4c 44 59 23 30 3a 4a 53  52 6f 73 62 79 74 65 3a  |LDY#0:JSRosbyte:|
000017b0  42 43 43 6b 65 79 70 72  6f 3a 2e 6e 6f 6d 6f 76  |BCCkeypro:.nomov|
000017c0  65 74 20 4a 4d 50 20 6e  6f 6d 6f 76 65 0d 08 52  |et JMP nomove..R|
000017d0  3d 2e 6b 65 79 70 72 6f  20 43 50 58 6b 6c 3a 42  |=.keypro CPXkl:B|
000017e0  4e 45 6e 6f 74 6b 6c 3a  4c 44 41 63 78 3a 42 45  |NEnotkl:LDAcx:BE|
000017f0  51 20 6e 6f 6d 6f 76 65  74 3a 44 45 43 63 78 3a  |Q nomovet:DECcx:|
00001800  4a 4d 50 6e 6f 6d 6f 76  65 74 0d 08 5c 42 2e 6e  |JMPnomovet..\B.n|
00001810  6f 74 6b 6c 20 43 50 58  6b 72 3a 42 4e 45 6e 6f  |otkl CPXkr:BNEno|
00001820  74 6b 72 3a 4c 44 41 63  78 3a 43 4d 50 23 33 39  |tkr:LDAcx:CMP#39|
00001830  3a 42 45 51 20 6e 6f 6d  6f 76 65 3a 49 4e 43 63  |:BEQ nomove:INCc|
00001840  78 3a 4a 4d 50 6e 6f 6d  6f 76 65 74 0d 08 66 3b  |x:JMPnomovet..f;|
00001850  2e 6e 6f 74 6b 72 20 43  50 58 6b 75 3a 42 4e 45  |.notkr CPXku:BNE|
00001860  6e 6f 74 6b 75 3a 4c 44  41 63 79 3a 42 45 51 20  |notku:LDAcy:BEQ |
00001870  6e 6f 6d 6f 76 65 3a 44  45 43 63 79 3a 4a 4d 50  |nomove:DECcy:JMP|
00001880  6e 6f 6d 6f 76 65 74 0d  08 70 41 2e 6e 6f 74 6b  |nomovet..pA.notk|
00001890  75 20 43 50 58 6b 64 3a  42 4e 45 6e 6f 74 6b 64  |u CPXkd:BNEnotkd|
000018a0  3a 4c 44 41 63 79 3a 43  4d 50 23 32 34 3a 42 45  |:LDAcy:CMP#24:BE|
000018b0  51 20 6e 6f 6d 6f 76 65  3a 49 4e 43 63 79 3a 4a  |Q nomove:INCcy:J|
000018c0  4d 50 6e 6f 6d 6f 76 65  0d 08 7a 95 2e 6e 6f 74  |MPnomove..z..not|
000018d0  6b 64 20 43 50 58 6b 73  3a 42 4e 45 6e 6f 74 6b  |kd CPXks:BNEnotk|
000018e0  73 3a 4c 44 41 6d 6f 6e  3a 43 4d 50 23 35 3a 42  |s:LDAmon:CMP#5:B|
000018f0  43 43 20 6e 6f 6d 6f 76  65 3a 4c 44 41 23 30 3a  |CC nomove:LDA#0:|
00001900  53 54 41 26 37 30 3a 4c  44 41 23 26 31 31 3a 53  |STA&70:LDA#&11:S|
00001910  54 41 26 37 31 3a 4c 44  41 63 78 3a 4c 44 59 63  |TA&71:LDAcx:LDYc|
00001920  79 3a 4a 53 52 67 65 74  61 64 3a 4c 44 41 23 31  |y:JSRgetad:LDA#1|
00001930  3a 53 54 41 28 26 37 30  29 2c 59 3a 4c 44 41 6d  |:STA(&70),Y:LDAm|
00001940  6f 6e 3a 53 45 43 3a 53  42 43 23 35 3a 53 54 41  |on:SEC:SBC#5:STA|
00001950  6d 6f 6e 3a 4a 4d 50 6e  6f 6d 6f 76 65 0d 08 84  |mon:JMPnomove...|
00001960  73 2e 6e 6f 74 6b 73 20  43 50 58 6b 63 3a 42 4e  |s.notks CPXkc:BN|
00001970  45 6e 6f 6d 6f 76 65 3a  4c 44 41 23 30 3a 53 54  |Enomove:LDA#0:ST|
00001980  41 26 37 30 3a 4c 44 41  23 26 31 31 3a 53 54 41  |A&70:LDA#&11:STA|
00001990  26 37 31 3a 4c 44 41 63  78 3a 4c 44 59 63 79 3a  |&71:LDAcx:LDYcy:|
000019a0  4a 53 52 67 65 74 61 64  3a 43 4d 50 23 31 3a 42  |JSRgetad:CMP#1:B|
000019b0  4e 45 6e 6f 6d 6f 76 65  3a 4c 44 41 23 30 3a 53  |NEnomove:LDA#0:S|
000019c0  54 41 28 26 37 30 29 2c  59 3a 49 4e 43 6d 6f 6e  |TA(&70),Y:INCmon|
000019d0  0d 08 8e 66 2e 6e 6f 6d  6f 76 65 20 4c 44 41 23  |...f.nomove LDA#|
000019e0  33 31 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |31:JSRoswrch:LDA|
000019f0  63 78 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |cx:JSRoswrch:LDA|
00001a00  63 79 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |cy:JSRoswrch:LDA|
00001a10  23 31 33 31 3a 4a 53 52  6f 73 77 72 63 68 3a 4c  |#131:JSRoswrch:L|
00001a20  44 41 23 26 31 35 3a 4c  44 58 23 30 3a 4a 4d 50  |DA#&15:LDX#0:JMP|
00001a30  6f 73 62 79 74 65 0d 08  98 0d 5d 3a 50 25 3d 26  |osbyte....]:P%=&|
00001a40  42 46 30 0d 08 a2 0d 5b  4f 50 54 20 70 61 73 73  |BF0....[OPT pass|
00001a50  0d 08 ac 0e 2e 63 78 20  45 51 55 42 20 30 0d 08  |.....cx EQUB 0..|
00001a60  b6 0e 2e 63 79 20 45 51  55 42 20 30 0d 08 c0 0f  |...cy EQUB 0....|
00001a70  2e 64 69 72 20 45 51 55  57 20 30 0d 08 ca 11 2e  |.dir EQUW 0.....|
00001a80  78 62 61 6c 6c 20 45 51  55 57 20 30 0d 08 d4 11  |xball EQUW 0....|
00001a90  2e 79 62 61 6c 6c 20 45  51 55 57 20 30 0d 08 de  |.yball EQUW 0...|
00001aa0  0f 2e 6d 6f 6e 20 45 51  55 42 20 30 0d 08 e8 10  |..mon EQUB 0....|
00001ab0  2e 64 65 61 64 20 45 51  55 42 20 30 0d 08 f2 10  |.dead EQUB 0....|
00001ac0  2e 6b 6c 20 45 51 55 53  20 22 5a 22 0d 08 fc 10  |.kl EQUS "Z"....|
00001ad0  2e 6b 72 20 45 51 55 53  20 22 58 22 0d 09 06 10  |.kr EQUS "X"....|
00001ae0  2e 6b 75 20 45 51 55 53  20 22 4b 22 0d 09 10 10  |.ku EQUS "K"....|
00001af0  2e 6b 64 20 45 51 55 53  20 22 4d 22 0d 09 1a 10  |.kd EQUS "M"....|
00001b00  2e 6b 73 20 45 51 55 53  20 22 4c 22 0d 09 24 10  |.ks EQUS "L"..$.|
00001b10  2e 6b 63 20 45 51 55 53  20 22 20 22 0d 09 2e 05  |.kc EQUS " "....|
00001b20  5d 0d 09 38 05 ed 0d 09  42 05 e1 0d 09 4c 05 3a  |]..8....B....L.:|
00001b30  0d 09 56 0b dd f2 72 65  6c 6f 63 0d 09 60 16 f1  |..V...reloc..`..|
00001b40  22 52 65 6c 6f 63 61 74  69 6e 67 2e 20 2e 20 2e  |"Relocating. . .|
00001b50  22 0d 09 6a 0b 3f 26 37  38 3d 34 35 0d 09 74 0b  |"..j.?&78=45..t.|
00001b60  d3 3d 26 35 38 30 30 0d  09 7e 14 e3 20 70 61 73  |.=&5800..~.. pas|
00001b70  73 3d 30 20 b8 20 32 20  88 20 32 0d 09 88 0b 50  |s=0 . 2 . 2....P|
00001b80  25 3d 26 43 30 30 0d 09  92 0c 5b 4f 50 54 70 61  |%=&C00....[OPTpa|
00001b90  73 73 0d 09 9c 0d 20 20  20 20 4c 44 59 23 30 0d  |ss....    LDY#0.|
00001ba0  09 a6 0e 20 20 20 20 53  54 59 26 37 30 0d 09 b0  |...    STY&70...|
00001bb0  0e 20 20 20 20 53 54 59  26 37 32 0d 09 ba 0f 20  |.    STY&72.... |
00001bc0  20 20 20 4c 44 41 23 26  31 43 0d 09 c4 0b 20 20  |   LDA#&1C....  |
00001bd0  20 20 53 45 43 0d 09 ce  0e 20 20 20 20 53 42 43  |  SEC....    SBC|
00001be0  26 31 38 0d 09 d8 0e 20  20 20 20 53 54 41 26 37  |&18....    STA&7|
00001bf0  34 0d 09 e2 0e 20 20 20  20 4c 44 41 26 31 38 0d  |4....    LDA&18.|
00001c00  09 ec 0f 20 20 20 20 43  4d 50 23 26 31 43 0d 09  |...    CMP#&1C..|
00001c10  f6 0d 20 20 20 20 42 43  43 61 64 0d 0a 00 0e 2e  |..    BCCad.....|
00001c20  73 62 20 53 54 41 26 37  31 0d 0a 0a 0f 20 20 20  |sb STA&71....   |
00001c30  20 4c 44 41 23 26 31 43  0d 0a 14 0e 20 20 20 20  | LDA#&1C....    |
00001c40  53 54 41 26 37 33 0d 0a  1e 12 2e 6d 31 20 4c 44  |STA&73.....m1 LD|
00001c50  41 28 26 37 30 29 2c 59  0d 0a 28 12 20 20 20 20  |A(&70),Y..(.    |
00001c60  53 54 41 28 26 37 32 29  2c 59 0d 0a 32 0b 20 20  |STA(&72),Y..2.  |
00001c70  20 20 49 4e 59 0d 0a 3c  0d 20 20 20 20 42 4e 45  |  INY..<.    BNE|
00001c80  6d 31 0d 0a 46 0e 20 20  20 20 49 4e 43 26 37 31  |m1..F.    INC&71|
00001c90  0d 0a 50 0e 20 20 20 20  49 4e 43 26 37 33 0d 0a  |..P.    INC&73..|
00001ca0  5a 0e 20 20 20 20 4c 44  58 26 37 31 0d 0a 64 0b  |Z.    LDX&71..d.|
00001cb0  20 20 20 20 44 45 58 0d  0a 6e 0e 20 20 20 20 43  |    DEX..n.    C|
00001cc0  50 58 26 30 33 0d 0a 78  0d 20 20 20 20 42 43 43  |PX&03..x.    BCC|
00001cd0  6d 31 0d 0a 82 0d 20 20  20 20 42 43 53 65 6d 0d  |m1....    BCSem.|
00001ce0  0a 8c 0e 2e 61 64 20 4c  44 41 26 30 33 0d 0a 96  |....ad LDA&03...|
00001cf0  0e 20 20 20 20 53 54 41  26 37 31 0d 0a a0 0b 20  |.    STA&71.... |
00001d00  20 20 20 43 4c 43 0d 0a  aa 0e 20 20 20 20 41 44  |   CLC....    AD|
00001d10  43 26 37 34 0d 0a b4 0e  20 20 20 20 53 54 41 26  |C&74....    STA&|
00001d20  37 33 0d 0a be 0d 20 20  20 20 4c 44 41 23 30 0d  |73....    LDA#0.|
00001d30  0a c8 0e 20 20 20 20 4c  44 59 26 30 32 0d 0a d2  |...    LDY&02...|
00001d40  12 2e 6d 32 20 4c 44 41  28 26 37 30 29 2c 59 0d  |..m2 LDA(&70),Y.|
00001d50  0a dc 12 20 20 20 20 53  54 41 28 26 37 32 29 2c  |...    STA(&72),|
00001d60  59 0d 0a e6 0b 20 20 20  20 44 45 59 0d 0a f0 0f  |Y....    DEY....|
00001d70  20 20 20 20 43 50 59 23  26 46 46 0d 0a fa 0d 20  |    CPY#&FF.... |
00001d80  20 20 20 42 4e 45 6d 32  0d 0b 04 0e 20 20 20 20  |   BNEm2....    |
00001d90  44 45 43 26 37 31 0d 0b  0e 0e 20 20 20 20 44 45  |DEC&71....    DE|
00001da0  43 26 37 33 0d 0b 18 0e  20 20 20 20 4c 44 41 26  |C&73....    LDA&|
00001db0  37 33 0d 0b 22 0f 20 20  20 20 43 4d 50 23 26 31  |73..".    CMP#&1|
00001dc0  36 0d 0b 2c 0d 20 20 20  20 42 43 53 6d 32 0d 0b  |6..,.    BCSm2..|
00001dd0  36 0e 2e 65 6d 20 4c 44  41 26 31 33 0d 0b 40 0b  |6..em LDA&13..@.|
00001de0  20 20 20 20 43 4c 43 0d  0b 4a 0e 20 20 20 20 41  |    CLC..J.    A|
00001df0  44 43 26 37 34 0d 0b 54  0e 20 20 20 20 53 54 41  |DC&74..T.    STA|
00001e00  26 31 33 0d 0b 5e 0e 20  20 20 20 53 54 41 26 30  |&13..^.    STA&0|
00001e10  31 0d 0b 68 0f 20 20 20  20 4c 44 41 23 26 31 43  |1..h.    LDA#&1C|
00001e20  0d 0b 72 0e 20 20 20 20  53 54 41 26 31 38 0d 0b  |..r.    STA&18..|
00001e30  7c 0b 20 20 20 20 52 54  53 0d 0b 86 05 5d 0d 0b  ||.    RTS....]..|
00001e40  90 05 ed 0d 0b 9a 08 ef  20 32 31 0d 0b a4 31 ff  |........ 21...1.|
00001e50  22 4b 45 59 20 30 22 22  43 41 4c 4c 26 43 30 30  |"KEY 0""CALL&C00|
00001e60  7c 4d 52 55 4e 7c 46 7c  4d 22 22 22 3a ff 22 46  ||MRUN|F|M""":."F|
00001e70  58 20 31 35 33 2c 30 2c  31 32 38 22 0d 0b ae 05  |X 153,0,128"....|
00001e80  e0 0d 0b b8 05 e1 0d ff                           |........|
00001e88

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