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:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Bounce/B6
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Bounce/B6
- Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/B6
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
r k$=�(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 
.