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

Bounce/B6

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/B6
Read OK:
File size: 184B bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
   10REM Bounce
   20REM by Dominic Ford 1996
   30:
   40IF NOT ((?&78=45) AND (PAGE=&1A00)) THEN MODE 6
   50PROCinit
   60A$="DEL.1680,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
  100DIM x(4),y(4),dir(4)
  110VDU 23,128,0,189,219,231,231,219,189,0
  120VDU 23,129,255,255,255,255,255,255,255,255
  130VDU 23,130,195,129,0,0,0,0,129,195
  140VDU 23,131,0,126,126,126,126,126,126,0
  150sound=TRUE
  160l%=ASC("Z"):r%=ASC("X"):u%=ASC("K"):d%=ASC("M"):s%=ASC("L"):c%=ASC(" ")
  170MODE 1
  180:
  190REPEAT
  200PROCtitle
  210VDU 19,1,1,0,0,0,0
  220VDU 19,2,2,0,0,0,0
  230IF k$=" " THEN PROCgame
  240UNTIL k$="Q" OR k$="q"
  250END
  260:
  270DEFPROCgame
  280lev%=0:scr%=0:live%=3:mon%=150
  290RESTORE
  300REPEAT
  310CLS
  320PROClevel
  330IF live%=-1 THEN lev%=21
  340UNTIL lev%=21
  350IF live%=-1 THEN PROC gameover:ENDPROC
  360PROCcongrat
  370ENDPROC
  380:
  390DEFPROClevel
  400VDU 23,1,0;0;0;0;
  410CLS
  420COLOUR 3:PRINTTAB(9,16)"Get Ready for Level ";lev%+1;"!"
  430FORc=0 TO 5
  440FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,c*4+col*8+100,1
  450VDU 19,3,col,0,0,0
  460nt=TIME+4
  470REPEAT UNTIL TIME>nt
  480NEXT,:CLS
  490REPEAT
  500VDU 19,3,2,0,0,0
  510GCOL 0,1:MOVE 0,128:MOVE 1280,128
  520PLOT 85,0,1024:PLOT 85,1280,1024
  530tim%=200:lev%=lev%+1:mon%=mon%+50:cx%=0:cy%=0
  540COLOUR1:PRINTTAB(0,0)CHR$131
  550FORad=&1100TO&14E8STEP4
  560!ad=0
  570NEXT
  580ad=&14C1+&40*lev%
  590l=?(ad-1)
  600FOR point=0 TO l
  610x=?ad:y=?(ad+1):ad=ad+2
  620PRINTTAB(x,y)CHR$128
  630?(&1100+x+y*40)=1
  640NEXT
  650FORbn=0TO1
  660x(bn)=?ad:y(bn)=?(ad+1):ad=ad+2
  670dir(bn)=0
  680NEXT
  690COLOUR 3
  700PRINTTAB(0,29)" Score   Lives   Screen   Time   Money"
  710REPEAT
  720nt%=TIME+25
  730COLOUR 3
  740PRINTTAB(2,30);scr%;TAB(11,30)live%;TAB(19,30)lev%;
  750PRINTTAB(27,30);tim%;" ";TAB(34,30);mon%;
  760COLOUR 1
  770PROCballs
  780PROCcursor
  790tim%=tim%-1
  800REPEAT UNTIL TIME>nt%
  810UNTIL tim%=-1 OR (x(0)=x(1) AND y(0)=y(1))
  820IF tim%<>-1 THEN UNTIL TRUE:PROClevelfin:ENDPROC
  830live%=live%-1
  840IF live%=-1 THEN UNTIL TRUE:ENDPROC
  850CLS:COLOUR 3:PRINTTAB(15,16);"Time Out!"
  860FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,0,7
  870FORcol=0 TO 7
  880VDU 19,3,col,0,0,0
  890nt=TIME+4
  900REPEAT UNTIL TIME>nt
  910NEXT,:CLS:lev%=lev%-1
  920UNTIL FALSE
  930ENDPROC
  940:
  950DEFPROClevelfin
  960CLS:COLOUR 3
  970PRINTTAB(4,16);"Congratulations: Level Complete"
  980FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
  990FORcol=0 TO 7
 1000VDU 19,3,col,0,0,0
 1010nt=TIME+4
 1020REPEAT UNTIL TIME>nt
 1030NEXT,:CLS
 1040ENDPROC
 1050:
 1060DEFPROCgameover
 1070CLS:COLOUR 3
 1080PRINTTAB(9,16)"That's it: Game Over!"
 1090FORc=0 TO 5
 1100FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,150-(c*4+col*8),1
 1110VDU 19,3,col,0,0,0
 1120nt=TIME+4
 1130REPEAT UNTIL TIME>nt
 1140NEXT,:CLS
 1150ENDPROC
 1160:
 1170DEFPROCcongrat
 1180CLS:COLOUR 3
 1190FORx=0 TO 5
 1200PRINTTAB(4,16);"Congratulations: Game Complete!"
 1210FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
 1220FORcol=0 TO 7
 1230VDU 19,3,col,0,0,0
 1240nt=TIME+4
 1250REPEAT UNTIL TIME>nt
 1260NEXT,,:CLS
 1270ENDPROC
 1280:
 1290DEFPROCballs
 1300FORbn=0TO1:s=TRUE
 1310IF x(bn)<>cx% OR y(bn)<>cy% THEN PRINTTAB(x(bn),y(bn))CHR$129
 1320IFy(bn)<>24AND?(&1128+x(bn)+y(bn)*40)=0ANDs=TRUE THENy(bn)=y(bn)+1:s=FALSE
 1330IFx(bn)<>0ANDdir(bn)=0AND?(&10FF+x(bn)+y(bn)*40)=0ANDs=TRUE THENx(bn)=x(bn)-1:s=FALSE
 1340IFx(bn)<>39ANDdir(bn)=1AND?(&1101+x(bn)+y(bn)*40)=0ANDs=TRUE THENx(bn)=x(bn)+1:s=FALSE
 1350IFs=TRUE THEN dir(bn)=dir(bn) EOR 1
 1360IF x(bn)<>cx% OR y(bn)<>cy% THEN PRINTTAB(x(bn),y(bn))CHR$130
 1370NEXT
 1380ENDPROC
 1390:
 1400DEFPROCcursor
 1410COLOUR 1
 1420IF ?(&1100+cx%+cy%*40)=0 THEN PRINTTAB(cx%,cy%)CHR$129 ELSE PRINTTAB(cx%,cy%)CHR$128
 1430k%=INKEY(0)
 1440IF k%=l% AND cx%>0 THEN cx%=cx%-1
 1450IF k%=r% AND cx%<39 THEN cx%=cx%+1
 1460IF k%=u% AND cy%>0 THEN cy%=cy%-1
 1470IF k%=d% AND cy%<19 THEN cy%=cy%+1
 1480IF k%=s% AND mon%>50 THEN ?(&1100+cx%+cy%*40)=1:mon%=mon%-50
 1490IF k%=c% AND mon%>25 THEN ?(&1100+cx%+cy%*40)=0:mon%=mon%-25
 1500PRINTTAB(cx%,cy%)CHR$131:*FX15,1
 1510ENDPROC
 1520:
 1530DEFPROCtitle
 1540col=0
 1550CALL&A00
 1560GCOL 0,0:VDU 5
 1570MOVE544,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"
 1580VDU 4
 1590REPEAT
 1600nt=TIME+10:col=((col+1) MOD 3)
 1610VDU 19,1,col+4,0,0,0,0
 1620VDU 19,2,((col+1) MOD 3)+4,0,0,0,0
 1630VDU 19,3,((col+2) MOD 3)+4,0,0,0,0
 1640REPEAT UNTIL TIME>nt
 1650k$=INKEY$(0)
 1660UNTIL k$="Q" OR k$="q" OR k$=" " OR k$="I" OR k$="i"
 1670ENDPROC
 1680:
 1690REM Level Data
 1700DATA 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
 1710DATA 14,9,15,9,16,9,17,8,18,9,19,8,8,0,19,0,255
 1720:
 1730DATA 0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0
 1740DATA 255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,-999
 1750:
 1760DEFPROCinit
 1770IF NOT ((?&78=45) AND (PAGE=&1A00)) THEN PRINT'"Please Wait. . ."':*TAPE
 1780IF PAGE<>&1A00 THEN PROCreloc
 1790VDU 6,11
 1800PRINT"Calculating sphere. . ."
 1810P%=&D00:p=0
 1820FORx=-78.75 TO 90 STEP 11.25
 1830FORy=22.5 TO 180 STEP 22.5:p=p+.78125
 1840[OPT 2
 1850EQUW INT(480*SIN(PI*(x-11.25)/180)*SIN(PI*y/180)+640)
 1860EQUW INT(60+(COS(PI*y/180)+1)*450)
 1870EQUW INT(480*SIN(PI*x/180)*SIN(PI*y/180)+640)
 1880EQUW INT(60+(COS(PI*y/180)+1)*450)
 1890]
 1900PRINTTAB(24,4)INT(p);"%"
 1910NEXT,
 1920PRINT"Moving level data. . .":ad=&1500
 1930REPEAT
 1940READ d
 1950IF d<>-999 THEN ?ad=d:ad=ad+1
 1960IF d=255 THEN ad=(ad+&40) AND &FFC0
 1970IF d<>-999 THEN UNTIL FALSE
 1980UNTIL TRUE
 1990PRINT"Assembling code. . .":PROCassemble
 2000PRINT"Removing source code. . ."
 2010ENDPROC
 2020:
 2030DEFPROCassemble
 2040oswrch=&FFEE
 2050FOR pass=0 TO 2 STEP 2
 2060P%=&A00
 2070[OPT pass
 2080.sphere LDY#0:STYcol:LDA#&C:STA&71:LDA#&F8:STA&70:LDX#0
 2090.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
 2100.colsub CMP #3:BCCcolgot:SEC:SBC#3:JMPcolsub
 2110.colgot CLC:ADC#1:JSRoswrch:LDY #0:TXA:AND#7:BEQnewxval
 2120LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2130INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:CPX#128:BNEpoint:RTS
 2140.newxval LDA#25:JSRoswrch:LDA#4:JSRoswrch:LDA#128:JSRoswrch:LDA#2:JSRoswrch:LDA#192:JSRoswrch:LDA#3:JSRoswrch:LDY#8
 2150LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
 2160INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
 2170.sendco JSRoswrch:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:JSRoswrch:INY:LDA(&70),Y:INY:JMPoswrch
 2180.col EQUB 0
 2190.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
 2200]
 2210NEXT:PRINT~P%
 2220ENDPROC
 2230:
 2240DEFPROCreloc
 2250PRINT"Relocating. . ."
 2260?&78=45
 2270HIMEM=&5800
 2280FOR pass=0 TO 2 STEP 2
 2290P%=&C00
 2300[OPTpass
 2310    LDY#0
 2320    STY&70
 2330    STY&72
 2340    LDA#&1A
 2350    SEC
 2360    SBC&18
 2370    STA&74
 2380    LDA&18
 2390    CMP#&1A
 2400    BCCad
 2410.sb STA&71
 2420    LDA#&1A
 2430    STA&73
 2440.m1 LDA(&70),Y
 2450    STA(&72),Y
 2460    INY
 2470    BNEm1
 2480    INC&71
 2490    INC&73
 2500    LDX&71
 2510    DEX
 2520    CPX&03
 2530    BCCm1
 2540    BCSem
 2550.ad LDA&03
 2560    STA&71
 2570    CLC
 2580    ADC&74
 2590    STA&73
 2600    LDA#0
 2610    LDY&02
 2620.m2 LDA(&70),Y
 2630    STA(&72),Y
 2640    DEY
 2650    CPY#&FF
 2660    BNEm2
 2670    DEC&71
 2680    DEC&73
 2690    LDA&73
 2700    CMP#&16
 2710    BCSm2
 2720.em LDA&13
 2730    CLC
 2740    ADC&74
 2750    STA&13
 2760    STA&01
 2770    LDA#&1A
 2780    STA&18
 2790    RTS
 2800]
 2810NEXT
 2820VDU 21
 2830OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
 2840END
 2850ENDPROC

� Bounce
� by Dominic Ford 1996
:
(%� � ((?&78=45) � (�=&1A00)) � � 6
2	�init
<_A$="DEL.1680,9999"+�13+"GOTO90"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
F�
P:
Z� 6
d� x(4),y(4),dir(4)
n(� 23,128,0,189,219,231,231,219,189,0
x,� 23,129,255,255,255,255,255,255,255,255
�$� 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
�:
��
�
�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:mon%=150
"�
,�
6�
@
�level
J� live%=-1 � lev%=21
T
� lev%=21
^� live%=-1 � � gameover:�
h�congrat
r�
|:
���level
�� 23,1,0;0;0;0;
��
�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
1tim%=200:lev%=lev%+1:mon%=mon%+50:cx%=0:cy%=0
�1:�0,0)�131
&�ad=&1100�&14E8�4
0	!ad=0
:�
Dad=&14C1+&40*lev%
N
l=?(ad-1)
X� point=0 � l
bx=?ad:y=?(ad+1):ad=ad+2
l�x,y)�128
v?(&1100+x+y*40)=1
��
��bn=0�1
�#x(bn)=?ad:y(bn)=?(ad+1):ad=ad+2
�
dir(bn)=0
��
�� 3
�3�0,29)" Score   Lives   Screen   Time   Money"
��
�nt%=�+25
�� 3
�*�2,30);scr%;�11,30)live%;�19,30)lev%;
�#�27,30);tim%;" ";�34,30);mon%;
�� 1

�balls
�cursor
tim%=tim%-1
 
� � �>nt%
*'� tim%=-1 � (x(0)=x(1) � y(0)=y(1))
4 � tim%<>-1 � � �:�levelfin:�
>live%=live%-1
H� live%=-1 � � �:�
R�:� 3:�15,16);"Time Out!"
\$�c=0 � 5:� sound=� � � 1,-15,0,7
f�col=0 � 7
p� 19,3,col,0,0,0
z
nt=�+4
�� � �>nt
��,:�:lev%=lev%-1
�� �
��
�:
���levelfin
�	�:� 3
�-�4,16);"Congratulations: Level Complete"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
�,:�
�
:
$��gameover
.	�:� 3
8"�9,16)"That's it: Game Over!"
B�c=0 � 5
L4�col=0 � 7:� sound=� � � 1,-15,150-(c*4+col*8),1
V� 19,3,col,0,0,0
`
nt=�+4
j� � �>nt
t�,:�
~�
�:
�
��congrat
�	�:� 3
��x=0 � 5
�-�4,16);"Congratulations: Game Complete!"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
�	�,,:�
��
:

��balls
�bn=0�1:s=�
2� x(bn)<>cx% � y(bn)<>cy% � �x(bn),y(bn))�129
(?�y(bn)<>24�?(&1128+x(bn)+y(bn)*40)=0�s=� �y(bn)=y(bn)+1:s=�
2H�x(bn)<>0�dir(bn)=0�?(&10FF+x(bn)+y(bn)*40)=0�s=� �x(bn)=x(bn)-1:s=�
<I�x(bn)<>39�dir(bn)=1�?(&1101+x(bn)+y(bn)*40)=0�s=� �x(bn)=x(bn)+1:s=�
F�s=� � dir(bn)=dir(bn) � 1
P2� x(bn)<>cx% � y(bn)<>cy% � �x(bn),y(bn))�130
Z�
d�
n:
x��cursor
�� 1
�=� ?(&1100+cx%+cy%*40)=0 � �cx%,cy%)�129 � �cx%,cy%)�128
�k%=�(0)
�� k%=l% � cx%>0 � cx%=cx%-1
� � k%=r% � cx%<39 � cx%=cx%+1
�� k%=u% � cy%>0 � cy%=cy%-1
� � k%=d% � cy%<19 � cy%=cy%+1
�:� k%=s% � mon%>50 � ?(&1100+cx%+cy%*40)=1:mon%=mon%-50
�:� k%=c% � mon%>25 � ?(&1100+cx%+cy%*40)=0:mon%=mon%-25
��cx%,cy%)�131:*FX15,1
��
�:
���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
6�
@nt=�+10:col=((col+1) � 3)
J� 19,1,col+4,0,0,0,0
T"� 19,2,((col+1) � 3)+4,0,0,0,0
^"� 19,3,((col+2) � 3)+4,0,0,0,0
h� � �>nt
rk$=�(0)
|0� k$="Q" � k$="q" � k$=" " � k$="I" � k$="i"
��
�:
�� 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) � (�=&1A00)) � �'"Please Wait. . ."':*TAPE
�� �<>&1A00 � �reloc
�
� 6,11
�"Calculating sphere. . ."
P%=&D00:p=0
�x=-78.75 � 90 � 11.25
&#�y=22.5 � 180 � 22.5:p=p+.78125
0
[OPT 2
:1EQUW �(480*�(�*(x-11.25)/180)*�(�*y/180)+640)
D!EQUW �(60+(�(�*y/180)+1)*450)
N)EQUW �(480*�(�*x/180)*�(�*y/180)+640)
X!EQUW �(60+(�(�*y/180)+1)*450)
b]
l�24,4)�(p);"%"
v�,
�&�"Moving level data. . .":ad=&1500
��
�� 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
� 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
40.colsub CMP #3:BCCcolgot:SEC:SBC#3:JMPcolsub
>9.colgot CLC:ADC#1:JSRoswrch:LDY #0:TXA:�#7:BEQnewxval
H�LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
RHINX: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
fFLDA#25:JSRoswrch:LDA#4:JSRsendco:LDA#25:JSRoswrch:LDA#85:JSRsendco
p<INX:LDA&70:CLC:ADC#8:STA&70:LDA&71:ADC#0:STA&71:JMPpoint
zy.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
�$.seq EQUB 1:EQUB 3:EQUB 2:EQUB 3
�]
�
�:�~P%
��
�:
���reloc
��"Relocating. . ."
�?&78=45
��=&5800
�� pass=0 � 2 � 2
�P%=&C00
�[OPTpass
	
    LDY#0
	    STY&70
	    STY&72
	$    LDA#&1A
	.    SEC
	8    SBC&18
	B    STA&74
	L    LDA&18
	V    CMP#&1A
	`
    BCCad
	j.sb STA&71
	t    LDA#&1A
	~    STA&73
	�.m1 LDA(&70),Y
	�    STA(&72),Y
	�    INY
	�
    BNEm1
	�    INC&71
	�    INC&73
	�    LDX&71
	�    DEX
	�    CPX&03
	�
    BCCm1
	�
    BCSem
	�.ad LDA&03
    STA&71

    CLC
    ADC&74
    STA&73
(
    LDA#0
2    LDY&02
<.m2 LDA(&70),Y
F    STA(&72),Y
P    DEY
Z    CPY#&FF
d
    BNEm2
n    DEC&71
x    DEC&73
�    LDA&73
�    CMP#&16
�
    BCSm2
�.em LDA&13
�    CLC
�    ADC&74
�    STA&13
�    STA&01
�    LDA#&1A
�    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 41 30 30  29 29 20 8c 20 eb 20 36  |(.=&1A00)) . . 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 36 38  30 2c 39 39 39 39 22 2b  |"DEL.1680,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 16 de 20 78  |.:..Z.. 6..d.. x|
000000d0  28 34 29 2c 79 28 34 29  2c 64 69 72 28 34 29 0d  |(4),y(4),dir(4).|
000000e0  00 6e 28 ef 20 32 33 2c  31 32 38 2c 30 2c 31 38  |.n(. 23,128,0,18|
000000f0  39 2c 32 31 39 2c 32 33  31 2c 32 33 31 2c 32 31  |9,219,231,231,21|
00000100  39 2c 31 38 39 2c 30 0d  00 78 2c ef 20 32 33 2c  |9,189,0..x,. 23,|
00000110  31 32 39 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |129,255,255,255,|
00000120  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000130  32 35 35 0d 00 82 24 ef  20 32 33 2c 31 33 30 2c  |255...$. 23,130,|
00000140  31 39 35 2c 31 32 39 2c  30 2c 30 2c 30 2c 30 2c  |195,129,0,0,0,0,|
00000150  31 32 39 2c 31 39 35 0d  00 8c 28 ef 20 32 33 2c  |129,195...(. 23,|
00000160  31 33 31 2c 30 2c 31 32  36 2c 31 32 36 2c 31 32  |131,0,126,126,12|
00000170  36 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 30 0d  |6,126,126,126,0.|
00000180  00 96 0b 73 6f 75 6e 64  3d b9 0d 00 a0 3f 6c 25  |...sound=....?l%|
00000190  3d 97 28 22 5a 22 29 3a  72 25 3d 97 28 22 58 22  |=.("Z"):r%=.("X"|
000001a0  29 3a 75 25 3d 97 28 22  4b 22 29 3a 64 25 3d 97  |):u%=.("K"):d%=.|
000001b0  28 22 4d 22 29 3a 73 25  3d 97 28 22 4c 22 29 3a  |("M"):s%=.("L"):|
000001c0  63 25 3d 97 28 22 20 22  29 0d 00 aa 07 eb 20 31  |c%=.(" ")..... 1|
000001d0  0d 00 b4 05 3a 0d 00 be  05 f5 0d 00 c8 0a f2 74  |....:..........t|
000001e0  69 74 6c 65 0d 00 d2 14  ef 20 31 39 2c 31 2c 31  |itle..... 19,1,1|
000001f0  2c 30 2c 30 2c 30 2c 30  0d 00 dc 14 ef 20 31 39  |,0,0,0,0..... 19|
00000200  2c 32 2c 32 2c 30 2c 30  2c 30 2c 30 0d 00 e6 14  |,2,2,0,0,0,0....|
00000210  e7 20 6b 24 3d 22 20 22  20 8c 20 f2 67 61 6d 65  |. k$=" " . .game|
00000220  0d 00 f0 15 fd 20 6b 24  3d 22 51 22 20 84 20 6b  |..... k$="Q" . k|
00000230  24 3d 22 71 22 0d 00 fa  05 e0 0d 01 04 05 3a 0d  |$="q".........:.|
00000240  01 0e 0a dd f2 67 61 6d  65 0d 01 18 22 6c 65 76  |.....game..."lev|
00000250  25 3d 30 3a 73 63 72 25  3d 30 3a 6c 69 76 65 25  |%=0:scr%=0:live%|
00000260  3d 33 3a 6d 6f 6e 25 3d  31 35 30 0d 01 22 05 f7  |=3:mon%=150.."..|
00000270  0d 01 2c 05 f5 0d 01 36  05 db 0d 01 40 0a f2 6c  |..,....6....@..l|
00000280  65 76 65 6c 0d 01 4a 18  e7 20 6c 69 76 65 25 3d  |evel..J.. live%=|
00000290  2d 31 20 8c 20 6c 65 76  25 3d 32 31 0d 01 54 0d  |-1 . lev%=21..T.|
000002a0  fd 20 6c 65 76 25 3d 32  31 0d 01 5e 1d e7 20 6c  |. lev%=21..^.. l|
000002b0  69 76 65 25 3d 2d 31 20  8c 20 f2 20 67 61 6d 65  |ive%=-1 . . game|
000002c0  6f 76 65 72 3a e1 0d 01  68 0c f2 63 6f 6e 67 72  |over:...h..congr|
000002d0  61 74 0d 01 72 05 e1 0d  01 7c 05 3a 0d 01 86 0b  |at..r....|.:....|
000002e0  dd f2 6c 65 76 65 6c 0d  01 90 13 ef 20 32 33 2c  |..level..... 23,|
000002f0  31 2c 30 3b 30 3b 30 3b  30 3b 0d 01 9a 05 db 0d  |1,0;0;0;0;......|
00000300  01 a4 30 fb 20 33 3a f1  8a 39 2c 31 36 29 22 47  |..0. 3:..9,16)"G|
00000310  65 74 20 52 65 61 64 79  20 66 6f 72 20 4c 65 76  |et Ready for Lev|
00000320  65 6c 20 22 3b 6c 65 76  25 2b 31 3b 22 21 22 0d  |el ";lev%+1;"!".|
00000330  01 ae 0c e3 63 3d 30 20  b8 20 35 0d 01 b8 32 e3  |....c=0 . 5...2.|
00000340  63 6f 6c 3d 30 20 b8 20  37 3a e7 20 73 6f 75 6e  |col=0 . 7:. soun|
00000350  64 3d b9 20 8c 20 d4 20  31 2c 2d 31 35 2c 63 2a  |d=. . . 1,-15,c*|
00000360  34 2b 63 6f 6c 2a 38 2b  31 30 30 2c 31 0d 01 c2  |4+col*8+100,1...|
00000370  14 ef 20 31 39 2c 33 2c  63 6f 6c 2c 30 2c 30 2c  |.. 19,3,col,0,0,|
00000380  30 0d 01 cc 0a 6e 74 3d  91 2b 34 0d 01 d6 0c f5  |0....nt=.+4.....|
00000390  20 fd 20 91 3e 6e 74 0d  01 e0 08 ed 2c 3a db 0d  | . .>nt.....,:..|
000003a0  01 ea 05 f5 0d 01 f4 12  ef 20 31 39 2c 33 2c 32  |......... 19,3,2|
000003b0  2c 30 2c 30 2c 30 0d 01  fe 1c e6 20 30 2c 31 3a  |,0,0,0..... 0,1:|
000003c0  ec 20 30 2c 31 32 38 3a  ec 20 31 32 38 30 2c 31  |. 0,128:. 1280,1|
000003d0  32 38 0d 02 08 1e f0 20  38 35 2c 30 2c 31 30 32  |28..... 85,0,102|
000003e0  34 3a f0 20 38 35 2c 31  32 38 30 2c 31 30 32 34  |4:. 85,1280,1024|
000003f0  0d 02 12 31 74 69 6d 25  3d 32 30 30 3a 6c 65 76  |...1tim%=200:lev|
00000400  25 3d 6c 65 76 25 2b 31  3a 6d 6f 6e 25 3d 6d 6f  |%=lev%+1:mon%=mo|
00000410  6e 25 2b 35 30 3a 63 78  25 3d 30 3a 63 79 25 3d  |n%+50:cx%=0:cy%=|
00000420  30 0d 02 1c 11 fb 31 3a  f1 8a 30 2c 30 29 bd 31  |0.....1:..0,0).1|
00000430  33 31 0d 02 26 15 e3 61  64 3d 26 31 31 30 30 b8  |31..&..ad=&1100.|
00000440  26 31 34 45 38 88 34 0d  02 30 09 21 61 64 3d 30  |&14E8.4..0.!ad=0|
00000450  0d 02 3a 05 ed 0d 02 44  15 61 64 3d 26 31 34 43  |..:....D.ad=&14C|
00000460  31 2b 26 34 30 2a 6c 65  76 25 0d 02 4e 0d 6c 3d  |1+&40*lev%..N.l=|
00000470  3f 28 61 64 2d 31 29 0d  02 58 11 e3 20 70 6f 69  |?(ad-1)..X.. poi|
00000480  6e 74 3d 30 20 b8 20 6c  0d 02 62 1b 78 3d 3f 61  |nt=0 . l..b.x=?a|
00000490  64 3a 79 3d 3f 28 61 64  2b 31 29 3a 61 64 3d 61  |d:y=?(ad+1):ad=a|
000004a0  64 2b 32 0d 02 6c 0e f1  8a 78 2c 79 29 bd 31 32  |d+2..l...x,y).12|
000004b0  38 0d 02 76 15 3f 28 26  31 31 30 30 2b 78 2b 79  |8..v.?(&1100+x+y|
000004c0  2a 34 30 29 3d 31 0d 02  80 05 ed 0d 02 8a 0b e3  |*40)=1..........|
000004d0  62 6e 3d 30 b8 31 0d 02  94 23 78 28 62 6e 29 3d  |bn=0.1...#x(bn)=|
000004e0  3f 61 64 3a 79 28 62 6e  29 3d 3f 28 61 64 2b 31  |?ad:y(bn)=?(ad+1|
000004f0  29 3a 61 64 3d 61 64 2b  32 0d 02 9e 0d 64 69 72  |):ad=ad+2....dir|
00000500  28 62 6e 29 3d 30 0d 02  a8 05 ed 0d 02 b2 07 fb  |(bn)=0..........|
00000510  20 33 0d 02 bc 33 f1 8a  30 2c 32 39 29 22 20 53  | 3...3..0,29)" S|
00000520  63 6f 72 65 20 20 20 4c  69 76 65 73 20 20 20 53  |core   Lives   S|
00000530  63 72 65 65 6e 20 20 20  54 69 6d 65 20 20 20 4d  |creen   Time   M|
00000540  6f 6e 65 79 22 0d 02 c6  05 f5 0d 02 d0 0c 6e 74  |oney".........nt|
00000550  25 3d 91 2b 32 35 0d 02  da 07 fb 20 33 0d 02 e4  |%=.+25..... 3...|
00000560  2a f1 8a 32 2c 33 30 29  3b 73 63 72 25 3b 8a 31  |*..2,30);scr%;.1|
00000570  31 2c 33 30 29 6c 69 76  65 25 3b 8a 31 39 2c 33  |1,30)live%;.19,3|
00000580  30 29 6c 65 76 25 3b 0d  02 ee 23 f1 8a 32 37 2c  |0)lev%;...#..27,|
00000590  33 30 29 3b 74 69 6d 25  3b 22 20 22 3b 8a 33 34  |30);tim%;" ";.34|
000005a0  2c 33 30 29 3b 6d 6f 6e  25 3b 0d 02 f8 07 fb 20  |,30);mon%;..... |
000005b0  31 0d 03 02 0a f2 62 61  6c 6c 73 0d 03 0c 0b f2  |1.....balls.....|
000005c0  63 75 72 73 6f 72 0d 03  16 0f 74 69 6d 25 3d 74  |cursor....tim%=t|
000005d0  69 6d 25 2d 31 0d 03 20  0d f5 20 fd 20 91 3e 6e  |im%-1.. .. . .>n|
000005e0  74 25 0d 03 2a 27 fd 20  74 69 6d 25 3d 2d 31 20  |t%..*'. tim%=-1 |
000005f0  84 20 28 78 28 30 29 3d  78 28 31 29 20 80 20 79  |. (x(0)=x(1) . y|
00000600  28 30 29 3d 79 28 31 29  29 0d 03 34 20 e7 20 74  |(0)=y(1))..4 . t|
00000610  69 6d 25 3c 3e 2d 31 20  8c 20 fd 20 b9 3a f2 6c  |im%<>-1 . . .:.l|
00000620  65 76 65 6c 66 69 6e 3a  e1 0d 03 3e 11 6c 69 76  |evelfin:...>.liv|
00000630  65 25 3d 6c 69 76 65 25  2d 31 0d 03 48 16 e7 20  |e%=live%-1..H.. |
00000640  6c 69 76 65 25 3d 2d 31  20 8c 20 fd 20 b9 3a e1  |live%=-1 . . .:.|
00000650  0d 03 52 1e db 3a fb 20  33 3a f1 8a 31 35 2c 31  |..R..:. 3:..15,1|
00000660  36 29 3b 22 54 69 6d 65  20 4f 75 74 21 22 0d 03  |6);"Time Out!"..|
00000670  5c 24 e3 63 3d 30 20 b8  20 35 3a e7 20 73 6f 75  |\$.c=0 . 5:. sou|
00000680  6e 64 3d b9 20 8c 20 d4  20 31 2c 2d 31 35 2c 30  |nd=. . . 1,-15,0|
00000690  2c 37 0d 03 66 0e e3 63  6f 6c 3d 30 20 b8 20 37  |,7..f..col=0 . 7|
000006a0  0d 03 70 14 ef 20 31 39  2c 33 2c 63 6f 6c 2c 30  |..p.. 19,3,col,0|
000006b0  2c 30 2c 30 0d 03 7a 0a  6e 74 3d 91 2b 34 0d 03  |,0,0..z.nt=.+4..|
000006c0  84 0c f5 20 fd 20 91 3e  6e 74 0d 03 8e 14 ed 2c  |... . .>nt.....,|
000006d0  3a db 3a 6c 65 76 25 3d  6c 65 76 25 2d 31 0d 03  |:.:lev%=lev%-1..|
000006e0  98 07 fd 20 a3 0d 03 a2  05 e1 0d 03 ac 05 3a 0d  |... ..........:.|
000006f0  03 b6 0e dd f2 6c 65 76  65 6c 66 69 6e 0d 03 c0  |.....levelfin...|
00000700  09 db 3a fb 20 33 0d 03  ca 2d f1 8a 34 2c 31 36  |..:. 3...-..4,16|
00000710  29 3b 22 43 6f 6e 67 72  61 74 75 6c 61 74 69 6f  |);"Congratulatio|
00000720  6e 73 3a 20 4c 65 76 65  6c 20 43 6f 6d 70 6c 65  |ns: Level Comple|
00000730  74 65 22 0d 03 d4 2a e3  63 3d 30 20 b8 20 35 3a  |te"...*.c=0 . 5:|
00000740  e7 20 73 6f 75 6e 64 3d  b9 20 8c 20 d4 20 31 2c  |. sound=. . . 1,|
00000750  2d 31 35 2c 34 2b 63 2a  34 38 2c 31 30 0d 03 de  |-15,4+c*48,10...|
00000760  0e e3 63 6f 6c 3d 30 20  b8 20 37 0d 03 e8 14 ef  |..col=0 . 7.....|
00000770  20 31 39 2c 33 2c 63 6f  6c 2c 30 2c 30 2c 30 0d  | 19,3,col,0,0,0.|
00000780  03 f2 0a 6e 74 3d 91 2b  34 0d 03 fc 0c f5 20 fd  |...nt=.+4..... .|
00000790  20 91 3e 6e 74 0d 04 06  08 ed 2c 3a db 0d 04 10  | .>nt.....,:....|
000007a0  05 e1 0d 04 1a 05 3a 0d  04 24 0e dd f2 67 61 6d  |......:..$...gam|
000007b0  65 6f 76 65 72 0d 04 2e  09 db 3a fb 20 33 0d 04  |eover.....:. 3..|
000007c0  38 22 f1 8a 39 2c 31 36  29 22 54 68 61 74 27 73  |8"..9,16)"That's|
000007d0  20 69 74 3a 20 47 61 6d  65 20 4f 76 65 72 21 22  | it: Game Over!"|
000007e0  0d 04 42 0c e3 63 3d 30  20 b8 20 35 0d 04 4c 34  |..B..c=0 . 5..L4|
000007f0  e3 63 6f 6c 3d 30 20 b8  20 37 3a e7 20 73 6f 75  |.col=0 . 7:. sou|
00000800  6e 64 3d b9 20 8c 20 d4  20 31 2c 2d 31 35 2c 31  |nd=. . . 1,-15,1|
00000810  35 30 2d 28 63 2a 34 2b  63 6f 6c 2a 38 29 2c 31  |50-(c*4+col*8),1|
00000820  0d 04 56 14 ef 20 31 39  2c 33 2c 63 6f 6c 2c 30  |..V.. 19,3,col,0|
00000830  2c 30 2c 30 0d 04 60 0a  6e 74 3d 91 2b 34 0d 04  |,0,0..`.nt=.+4..|
00000840  6a 0c f5 20 fd 20 91 3e  6e 74 0d 04 74 08 ed 2c  |j.. . .>nt..t..,|
00000850  3a db 0d 04 7e 05 e1 0d  04 88 05 3a 0d 04 92 0d  |:...~......:....|
00000860  dd f2 63 6f 6e 67 72 61  74 0d 04 9c 09 db 3a fb  |..congrat.....:.|
00000870  20 33 0d 04 a6 0c e3 78  3d 30 20 b8 20 35 0d 04  | 3.....x=0 . 5..|
00000880  b0 2d f1 8a 34 2c 31 36  29 3b 22 43 6f 6e 67 72  |.-..4,16);"Congr|
00000890  61 74 75 6c 61 74 69 6f  6e 73 3a 20 47 61 6d 65  |atulations: Game|
000008a0  20 43 6f 6d 70 6c 65 74  65 21 22 0d 04 ba 2a e3  | Complete!"...*.|
000008b0  63 3d 30 20 b8 20 35 3a  e7 20 73 6f 75 6e 64 3d  |c=0 . 5:. sound=|
000008c0  b9 20 8c 20 d4 20 31 2c  2d 31 35 2c 34 2b 63 2a  |. . . 1,-15,4+c*|
000008d0  34 38 2c 31 30 0d 04 c4  0e e3 63 6f 6c 3d 30 20  |48,10.....col=0 |
000008e0  b8 20 37 0d 04 ce 14 ef  20 31 39 2c 33 2c 63 6f  |. 7..... 19,3,co|
000008f0  6c 2c 30 2c 30 2c 30 0d  04 d8 0a 6e 74 3d 91 2b  |l,0,0,0....nt=.+|
00000900  34 0d 04 e2 0c f5 20 fd  20 91 3e 6e 74 0d 04 ec  |4..... . .>nt...|
00000910  09 ed 2c 2c 3a db 0d 04  f6 05 e1 0d 05 00 05 3a  |..,,:..........:|
00000920  0d 05 0a 0b dd f2 62 61  6c 6c 73 0d 05 14 0f e3  |......balls.....|
00000930  62 6e 3d 30 b8 31 3a 73  3d b9 0d 05 1e 32 e7 20  |bn=0.1:s=....2. |
00000940  78 28 62 6e 29 3c 3e 63  78 25 20 84 20 79 28 62  |x(bn)<>cx% . y(b|
00000950  6e 29 3c 3e 63 79 25 20  8c 20 f1 8a 78 28 62 6e  |n)<>cy% . ..x(bn|
00000960  29 2c 79 28 62 6e 29 29  bd 31 32 39 0d 05 28 3f  |),y(bn)).129..(?|
00000970  e7 79 28 62 6e 29 3c 3e  32 34 80 3f 28 26 31 31  |.y(bn)<>24.?(&11|
00000980  32 38 2b 78 28 62 6e 29  2b 79 28 62 6e 29 2a 34  |28+x(bn)+y(bn)*4|
00000990  30 29 3d 30 80 73 3d b9  20 8c 79 28 62 6e 29 3d  |0)=0.s=. .y(bn)=|
000009a0  79 28 62 6e 29 2b 31 3a  73 3d a3 0d 05 32 48 e7  |y(bn)+1:s=...2H.|
000009b0  78 28 62 6e 29 3c 3e 30  80 64 69 72 28 62 6e 29  |x(bn)<>0.dir(bn)|
000009c0  3d 30 80 3f 28 26 31 30  46 46 2b 78 28 62 6e 29  |=0.?(&10FF+x(bn)|
000009d0  2b 79 28 62 6e 29 2a 34  30 29 3d 30 80 73 3d b9  |+y(bn)*40)=0.s=.|
000009e0  20 8c 78 28 62 6e 29 3d  78 28 62 6e 29 2d 31 3a  | .x(bn)=x(bn)-1:|
000009f0  73 3d a3 0d 05 3c 49 e7  78 28 62 6e 29 3c 3e 33  |s=...<I.x(bn)<>3|
00000a00  39 80 64 69 72 28 62 6e  29 3d 31 80 3f 28 26 31  |9.dir(bn)=1.?(&1|
00000a10  31 30 31 2b 78 28 62 6e  29 2b 79 28 62 6e 29 2a  |101+x(bn)+y(bn)*|
00000a20  34 30 29 3d 30 80 73 3d  b9 20 8c 78 28 62 6e 29  |40)=0.s=. .x(bn)|
00000a30  3d 78 28 62 6e 29 2b 31  3a 73 3d a3 0d 05 46 1e  |=x(bn)+1:s=...F.|
00000a40  e7 73 3d b9 20 8c 20 64  69 72 28 62 6e 29 3d 64  |.s=. . dir(bn)=d|
00000a50  69 72 28 62 6e 29 20 82  20 31 0d 05 50 32 e7 20  |ir(bn) . 1..P2. |
00000a60  78 28 62 6e 29 3c 3e 63  78 25 20 84 20 79 28 62  |x(bn)<>cx% . y(b|
00000a70  6e 29 3c 3e 63 79 25 20  8c 20 f1 8a 78 28 62 6e  |n)<>cy% . ..x(bn|
00000a80  29 2c 79 28 62 6e 29 29  bd 31 33 30 0d 05 5a 05  |),y(bn)).130..Z.|
00000a90  ed 0d 05 64 05 e1 0d 05  6e 05 3a 0d 05 78 0c dd  |...d....n.:..x..|
00000aa0  f2 63 75 72 73 6f 72 0d  05 82 07 fb 20 31 0d 05  |.cursor..... 1..|
00000ab0  8c 3d e7 20 3f 28 26 31  31 30 30 2b 63 78 25 2b  |.=. ?(&1100+cx%+|
00000ac0  63 79 25 2a 34 30 29 3d  30 20 8c 20 f1 8a 63 78  |cy%*40)=0 . ..cx|
00000ad0  25 2c 63 79 25 29 bd 31  32 39 20 8b 20 f1 8a 63  |%,cy%).129 . ..c|
00000ae0  78 25 2c 63 79 25 29 bd  31 32 38 0d 05 96 0b 6b  |x%,cy%).128....k|
00000af0  25 3d a6 28 30 29 0d 05  a0 1f e7 20 6b 25 3d 6c  |%=.(0)..... k%=l|
00000b00  25 20 80 20 63 78 25 3e  30 20 8c 20 63 78 25 3d  |% . cx%>0 . cx%=|
00000b10  63 78 25 2d 31 0d 05 aa  20 e7 20 6b 25 3d 72 25  |cx%-1... . k%=r%|
00000b20  20 80 20 63 78 25 3c 33  39 20 8c 20 63 78 25 3d  | . cx%<39 . cx%=|
00000b30  63 78 25 2b 31 0d 05 b4  1f e7 20 6b 25 3d 75 25  |cx%+1..... k%=u%|
00000b40  20 80 20 63 79 25 3e 30  20 8c 20 63 79 25 3d 63  | . cy%>0 . cy%=c|
00000b50  79 25 2d 31 0d 05 be 20  e7 20 6b 25 3d 64 25 20  |y%-1... . k%=d% |
00000b60  80 20 63 79 25 3c 31 39  20 8c 20 63 79 25 3d 63  |. cy%<19 . cy%=c|
00000b70  79 25 2b 31 0d 05 c8 3a  e7 20 6b 25 3d 73 25 20  |y%+1...:. k%=s% |
00000b80  80 20 6d 6f 6e 25 3e 35  30 20 8c 20 3f 28 26 31  |. mon%>50 . ?(&1|
00000b90  31 30 30 2b 63 78 25 2b  63 79 25 2a 34 30 29 3d  |100+cx%+cy%*40)=|
00000ba0  31 3a 6d 6f 6e 25 3d 6d  6f 6e 25 2d 35 30 0d 05  |1:mon%=mon%-50..|
00000bb0  d2 3a e7 20 6b 25 3d 63  25 20 80 20 6d 6f 6e 25  |.:. k%=c% . mon%|
00000bc0  3e 32 35 20 8c 20 3f 28  26 31 31 30 30 2b 63 78  |>25 . ?(&1100+cx|
00000bd0  25 2b 63 79 25 2a 34 30  29 3d 30 3a 6d 6f 6e 25  |%+cy%*40)=0:mon%|
00000be0  3d 6d 6f 6e 25 2d 32 35  0d 05 dc 1a f1 8a 63 78  |=mon%-25......cx|
00000bf0  25 2c 63 79 25 29 bd 31  33 31 3a 2a 46 58 31 35  |%,cy%).131:*FX15|
00000c00  2c 31 0d 05 e6 05 e1 0d  05 f0 05 3a 0d 05 fa 0b  |,1.........:....|
00000c10  dd f2 74 69 74 6c 65 0d  06 04 09 63 6f 6c 3d 30  |..title....col=0|
00000c20  0d 06 0e 09 d6 26 41 30  30 0d 06 18 0d e6 20 30  |.....&A00..... 0|
00000c30  2c 30 3a ef 20 35 0d 06  22 83 ec 35 34 34 2c 38  |,0:. 5.."..544,8|
00000c40  39 36 3a f1 22 42 4f 55  4e 43 45 22 3a ec 33 32  |96:."BOUNCE":.32|
00000c50  30 2c 37 36 38 3a f1 22  62 79 20 44 6f 6d 69 6e  |0,768:."by Domin|
00000c60  69 63 20 46 6f 72 64 20  31 39 39 36 22 3a ec 34  |ic Ford 1996":.4|
00000c70  33 32 2c 35 34 34 3a f1  22 53 50 41 43 45 20 2d  |32,544:."SPACE -|
00000c80  20 53 74 61 72 74 22 3a  ec 35 36 30 2c 34 38 30  | Start":.560,480|
00000c90  3a f1 22 51 20 2d 20 51  75 69 74 22 3a ec 35 36  |:."Q - Quit":.56|
00000ca0  30 2c 34 31 36 3a f1 22  49 20 2d 20 49 6e 73 74  |0,416:."I - Inst|
00000cb0  72 75 63 74 69 6f 6e 73  22 0d 06 2c 07 ef 20 34  |ructions"..,.. 4|
00000cc0  0d 06 36 05 f5 0d 06 40  1d 6e 74 3d 91 2b 31 30  |..6....@.nt=.+10|
00000cd0  3a 63 6f 6c 3d 28 28 63  6f 6c 2b 31 29 20 83 20  |:col=((col+1) . |
00000ce0  33 29 0d 06 4a 18 ef 20  31 39 2c 31 2c 63 6f 6c  |3)..J.. 19,1,col|
00000cf0  2b 34 2c 30 2c 30 2c 30  2c 30 0d 06 54 22 ef 20  |+4,0,0,0,0..T". |
00000d00  31 39 2c 32 2c 28 28 63  6f 6c 2b 31 29 20 83 20  |19,2,((col+1) . |
00000d10  33 29 2b 34 2c 30 2c 30  2c 30 2c 30 0d 06 5e 22  |3)+4,0,0,0,0..^"|
00000d20  ef 20 31 39 2c 33 2c 28  28 63 6f 6c 2b 32 29 20  |. 19,3,((col+2) |
00000d30  83 20 33 29 2b 34 2c 30  2c 30 2c 30 2c 30 0d 06  |. 3)+4,0,0,0,0..|
00000d40  68 0c f5 20 fd 20 91 3e  6e 74 0d 06 72 0b 6b 24  |h.. . .>nt..r.k$|
00000d50  3d bf 28 30 29 0d 06 7c  30 fd 20 6b 24 3d 22 51  |=.(0)..|0. k$="Q|
00000d60  22 20 84 20 6b 24 3d 22  71 22 20 84 20 6b 24 3d  |" . k$="q" . k$=|
00000d70  22 20 22 20 84 20 6b 24  3d 22 49 22 20 84 20 6b  |" " . k$="I" . k|
00000d80  24 3d 22 69 22 0d 06 86  05 e1 0d 06 90 05 3a 0d  |$="i".........:.|
00000d90  06 9a 10 f4 20 4c 65 76  65 6c 20 44 61 74 61 0d  |.... Level Data.|
00000da0  06 a4 40 dc 20 31 38 2c  32 2c 32 2c 33 2c 33 2c  |..@. 18,2,2,3,3,|
00000db0  34 2c 33 2c 35 2c 33 2c  36 2c 33 2c 37 2c 33 2c  |4,3,5,3,6,3,7,3,|
00000dc0  38 2c 33 2c 38 2c 38 2c  39 2c 39 2c 31 30 2c 39  |8,3,8,8,9,9,10,9|
00000dd0  2c 31 31 2c 39 2c 31 32  2c 39 2c 31 33 2c 39 0d  |,11,9,12,9,13,9.|
00000de0  06 ae 30 dc 20 31 34 2c  39 2c 31 35 2c 39 2c 31  |..0. 14,9,15,9,1|
00000df0  36 2c 39 2c 31 37 2c 38  2c 31 38 2c 39 2c 31 39  |6,9,17,8,18,9,19|
00000e00  2c 38 2c 38 2c 30 2c 31  39 2c 30 2c 32 35 35 0d  |,8,8,0,19,0,255.|
00000e10  06 b8 05 3a 0d 06 c2 43  dc 20 30 2c 32 35 35 2c  |...:...C. 0,255,|
00000e20  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,255,0,255,0,25|
00000e30  35 2c 30 2c 32 35 35 2c  30 2c 32 35 35 2c 30 2c  |5,0,255,0,255,0,|
00000e40  32 35 35 2c 30 2c 32 35  35 2c 30 2c 32 35 35 2c  |255,0,255,0,255,|
00000e50  30 2c 32 35 35 2c 30 0d  06 cc 3a dc 20 32 35 35  |0,255,0...:. 255|
00000e60  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
00000e70  35 35 2c 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |55,0,255,0,255,0|
00000e80  2c 32 35 35 2c 30 2c 32  35 35 2c 30 2c 2d 39 39  |,255,0,255,0,-99|
00000e90  39 0d 06 d6 05 3a 0d 06  e0 0a dd f2 69 6e 69 74  |9....:......init|
00000ea0  0d 06 ea 3d e7 20 ac 20  28 28 3f 26 37 38 3d 34  |...=. . ((?&78=4|
00000eb0  35 29 20 80 20 28 90 3d  26 31 41 30 30 29 29 20  |5) . (.=&1A00)) |
00000ec0  8c 20 f1 27 22 50 6c 65  61 73 65 20 57 61 69 74  |. .'"Please Wait|
00000ed0  2e 20 2e 20 2e 22 27 3a  2a 54 41 50 45 0d 06 f4  |. . ."':*TAPE...|
00000ee0  17 e7 20 90 3c 3e 26 31  41 30 30 20 8c 20 f2 72  |.. .<>&1A00 . .r|
00000ef0  65 6c 6f 63 0d 06 fe 0a  ef 20 36 2c 31 31 0d 07  |eloc..... 6,11..|
00000f00  08 1e f1 22 43 61 6c 63  75 6c 61 74 69 6e 67 20  |..."Calculating |
00000f10  73 70 68 65 72 65 2e 20  2e 20 2e 22 0d 07 12 0f  |sphere. . ."....|
00000f20  50 25 3d 26 44 30 30 3a  70 3d 30 0d 07 1c 1a e3  |P%=&D00:p=0.....|
00000f30  78 3d 2d 37 38 2e 37 35  20 b8 20 39 30 20 88 20  |x=-78.75 . 90 . |
00000f40  31 31 2e 32 35 0d 07 26  23 e3 79 3d 32 32 2e 35  |11.25..&#.y=22.5|
00000f50  20 b8 20 31 38 30 20 88  20 32 32 2e 35 3a 70 3d  | . 180 . 22.5:p=|
00000f60  70 2b 2e 37 38 31 32 35  0d 07 30 0a 5b 4f 50 54  |p+.78125..0.[OPT|
00000f70  20 32 0d 07 3a 31 45 51  55 57 20 a8 28 34 38 30  | 2..:1EQUW .(480|
00000f80  2a b5 28 af 2a 28 78 2d  31 31 2e 32 35 29 2f 31  |*.(.*(x-11.25)/1|
00000f90  38 30 29 2a b5 28 af 2a  79 2f 31 38 30 29 2b 36  |80)*.(.*y/180)+6|
00000fa0  34 30 29 0d 07 44 21 45  51 55 57 20 a8 28 36 30  |40)..D!EQUW .(60|
00000fb0  2b 28 9b 28 af 2a 79 2f  31 38 30 29 2b 31 29 2a  |+(.(.*y/180)+1)*|
00000fc0  34 35 30 29 0d 07 4e 29  45 51 55 57 20 a8 28 34  |450)..N)EQUW .(4|
00000fd0  38 30 2a b5 28 af 2a 78  2f 31 38 30 29 2a b5 28  |80*.(.*x/180)*.(|
00000fe0  af 2a 79 2f 31 38 30 29  2b 36 34 30 29 0d 07 58  |.*y/180)+640)..X|
00000ff0  21 45 51 55 57 20 a8 28  36 30 2b 28 9b 28 af 2a  |!EQUW .(60+(.(.*|
00001000  79 2f 31 38 30 29 2b 31  29 2a 34 35 30 29 0d 07  |y/180)+1)*450)..|
00001010  62 05 5d 0d 07 6c 13 f1  8a 32 34 2c 34 29 a8 28  |b.]..l...24,4).(|
00001020  70 29 3b 22 25 22 0d 07  76 06 ed 2c 0d 07 80 26  |p);"%"..v..,...&|
00001030  f1 22 4d 6f 76 69 6e 67  20 6c 65 76 65 6c 20 64  |."Moving level d|
00001040  61 74 61 2e 20 2e 20 2e  22 3a 61 64 3d 26 31 35  |ata. . .":ad=&15|
00001050  30 30 0d 07 8a 05 f5 0d  07 94 07 f3 20 64 0d 07  |00.......... d..|
00001060  9e 1d e7 20 64 3c 3e 2d  39 39 39 20 8c 20 3f 61  |... d<>-999 . ?a|
00001070  64 3d 64 3a 61 64 3d 61  64 2b 31 0d 07 a8 21 e7  |d=d:ad=ad+1...!.|
00001080  20 64 3d 32 35 35 20 8c  20 61 64 3d 28 61 64 2b  | d=255 . ad=(ad+|
00001090  26 34 30 29 20 80 20 26  46 46 43 30 0d 07 b2 13  |&40) . &FFC0....|
000010a0  e7 20 64 3c 3e 2d 39 39  39 20 8c 20 fd 20 a3 0d  |. d<>-999 . . ..|
000010b0  07 bc 07 fd 20 b9 0d 07  c6 25 f1 22 41 73 73 65  |.... ....%."Asse|
000010c0  6d 62 6c 69 6e 67 20 63  6f 64 65 2e 20 2e 20 2e  |mbling code. . .|
000010d0  22 3a f2 61 73 73 65 6d  62 6c 65 0d 07 d0 20 f1  |":.assemble... .|
000010e0  22 52 65 6d 6f 76 69 6e  67 20 73 6f 75 72 63 65  |"Removing source|
000010f0  20 63 6f 64 65 2e 20 2e  20 2e 22 0d 07 da 05 e1  | code. . .".....|
00001100  0d 07 e4 05 3a 0d 07 ee  0e dd f2 61 73 73 65 6d  |....:......assem|
00001110  62 6c 65 0d 07 f8 10 6f  73 77 72 63 68 3d 26 46  |ble....oswrch=&F|
00001120  46 45 45 0d 08 02 14 e3  20 70 61 73 73 3d 30 20  |FEE..... pass=0 |
00001130  b8 20 32 20 88 20 32 0d  08 0c 0b 50 25 3d 26 41  |. 2 . 2....P%=&A|
00001140  30 30 0d 08 16 0d 5b 4f  50 54 20 70 61 73 73 0d  |00....[OPT pass.|
00001150  08 20 3b 2e 73 70 68 65  72 65 20 4c 44 59 23 30  |. ;.sphere LDY#0|
00001160  3a 53 54 59 63 6f 6c 3a  4c 44 41 23 26 43 3a 53  |:STYcol:LDA#&C:S|
00001170  54 41 26 37 31 3a 4c 44  41 23 26 46 38 3a 53 54  |TA&71:LDA#&F8:ST|
00001180  41 26 37 30 3a 4c 44 58  23 30 0d 08 2a 71 2e 70  |A&70:LDX#0..*q.p|
00001190  6f 69 6e 74 20 4c 44 41  63 6f 6c 3a 43 4c 43 3a  |oint LDAcol:CLC:|
000011a0  41 44 43 23 31 3a 80 23  33 3a 53 54 41 63 6f 6c  |ADC#1:.#3:STAcol|
000011b0  3a 4c 44 41 23 31 38 3a  4a 53 52 6f 73 77 72 63  |:LDA#18:JSRoswrc|
000011c0  68 3a 4c 44 41 23 30 3a  4a 53 52 6f 73 77 72 63  |h:LDA#0:JSRoswrc|
000011d0  68 3a 4c 44 59 63 6f 6c  3a 54 58 41 3a 4c 53 52  |h:LDYcol:TXA:LSR|
000011e0  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  | A:LSR A:LSR A:C|
000011f0  4c 43 3a 41 44 43 73 65  71 2c 59 0d 08 34 30 2e  |LC:ADCseq,Y..40.|
00001200  63 6f 6c 73 75 62 20 43  4d 50 20 23 33 3a 42 43  |colsub CMP #3:BC|
00001210  43 63 6f 6c 67 6f 74 3a  53 45 43 3a 53 42 43 23  |Ccolgot:SEC:SBC#|
00001220  33 3a 4a 4d 50 63 6f 6c  73 75 62 0d 08 3e 39 2e  |3:JMPcolsub..>9.|
00001230  63 6f 6c 67 6f 74 20 43  4c 43 3a 41 44 43 23 31  |colgot CLC:ADC#1|
00001240  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 59 20 23  |:JSRoswrch:LDY #|
00001250  30 3a 54 58 41 3a 80 23  37 3a 42 45 51 6e 65 77  |0:TXA:.#7:BEQnew|
00001260  78 76 61 6c 0d 08 48 89  4c 44 41 23 32 35 3a 4a  |xval..H.LDA#25:J|
00001270  53 52 6f 73 77 72 63 68  3a 4c 44 41 23 34 3a 4a  |SRoswrch:LDA#4:J|
00001280  53 52 73 65 6e 64 63 6f  3a 4c 44 41 23 32 35 3a  |SRsendco:LDA#25:|
00001290  4a 53 52 6f 73 77 72 63  68 3a 4c 44 41 23 34 3a  |JSRoswrch:LDA#4:|
000012a0  4a 53 52 73 65 6e 64 63  6f 3a 4c 44 41 23 32 35  |JSRsendco:LDA#25|
000012b0  3a 4a 53 52 6f 73 77 72  63 68 3a 4c 44 41 23 38  |:JSRoswrch:LDA#8|
000012c0  35 3a 4a 53 52 73 65 6e  64 63 6f 3a 4c 44 41 23  |5:JSRsendco:LDA#|
000012d0  32 35 3a 4a 53 52 6f 73  77 72 63 68 3a 4c 44 41  |25:JSRoswrch:LDA|
000012e0  23 38 35 3a 4a 53 52 73  65 6e 64 63 6f 0d 08 52  |#85:JSRsendco..R|
000012f0  48 49 4e 58 3a 4c 44 41  26 37 30 3a 43 4c 43 3a  |HINX:LDA&70:CLC:|
00001300  41 44 43 23 38 3a 53 54  41 26 37 30 3a 4c 44 41  |ADC#8:STA&70:LDA|
00001310  26 37 31 3a 41 44 43 23  30 3a 53 54 41 26 37 31  |&71:ADC#0:STA&71|
00001320  3a 43 50 58 23 31 32 38  3a 42 4e 45 70 6f 69 6e  |:CPX#128:BNEpoin|
00001330  74 3a 52 54 53 0d 08 5c  77 2e 6e 65 77 78 76 61  |t:RTS..\w.newxva|
00001340  6c 20 4c 44 41 23 32 35  3a 4a 53 52 6f 73 77 72  |l LDA#25:JSRoswr|
00001350  63 68 3a 4c 44 41 23 34  3a 4a 53 52 6f 73 77 72  |ch:LDA#4:JSRoswr|
00001360  63 68 3a 4c 44 41 23 31  32 38 3a 4a 53 52 6f 73  |ch:LDA#128:JSRos|
00001370  77 72 63 68 3a 4c 44 41  23 32 3a 4a 53 52 6f 73  |wrch:LDA#2:JSRos|
00001380  77 72 63 68 3a 4c 44 41  23 31 39 32 3a 4a 53 52  |wrch:LDA#192:JSR|
00001390  6f 73 77 72 63 68 3a 4c  44 41 23 33 3a 4a 53 52  |oswrch:LDA#3:JSR|
000013a0  6f 73 77 72 63 68 3a 4c  44 59 23 38 0d 08 66 46  |oswrch:LDY#8..fF|
000013b0  4c 44 41 23 32 35 3a 4a  53 52 6f 73 77 72 63 68  |LDA#25:JSRoswrch|
000013c0  3a 4c 44 41 23 34 3a 4a  53 52 73 65 6e 64 63 6f  |:LDA#4:JSRsendco|
000013d0  3a 4c 44 41 23 32 35 3a  4a 53 52 6f 73 77 72 63  |:LDA#25:JSRoswrc|
000013e0  68 3a 4c 44 41 23 38 35  3a 4a 53 52 73 65 6e 64  |h:LDA#85:JSRsend|
000013f0  63 6f 0d 08 70 3c 49 4e  58 3a 4c 44 41 26 37 30  |co..p<INX:LDA&70|
00001400  3a 43 4c 43 3a 41 44 43  23 38 3a 53 54 41 26 37  |:CLC:ADC#8:STA&7|
00001410  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 30 3a 53  |0:LDA&71:ADC#0:S|
00001420  54 41 26 37 31 3a 4a 4d  50 70 6f 69 6e 74 0d 08  |TA&71:JMPpoint..|
00001430  7a 79 2e 73 65 6e 64 63  6f 20 4a 53 52 6f 73 77  |zy.sendco JSRosw|
00001440  72 63 68 3a 4c 44 41 28  26 37 30 29 2c 59 3a 4a  |rch:LDA(&70),Y:J|
00001450  53 52 6f 73 77 72 63 68  3a 49 4e 59 3a 4c 44 41  |SRoswrch:INY:LDA|
00001460  28 26 37 30 29 2c 59 3a  4a 53 52 6f 73 77 72 63  |(&70),Y:JSRoswrc|
00001470  68 3a 49 4e 59 3a 4c 44  41 28 26 37 30 29 2c 59  |h:INY:LDA(&70),Y|
00001480  3a 4a 53 52 6f 73 77 72  63 68 3a 49 4e 59 3a 4c  |:JSRoswrch:INY:L|
00001490  44 41 28 26 37 30 29 2c  59 3a 49 4e 59 3a 4a 4d  |DA(&70),Y:INY:JM|
000014a0  50 6f 73 77 72 63 68 0d  08 84 0f 2e 63 6f 6c 20  |Poswrch.....col |
000014b0  45 51 55 42 20 30 0d 08  8e 24 2e 73 65 71 20 45  |EQUB 0...$.seq E|
000014c0  51 55 42 20 31 3a 45 51  55 42 20 33 3a 45 51 55  |QUB 1:EQUB 3:EQU|
000014d0  42 20 32 3a 45 51 55 42  20 33 0d 08 98 05 5d 0d  |B 2:EQUB 3....].|
000014e0  08 a2 0a ed 3a f1 7e 50  25 0d 08 ac 05 e1 0d 08  |....:.~P%.......|
000014f0  b6 05 3a 0d 08 c0 0b dd  f2 72 65 6c 6f 63 0d 08  |..:......reloc..|
00001500  ca 16 f1 22 52 65 6c 6f  63 61 74 69 6e 67 2e 20  |..."Relocating. |
00001510  2e 20 2e 22 0d 08 d4 0b  3f 26 37 38 3d 34 35 0d  |. ."....?&78=45.|
00001520  08 de 0b d3 3d 26 35 38  30 30 0d 08 e8 14 e3 20  |....=&5800..... |
00001530  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 08  |pass=0 . 2 . 2..|
00001540  f2 0b 50 25 3d 26 43 30  30 0d 08 fc 0c 5b 4f 50  |..P%=&C00....[OP|
00001550  54 70 61 73 73 0d 09 06  0d 20 20 20 20 4c 44 59  |Tpass....    LDY|
00001560  23 30 0d 09 10 0e 20 20  20 20 53 54 59 26 37 30  |#0....    STY&70|
00001570  0d 09 1a 0e 20 20 20 20  53 54 59 26 37 32 0d 09  |....    STY&72..|
00001580  24 0f 20 20 20 20 4c 44  41 23 26 31 41 0d 09 2e  |$.    LDA#&1A...|
00001590  0b 20 20 20 20 53 45 43  0d 09 38 0e 20 20 20 20  |.    SEC..8.    |
000015a0  53 42 43 26 31 38 0d 09  42 0e 20 20 20 20 53 54  |SBC&18..B.    ST|
000015b0  41 26 37 34 0d 09 4c 0e  20 20 20 20 4c 44 41 26  |A&74..L.    LDA&|
000015c0  31 38 0d 09 56 0f 20 20  20 20 43 4d 50 23 26 31  |18..V.    CMP#&1|
000015d0  41 0d 09 60 0d 20 20 20  20 42 43 43 61 64 0d 09  |A..`.    BCCad..|
000015e0  6a 0e 2e 73 62 20 53 54  41 26 37 31 0d 09 74 0f  |j..sb STA&71..t.|
000015f0  20 20 20 20 4c 44 41 23  26 31 41 0d 09 7e 0e 20  |    LDA#&1A..~. |
00001600  20 20 20 53 54 41 26 37  33 0d 09 88 12 2e 6d 31  |   STA&73.....m1|
00001610  20 4c 44 41 28 26 37 30  29 2c 59 0d 09 92 12 20  | LDA(&70),Y.... |
00001620  20 20 20 53 54 41 28 26  37 32 29 2c 59 0d 09 9c  |   STA(&72),Y...|
00001630  0b 20 20 20 20 49 4e 59  0d 09 a6 0d 20 20 20 20  |.    INY....    |
00001640  42 4e 45 6d 31 0d 09 b0  0e 20 20 20 20 49 4e 43  |BNEm1....    INC|
00001650  26 37 31 0d 09 ba 0e 20  20 20 20 49 4e 43 26 37  |&71....    INC&7|
00001660  33 0d 09 c4 0e 20 20 20  20 4c 44 58 26 37 31 0d  |3....    LDX&71.|
00001670  09 ce 0b 20 20 20 20 44  45 58 0d 09 d8 0e 20 20  |...    DEX....  |
00001680  20 20 43 50 58 26 30 33  0d 09 e2 0d 20 20 20 20  |  CPX&03....    |
00001690  42 43 43 6d 31 0d 09 ec  0d 20 20 20 20 42 43 53  |BCCm1....    BCS|
000016a0  65 6d 0d 09 f6 0e 2e 61  64 20 4c 44 41 26 30 33  |em.....ad LDA&03|
000016b0  0d 0a 00 0e 20 20 20 20  53 54 41 26 37 31 0d 0a  |....    STA&71..|
000016c0  0a 0b 20 20 20 20 43 4c  43 0d 0a 14 0e 20 20 20  |..    CLC....   |
000016d0  20 41 44 43 26 37 34 0d  0a 1e 0e 20 20 20 20 53  | ADC&74....    S|
000016e0  54 41 26 37 33 0d 0a 28  0d 20 20 20 20 4c 44 41  |TA&73..(.    LDA|
000016f0  23 30 0d 0a 32 0e 20 20  20 20 4c 44 59 26 30 32  |#0..2.    LDY&02|
00001700  0d 0a 3c 12 2e 6d 32 20  4c 44 41 28 26 37 30 29  |..<..m2 LDA(&70)|
00001710  2c 59 0d 0a 46 12 20 20  20 20 53 54 41 28 26 37  |,Y..F.    STA(&7|
00001720  32 29 2c 59 0d 0a 50 0b  20 20 20 20 44 45 59 0d  |2),Y..P.    DEY.|
00001730  0a 5a 0f 20 20 20 20 43  50 59 23 26 46 46 0d 0a  |.Z.    CPY#&FF..|
00001740  64 0d 20 20 20 20 42 4e  45 6d 32 0d 0a 6e 0e 20  |d.    BNEm2..n. |
00001750  20 20 20 44 45 43 26 37  31 0d 0a 78 0e 20 20 20  |   DEC&71..x.   |
00001760  20 44 45 43 26 37 33 0d  0a 82 0e 20 20 20 20 4c  | DEC&73....    L|
00001770  44 41 26 37 33 0d 0a 8c  0f 20 20 20 20 43 4d 50  |DA&73....    CMP|
00001780  23 26 31 36 0d 0a 96 0d  20 20 20 20 42 43 53 6d  |#&16....    BCSm|
00001790  32 0d 0a a0 0e 2e 65 6d  20 4c 44 41 26 31 33 0d  |2.....em LDA&13.|
000017a0  0a aa 0b 20 20 20 20 43  4c 43 0d 0a b4 0e 20 20  |...    CLC....  |
000017b0  20 20 41 44 43 26 37 34  0d 0a be 0e 20 20 20 20  |  ADC&74....    |
000017c0  53 54 41 26 31 33 0d 0a  c8 0e 20 20 20 20 53 54  |STA&13....    ST|
000017d0  41 26 30 31 0d 0a d2 0f  20 20 20 20 4c 44 41 23  |A&01....    LDA#|
000017e0  26 31 41 0d 0a dc 0e 20  20 20 20 53 54 41 26 31  |&1A....    STA&1|
000017f0  38 0d 0a e6 0b 20 20 20  20 52 54 53 0d 0a f0 05  |8....    RTS....|
00001800  5d 0d 0a fa 05 ed 0d 0b  04 08 ef 20 32 31 0d 0b  |].......... 21..|
00001810  0e 31 ff 22 4b 45 59 20  30 22 22 43 41 4c 4c 26  |.1."KEY 0""CALL&|
00001820  43 30 30 7c 4d 52 55 4e  7c 46 7c 4d 22 22 22 3a  |C00|MRUN|F|M""":|
00001830  ff 22 46 58 20 31 35 33  2c 30 2c 31 32 38 22 0d  |."FX 153,0,128".|
00001840  0b 18 05 e0 0d 0b 22 05  e1 0d ff                 |......"....|
0000184b