Home » Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/Laser5
Bounce/Laser5
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/Laser5 |
| Read OK: | ✔ |
| File size: | 1FBD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-28_D-EUG28.dsd » G.LASERDA
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_28.ADF » G/LaserD
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Bounce/Laser5
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Bounce/Laser5
- Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/Laser5
File contents
10REM LaserDarts
20REM by Dominic Ford
30:
40*TAPE
50IFPAGE<>&1100THENMODE6:PROCreloc
60PROCass:MODE6:PRINT"Please Wait. . ."
70A$="DEL.1540,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
80END
90:
100ON ERROR CLEAR:GOTO 90
110MODE1:VDU 23,128,96,80,200,255,200,80,96,0,23,129,6,10,19,255,19,10,6,0,23,1,0;0;0;0;19,1,4,0,0,0,0,19,2,2,0,0,0,0,19,3,1,0,0,0,0:DIMpix%(1,7),nam$(1):sound=TRUE
120REPEAT:PROCtitle
130IF k$=" " THEN opp=0:PROCgame
140IF k$="2" THEN opp=1:PROCgame
150UNTIL k$="Q" OR k$="q"
160MODE6:VDU23,1,1;0;0;0;0;:END
170:
180DEFPROCgame
190PROCnames:CLS:GCOL0,1:MOVE0,0:MOVE320,0:PLOT85,0,192:PLOT85,320,192:MOVE1280,1024:MOVE960,1024:PLOT85,1280,832:PLOT85,960,832:MOVE0,1024:MOVE320,1024:PLOT85,0,832:PLOT85,320,832:MOVE1280,0:MOVE1280,192:PLOT85,960,0:PLOT85,960,192
200lasa=10:lasb=10:COLOUR2:PRINTTAB(3,16);CHR$128;SPC(32);CHR$129;:stop=FALSE:scra%=2000:scrb%=2000:liva%=3:livb%=3:PROCscreen
210COLOUR129:PRINTTAB(1,1)"Player 1";TAB(31,1)"Player 2";TAB(2,27)"Score";TAB(1,30)"Lives ";TAB(32,27)"Score";TAB(31,30)"Lives ";TAB(14,0)"LASER DARTS";TAB(10,31)"by Dominic Ford 1996";
220PRINTTAB(5-INT(.5*LEN(nam$(0))),3)nam$(0);TAB(35-INT(.5*LEN(nam$(1))),3)nam$(1):COLOUR128:PRINTTAB(14,2)"25";TAB(12,3)"Points";TAB(22,2)"New";TAB(19,3)"Reflectors";TAB(19,28)"50";TAB(17,29)"Points"
230REPEAT
240PROCscore
250PROCmove(0):xl=0:yl=3+lasa*8:dl=2:pl=1:PROCtrace:PROCscore
260IF opp=0 AND stop=FALSE THENPROCcompmove ELSE IF stop=FALSE THEN PROCmove(1)
270IF stop=FALSE THENxl=252:yl=3+lasb*8:dl=0:pl=2:PROCtrace
280UNTIL stop=TRUE OR scra%=0 OR scrb%=0
290IF liva%<0 THEN scrb%=0
300IF livb%<0 THEN scra%=0
310IF scra%=0 AND opp=0 THEN PROCmess("Congratulations "+nam$(0)+"! You Win!")
320IF scrb%=0 AND opp=0 THEN PROCmess("I won!")
330IF scra%=0 AND opp=1 THEN PROCmess("Player 1 Wins! Congratulations "+nam$(0)+"!")
340IF scrb%=0 AND opp=1 THEN PROCmess("Player 2 Wins! Congratulations "+nam$(1)+"!")
350ENDPROC
360:
370DEFPROCmess(m$)
380VDU5:GCOL0,1:FORba=0TO16STEP4:MOVE640-16*LEN(m$)+ba,512+ba:PRINTm$:NEXT
390GCOL0,2:MOVE640-16*LEN(m$),512:PRINTm$:VDU4
400nt%=TIME+250:REPEAT UNTIL TIME>nt%
410ENDPROC
420:
430DEFPROCnames
440nam$(1)="Elk":CLS:FORnam=0TOopp
450REPEAT
460PRINT"Player ";nam+1;": What is your name";:INPUTnam$(nam)
470IF LEN(nam$(nam))>10 THEN PRINTnam$(nam);" is rather a long name isn't it? Can't you shorten it?":UNTIL FALSE
480IF LEN(nam$(nam))<1 THEN PRINT"Pardon?":UNTIL FALSE
490UNTIL TRUE
500NEXT
510ENDPROC
520:
530DEFPROCscreen
540FORad=&A00TO&BB8STEP4:!ad=0:NEXT:COLOUR3
550FORy=0TO19:PRINTTAB(10,y+6)STRING$(20," "):FORnam=0TO2:x=RND(20)-1:PRINTTAB(x+10,y+6);
560IFRND(2)=1THENPRINT"/":?(&A00+x+y*20)=1ELSEPRINT"\":?(&A00+x+y*20)=2
570NEXT,:FORx=0TO19:y=RND(20)-1:PRINTTAB(x+10,y+6);
580IFRND(2)=1THENPRINT"/":?(&A00+x+y*20)=1ELSEPRINT"\":?(&A00+x+y*20)=2
590NEXT
600ENDPROC
610:
620DEFPROCmove(opm)
630IF opm=0 THEN las=lasa:x=3 ELSE las=lasb:x=36
640COLOUR2:REPEAT:*FX15,0
650A$=GET$
660PRINTTAB(x,las+6);" "
670IF (A$="A" OR A$="a") AND las<>0 THEN las=las-1
680IF (A$="Z" OR A$="z") AND las<>19 THEN las=las+1
690PRINTTAB(x,las+6);CHR$(128+opm)
700UNTIL A$=CHR$13
710IF sound THEN*MOTOR1
720*MOTOR0
730IF opm=0 THEN lasa=las ELSE lasb=las
740ENDPROC
750:
760DEFPROCcompmove
770COLOUR3:COLOUR129:PROCcompplan
780COLOUR2:PRINTTAB(36,lasb+6);CHR$129
790ENDPROC
800:
810DEFPROCcompplan
820oppo=-1:top=-1:bot=-1:back=-1:self=-1
830FORys=0TO19:x=20:y=ys:PRINTTAB(34,4);(20-ys);" "
840move=0:ref=FALSE:end=FALSE:dl=0:REPEAT
850IFdl=0THENx=x-1
860IFdl=1THENy=y-1
870IFdl=2THENx=x+1
880IFdl=3THENy=y+1
890IF?(&A00+x+y*20)=1THENdl=dl EOR 3:ref=TRUE
900IF?(&A00+x+y*20)=2THENdl=dl EOR 1:ref=TRUE
910IFx=-1AND y=lasa THENend=TRUE:oppo=ys
920IFx=-1THENend=TRUE:IFref=TRUE THENback=ys
930IFx=20THENend=TRUE:self=ys
940IFy=-1THENend=TRUE:top=ys
950IFy=20THENend=TRUE:bot=ys
960move=move+1:UNTIL move=50 OR end=TRUE
970NEXT:PRINTTAB(34,4)" "
980COLOUR128:PRINTTAB(36,lasb+6);" "
990IFoppo<>-1THENlasb=oppo:ENDPROC
1000IFback<>-1ANDscrb%>100THENlasb=back:ENDPROC
1010IFbot<>-1ANDscrb%>50THENlasb=bot:ENDPROC
1020IFtop<>-1AND(scrb%>25 OR self=-1)THENlasb=top:ENDPROC
1030IFself<>-1THENy=self
1040ENDPROC
1050:
1060DEFPROCtrace
1070?&BC0=0:?&BC1=xl:?&BC2=yl:?&BC3=dl
1080COLOUR128:CALL&E00:REM"traceray"
1090xl=?&BC1:yl=(?&BC2 MOD 255)
1100sca%=scra%:scb%=scrb%
1110IF xl=0AND pl=1 THEN scra%=scra%+20:ENDPROC
1120IF xl>251AND pl=2 THEN scrb%=scrb%+20:ENDPROC
1130IF xl=0THEN scrb%=scrb%-100:IFINT((yl-3)/8)=lasa THENscrb%=scrb%-400:liva%=liva%-1:PROCscreen
1140IF xl>251THEN scra%=scra%-100:IFINT((yl-3)/8)=lasb THENscra%=scra%-400:livb%=livb%-1:PROCscreen
1150IF yl>157AND pl=1THEN scra%=scra%-50
1160IF yl>157AND pl=2THEN scrb%=scrb%-50
1170IF yl=0AND pl=1THEN scra%=scra%-25
1180IF yl=0AND pl=2THEN scrb%=scrb%-25
1190IF (yl=0)AND(RND(3)=2)THENPROCscreen
1200IF liva%<0 OR livb%<0 THEN stop=TRUE
1210IF scra%<0THEN scra%=sca%:IF sound THENFORb=0TO5:SOUND1,-15,0,2:SOUND1,0,0,2:NEXT
1220IF scrb%<0THEN scrb%=scb%:IF sound THENFORb=0TO5:SOUND1,-15,0,2:SOUND1,0,0,2:NEXT
1230ENDPROC
1240:
1250DEFPROCscore
1260COLOUR2:COLOUR129
1270PRINTTAB(2,28)" ";TAB(2,28)scra%
1280PRINTTAB(7,30)" ";TAB(7,30);liva%
1290PRINTTAB(32,28)" ";TAB(32,28)scrb%
1300PRINTTAB(37,30)" ";TAB(37,30);livb%
1310COLOUR128
1320ENDPROC
1330:
1340DEFPROCtitle
1350VDU19,3,1,0,0,0,0:*FX15,0
1360CLS:FORba=300TO1STEP-50:GCOL0,ba/50:MOVE400-ba,400:MOVE400,400+ba:PLOT85,400,400-ba:PLOT85,400+ba,400:NEXT:COLOUR131:RESTORE:FORyc=1TO5:READl$:FORxc=0TO39:IFMID$(l$,xc+1,1)="*"THENPRINTTAB(xc,yc)" "
1370NEXT,:COLOUR128:COLOUR1:PRINTTAB(10,9)"by Dominic Ford 1996":COLOUR2:PRINTTAB(23,20)"SPACE - Human/Elk";TAB(27,22)"2 - 2 Player";TAB(27,24)"Q - Quit";TAB(27,26);"S - Sound";TAB(25,16)"Sound:";TAB(32,16);
1380IF sound THENPRINT"On"ELSEPRINT"Off"
1390GCOL3,2:MOVE1180,1024:MOVE400,400:PLOT85,1380,1024:REPEAT:REPEAT:k$=INKEY$(0):UNTIL INSTR(" 2QqSs",k$)<>0 AND LEN(k$)>0
1400IFk$="S"ORk$="s"THENPROCsound:UNTILFALSE
1410UNTILTRUE
1420ENDPROC
1430:
1440DEFPROCsound
1450IF sound THEN sound=FALSE:PRINTTAB(32,16)"Off":ENDPROC
1460sound=TRUE:PRINTTAB(32,16)"On "
1470ENDPROC
1480:
1490DATA"* *** *** *** *** **** *** *** ******"
1500DATA"* * * * * * * * * * * * * * * "
1510DATA"* *** *** ** *** * * *** *** * ***"
1520DATA"* * * * * ** * * * * ** * *"
1530DATA"*** * * *** *** * * **** * * * * * ***"
1540:
1550DEFPROCass
1560osword=&FFF1:oswrch=&FFEE
1570FOR pass=0TO2STEP2
1580P%=&BC0
1590[OPT pass
1600.pla EQUB 0
1610.xla EQUB 0
1620.yla EQUB 0
1630.dla EQUB 0
1640.pn EQUB 0
1650.px EQUD 0:EQUD 0:EQUD 0:EQUD 0
1660.py EQUD 0:EQUD 0:EQUD 0:EQUD 0
1670.tim EQUD 0:EQUB 0
1680]:P%=&E00
1690[OPT pass
1700.traceray LDX#0
1710.startlop LDAxla:STApx,X:LDAyla:STApy,X:INX:CPX#8:BNEstartlop:LDA#0:STApn
1720.tracelop LDA#1:LDX#(tim MOD 256):LDY#(tim DIV 256):JSRosword:LDAtim:STA&74:LDAdla:BNEnotleft:LDAxla:SEC:SBC#2:STAxla:JMPmoved
1730.notleft CMP#1:BNEnotup:LDAyla:CLC:ADC#2:STAyla:JMPmoved
1740.notup CMP#2:BNEdown:LDAxla:CLC:ADC#2:STAxla:JMPmoved
1750.down LDAyla:SEC:SBC#2:STAyla
1760.moved JSRgetad:LDA(&70),Y:LDX&72:ANDscrbit,X:STA&73:AND#&F0:BEQnotref:LDA&73:AND#&0F:BEQnotref:JSRreflect
1770.notref INCpn:LDApn:AND#7:STApn:TAX:LDAxla:PHA:LDAyla:PHA:LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:EOR#&FF:AND(&70),Y:STA(&70),Y:LDXpn:PLA:STAyla:STApy,X:PLA:STAxla:STApx,X:JSRgetad:LDX&72
1780LDAscrbit,X:EOR#&FF:AND(&70),Y:STA(&70),Y:LDAscrbit,X:AND#&F0:CLC:ADC(&70),Y:STA(&70),Y:LDAxla:BEQfintr:CMP#252:BCSfintr:LDAyla:BEQfintr:CMP#158:BCSfintr
1790.waitlop LDA#1:LDX#(tim MOD 256):LDY#(tim DIV 256):JSRosword:LDAtim:CMP&74:BEQwaitlop:JMPtracelop
1800.fintr LDAxla:PHA:LDAyla:PHA:LDX#0:STXpn
1810.finlop LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:EOR#&FF:AND(&70),Y:STA(&70),Y:INCpn:LDXpn:CPX#8:BNEfinlop:PLA:STAyla:PLA:STAxla:RTS
1820:
1830.reflect LDAxla:CLC:ADC#&20:LSR A:LSR A:LSR A:SEC:SBC#10:STA&80:LDAyla:AND#&F8:PHA:LSR A:CLC:ADC&80:STA&80:PLA:ASL A:PHA:LDA#&A:ADC#0:STA&81:PLA:ADC&80:STA&80:LDA&81:ADC#0:STA&81:LDY#0:LDA(&80),Y:LDYdla:CMP#1:BEQforsl
1840LDAback,Y:STAdla:JMPremove:.forsl LDAfor,Y:STAdla:JMPremove
1850.back EQUB3:EQUB2:.for EQUB1:EQUB0:EQUB3:EQUB2
1860.remove LDA#31:JSRoswrch:LDAxla:CLC:ADC#&20:LSR A:LSR A:LSR A:JSRoswrch:LDAyla:LSR A:LSR A:LSR A:CLC:ADC#6:JSRoswrch:LDA#32:JSRoswrch
1870LDAxla:PHA:LDAyla:PHA:LDApn:PHA:LDX#0:STXpn
1880.remlop LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:EOR#&FF:AND(&70),Y:STA(&70),Y:LDAscrbit,X:AND#&F0:CLC:ADC(&70),Y:STA(&70),Y:INCpn:LDXpn:CPX#8:BNEremlop:PLA:STApn:PLA:STAyla:PLA:STAxla:LDA#0:TAY:STA(&80),Y:RTS
1890:
1900.getad LDAxla:AND#&F8:STA&72:CLC:ADC#&40:STA&70:LDA#0:ADC#&3F:STA&71:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC#0:STA&71:LDAyla:AND#&F8:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73
1910LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73
1920STA&71:ASL&72:ROL&73:ASL&72:ROL&73:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73:STA&71:LDAyla:AND#7:ADC&70:STA&70:LDA&71:ADC#0:STA&71:LDAxla:AND#4:ASL A:ADC&70:STA&70:LDAxla:AND#3:STA&72:LDY#0:RTS
1930.scrbit EQUB&88:EQUB&44:EQUB&22:EQUB&11
1940]:NEXT
1950ENDPROC
1960:
1970DEFPROCreloc
1980HIMEM=&5800:newpage=&11
1990FOR pass=0 TO 2 STEP 2
2000P%=&C00
2010[OPTpass
2020 LDY#0:STY&70:STY&72:LDA#newpage:SEC:SBC&18:STA&74:LDA&18:CMP#newpage:BCCad
2030.sb STA&71:LDA#newpage:STA&73
2040.m1 LDA(&70),Y:STA(&72),Y:INY:BNEm1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCm1:BCSem
2050.ad LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02
2060.m2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEm2:DEC&71:DEC&73:LDA&73:CMP#newpage-1:BCSm2
2070.em LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#newpage:STA&18:RTS
2080]
2090NEXT
2100VDU 21
2110OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
2120END
2130ENDPROC
� LaserDarts
� by Dominic Ford
:
( *TAPE
2�<>&1100��6:�reloc
< �ass:�6:�"Please Wait. . ."
F_A$="DEL.1540,9999"+�13+"GOTO90"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
P�
Z:
d� � �:� �DZ@
n��1:� 23,128,96,80,200,255,200,80,96,0,23,129,6,10,19,255,19,10,6,0,23,1,0;0;0;0;19,1,4,0,0,0,0,19,2,2,0,0,0,0,19,3,1,0,0,0,0:�pix%(1,7),nam$(1):sound=�
x �:�title
�� k$=" " � opp=0:�game
�� k$="2" � opp=1:�game
�� k$="Q" � k$="q"
��6:�23,1,1;0;0;0;0;:�
�:
�
��game
���names:�:�0,1:�0,0:�320,0:�85,0,192:�85,320,192:�1280,1024:�960,1024:�85,1280,832:�85,960,832:�0,1024:�320,1024:�85,0,832:�85,320,832:�1280,0:�1280,192:�85,960,0:�85,960,192
�dlasa=10:lasb=10:�2:�3,16);�128;�(32);�129;:stop=�:scra%=2000:scrb%=2000:liva%=3:livb%=3:�screen
ҙ�129:�1,1)"Player 1";�31,1)"Player 2";�2,27)"Score";�1,30)"Lives ";�32,27)"Score";�31,30)"Lives ";�14,0)"LASER DARTS";�10,31)"by Dominic Ford 1996";
ܜ�5-�(.5*�(nam$(0))),3)nam$(0);�35-�(.5*�(nam$(1))),3)nam$(1):�128:�14,2)"25";�12,3)"Points";�22,2)"New";�19,3)"Reflectors";�19,28)"50";�17,29)"Points"
��
�
�score
�5�move(0):xl=0:yl=3+lasa*8:dl=2:pl=1:�trace:�score
5� opp=0 � stop=� ��compmove � � stop=� � �move(1)
1� stop=� �xl=252:yl=3+lasb*8:dl=0:pl=2:�trace
� stop=� � scra%=0 � scrb%=0
"� liva%<0 � scrb%=0
,� livb%<0 � scra%=0
6F� scra%=0 � opp=0 � �mess("Congratulations "+nam$(0)+"! You Win!")
@'� scrb%=0 � opp=0 � �mess("I won!")
JL� scra%=0 � opp=1 � �mess("Player 1 Wins! Congratulations "+nam$(0)+"!")
TL� scrb%=0 � opp=1 � �mess("Player 2 Wins! Congratulations "+nam$(1)+"!")
^�
h:
r��mess(m$)
|4�5:�0,1:�ba=0�16�4:�640-16*�(m$)+ba,512+ba:�m$:�
�!�0,2:�640-16*�(m$),512:�m$:�4
�nt%=�+250:� � �>nt%
��
�:
� ��names
� nam$(1)="Elk":�:�nam=0�opp
��
�6�"Player ";nam+1;": What is your name";:�nam$(nam)
�_� �(nam$(nam))>10 � �nam$(nam);" is rather a long name isn't it? Can't you shorten it?":� �
�%� �(nam$(nam))<1 � �"Pardon?":� �
�� �
��
��
:
��screen
�ad=&A00�&BB8�4:!ad=0:�:�3
&=�y=0�19:�10,y+6)�20," "):�nam=0�2:x=�(20)-1:�x+10,y+6);
07�(2)=1��"/":?(&A00+x+y*20)=1��"\":?(&A00+x+y*20)=2
:%�,:�x=0�19:y=�(20)-1:�x+10,y+6);
D7�(2)=1��"/":?(&A00+x+y*20)=1��"\":?(&A00+x+y*20)=2
N�
X�
b:
l��move(opm)
v*� opm=0 � las=lasa:x=3 � las=lasb:x=36
��2:�:*FX15,0
�A$=�
��x,las+6);" "
�,� (A$="A" � A$="a") � las<>0 � las=las-1
�-� (A$="Z" � A$="z") � las<>19 � las=las+1
��x,las+6);�(128+opm)
� � A$=�13
�� sound �*MOTOR1
� *MOTOR0
�!� opm=0 � lasa=las � lasb=las
��
�:
���compmove
�3:�129:�compplan
�2:�36,lasb+6);�129
�
:
*��compplan
4)oppo=-1:top=-1:bot=-1:back=-1:self=-1
>*�ys=0�19:x=20:y=ys:�34,4);(20-ys);" "
H move=0:ref=�:end=�:dl=0:�
R�dl=0�x=x-1
\�dl=1�y=y-1
f�dl=2�x=x+1
p�dl=3�y=y+1
z%�?(&A00+x+y*20)=1�dl=dl � 3:ref=�
�%�?(&A00+x+y*20)=2�dl=dl � 1:ref=�
� �x=-1� y=lasa �end=�:oppo=ys
� �x=-1�end=�:�ref=� �back=ys
��x=20�end=�:self=ys
��y=-1�end=�:top=ys
��y=20�end=�:bot=ys
�!move=move+1:� move=50 � end=�
��:�34,4)" "
��128:�36,lasb+6);" "
��oppo<>-1�lasb=oppo:�
�#�back<>-1�scrb%>100�lasb=back:�
� �bot<>-1�scrb%>50�lasb=bot:�
�,�top<>-1�(scrb%>25 � self=-1)�lasb=top:�
�self<>-1�y=self
�
:
$ ��trace
.&?&BC0=0:?&BC1=xl:?&BC2=yl:?&BC3=dl
8�128:�&E00:�"traceray"
B xl=?&BC1:yl=(?&BC2 � 255)
Lsca%=scra%:scb%=scrb%
V#� xl=0� pl=1 � scra%=scra%+20:�
`%� xl>251� pl=2 � scrb%=scrb%+20:�
jT� xl=0� scrb%=scrb%-100:�((yl-3)/8)=lasa �scrb%=scrb%-400:liva%=liva%-1:�screen
tV� xl>251� scra%=scra%-100:�((yl-3)/8)=lasb �scra%=scra%-400:livb%=livb%-1:�screen
~"� yl>157� pl=1� scra%=scra%-50
�"� yl>157� pl=2� scrb%=scrb%-50
� � yl=0� pl=1� scra%=scra%-25
� � yl=0� pl=2� scrb%=scrb%-25
� � (yl=0)�(�(3)=2)��screen
� � liva%<0 � livb%<0 � stop=�
�?� scra%<0� scra%=sca%:� sound ��b=0�5:�1,-15,0,2:�1,0,0,2:�
�?� scrb%<0� scrb%=scb%:� sound ��b=0�5:�1,-15,0,2:�1,0,0,2:�
��
�:
� ��score
� �2:�129
� �2,28)" ";�2,28)scra%
�7,30)" ";�7,30);liva%
!�32,28)" ";�32,28)scrb%
�37,30)" ";�37,30);livb%
�128
(�
2:
< ��title
F�19,3,1,0,0,0,0:*FX15,0
P��:�ba=300�1�-50:�0,ba/50:�400-ba,400:�400,400+ba:�85,400,400-ba:�85,400+ba,400:�:�131:�:�yc=1�5:�l$:�xc=0�39:�l$,xc+1,1)="*"��xc,yc)" "
Z��,:�128:�1:�10,9)"by Dominic Ford 1996":�2:�23,20)"SPACE - Human/Elk";�27,22)"2 - 2 Player";�27,24)"Q - Quit";�27,26);"S - Sound";�25,16)"Sound:";�32,16);
d� sound ��"On"��"Off"
nS�3,2:�1180,1024:�400,400:�85,1380,1024:�:�:k$=�(0):� �" 2QqSs",k$)<>0 � �(k$)>0
x �k$="S"�k$="s"��sound:��
���
��
�:
� ��sound
�%� sound � sound=�:�32,16)"Off":�
�sound=�:�32,16)"On "
��
�:
�/�"* *** *** *** *** **** *** *** ******"
�/�"* * * * * * * * * * * * * * * "
�/�"* *** *** ** *** * * *** *** * ***"
�/�"* * * * * ** * * * * ** * *"
�/�"*** * * *** *** * * **** * * * * * ***"
:
��ass
osword=&FFF1:oswrch=&FFEE
"� pass=0�2�2
, P%=&BC0
6
[OPT pass
@.pla EQUB 0
J.xla EQUB 0
T.yla EQUB 0
^.dla EQUB 0
h.pn EQUB 0
r#.px EQUD 0:EQUD 0:EQUD 0:EQUD 0
|#.py EQUD 0:EQUD 0:EQUD 0:EQUD 0
�.tim EQUD 0:EQUB 0
�
]:P%=&E00
�
[OPT pass
�.traceray LDX#0
�M.startlop LDAxla:STApx,X:LDAyla:STApy,X:INX:CPX#8:BNEstartlop:LDA#0:STApn
�~.tracelop LDA#1:LDX#(tim � 256):LDY#(tim � 256):JSRosword:LDAtim:STA&74:LDAdla:BNEnotleft:LDAxla:SEC:SBC#2:STAxla:JMPmoved
�<.notleft CMP#1:BNEnotup:LDAyla:CLC:ADC#2:STAyla:JMPmoved
�9.notup CMP#2:BNEdown:LDAxla:CLC:ADC#2:STAxla:JMPmoved
�!.down LDAyla:SEC:SBC#2:STAyla
�h.moved JSRgetad:LDA(&70),Y:LDX&72:�scrbit,X:STA&73:�#&F0:BEQnotref:LDA&73:�#&0F:BEQnotref:JSRreflect
��.notref INCpn:LDApn:�#7:STApn:TAX:LDAxla:PHA:LDAyla:PHA:LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:�#&FF:�(&70),Y:STA(&70),Y:LDXpn:PLA:STAyla:STApy,X:PLA:STAxla:STApx,X:JSRgetad:LDX&72
�LDAscrbit,X:�#&FF:�(&70),Y:STA(&70),Y:LDAscrbit,X:�#&F0:CLC:ADC(&70),Y:STA(&70),Y:LDAxla:BEQfintr:CMP#252:BCSfintr:LDAyla:BEQfintr:CMP#158:BCSfintr
�a.waitlop LDA#1:LDX#(tim � 256):LDY#(tim � 256):JSRosword:LDAtim:CMP&74:BEQwaitlop:JMPtracelop
,.fintr LDAxla:PHA:LDAyla:PHA:LDX#0:STXpn
�.finlop LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:�#&FF:�(&70),Y:STA(&70),Y:INCpn:LDXpn:CPX#8:BNEfinlop:PLA:STAyla:PLA:STAxla:RTS
:
&�.reflect LDAxla:CLC:ADC#&20:LSR A:LSR A:LSR A:SEC:SBC#10:STA&80:LDAyla:�#&F8:PHA:LSR A:CLC:ADC&80:STA&80:PLA:ASL A:PHA:LDA#&A:ADC#0:STA&81:PLA:ADC&80:STA&80:LDA&81:ADC#0:STA&81:LDY#0:LDA(&80),Y:LDYdla:CMP#1:BEQforsl
0?LDAback,Y:STAdla:JMPremove:.forsl LDAfor,Y:STAdla:JMPremove
:2.back EQUB3:EQUB2:.for EQUB1:EQUB0:EQUB3:EQUB2
D�.remove LDA#31:JSRoswrch:LDAxla:CLC:ADC#&20:LSR A:LSR A:LSR A:JSRoswrch:LDAyla:LSR A:LSR A:LSR A:CLC:ADC#6:JSRoswrch:LDA#32:JSRoswrch
N/LDAxla:PHA:LDAyla:PHA:LDApn:PHA:LDX#0:STXpn
X�.remlop LDApx,X:STAxla:LDApy,X:STAyla:JSRgetad:LDX&72:LDAscrbit,X:�#&FF:�(&70),Y:STA(&70),Y:LDAscrbit,X:�#&F0:CLC:ADC(&70),Y:STA(&70),Y:INCpn:LDXpn:CPX#8:BNEremlop:PLA:STApn:PLA:STAyla:PLA:STAxla:LDA#0:TAY:STA(&80),Y:RTS
b:
l�.getad LDAxla:�#&F8:STA&72:CLC:ADC#&40:STA&70:LDA#0:ADC#&3F:STA&71:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC#0:STA&71:LDAyla:�#&F8:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73
v*LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73
��STA&71:ASL&72:ROL&73:ASL&72:ROL&73:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73:STA&71:LDAyla:�#7:ADC&70:STA&70:LDA&71:ADC#0:STA&71:LDAxla:�#4:ASL A:ADC&70:STA&70:LDAxla:�#3:STA&72:LDY#0:RTS
�+.scrbit EQUB&88:EQUB&44:EQUB&22:EQUB&11
�]:�
��
�:
� ��reloc
��=&5800:newpage=&11
�� pass=0 � 2 � 2
� P%=&C00
� [OPTpass
�R LDY#0:STY&70:STY&72:LDA#newpage:SEC:SBC&18:STA&74:LDA&18:CMP#newpage:BCCad
�!.sb STA&71:LDA#newpage:STA&73
�S.m1 LDA(&70),Y:STA(&72),Y:INY:BNEm1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCm1:BCSem
4.ad LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02
X.m2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEm2:DEC&71:DEC&73:LDA&73:CMP#newpage-1:BCSm2
>.em LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#newpage:STA&18:RTS
]
*�
4� 21
>1�"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"
H�
R�
� 00000000 0d 00 0a 10 f4 20 4c 61 73 65 72 44 61 72 74 73 |..... LaserDarts|
00000010 0d 00 14 15 f4 20 62 79 20 44 6f 6d 69 6e 69 63 |..... by Dominic|
00000020 20 46 6f 72 64 0d 00 1e 05 3a 0d 00 28 09 2a 54 | Ford....:..(.*T|
00000030 41 50 45 0d 00 32 17 e7 90 3c 3e 26 31 31 30 30 |APE..2...<>&1100|
00000040 8c eb 36 3a f2 72 65 6c 6f 63 0d 00 3c 1f f2 61 |..6:.reloc..<..a|
00000050 73 73 3a eb 36 3a f1 22 50 6c 65 61 73 65 20 57 |ss:.6:."Please W|
00000060 61 69 74 2e 20 2e 20 2e 22 0d 00 46 5f 41 24 3d |ait. . ."..F_A$=|
00000070 22 44 45 4c 2e 31 35 34 30 2c 39 39 39 39 22 2b |"DEL.1540,9999"+|
00000080 bd 31 33 2b 22 47 4f 54 4f 39 30 22 2b bd 36 2b |.13+"GOTO90"+.6+|
00000090 bd 31 33 3a ef 32 31 3a e3 20 63 68 61 72 3d 31 |.13:.21:. char=1|
000000a0 20 b8 20 a9 28 41 24 29 3a ff 22 46 58 31 33 38 | . .(A$):."FX138|
000000b0 2c 30 2c 22 2b c3 28 97 28 c1 41 24 2c 63 68 61 |,0,"+.(.(.A$,cha|
000000c0 72 2c 31 29 29 29 3a ed 0d 00 50 05 e0 0d 00 5a |r,1))):...P....Z|
000000d0 05 3a 0d 00 64 10 ee 20 85 20 d8 3a e5 20 8d 44 |.:..d.. . .:. .D|
000000e0 5a 40 0d 00 6e 9b eb 31 3a ef 20 32 33 2c 31 32 |Z@..n..1:. 23,12|
000000f0 38 2c 39 36 2c 38 30 2c 32 30 30 2c 32 35 35 2c |8,96,80,200,255,|
00000100 32 30 30 2c 38 30 2c 39 36 2c 30 2c 32 33 2c 31 |200,80,96,0,23,1|
00000110 32 39 2c 36 2c 31 30 2c 31 39 2c 32 35 35 2c 31 |29,6,10,19,255,1|
00000120 39 2c 31 30 2c 36 2c 30 2c 32 33 2c 31 2c 30 3b |9,10,6,0,23,1,0;|
00000130 30 3b 30 3b 30 3b 31 39 2c 31 2c 34 2c 30 2c 30 |0;0;0;19,1,4,0,0|
00000140 2c 30 2c 30 2c 31 39 2c 32 2c 32 2c 30 2c 30 2c |,0,0,19,2,2,0,0,|
00000150 30 2c 30 2c 31 39 2c 33 2c 31 2c 30 2c 30 2c 30 |0,0,19,3,1,0,0,0|
00000160 2c 30 3a de 70 69 78 25 28 31 2c 37 29 2c 6e 61 |,0:.pix%(1,7),na|
00000170 6d 24 28 31 29 3a 73 6f 75 6e 64 3d b9 0d 00 78 |m$(1):sound=...x|
00000180 0c f5 3a f2 74 69 74 6c 65 0d 00 82 1a e7 20 6b |..:.title..... k|
00000190 24 3d 22 20 22 20 8c 20 6f 70 70 3d 30 3a f2 67 |$=" " . opp=0:.g|
000001a0 61 6d 65 0d 00 8c 1a e7 20 6b 24 3d 22 32 22 20 |ame..... k$="2" |
000001b0 8c 20 6f 70 70 3d 31 3a f2 67 61 6d 65 0d 00 96 |. opp=1:.game...|
000001c0 15 fd 20 6b 24 3d 22 51 22 20 84 20 6b 24 3d 22 |.. k$="Q" . k$="|
000001d0 71 22 0d 00 a0 19 eb 36 3a ef 32 33 2c 31 2c 31 |q".....6:.23,1,1|
000001e0 3b 30 3b 30 3b 30 3b 30 3b 3a e0 0d 00 aa 05 3a |;0;0;0;0;:.....:|
000001f0 0d 00 b4 0a dd f2 67 61 6d 65 0d 00 be b1 f2 6e |......game.....n|
00000200 61 6d 65 73 3a db 3a e6 30 2c 31 3a ec 30 2c 30 |ames:.:.0,1:.0,0|
00000210 3a ec 33 32 30 2c 30 3a f0 38 35 2c 30 2c 31 39 |:.320,0:.85,0,19|
00000220 32 3a f0 38 35 2c 33 32 30 2c 31 39 32 3a ec 31 |2:.85,320,192:.1|
00000230 32 38 30 2c 31 30 32 34 3a ec 39 36 30 2c 31 30 |280,1024:.960,10|
00000240 32 34 3a f0 38 35 2c 31 32 38 30 2c 38 33 32 3a |24:.85,1280,832:|
00000250 f0 38 35 2c 39 36 30 2c 38 33 32 3a ec 30 2c 31 |.85,960,832:.0,1|
00000260 30 32 34 3a ec 33 32 30 2c 31 30 32 34 3a f0 38 |024:.320,1024:.8|
00000270 35 2c 30 2c 38 33 32 3a f0 38 35 2c 33 32 30 2c |5,0,832:.85,320,|
00000280 38 33 32 3a ec 31 32 38 30 2c 30 3a ec 31 32 38 |832:.1280,0:.128|
00000290 30 2c 31 39 32 3a f0 38 35 2c 39 36 30 2c 30 3a |0,192:.85,960,0:|
000002a0 f0 38 35 2c 39 36 30 2c 31 39 32 0d 00 c8 64 6c |.85,960,192...dl|
000002b0 61 73 61 3d 31 30 3a 6c 61 73 62 3d 31 30 3a fb |asa=10:lasb=10:.|
000002c0 32 3a f1 8a 33 2c 31 36 29 3b bd 31 32 38 3b 89 |2:..3,16);.128;.|
000002d0 28 33 32 29 3b bd 31 32 39 3b 3a 73 74 6f 70 3d |(32);.129;:stop=|
000002e0 a3 3a 73 63 72 61 25 3d 32 30 30 30 3a 73 63 72 |.:scra%=2000:scr|
000002f0 62 25 3d 32 30 30 30 3a 6c 69 76 61 25 3d 33 3a |b%=2000:liva%=3:|
00000300 6c 69 76 62 25 3d 33 3a f2 73 63 72 65 65 6e 0d |livb%=3:.screen.|
00000310 00 d2 99 fb 31 32 39 3a f1 8a 31 2c 31 29 22 50 |....129:..1,1)"P|
00000320 6c 61 79 65 72 20 31 22 3b 8a 33 31 2c 31 29 22 |layer 1";.31,1)"|
00000330 50 6c 61 79 65 72 20 32 22 3b 8a 32 2c 32 37 29 |Player 2";.2,27)|
00000340 22 53 63 6f 72 65 22 3b 8a 31 2c 33 30 29 22 4c |"Score";.1,30)"L|
00000350 69 76 65 73 20 22 3b 8a 33 32 2c 32 37 29 22 53 |ives ";.32,27)"S|
00000360 63 6f 72 65 22 3b 8a 33 31 2c 33 30 29 22 4c 69 |core";.31,30)"Li|
00000370 76 65 73 20 22 3b 8a 31 34 2c 30 29 22 4c 41 53 |ves ";.14,0)"LAS|
00000380 45 52 20 44 41 52 54 53 22 3b 8a 31 30 2c 33 31 |ER DARTS";.10,31|
00000390 29 22 62 79 20 44 6f 6d 69 6e 69 63 20 46 6f 72 |)"by Dominic For|
000003a0 64 20 31 39 39 36 22 3b 0d 00 dc 9c f1 8a 35 2d |d 1996";......5-|
000003b0 a8 28 2e 35 2a a9 28 6e 61 6d 24 28 30 29 29 29 |.(.5*.(nam$(0)))|
000003c0 2c 33 29 6e 61 6d 24 28 30 29 3b 8a 33 35 2d a8 |,3)nam$(0);.35-.|
000003d0 28 2e 35 2a a9 28 6e 61 6d 24 28 31 29 29 29 2c |(.5*.(nam$(1))),|
000003e0 33 29 6e 61 6d 24 28 31 29 3a fb 31 32 38 3a f1 |3)nam$(1):.128:.|
000003f0 8a 31 34 2c 32 29 22 32 35 22 3b 8a 31 32 2c 33 |.14,2)"25";.12,3|
00000400 29 22 50 6f 69 6e 74 73 22 3b 8a 32 32 2c 32 29 |)"Points";.22,2)|
00000410 22 4e 65 77 22 3b 8a 31 39 2c 33 29 22 52 65 66 |"New";.19,3)"Ref|
00000420 6c 65 63 74 6f 72 73 22 3b 8a 31 39 2c 32 38 29 |lectors";.19,28)|
00000430 22 35 30 22 3b 8a 31 37 2c 32 39 29 22 50 6f 69 |"50";.17,29)"Poi|
00000440 6e 74 73 22 0d 00 e6 05 f5 0d 00 f0 0a f2 73 63 |nts"..........sc|
00000450 6f 72 65 0d 00 fa 35 f2 6d 6f 76 65 28 30 29 3a |ore...5.move(0):|
00000460 78 6c 3d 30 3a 79 6c 3d 33 2b 6c 61 73 61 2a 38 |xl=0:yl=3+lasa*8|
00000470 3a 64 6c 3d 32 3a 70 6c 3d 31 3a f2 74 72 61 63 |:dl=2:pl=1:.trac|
00000480 65 3a f2 73 63 6f 72 65 0d 01 04 35 e7 20 6f 70 |e:.score...5. op|
00000490 70 3d 30 20 80 20 73 74 6f 70 3d a3 20 8c f2 63 |p=0 . stop=. ..c|
000004a0 6f 6d 70 6d 6f 76 65 20 8b 20 e7 20 73 74 6f 70 |ompmove . . stop|
000004b0 3d a3 20 8c 20 f2 6d 6f 76 65 28 31 29 0d 01 0e |=. . .move(1)...|
000004c0 31 e7 20 73 74 6f 70 3d a3 20 8c 78 6c 3d 32 35 |1. stop=. .xl=25|
000004d0 32 3a 79 6c 3d 33 2b 6c 61 73 62 2a 38 3a 64 6c |2:yl=3+lasb*8:dl|
000004e0 3d 30 3a 70 6c 3d 32 3a f2 74 72 61 63 65 0d 01 |=0:pl=2:.trace..|
000004f0 18 20 fd 20 73 74 6f 70 3d b9 20 84 20 73 63 72 |. . stop=. . scr|
00000500 61 25 3d 30 20 84 20 73 63 72 62 25 3d 30 0d 01 |a%=0 . scrb%=0..|
00000510 22 17 e7 20 6c 69 76 61 25 3c 30 20 8c 20 73 63 |".. liva%<0 . sc|
00000520 72 62 25 3d 30 0d 01 2c 17 e7 20 6c 69 76 62 25 |rb%=0..,.. livb%|
00000530 3c 30 20 8c 20 73 63 72 61 25 3d 30 0d 01 36 46 |<0 . scra%=0..6F|
00000540 e7 20 73 63 72 61 25 3d 30 20 80 20 6f 70 70 3d |. scra%=0 . opp=|
00000550 30 20 8c 20 f2 6d 65 73 73 28 22 43 6f 6e 67 72 |0 . .mess("Congr|
00000560 61 74 75 6c 61 74 69 6f 6e 73 20 22 2b 6e 61 6d |atulations "+nam|
00000570 24 28 30 29 2b 22 21 20 59 6f 75 20 57 69 6e 21 |$(0)+"! You Win!|
00000580 22 29 0d 01 40 27 e7 20 73 63 72 62 25 3d 30 20 |")..@'. scrb%=0 |
00000590 80 20 6f 70 70 3d 30 20 8c 20 f2 6d 65 73 73 28 |. opp=0 . .mess(|
000005a0 22 49 20 77 6f 6e 21 22 29 0d 01 4a 4c e7 20 73 |"I won!")..JL. s|
000005b0 63 72 61 25 3d 30 20 80 20 6f 70 70 3d 31 20 8c |cra%=0 . opp=1 .|
000005c0 20 f2 6d 65 73 73 28 22 50 6c 61 79 65 72 20 31 | .mess("Player 1|
000005d0 20 57 69 6e 73 21 20 43 6f 6e 67 72 61 74 75 6c | Wins! Congratul|
000005e0 61 74 69 6f 6e 73 20 22 2b 6e 61 6d 24 28 30 29 |ations "+nam$(0)|
000005f0 2b 22 21 22 29 0d 01 54 4c e7 20 73 63 72 62 25 |+"!")..TL. scrb%|
00000600 3d 30 20 80 20 6f 70 70 3d 31 20 8c 20 f2 6d 65 |=0 . opp=1 . .me|
00000610 73 73 28 22 50 6c 61 79 65 72 20 32 20 57 69 6e |ss("Player 2 Win|
00000620 73 21 20 43 6f 6e 67 72 61 74 75 6c 61 74 69 6f |s! Congratulatio|
00000630 6e 73 20 22 2b 6e 61 6d 24 28 31 29 2b 22 21 22 |ns "+nam$(1)+"!"|
00000640 29 0d 01 5e 05 e1 0d 01 68 05 3a 0d 01 72 0e dd |)..^....h.:..r..|
00000650 f2 6d 65 73 73 28 6d 24 29 0d 01 7c 34 ef 35 3a |.mess(m$)..|4.5:|
00000660 e6 30 2c 31 3a e3 62 61 3d 30 b8 31 36 88 34 3a |.0,1:.ba=0.16.4:|
00000670 ec 36 34 30 2d 31 36 2a a9 28 6d 24 29 2b 62 61 |.640-16*.(m$)+ba|
00000680 2c 35 31 32 2b 62 61 3a f1 6d 24 3a ed 0d 01 86 |,512+ba:.m$:....|
00000690 21 e6 30 2c 32 3a ec 36 34 30 2d 31 36 2a a9 28 |!.0,2:.640-16*.(|
000006a0 6d 24 29 2c 35 31 32 3a f1 6d 24 3a ef 34 0d 01 |m$),512:.m$:.4..|
000006b0 90 17 6e 74 25 3d 91 2b 32 35 30 3a f5 20 fd 20 |..nt%=.+250:. . |
000006c0 91 3e 6e 74 25 0d 01 9a 05 e1 0d 01 a4 05 3a 0d |.>nt%.........:.|
000006d0 01 ae 0b dd f2 6e 61 6d 65 73 0d 01 b8 1e 6e 61 |.....names....na|
000006e0 6d 24 28 31 29 3d 22 45 6c 6b 22 3a db 3a e3 6e |m$(1)="Elk":.:.n|
000006f0 61 6d 3d 30 b8 6f 70 70 0d 01 c2 05 f5 0d 01 cc |am=0.opp........|
00000700 36 f1 22 50 6c 61 79 65 72 20 22 3b 6e 61 6d 2b |6."Player ";nam+|
00000710 31 3b 22 3a 20 57 68 61 74 20 69 73 20 79 6f 75 |1;": What is you|
00000720 72 20 6e 61 6d 65 22 3b 3a e8 6e 61 6d 24 28 6e |r name";:.nam$(n|
00000730 61 6d 29 0d 01 d6 5f e7 20 a9 28 6e 61 6d 24 28 |am)..._. .(nam$(|
00000740 6e 61 6d 29 29 3e 31 30 20 8c 20 f1 6e 61 6d 24 |nam))>10 . .nam$|
00000750 28 6e 61 6d 29 3b 22 20 69 73 20 72 61 74 68 65 |(nam);" is rathe|
00000760 72 20 61 20 6c 6f 6e 67 20 6e 61 6d 65 20 69 73 |r a long name is|
00000770 6e 27 74 20 69 74 3f 20 43 61 6e 27 74 20 79 6f |n't it? Can't yo|
00000780 75 20 73 68 6f 72 74 65 6e 20 69 74 3f 22 3a fd |u shorten it?":.|
00000790 20 a3 0d 01 e0 25 e7 20 a9 28 6e 61 6d 24 28 6e | ....%. .(nam$(n|
000007a0 61 6d 29 29 3c 31 20 8c 20 f1 22 50 61 72 64 6f |am))<1 . ."Pardo|
000007b0 6e 3f 22 3a fd 20 a3 0d 01 ea 07 fd 20 b9 0d 01 |n?":. ...... ...|
000007c0 f4 05 ed 0d 01 fe 05 e1 0d 02 08 05 3a 0d 02 12 |............:...|
000007d0 0c dd f2 73 63 72 65 65 6e 0d 02 1c 1e e3 61 64 |...screen.....ad|
000007e0 3d 26 41 30 30 b8 26 42 42 38 88 34 3a 21 61 64 |=&A00.&BB8.4:!ad|
000007f0 3d 30 3a ed 3a fb 33 0d 02 26 3d e3 79 3d 30 b8 |=0:.:.3..&=.y=0.|
00000800 31 39 3a f1 8a 31 30 2c 79 2b 36 29 c4 32 30 2c |19:..10,y+6).20,|
00000810 22 20 22 29 3a e3 6e 61 6d 3d 30 b8 32 3a 78 3d |" "):.nam=0.2:x=|
00000820 b3 28 32 30 29 2d 31 3a f1 8a 78 2b 31 30 2c 79 |.(20)-1:..x+10,y|
00000830 2b 36 29 3b 0d 02 30 37 e7 b3 28 32 29 3d 31 8c |+6);..07..(2)=1.|
00000840 f1 22 2f 22 3a 3f 28 26 41 30 30 2b 78 2b 79 2a |."/":?(&A00+x+y*|
00000850 32 30 29 3d 31 8b f1 22 5c 22 3a 3f 28 26 41 30 |20)=1.."\":?(&A0|
00000860 30 2b 78 2b 79 2a 32 30 29 3d 32 0d 02 3a 25 ed |0+x+y*20)=2..:%.|
00000870 2c 3a e3 78 3d 30 b8 31 39 3a 79 3d b3 28 32 30 |,:.x=0.19:y=.(20|
00000880 29 2d 31 3a f1 8a 78 2b 31 30 2c 79 2b 36 29 3b |)-1:..x+10,y+6);|
00000890 0d 02 44 37 e7 b3 28 32 29 3d 31 8c f1 22 2f 22 |..D7..(2)=1.."/"|
000008a0 3a 3f 28 26 41 30 30 2b 78 2b 79 2a 32 30 29 3d |:?(&A00+x+y*20)=|
000008b0 31 8b f1 22 5c 22 3a 3f 28 26 41 30 30 2b 78 2b |1.."\":?(&A00+x+|
000008c0 79 2a 32 30 29 3d 32 0d 02 4e 05 ed 0d 02 58 05 |y*20)=2..N....X.|
000008d0 e1 0d 02 62 05 3a 0d 02 6c 0f dd f2 6d 6f 76 65 |...b.:..l...move|
000008e0 28 6f 70 6d 29 0d 02 76 2a e7 20 6f 70 6d 3d 30 |(opm)..v*. opm=0|
000008f0 20 8c 20 6c 61 73 3d 6c 61 73 61 3a 78 3d 33 20 | . las=lasa:x=3 |
00000900 8b 20 6c 61 73 3d 6c 61 73 62 3a 78 3d 33 36 0d |. las=lasb:x=36.|
00000910 02 80 10 fb 32 3a f5 3a 2a 46 58 31 35 2c 30 0d |....2:.:*FX15,0.|
00000920 02 8a 08 41 24 3d be 0d 02 94 12 f1 8a 78 2c 6c |...A$=.......x,l|
00000930 61 73 2b 36 29 3b 22 20 22 0d 02 9e 2c e7 20 28 |as+6);" "...,. (|
00000940 41 24 3d 22 41 22 20 84 20 41 24 3d 22 61 22 29 |A$="A" . A$="a")|
00000950 20 80 20 6c 61 73 3c 3e 30 20 8c 20 6c 61 73 3d | . las<>0 . las=|
00000960 6c 61 73 2d 31 0d 02 a8 2d e7 20 28 41 24 3d 22 |las-1...-. (A$="|
00000970 5a 22 20 84 20 41 24 3d 22 7a 22 29 20 80 20 6c |Z" . A$="z") . l|
00000980 61 73 3c 3e 31 39 20 8c 20 6c 61 73 3d 6c 61 73 |as<>19 . las=las|
00000990 2b 31 0d 02 b2 19 f1 8a 78 2c 6c 61 73 2b 36 29 |+1......x,las+6)|
000009a0 3b bd 28 31 32 38 2b 6f 70 6d 29 0d 02 bc 0c fd |;.(128+opm).....|
000009b0 20 41 24 3d bd 31 33 0d 02 c6 14 e7 20 73 6f 75 | A$=.13..... sou|
000009c0 6e 64 20 8c 2a 4d 4f 54 4f 52 31 0d 02 d0 0b 2a |nd .*MOTOR1....*|
000009d0 4d 4f 54 4f 52 30 0d 02 da 21 e7 20 6f 70 6d 3d |MOTOR0...!. opm=|
000009e0 30 20 8c 20 6c 61 73 61 3d 6c 61 73 20 8b 20 6c |0 . lasa=las . l|
000009f0 61 73 62 3d 6c 61 73 0d 02 e4 05 e1 0d 02 ee 05 |asb=las.........|
00000a00 3a 0d 02 f8 0e dd f2 63 6f 6d 70 6d 6f 76 65 0d |:......compmove.|
00000a10 03 02 15 fb 33 3a fb 31 32 39 3a f2 63 6f 6d 70 |....3:.129:.comp|
00000a20 70 6c 61 6e 0d 03 0c 18 fb 32 3a f1 8a 33 36 2c |plan.....2:..36,|
00000a30 6c 61 73 62 2b 36 29 3b bd 31 32 39 0d 03 16 05 |lasb+6);.129....|
00000a40 e1 0d 03 20 05 3a 0d 03 2a 0e dd f2 63 6f 6d 70 |... .:..*...comp|
00000a50 70 6c 61 6e 0d 03 34 29 6f 70 70 6f 3d 2d 31 3a |plan..4)oppo=-1:|
00000a60 74 6f 70 3d 2d 31 3a 62 6f 74 3d 2d 31 3a 62 61 |top=-1:bot=-1:ba|
00000a70 63 6b 3d 2d 31 3a 73 65 6c 66 3d 2d 31 0d 03 3e |ck=-1:self=-1..>|
00000a80 2a e3 79 73 3d 30 b8 31 39 3a 78 3d 32 30 3a 79 |*.ys=0.19:x=20:y|
00000a90 3d 79 73 3a f1 8a 33 34 2c 34 29 3b 28 32 30 2d |=ys:..34,4);(20-|
00000aa0 79 73 29 3b 22 20 22 0d 03 48 1d 6d 6f 76 65 3d |ys);" "..H.move=|
00000ab0 30 3a 72 65 66 3d a3 3a 65 6e 64 3d a3 3a 64 6c |0:ref=.:end=.:dl|
00000ac0 3d 30 3a f5 0d 03 52 0f e7 64 6c 3d 30 8c 78 3d |=0:...R..dl=0.x=|
00000ad0 78 2d 31 0d 03 5c 0f e7 64 6c 3d 31 8c 79 3d 79 |x-1..\..dl=1.y=y|
00000ae0 2d 31 0d 03 66 0f e7 64 6c 3d 32 8c 78 3d 78 2b |-1..f..dl=2.x=x+|
00000af0 31 0d 03 70 0f e7 64 6c 3d 33 8c 79 3d 79 2b 31 |1..p..dl=3.y=y+1|
00000b00 0d 03 7a 25 e7 3f 28 26 41 30 30 2b 78 2b 79 2a |..z%.?(&A00+x+y*|
00000b10 32 30 29 3d 31 8c 64 6c 3d 64 6c 20 82 20 33 3a |20)=1.dl=dl . 3:|
00000b20 72 65 66 3d b9 0d 03 84 25 e7 3f 28 26 41 30 30 |ref=....%.?(&A00|
00000b30 2b 78 2b 79 2a 32 30 29 3d 32 8c 64 6c 3d 64 6c |+x+y*20)=2.dl=dl|
00000b40 20 82 20 31 3a 72 65 66 3d b9 0d 03 8e 20 e7 78 | . 1:ref=.... .x|
00000b50 3d 2d 31 80 20 79 3d 6c 61 73 61 20 8c 65 6e 64 |=-1. y=lasa .end|
00000b60 3d b9 3a 6f 70 70 6f 3d 79 73 0d 03 98 1f e7 78 |=.:oppo=ys.....x|
00000b70 3d 2d 31 8c 65 6e 64 3d b9 3a e7 72 65 66 3d b9 |=-1.end=.:.ref=.|
00000b80 20 8c 62 61 63 6b 3d 79 73 0d 03 a2 17 e7 78 3d | .back=ys.....x=|
00000b90 32 30 8c 65 6e 64 3d b9 3a 73 65 6c 66 3d 79 73 |20.end=.:self=ys|
00000ba0 0d 03 ac 16 e7 79 3d 2d 31 8c 65 6e 64 3d b9 3a |.....y=-1.end=.:|
00000bb0 74 6f 70 3d 79 73 0d 03 b6 16 e7 79 3d 32 30 8c |top=ys.....y=20.|
00000bc0 65 6e 64 3d b9 3a 62 6f 74 3d 79 73 0d 03 c0 21 |end=.:bot=ys...!|
00000bd0 6d 6f 76 65 3d 6d 6f 76 65 2b 31 3a fd 20 6d 6f |move=move+1:. mo|
00000be0 76 65 3d 35 30 20 84 20 65 6e 64 3d b9 0d 03 ca |ve=50 . end=....|
00000bf0 11 ed 3a f1 8a 33 34 2c 34 29 22 20 20 22 0d 03 |..:..34,4)" "..|
00000c00 d4 19 fb 31 32 38 3a f1 8a 33 36 2c 6c 61 73 62 |...128:..36,lasb|
00000c10 2b 36 29 3b 22 20 22 0d 03 de 19 e7 6f 70 70 6f |+6);" ".....oppo|
00000c20 3c 3e 2d 31 8c 6c 61 73 62 3d 6f 70 70 6f 3a e1 |<>-1.lasb=oppo:.|
00000c30 0d 03 e8 23 e7 62 61 63 6b 3c 3e 2d 31 80 73 63 |...#.back<>-1.sc|
00000c40 72 62 25 3e 31 30 30 8c 6c 61 73 62 3d 62 61 63 |rb%>100.lasb=bac|
00000c50 6b 3a e1 0d 03 f2 20 e7 62 6f 74 3c 3e 2d 31 80 |k:.... .bot<>-1.|
00000c60 73 63 72 62 25 3e 35 30 8c 6c 61 73 62 3d 62 6f |scrb%>50.lasb=bo|
00000c70 74 3a e1 0d 03 fc 2c e7 74 6f 70 3c 3e 2d 31 80 |t:....,.top<>-1.|
00000c80 28 73 63 72 62 25 3e 32 35 20 84 20 73 65 6c 66 |(scrb%>25 . self|
00000c90 3d 2d 31 29 8c 6c 61 73 62 3d 74 6f 70 3a e1 0d |=-1).lasb=top:..|
00000ca0 04 06 14 e7 73 65 6c 66 3c 3e 2d 31 8c 79 3d 73 |....self<>-1.y=s|
00000cb0 65 6c 66 0d 04 10 05 e1 0d 04 1a 05 3a 0d 04 24 |elf.........:..$|
00000cc0 0b dd f2 74 72 61 63 65 0d 04 2e 26 3f 26 42 43 |...trace...&?&BC|
00000cd0 30 3d 30 3a 3f 26 42 43 31 3d 78 6c 3a 3f 26 42 |0=0:?&BC1=xl:?&B|
00000ce0 43 32 3d 79 6c 3a 3f 26 42 43 33 3d 64 6c 0d 04 |C2=yl:?&BC3=dl..|
00000cf0 38 1a fb 31 32 38 3a d6 26 45 30 30 3a f4 22 74 |8..128:.&E00:."t|
00000d00 72 61 63 65 72 61 79 22 0d 04 42 1d 78 6c 3d 3f |raceray"..B.xl=?|
00000d10 26 42 43 31 3a 79 6c 3d 28 3f 26 42 43 32 20 83 |&BC1:yl=(?&BC2 .|
00000d20 20 32 35 35 29 0d 04 4c 19 73 63 61 25 3d 73 63 | 255)..L.sca%=sc|
00000d30 72 61 25 3a 73 63 62 25 3d 73 63 72 62 25 0d 04 |ra%:scb%=scrb%..|
00000d40 56 23 e7 20 78 6c 3d 30 80 20 70 6c 3d 31 20 8c |V#. xl=0. pl=1 .|
00000d50 20 73 63 72 61 25 3d 73 63 72 61 25 2b 32 30 3a | scra%=scra%+20:|
00000d60 e1 0d 04 60 25 e7 20 78 6c 3e 32 35 31 80 20 70 |...`%. xl>251. p|
00000d70 6c 3d 32 20 8c 20 73 63 72 62 25 3d 73 63 72 62 |l=2 . scrb%=scrb|
00000d80 25 2b 32 30 3a e1 0d 04 6a 54 e7 20 78 6c 3d 30 |%+20:...jT. xl=0|
00000d90 8c 20 73 63 72 62 25 3d 73 63 72 62 25 2d 31 30 |. scrb%=scrb%-10|
00000da0 30 3a e7 a8 28 28 79 6c 2d 33 29 2f 38 29 3d 6c |0:..((yl-3)/8)=l|
00000db0 61 73 61 20 8c 73 63 72 62 25 3d 73 63 72 62 25 |asa .scrb%=scrb%|
00000dc0 2d 34 30 30 3a 6c 69 76 61 25 3d 6c 69 76 61 25 |-400:liva%=liva%|
00000dd0 2d 31 3a f2 73 63 72 65 65 6e 0d 04 74 56 e7 20 |-1:.screen..tV. |
00000de0 78 6c 3e 32 35 31 8c 20 73 63 72 61 25 3d 73 63 |xl>251. scra%=sc|
00000df0 72 61 25 2d 31 30 30 3a e7 a8 28 28 79 6c 2d 33 |ra%-100:..((yl-3|
00000e00 29 2f 38 29 3d 6c 61 73 62 20 8c 73 63 72 61 25 |)/8)=lasb .scra%|
00000e10 3d 73 63 72 61 25 2d 34 30 30 3a 6c 69 76 62 25 |=scra%-400:livb%|
00000e20 3d 6c 69 76 62 25 2d 31 3a f2 73 63 72 65 65 6e |=livb%-1:.screen|
00000e30 0d 04 7e 22 e7 20 79 6c 3e 31 35 37 80 20 70 6c |..~". yl>157. pl|
00000e40 3d 31 8c 20 73 63 72 61 25 3d 73 63 72 61 25 2d |=1. scra%=scra%-|
00000e50 35 30 0d 04 88 22 e7 20 79 6c 3e 31 35 37 80 20 |50...". yl>157. |
00000e60 70 6c 3d 32 8c 20 73 63 72 62 25 3d 73 63 72 62 |pl=2. scrb%=scrb|
00000e70 25 2d 35 30 0d 04 92 20 e7 20 79 6c 3d 30 80 20 |%-50... . yl=0. |
00000e80 70 6c 3d 31 8c 20 73 63 72 61 25 3d 73 63 72 61 |pl=1. scra%=scra|
00000e90 25 2d 32 35 0d 04 9c 20 e7 20 79 6c 3d 30 80 20 |%-25... . yl=0. |
00000ea0 70 6c 3d 32 8c 20 73 63 72 62 25 3d 73 63 72 62 |pl=2. scrb%=scrb|
00000eb0 25 2d 32 35 0d 04 a6 1d e7 20 28 79 6c 3d 30 29 |%-25..... (yl=0)|
00000ec0 80 28 b3 28 33 29 3d 32 29 8c f2 73 63 72 65 65 |.(.(3)=2)..scree|
00000ed0 6e 0d 04 b0 20 e7 20 6c 69 76 61 25 3c 30 20 84 |n... . liva%<0 .|
00000ee0 20 6c 69 76 62 25 3c 30 20 8c 20 73 74 6f 70 3d | livb%<0 . stop=|
00000ef0 b9 0d 04 ba 3f e7 20 73 63 72 61 25 3c 30 8c 20 |....?. scra%<0. |
00000f00 73 63 72 61 25 3d 73 63 61 25 3a e7 20 73 6f 75 |scra%=sca%:. sou|
00000f10 6e 64 20 8c e3 62 3d 30 b8 35 3a d4 31 2c 2d 31 |nd ..b=0.5:.1,-1|
00000f20 35 2c 30 2c 32 3a d4 31 2c 30 2c 30 2c 32 3a ed |5,0,2:.1,0,0,2:.|
00000f30 0d 04 c4 3f e7 20 73 63 72 62 25 3c 30 8c 20 73 |...?. scrb%<0. s|
00000f40 63 72 62 25 3d 73 63 62 25 3a e7 20 73 6f 75 6e |crb%=scb%:. soun|
00000f50 64 20 8c e3 62 3d 30 b8 35 3a d4 31 2c 2d 31 35 |d ..b=0.5:.1,-15|
00000f60 2c 30 2c 32 3a d4 31 2c 30 2c 30 2c 32 3a ed 0d |,0,2:.1,0,0,2:..|
00000f70 04 ce 05 e1 0d 04 d8 05 3a 0d 04 e2 0b dd f2 73 |........:......s|
00000f80 63 6f 72 65 0d 04 ec 0b fb 32 3a fb 31 32 39 0d |core.....2:.129.|
00000f90 04 f6 1f f1 8a 32 2c 32 38 29 22 20 20 20 20 20 |.....2,28)" |
00000fa0 20 22 3b 8a 32 2c 32 38 29 73 63 72 61 25 0d 05 | ";.2,28)scra%..|
00000fb0 00 1c f1 8a 37 2c 33 30 29 22 20 20 22 3b 8a 37 |....7,30)" ";.7|
00000fc0 2c 33 30 29 3b 6c 69 76 61 25 0d 05 0a 21 f1 8a |,30);liva%...!..|
00000fd0 33 32 2c 32 38 29 22 20 20 20 20 20 20 22 3b 8a |32,28)" ";.|
00000fe0 33 32 2c 32 38 29 73 63 72 62 25 0d 05 14 1e f1 |32,28)scrb%.....|
00000ff0 8a 33 37 2c 33 30 29 22 20 20 22 3b 8a 33 37 2c |.37,30)" ";.37,|
00001000 33 30 29 3b 6c 69 76 62 25 0d 05 1e 08 fb 31 32 |30);livb%.....12|
00001010 38 0d 05 28 05 e1 0d 05 32 05 3a 0d 05 3c 0b dd |8..(....2.:..<..|
00001020 f2 74 69 74 6c 65 0d 05 46 1b ef 31 39 2c 33 2c |.title..F..19,3,|
00001030 31 2c 30 2c 30 2c 30 2c 30 3a 2a 46 58 31 35 2c |1,0,0,0,0:*FX15,|
00001040 30 0d 05 50 8d db 3a e3 62 61 3d 33 30 30 b8 31 |0..P..:.ba=300.1|
00001050 88 2d 35 30 3a e6 30 2c 62 61 2f 35 30 3a ec 34 |.-50:.0,ba/50:.4|
00001060 30 30 2d 62 61 2c 34 30 30 3a ec 34 30 30 2c 34 |00-ba,400:.400,4|
00001070 30 30 2b 62 61 3a f0 38 35 2c 34 30 30 2c 34 30 |00+ba:.85,400,40|
00001080 30 2d 62 61 3a f0 38 35 2c 34 30 30 2b 62 61 2c |0-ba:.85,400+ba,|
00001090 34 30 30 3a ed 3a fb 31 33 31 3a f7 3a e3 79 63 |400:.:.131:.:.yc|
000010a0 3d 31 b8 35 3a f3 6c 24 3a e3 78 63 3d 30 b8 33 |=1.5:.l$:.xc=0.3|
000010b0 39 3a e7 c1 6c 24 2c 78 63 2b 31 2c 31 29 3d 22 |9:..l$,xc+1,1)="|
000010c0 2a 22 8c f1 8a 78 63 2c 79 63 29 22 20 22 0d 05 |*"...xc,yc)" "..|
000010d0 5a a0 ed 2c 3a fb 31 32 38 3a fb 31 3a f1 8a 31 |Z..,:.128:.1:..1|
000010e0 30 2c 39 29 22 62 79 20 44 6f 6d 69 6e 69 63 20 |0,9)"by Dominic |
000010f0 46 6f 72 64 20 31 39 39 36 22 3a fb 32 3a f1 8a |Ford 1996":.2:..|
00001100 32 33 2c 32 30 29 22 53 50 41 43 45 20 2d 20 48 |23,20)"SPACE - H|
00001110 75 6d 61 6e 2f 45 6c 6b 22 3b 8a 32 37 2c 32 32 |uman/Elk";.27,22|
00001120 29 22 32 20 2d 20 32 20 50 6c 61 79 65 72 22 3b |)"2 - 2 Player";|
00001130 8a 32 37 2c 32 34 29 22 51 20 2d 20 51 75 69 74 |.27,24)"Q - Quit|
00001140 22 3b 8a 32 37 2c 32 36 29 3b 22 53 20 2d 20 53 |";.27,26);"S - S|
00001150 6f 75 6e 64 22 3b 8a 32 35 2c 31 36 29 22 53 6f |ound";.25,16)"So|
00001160 75 6e 64 3a 22 3b 8a 33 32 2c 31 36 29 3b 0d 05 |und:";.32,16);..|
00001170 64 19 e7 20 73 6f 75 6e 64 20 8c f1 22 4f 6e 22 |d.. sound .."On"|
00001180 8b f1 22 4f 66 66 22 0d 05 6e 53 e6 33 2c 32 3a |.."Off"..nS.3,2:|
00001190 ec 31 31 38 30 2c 31 30 32 34 3a ec 34 30 30 2c |.1180,1024:.400,|
000011a0 34 30 30 3a f0 38 35 2c 31 33 38 30 2c 31 30 32 |400:.85,1380,102|
000011b0 34 3a f5 3a f5 3a 6b 24 3d bf 28 30 29 3a fd 20 |4:.:.:k$=.(0):. |
000011c0 a7 22 20 32 51 71 53 73 22 2c 6b 24 29 3c 3e 30 |." 2QqSs",k$)<>0|
000011d0 20 80 20 a9 28 6b 24 29 3e 30 0d 05 78 1c e7 6b | . .(k$)>0..x..k|
000011e0 24 3d 22 53 22 84 6b 24 3d 22 73 22 8c f2 73 6f |$="S".k$="s"..so|
000011f0 75 6e 64 3a fd a3 0d 05 82 06 fd b9 0d 05 8c 05 |und:............|
00001200 e1 0d 05 96 05 3a 0d 05 a0 0b dd f2 73 6f 75 6e |.....:......soun|
00001210 64 0d 05 aa 25 e7 20 73 6f 75 6e 64 20 8c 20 73 |d...%. sound . s|
00001220 6f 75 6e 64 3d a3 3a f1 8a 33 32 2c 31 36 29 22 |ound=.:..32,16)"|
00001230 4f 66 66 22 3a e1 0d 05 b4 19 73 6f 75 6e 64 3d |Off":.....sound=|
00001240 b9 3a f1 8a 33 32 2c 31 36 29 22 4f 6e 20 22 0d |.:..32,16)"On ".|
00001250 05 be 05 e1 0d 05 c8 05 3a 0d 05 d2 2f dc 22 2a |........:.../."*|
00001260 20 20 20 2a 2a 2a 20 2a 2a 2a 20 2a 2a 2a 20 2a | *** *** *** *|
00001270 2a 2a 20 20 2a 2a 2a 2a 20 2a 2a 2a 20 2a 2a 2a |** **** *** ***|
00001280 20 2a 2a 2a 2a 2a 2a 22 0d 05 dc 2f dc 22 2a 20 | ******".../."* |
00001290 20 20 2a 20 2a 20 2a 20 20 20 2a 20 20 20 2a 20 | * * * * * |
000012a0 2a 20 20 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 |* * * * * * * |
000012b0 20 2a 20 2a 20 20 22 0d 05 e6 2f dc 22 2a 20 20 | * * ".../."* |
000012c0 20 2a 2a 2a 20 2a 2a 2a 20 2a 2a 20 20 2a 2a 2a | *** *** ** ***|
000012d0 20 20 20 2a 20 2a 20 2a 2a 2a 20 2a 2a 2a 20 20 | * * *** *** |
000012e0 2a 20 2a 2a 2a 22 0d 05 f0 2f dc 22 2a 20 20 20 |* ***".../."* |
000012f0 2a 20 2a 20 20 20 2a 20 2a 20 20 20 2a 2a 20 20 |* * * * ** |
00001300 20 20 2a 20 2a 20 2a 20 2a 20 2a 2a 20 20 20 2a | * * * * ** *|
00001310 20 20 20 2a 22 0d 05 fa 2f dc 22 2a 2a 2a 20 2a | *".../."*** *|
00001320 20 2a 20 2a 2a 2a 20 2a 2a 2a 20 2a 20 2a 20 20 | * *** *** * * |
00001330 2a 2a 2a 2a 20 2a 20 2a 20 2a 20 2a 20 20 2a 20 |**** * * * * * |
00001340 2a 2a 2a 22 0d 06 04 05 3a 0d 06 0e 09 dd f2 61 |***"....:......a|
00001350 73 73 0d 06 18 1d 6f 73 77 6f 72 64 3d 26 46 46 |ss....osword=&FF|
00001360 46 31 3a 6f 73 77 72 63 68 3d 26 46 46 45 45 0d |F1:oswrch=&FFEE.|
00001370 06 22 10 e3 20 70 61 73 73 3d 30 b8 32 88 32 0d |.".. pass=0.2.2.|
00001380 06 2c 0b 50 25 3d 26 42 43 30 0d 06 36 0d 5b 4f |.,.P%=&BC0..6.[O|
00001390 50 54 20 70 61 73 73 0d 06 40 0f 2e 70 6c 61 20 |PT pass..@..pla |
000013a0 45 51 55 42 20 30 0d 06 4a 0f 2e 78 6c 61 20 45 |EQUB 0..J..xla E|
000013b0 51 55 42 20 30 0d 06 54 0f 2e 79 6c 61 20 45 51 |QUB 0..T..yla EQ|
000013c0 55 42 20 30 0d 06 5e 0f 2e 64 6c 61 20 45 51 55 |UB 0..^..dla EQU|
000013d0 42 20 30 0d 06 68 0e 2e 70 6e 20 45 51 55 42 20 |B 0..h..pn EQUB |
000013e0 30 0d 06 72 23 2e 70 78 20 45 51 55 44 20 30 3a |0..r#.px EQUD 0:|
000013f0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00001400 55 44 20 30 0d 06 7c 23 2e 70 79 20 45 51 55 44 |UD 0..|#.py EQUD|
00001410 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 | 0:EQUD 0:EQUD 0|
00001420 3a 45 51 55 44 20 30 0d 06 86 16 2e 74 69 6d 20 |:EQUD 0.....tim |
00001430 45 51 55 44 20 30 3a 45 51 55 42 20 30 0d 06 90 |EQUD 0:EQUB 0...|
00001440 0d 5d 3a 50 25 3d 26 45 30 30 0d 06 9a 0d 5b 4f |.]:P%=&E00....[O|
00001450 50 54 20 70 61 73 73 0d 06 a4 13 2e 74 72 61 63 |PT pass.....trac|
00001460 65 72 61 79 20 4c 44 58 23 30 0d 06 ae 4d 2e 73 |eray LDX#0...M.s|
00001470 74 61 72 74 6c 6f 70 20 4c 44 41 78 6c 61 3a 53 |tartlop LDAxla:S|
00001480 54 41 70 78 2c 58 3a 4c 44 41 79 6c 61 3a 53 54 |TApx,X:LDAyla:ST|
00001490 41 70 79 2c 58 3a 49 4e 58 3a 43 50 58 23 38 3a |Apy,X:INX:CPX#8:|
000014a0 42 4e 45 73 74 61 72 74 6c 6f 70 3a 4c 44 41 23 |BNEstartlop:LDA#|
000014b0 30 3a 53 54 41 70 6e 0d 06 b8 7e 2e 74 72 61 63 |0:STApn...~.trac|
000014c0 65 6c 6f 70 20 4c 44 41 23 31 3a 4c 44 58 23 28 |elop LDA#1:LDX#(|
000014d0 74 69 6d 20 83 20 32 35 36 29 3a 4c 44 59 23 28 |tim . 256):LDY#(|
000014e0 74 69 6d 20 81 20 32 35 36 29 3a 4a 53 52 6f 73 |tim . 256):JSRos|
000014f0 77 6f 72 64 3a 4c 44 41 74 69 6d 3a 53 54 41 26 |word:LDAtim:STA&|
00001500 37 34 3a 4c 44 41 64 6c 61 3a 42 4e 45 6e 6f 74 |74:LDAdla:BNEnot|
00001510 6c 65 66 74 3a 4c 44 41 78 6c 61 3a 53 45 43 3a |left:LDAxla:SEC:|
00001520 53 42 43 23 32 3a 53 54 41 78 6c 61 3a 4a 4d 50 |SBC#2:STAxla:JMP|
00001530 6d 6f 76 65 64 0d 06 c2 3c 2e 6e 6f 74 6c 65 66 |moved...<.notlef|
00001540 74 20 43 4d 50 23 31 3a 42 4e 45 6e 6f 74 75 70 |t CMP#1:BNEnotup|
00001550 3a 4c 44 41 79 6c 61 3a 43 4c 43 3a 41 44 43 23 |:LDAyla:CLC:ADC#|
00001560 32 3a 53 54 41 79 6c 61 3a 4a 4d 50 6d 6f 76 65 |2:STAyla:JMPmove|
00001570 64 0d 06 cc 39 2e 6e 6f 74 75 70 20 43 4d 50 23 |d...9.notup CMP#|
00001580 32 3a 42 4e 45 64 6f 77 6e 3a 4c 44 41 78 6c 61 |2:BNEdown:LDAxla|
00001590 3a 43 4c 43 3a 41 44 43 23 32 3a 53 54 41 78 6c |:CLC:ADC#2:STAxl|
000015a0 61 3a 4a 4d 50 6d 6f 76 65 64 0d 06 d6 21 2e 64 |a:JMPmoved...!.d|
000015b0 6f 77 6e 20 4c 44 41 79 6c 61 3a 53 45 43 3a 53 |own LDAyla:SEC:S|
000015c0 42 43 23 32 3a 53 54 41 79 6c 61 0d 06 e0 68 2e |BC#2:STAyla...h.|
000015d0 6d 6f 76 65 64 20 4a 53 52 67 65 74 61 64 3a 4c |moved JSRgetad:L|
000015e0 44 41 28 26 37 30 29 2c 59 3a 4c 44 58 26 37 32 |DA(&70),Y:LDX&72|
000015f0 3a 80 73 63 72 62 69 74 2c 58 3a 53 54 41 26 37 |:.scrbit,X:STA&7|
00001600 33 3a 80 23 26 46 30 3a 42 45 51 6e 6f 74 72 65 |3:.#&F0:BEQnotre|
00001610 66 3a 4c 44 41 26 37 33 3a 80 23 26 30 46 3a 42 |f:LDA&73:.#&0F:B|
00001620 45 51 6e 6f 74 72 65 66 3a 4a 53 52 72 65 66 6c |EQnotref:JSRrefl|
00001630 65 63 74 0d 06 ea cb 2e 6e 6f 74 72 65 66 20 49 |ect.....notref I|
00001640 4e 43 70 6e 3a 4c 44 41 70 6e 3a 80 23 37 3a 53 |NCpn:LDApn:.#7:S|
00001650 54 41 70 6e 3a 54 41 58 3a 4c 44 41 78 6c 61 3a |TApn:TAX:LDAxla:|
00001660 50 48 41 3a 4c 44 41 79 6c 61 3a 50 48 41 3a 4c |PHA:LDAyla:PHA:L|
00001670 44 41 70 78 2c 58 3a 53 54 41 78 6c 61 3a 4c 44 |DApx,X:STAxla:LD|
00001680 41 70 79 2c 58 3a 53 54 41 79 6c 61 3a 4a 53 52 |Apy,X:STAyla:JSR|
00001690 67 65 74 61 64 3a 4c 44 58 26 37 32 3a 4c 44 41 |getad:LDX&72:LDA|
000016a0 73 63 72 62 69 74 2c 58 3a 82 23 26 46 46 3a 80 |scrbit,X:.#&FF:.|
000016b0 28 26 37 30 29 2c 59 3a 53 54 41 28 26 37 30 29 |(&70),Y:STA(&70)|
000016c0 2c 59 3a 4c 44 58 70 6e 3a 50 4c 41 3a 53 54 41 |,Y:LDXpn:PLA:STA|
000016d0 79 6c 61 3a 53 54 41 70 79 2c 58 3a 50 4c 41 3a |yla:STApy,X:PLA:|
000016e0 53 54 41 78 6c 61 3a 53 54 41 70 78 2c 58 3a 4a |STAxla:STApx,X:J|
000016f0 53 52 67 65 74 61 64 3a 4c 44 58 26 37 32 0d 06 |SRgetad:LDX&72..|
00001700 f4 97 4c 44 41 73 63 72 62 69 74 2c 58 3a 82 23 |..LDAscrbit,X:.#|
00001710 26 46 46 3a 80 28 26 37 30 29 2c 59 3a 53 54 41 |&FF:.(&70),Y:STA|
00001720 28 26 37 30 29 2c 59 3a 4c 44 41 73 63 72 62 69 |(&70),Y:LDAscrbi|
00001730 74 2c 58 3a 80 23 26 46 30 3a 43 4c 43 3a 41 44 |t,X:.#&F0:CLC:AD|
00001740 43 28 26 37 30 29 2c 59 3a 53 54 41 28 26 37 30 |C(&70),Y:STA(&70|
00001750 29 2c 59 3a 4c 44 41 78 6c 61 3a 42 45 51 66 69 |),Y:LDAxla:BEQfi|
00001760 6e 74 72 3a 43 4d 50 23 32 35 32 3a 42 43 53 66 |ntr:CMP#252:BCSf|
00001770 69 6e 74 72 3a 4c 44 41 79 6c 61 3a 42 45 51 66 |intr:LDAyla:BEQf|
00001780 69 6e 74 72 3a 43 4d 50 23 31 35 38 3a 42 43 53 |intr:CMP#158:BCS|
00001790 66 69 6e 74 72 0d 06 fe 61 2e 77 61 69 74 6c 6f |fintr...a.waitlo|
000017a0 70 20 4c 44 41 23 31 3a 4c 44 58 23 28 74 69 6d |p LDA#1:LDX#(tim|
000017b0 20 83 20 32 35 36 29 3a 4c 44 59 23 28 74 69 6d | . 256):LDY#(tim|
000017c0 20 81 20 32 35 36 29 3a 4a 53 52 6f 73 77 6f 72 | . 256):JSRoswor|
000017d0 64 3a 4c 44 41 74 69 6d 3a 43 4d 50 26 37 34 3a |d:LDAtim:CMP&74:|
000017e0 42 45 51 77 61 69 74 6c 6f 70 3a 4a 4d 50 74 72 |BEQwaitlop:JMPtr|
000017f0 61 63 65 6c 6f 70 0d 07 08 2c 2e 66 69 6e 74 72 |acelop...,.fintr|
00001800 20 4c 44 41 78 6c 61 3a 50 48 41 3a 4c 44 41 79 | LDAxla:PHA:LDAy|
00001810 6c 61 3a 50 48 41 3a 4c 44 58 23 30 3a 53 54 58 |la:PHA:LDX#0:STX|
00001820 70 6e 0d 07 12 95 2e 66 69 6e 6c 6f 70 20 4c 44 |pn.....finlop LD|
00001830 41 70 78 2c 58 3a 53 54 41 78 6c 61 3a 4c 44 41 |Apx,X:STAxla:LDA|
00001840 70 79 2c 58 3a 53 54 41 79 6c 61 3a 4a 53 52 67 |py,X:STAyla:JSRg|
00001850 65 74 61 64 3a 4c 44 58 26 37 32 3a 4c 44 41 73 |etad:LDX&72:LDAs|
00001860 63 72 62 69 74 2c 58 3a 82 23 26 46 46 3a 80 28 |crbit,X:.#&FF:.(|
00001870 26 37 30 29 2c 59 3a 53 54 41 28 26 37 30 29 2c |&70),Y:STA(&70),|
00001880 59 3a 49 4e 43 70 6e 3a 4c 44 58 70 6e 3a 43 50 |Y:INCpn:LDXpn:CP|
00001890 58 23 38 3a 42 4e 45 66 69 6e 6c 6f 70 3a 50 4c |X#8:BNEfinlop:PL|
000018a0 41 3a 53 54 41 79 6c 61 3a 50 4c 41 3a 53 54 41 |A:STAyla:PLA:STA|
000018b0 78 6c 61 3a 52 54 53 0d 07 1c 05 3a 0d 07 26 db |xla:RTS....:..&.|
000018c0 2e 72 65 66 6c 65 63 74 20 4c 44 41 78 6c 61 3a |.reflect LDAxla:|
000018d0 43 4c 43 3a 41 44 43 23 26 32 30 3a 4c 53 52 20 |CLC:ADC#&20:LSR |
000018e0 41 3a 4c 53 52 20 41 3a 4c 53 52 20 41 3a 53 45 |A:LSR A:LSR A:SE|
000018f0 43 3a 53 42 43 23 31 30 3a 53 54 41 26 38 30 3a |C:SBC#10:STA&80:|
00001900 4c 44 41 79 6c 61 3a 80 23 26 46 38 3a 50 48 41 |LDAyla:.#&F8:PHA|
00001910 3a 4c 53 52 20 41 3a 43 4c 43 3a 41 44 43 26 38 |:LSR A:CLC:ADC&8|
00001920 30 3a 53 54 41 26 38 30 3a 50 4c 41 3a 41 53 4c |0:STA&80:PLA:ASL|
00001930 20 41 3a 50 48 41 3a 4c 44 41 23 26 41 3a 41 44 | A:PHA:LDA#&A:AD|
00001940 43 23 30 3a 53 54 41 26 38 31 3a 50 4c 41 3a 41 |C#0:STA&81:PLA:A|
00001950 44 43 26 38 30 3a 53 54 41 26 38 30 3a 4c 44 41 |DC&80:STA&80:LDA|
00001960 26 38 31 3a 41 44 43 23 30 3a 53 54 41 26 38 31 |&81:ADC#0:STA&81|
00001970 3a 4c 44 59 23 30 3a 4c 44 41 28 26 38 30 29 2c |:LDY#0:LDA(&80),|
00001980 59 3a 4c 44 59 64 6c 61 3a 43 4d 50 23 31 3a 42 |Y:LDYdla:CMP#1:B|
00001990 45 51 66 6f 72 73 6c 0d 07 30 3f 4c 44 41 62 61 |EQforsl..0?LDAba|
000019a0 63 6b 2c 59 3a 53 54 41 64 6c 61 3a 4a 4d 50 72 |ck,Y:STAdla:JMPr|
000019b0 65 6d 6f 76 65 3a 2e 66 6f 72 73 6c 20 4c 44 41 |emove:.forsl LDA|
000019c0 66 6f 72 2c 59 3a 53 54 41 64 6c 61 3a 4a 4d 50 |for,Y:STAdla:JMP|
000019d0 72 65 6d 6f 76 65 0d 07 3a 32 2e 62 61 63 6b 20 |remove..:2.back |
000019e0 45 51 55 42 33 3a 45 51 55 42 32 3a 2e 66 6f 72 |EQUB3:EQUB2:.for|
000019f0 20 45 51 55 42 31 3a 45 51 55 42 30 3a 45 51 55 | EQUB1:EQUB0:EQU|
00001a00 42 33 3a 45 51 55 42 32 0d 07 44 89 2e 72 65 6d |B3:EQUB2..D..rem|
00001a10 6f 76 65 20 4c 44 41 23 33 31 3a 4a 53 52 6f 73 |ove LDA#31:JSRos|
00001a20 77 72 63 68 3a 4c 44 41 78 6c 61 3a 43 4c 43 3a |wrch:LDAxla:CLC:|
00001a30 41 44 43 23 26 32 30 3a 4c 53 52 20 41 3a 4c 53 |ADC#&20:LSR A:LS|
00001a40 52 20 41 3a 4c 53 52 20 41 3a 4a 53 52 6f 73 77 |R A:LSR A:JSRosw|
00001a50 72 63 68 3a 4c 44 41 79 6c 61 3a 4c 53 52 20 41 |rch:LDAyla:LSR A|
00001a60 3a 4c 53 52 20 41 3a 4c 53 52 20 41 3a 43 4c 43 |:LSR A:LSR A:CLC|
00001a70 3a 41 44 43 23 36 3a 4a 53 52 6f 73 77 72 63 68 |:ADC#6:JSRoswrch|
00001a80 3a 4c 44 41 23 33 32 3a 4a 53 52 6f 73 77 72 63 |:LDA#32:JSRoswrc|
00001a90 68 0d 07 4e 2f 4c 44 41 78 6c 61 3a 50 48 41 3a |h..N/LDAxla:PHA:|
00001aa0 4c 44 41 79 6c 61 3a 50 48 41 3a 4c 44 41 70 6e |LDAyla:PHA:LDApn|
00001ab0 3a 50 48 41 3a 4c 44 58 23 30 3a 53 54 58 70 6e |:PHA:LDX#0:STXpn|
00001ac0 0d 07 58 e0 2e 72 65 6d 6c 6f 70 20 4c 44 41 70 |..X..remlop LDAp|
00001ad0 78 2c 58 3a 53 54 41 78 6c 61 3a 4c 44 41 70 79 |x,X:STAxla:LDApy|
00001ae0 2c 58 3a 53 54 41 79 6c 61 3a 4a 53 52 67 65 74 |,X:STAyla:JSRget|
00001af0 61 64 3a 4c 44 58 26 37 32 3a 4c 44 41 73 63 72 |ad:LDX&72:LDAscr|
00001b00 62 69 74 2c 58 3a 82 23 26 46 46 3a 80 28 26 37 |bit,X:.#&FF:.(&7|
00001b10 30 29 2c 59 3a 53 54 41 28 26 37 30 29 2c 59 3a |0),Y:STA(&70),Y:|
00001b20 4c 44 41 73 63 72 62 69 74 2c 58 3a 80 23 26 46 |LDAscrbit,X:.#&F|
00001b30 30 3a 43 4c 43 3a 41 44 43 28 26 37 30 29 2c 59 |0:CLC:ADC(&70),Y|
00001b40 3a 53 54 41 28 26 37 30 29 2c 59 3a 49 4e 43 70 |:STA(&70),Y:INCp|
00001b50 6e 3a 4c 44 58 70 6e 3a 43 50 58 23 38 3a 42 4e |n:LDXpn:CPX#8:BN|
00001b60 45 72 65 6d 6c 6f 70 3a 50 4c 41 3a 53 54 41 70 |Eremlop:PLA:STAp|
00001b70 6e 3a 50 4c 41 3a 53 54 41 79 6c 61 3a 50 4c 41 |n:PLA:STAyla:PLA|
00001b80 3a 53 54 41 78 6c 61 3a 4c 44 41 23 30 3a 54 41 |:STAxla:LDA#0:TA|
00001b90 59 3a 53 54 41 28 26 38 30 29 2c 59 3a 52 54 53 |Y:STA(&80),Y:RTS|
00001ba0 0d 07 62 05 3a 0d 07 6c ca 2e 67 65 74 61 64 20 |..b.:..l..getad |
00001bb0 4c 44 41 78 6c 61 3a 80 23 26 46 38 3a 53 54 41 |LDAxla:.#&F8:STA|
00001bc0 26 37 32 3a 43 4c 43 3a 41 44 43 23 26 34 30 3a |&72:CLC:ADC#&40:|
00001bd0 53 54 41 26 37 30 3a 4c 44 41 23 30 3a 41 44 43 |STA&70:LDA#0:ADC|
00001be0 23 26 33 46 3a 53 54 41 26 37 31 3a 4c 44 41 26 |#&3F:STA&71:LDA&|
00001bf0 37 30 3a 43 4c 43 3a 41 44 43 26 37 32 3a 53 54 |70:CLC:ADC&72:ST|
00001c00 41 26 37 30 3a 4c 44 41 26 37 31 3a 41 44 43 23 |A&70:LDA&71:ADC#|
00001c10 30 3a 53 54 41 26 37 31 3a 4c 44 41 79 6c 61 3a |0:STA&71:LDAyla:|
00001c20 80 23 26 46 38 3a 41 53 4c 20 41 3a 53 54 41 26 |.#&F8:ASL A:STA&|
00001c30 37 32 3a 4c 44 41 23 30 3a 52 4f 4c 20 41 3a 53 |72:LDA#0:ROL A:S|
00001c40 54 41 26 37 33 3a 41 53 4c 26 37 32 3a 52 4f 4c |TA&73:ASL&72:ROL|
00001c50 26 37 33 3a 41 53 4c 26 37 32 3a 52 4f 4c 26 37 |&73:ASL&72:ROL&7|
00001c60 33 3a 41 53 4c 26 37 32 3a 52 4f 4c 26 37 33 0d |3:ASL&72:ROL&73.|
00001c70 07 76 2a 4c 44 41 26 37 30 3a 43 4c 43 3a 41 44 |.v*LDA&70:CLC:AD|
00001c80 43 26 37 32 3a 53 54 41 26 37 30 3a 4c 44 41 26 |C&72:STA&70:LDA&|
00001c90 37 31 3a 41 44 43 26 37 33 0d 07 80 bc 53 54 41 |71:ADC&73....STA|
00001ca0 26 37 31 3a 41 53 4c 26 37 32 3a 52 4f 4c 26 37 |&71:ASL&72:ROL&7|
00001cb0 33 3a 41 53 4c 26 37 32 3a 52 4f 4c 26 37 33 3a |3:ASL&72:ROL&73:|
00001cc0 4c 44 41 26 37 30 3a 43 4c 43 3a 41 44 43 26 37 |LDA&70:CLC:ADC&7|
00001cd0 32 3a 53 54 41 26 37 30 3a 4c 44 41 26 37 31 3a |2:STA&70:LDA&71:|
00001ce0 41 44 43 26 37 33 3a 53 54 41 26 37 31 3a 4c 44 |ADC&73:STA&71:LD|
00001cf0 41 79 6c 61 3a 80 23 37 3a 41 44 43 26 37 30 3a |Ayla:.#7:ADC&70:|
00001d00 53 54 41 26 37 30 3a 4c 44 41 26 37 31 3a 41 44 |STA&70:LDA&71:AD|
00001d10 43 23 30 3a 53 54 41 26 37 31 3a 4c 44 41 78 6c |C#0:STA&71:LDAxl|
00001d20 61 3a 80 23 34 3a 41 53 4c 20 41 3a 41 44 43 26 |a:.#4:ASL A:ADC&|
00001d30 37 30 3a 53 54 41 26 37 30 3a 4c 44 41 78 6c 61 |70:STA&70:LDAxla|
00001d40 3a 80 23 33 3a 53 54 41 26 37 32 3a 4c 44 59 23 |:.#3:STA&72:LDY#|
00001d50 30 3a 52 54 53 0d 07 8a 2b 2e 73 63 72 62 69 74 |0:RTS...+.scrbit|
00001d60 20 45 51 55 42 26 38 38 3a 45 51 55 42 26 34 34 | EQUB&88:EQUB&44|
00001d70 3a 45 51 55 42 26 32 32 3a 45 51 55 42 26 31 31 |:EQUB&22:EQUB&11|
00001d80 0d 07 94 07 5d 3a ed 0d 07 9e 05 e1 0d 07 a8 05 |....]:..........|
00001d90 3a 0d 07 b2 0b dd f2 72 65 6c 6f 63 0d 07 bc 17 |:......reloc....|
00001da0 d3 3d 26 35 38 30 30 3a 6e 65 77 70 61 67 65 3d |.=&5800:newpage=|
00001db0 26 31 31 0d 07 c6 14 e3 20 70 61 73 73 3d 30 20 |&11..... pass=0 |
00001dc0 b8 20 32 20 88 20 32 0d 07 d0 0b 50 25 3d 26 43 |. 2 . 2....P%=&C|
00001dd0 30 30 0d 07 da 0c 5b 4f 50 54 70 61 73 73 0d 07 |00....[OPTpass..|
00001de0 e4 52 20 20 20 20 4c 44 59 23 30 3a 53 54 59 26 |.R LDY#0:STY&|
00001df0 37 30 3a 53 54 59 26 37 32 3a 4c 44 41 23 6e 65 |70:STY&72:LDA#ne|
00001e00 77 70 61 67 65 3a 53 45 43 3a 53 42 43 26 31 38 |wpage:SEC:SBC&18|
00001e10 3a 53 54 41 26 37 34 3a 4c 44 41 26 31 38 3a 43 |:STA&74:LDA&18:C|
00001e20 4d 50 23 6e 65 77 70 61 67 65 3a 42 43 43 61 64 |MP#newpage:BCCad|
00001e30 0d 07 ee 21 2e 73 62 20 53 54 41 26 37 31 3a 4c |...!.sb STA&71:L|
00001e40 44 41 23 6e 65 77 70 61 67 65 3a 53 54 41 26 37 |DA#newpage:STA&7|
00001e50 33 0d 07 f8 53 2e 6d 31 20 4c 44 41 28 26 37 30 |3...S.m1 LDA(&70|
00001e60 29 2c 59 3a 53 54 41 28 26 37 32 29 2c 59 3a 49 |),Y:STA(&72),Y:I|
00001e70 4e 59 3a 42 4e 45 6d 31 3a 49 4e 43 26 37 31 3a |NY:BNEm1:INC&71:|
00001e80 49 4e 43 26 37 33 3a 4c 44 58 26 37 31 3a 44 45 |INC&73:LDX&71:DE|
00001e90 58 3a 43 50 58 26 30 33 3a 42 43 43 6d 31 3a 42 |X:CPX&03:BCCm1:B|
00001ea0 43 53 65 6d 0d 08 02 34 2e 61 64 20 4c 44 41 26 |CSem...4.ad LDA&|
00001eb0 30 33 3a 53 54 41 26 37 31 3a 43 4c 43 3a 41 44 |03:STA&71:CLC:AD|
00001ec0 43 26 37 34 3a 53 54 41 26 37 33 3a 4c 44 41 23 |C&74:STA&73:LDA#|
00001ed0 30 3a 4c 44 59 26 30 32 0d 08 0c 58 2e 6d 32 20 |0:LDY&02...X.m2 |
00001ee0 4c 44 41 28 26 37 30 29 2c 59 3a 53 54 41 28 26 |LDA(&70),Y:STA(&|
00001ef0 37 32 29 2c 59 3a 44 45 59 3a 43 50 59 23 26 46 |72),Y:DEY:CPY#&F|
00001f00 46 3a 42 4e 45 6d 32 3a 44 45 43 26 37 31 3a 44 |F:BNEm2:DEC&71:D|
00001f10 45 43 26 37 33 3a 4c 44 41 26 37 33 3a 43 4d 50 |EC&73:LDA&73:CMP|
00001f20 23 6e 65 77 70 61 67 65 2d 31 3a 42 43 53 6d 32 |#newpage-1:BCSm2|
00001f30 0d 08 16 3e 2e 65 6d 20 4c 44 41 26 31 33 3a 43 |...>.em LDA&13:C|
00001f40 4c 43 3a 41 44 43 26 37 34 3a 53 54 41 26 31 33 |LC:ADC&74:STA&13|
00001f50 3a 53 54 41 26 30 31 3a 4c 44 41 23 6e 65 77 70 |:STA&01:LDA#newp|
00001f60 61 67 65 3a 53 54 41 26 31 38 3a 52 54 53 0d 08 |age:STA&18:RTS..|
00001f70 20 05 5d 0d 08 2a 05 ed 0d 08 34 08 ef 20 32 31 | .]..*....4.. 21|
00001f80 0d 08 3e 31 ff 22 4b 45 59 20 30 22 22 43 41 4c |..>1."KEY 0""CAL|
00001f90 4c 26 43 30 30 7c 4d 52 55 4e 7c 46 7c 4d 22 22 |L&C00|MRUN|F|M""|
00001fa0 22 3a ff 22 46 58 20 31 35 33 2c 30 2c 31 32 38 |":."FX 153,0,128|
00001fb0 22 0d 08 48 05 e0 0d 08 52 05 e1 0d ff |"..H....R....|
00001fbd 
.