( � ******* DINO *******
2 � and the saurus races
< � by Gordon J. Key
F � (c) The Micro User
P	 *FX3
Z
 *TAPE
d �P<&3000 �2��7:�shorten
n �init:�g:�
x ��g:�:�start:�
�& �26:�1,30);:�(3+(S%�9)*2)�9:�132
� �T%=0�S%�9:�144:�
� A%=�("FNscr"+�(S%�9))
� �A%=�:�end:��:�0
� �A%S%=S%+1�S%=0
� �A%=�:�0:�
� ��start
�N �19,12,8;0;19,13,15;0;17,128,28;20,19,10,12,17,132,28;31,19,29,12,26,18;7
� �0,92:�1280,92:L%=4:S%=0
� �0,2:�0,712:�1280,712
� �0,716:�1280,716
� �prntsc:�getspc:C%=10
� X%=148:Y%=208:�Q%,C%,X%,Y%

 �dash:X%=2:Y%=71:C%=0:D%=0

1 s%=0:P%=2000:?&E3A=190:?&E3B=0:?&E3C=0:*FX14

 �3,0,0,0:�

" ��prntsc:�0,129:�0,7

,  �24,482;960;796;990;16,26,5

6 �482,988:�"SCORE"

@ �7:�129:�4,26

J? �6,2)�(8)�6,3)"00000000"�14,5)"NAME"�12,6)�(8)�12,7)$&380

T> �2,5)"HIGH"�0,6)�(8)�0,7)�"00000000",8-�(�(hs%)))+�(hs%)

^G �0,6:�0,1023:�0,966:�85,480,1023:�1279,1023:�1279,966:�85,800,1023

hd �1,4:�0,832:�508,832:�85,254,900:�772,832:�1279,832:�85,1028,900:�384,960:�892,960:�85,640,1048

r �

| ��dash:�c%,x%,y%

� c%=9:y%=192:�x%=330�-6�-6

� �x%>0�&11,-15,x%�2,1:*FX19

� �Q%,c%,x%,y%:�&11,0,0,1

� �del(1):�:�

�9 ��end:�17,128,28;24,19,10,12,17,132,28,4,18,15,16,12

� �'" GAME  OVER":�fade

� �128:�:�s%>hs%�getname

� �

�+ ��getspc:�17,132,17,7,28,3,15,16,11,12

�, �0,1)"PRESS SPACE TO"�5,3)"PLAY":*FX21

�2 �c%,x%,y%,xa%,ya%:c%=10:x%=160:y%=100:�:*FX19

�7 �Q%,c%,x%,y%:�(10)=1xa%=(�(3)-2)*4:ya%=(�(3)-2)*2

�- �x%+xa%>280�x%+xa%<20xa%=-xa%:�1,1,100,1
- �y%+ya%>126�y%+ya%<50ya%=-ya%:�1,1,100,1
 x%=x%+xa%:y%=y%+ya%:��-99
 x%=148:y%=208:�Q%,c%,x%,y%
&
 �128:�:�
0W ��fade:�T%=80�0�-1:�4,2,0,0,0,0,0,0,T%,-1,-2,-2,T%,0:�19,7,T%�8;0;:�del(3):�:*FX13
: *FX21,7
D3 �19,7,7;0;:�4,2,0,0,0,0,0,0,80,-1,-2,-2,80,0:�
N ��getname
X" ?&E3A=240:?&E3B=192:?&E3C=192
b
 *FX14
ly �3,0,0,0:hs%=s%:T%=0:$&380="        ":�prntsc:�129:�28,4,18,15,16,12:�'" ENTER NAME"�26�12,7);:�12:�19,12,8;0;:*FX21
vP �:I%=�:�I%>31�I%<127�T%<8�I%:T%?&380=I%:T%=T%+1��I%<>127�I%<>13�1,-15,100,5
�0 �I%=127�T%�I%:T%=T%-1:T%?&380=13-19*(T%<>8)
�> �I%=13:�prntsc:�28,4,18,15,16,12:�'" YOUR  TOPS"�26:�fade
� �
� ݤrart(m%)
�! �m%<>� s%=s%+(S%+1)*1000:=m%
�% X%=2:Y%=71:?&77=0:L%=L%-1:�L%�=0
� =m%
�d ��init:�23;8202;0;0;0;:Q%=&900:E%=&84:hs%=100:?&77=0:?&220=0:?&221=&11:$&380=" TIGGER ":*FX14,4
�
 *FX16
� *FX9,3
� *FX10,3
� �
�4 ݤplay(a%,b%,c%,d%,e%,f%,g%,h%,i%,F%,G%,H%):�m%
O V%=(S%�9)*4:F%=F%+V%:G%=G%+V%:H%=H%+V%:�=0:V%=320:U%=400:?&8D=0:�:�D%�fall
 �>P%V%=U%
$ b%=b%-F%:�b%<0 b%=V%:�V%=U%F%=0
 $ e%=e%-G%:�e%<0 e%=V%:�V%=U%G%=0
*$ h%=h%-H%:�h%<0 h%=V%:�V%=U%H%=0
4 �Q%,C%,X%,Y%
> �Q%,a%,b%,c%:�?E%D%=�
H �Q%,d%,e%,f%:�?E%D%=�
R �Q%,g%,h%,i%:�?E%D%=�
\ �Z%�(20)=1�&11,3,170,5
f
 �O%�s
p
 �W%c%=�h
z" �b%=U%�e%=U%�h%=U%�m%<>� m%=1
� �m%
� =�rart(m%)
� ��fall
� �c%,x%,y%,j%,k%
� s%=s%+?&8D*(S%+1)*10:�26
�& X%=X%*4+6:x%=X%:j%=80:c%=12:y%=36
� �Q%,C%,j%,Y%:�Q%,c%,x%,y%
�< �0,2,6,10:�26:�7:�129:�6,3)�"00000000",8-��(s%));s%�30
�I c%=11:y%=Y%:B%=-6:j%=26:k%=6:�:�Q%,c%,x%,y%:�del(1):x%=x%+2:y%=y%+B%
�& �y%>j%+55B%=-k%:j%=j%-1:�j%<1j%=1
�$ �y%<=55:y%=55:B%=k%:�&11,1,50,1
� �x%>300
�F b%=�:e%=�:h%=�:?&77=0:D%=0:m%=�:c%=10:x%=148:y%=208:C%=12:Y%=36:�
$ �x%<>X%+16x%=x%+�((X%+16)-x%)*2
 �y%<>52 y%=y%-6

 *FX19
$ �Q%,c%,x%,y%:*FX19
.Q �&10,-15,3,1:�&11,0,y%+30,1:�x%>X%+13�x%<X%+19�y%=52:�:x%=x%+6:X%=X%+6:*FX19
8 �Q%,c%,x%,y%:�Q%,C%,X%,Y%
BG �&10,-15,7,1:�&11,0,x%�2,1:�x%>320:�L%-1x%=148:y%=208:�Q%,c%,x%,y%
L X%=80:Y%=71:C%=0
V �
`i ݤscr0:�19,13,0;0;:�A%:?&8C=192:Z%=0:O%=0:W%=0:�:A%=�play(2,320,25,4,480,256,3,480,25,8,8,8):�A%:=A%
jh ݤscr1:�A%:Z%=�:?&1283=2:?&1284=2:�:A%=�play(2,320,25,1,340,85,3,480,25,8,2,8):�A%:�19,13,15;0;:=A%
tS ݤscr2:�A%:?&8C=255:Z%=0:�:A%=�play(4,320,35,5,480,35,6,540,256,7,7,7):�A%:=A%
~~ ݤscr3:�A%:?&8C=243:?&1283=2:?&1284=0:O%=4:�19,12,4;0;:�tunn(130):�:A%=�play(7,320,126,8,480,126,5,320,256,9,9,9):�A%:=A%
�V ݤscr4:�A%:O%=2:�:A%=�play(7,320,126,8,536,126,5,428,35,9,9,9):�A%:�A%�tunn(128)
� O%=0:�19,12,8;0;:=A%
�R ݤscr5:�A%:?&8C=255:Z%=0:�:A%=�play(4,320,35,5,428,35,6,536,35,7,7,7):�A%:=A%
�� ݤscr6:�A%:?&8C=243:?&1283=2:?&1284=0:O%=4:�19,12,4;0;:�tunn(130):�:A%=�play(7,320,126,8,430,126,9,320,35,9,9,12):�A%:�A%�tunn(128)
� O%=0:�19,12,8;0;:=A%
�I ݤscr7:�A%:�:A%=�play(9,320,35,3,540,256,4,540,256,18,18,18):�A%:=A%
�P ݤscr8:y%=-6:W%=�:�A%:�:A%=�play(10,310,96,5,420,35,4,580,35,4,8,8):�A%:=A%
� ݤh
�! c%=c%+y%:�c%>150�c%<68y%=-y%
�# �&111,0,c%,2:�&110,-15,7,2:=c%
� ��s
�0 �c%<126c%=c%+2��(O%)=1:c%=100:�&10,-10,4,4
0 �f%<126f%=f%+2��(O%)=1:f%=100:�&10,-10,4,4

 �
 ��tunn(c%):�c%
; �T%=18�0��:�28,T%,18,T%+1,10,12:�Q%,C%,X%,Y%:�del(2):�
( �
2 ��del(w%):w%=w%+�:���>w%:�
< THEEND
F ��code
P� �23,144,12,12,14,30,248,240,96,96:�1,3,6,10,10,4,4,4,127,0,0,-10,126,0:�2,2,0,0,0,0,0,0,126,-1,-3,-3,126,0:�3,3,-3,-3,-3,3,3,3,126,0,0,-6,126,0:�4,2,0,0,0,0,0,0,80,-1,-2,-2,80,0
Zv w=&70:jf=&77:j=&78:sno=&80:xc=&81:yc=&82:wp=&83:hit=&84:ht=&85:tot=&86:xs=&87:ys=&88:tl=&89:ht2=&8B:m=&8C:njs=&8D
d �T%=&900�&AFF�4:!T%=0:�
n �T%=&E00�&12FF�4:!T%=0:�
x �T=0�2�2:P%=&900:[OPTT:.Q%
� LDX#5:LDY#8:.lp1
� LDA&600,Y:STAw,X:DEX:DEY
� LDA&600,Y:STAw,X:DEY:DEY
�$ DEX:BPLlp1:LDY#0:STYwp:LDA(w),Y
�  STAsno:TAX:LDAsptht,X:STAht
�" LDAspttot,X:STAtot:LDA(w+2),Y
�# STAxc:INY:LDA(w+2),Y:STAyc:TXA
�# BEQoth:LSRyc:RORxc:LSRyc:RORxc
�# .oth:DEY:LDAxc:CMPmx,X:BCCgety
�% DECwp:.gety:LDA(w+4),Y:STAyc:INY
�% LDA(w+4),Y:BEQntoff:DECwp:.ntoff
�% LDAwp:BEQo:LDA#&90:STAw+1:BMIntp
� .o:LDA#0:STAw+1:LDAxc:ASLA
# ROLw+1:ASLA:ROLw+1:ASLA:ROLw+1
  STAw:LDAyc:�#7:�#7:CLC:ADCw
" STAw:BCCypoint:INCw+1:.ypoint
"" LDAyc:�#248:LSRA:LSRA:TAX:CLC
, LDArp,X:ADCw:STAw:INX
6 LDArp,X:ADCw+1:STAw+1:.ntp
@ LDAsno:BEQisd:JMPntd:.isd
J  LDY#0:LDX#&9E:JSRi:BNEright
T$ DECxc:DECxc:.right:LDX#&BD:JSRi
^" BNElimits:INCxc:INCxc:.limits
h" LDAxc:CMP#5:BCSnl:INCxc:INCxc
r# .nl:CMP#50:BCCnthi:DECxc:DECxc
|! .nthi:LDY#0:LDAxc:STA(w+2),Y
�! LDAjf:BMIprd:BNEjing:LDX#&B6
�$ JSRi:BNEprd:JSRboing:LDA#4:STAj
� .jing:LDY#0:CLC:LDAyc:ADCj
�% STA(w+4),Y:CLC:LDAjf:ADC#1:STAjf
�# CMP#5:BNEgup:LDA#&FC:STAj:.gup
�# CMP#10:BNEprd:LDA#0:STAjf:.prd
�$ LDAw:STAw+5:LDAw+1:STAw+6:JSRfx
�& LDX#0:JSRd:CLC:LDAw+5:STAw:LDAw+6
�" ADC#5:STAw+1:JSRfx:LDX#2:JSRd
�" CLC:LDAw+5:STAw:LDAw+6:ADC#&A
�! STAw+1:JSRfx:LDX#4:JMPd:.ntd
�# INCsno:INCsno:ASLsno:LDXsno:.d
�# LDAsdp,X:STAcl+1:LDAol,X:STAtl
# LDAw:STAol,X:STXxs:INX:LDAol,X
  PHA:LDAsdp,X:STAcl+2:LDAw+1
$ STAol,X:PLA:STAw+1:LDAntst:STAg
&! LDAntst+1:STAg+1:JSRpr:LDA#0
0# STAhit:LDXxs:LDAol,X:STAtl:INX
:" LDAol,X:STAw+1:BMIbyby:LDAtst
D STAg:LDAtst+1:STAg+1:.pr
N LDAtl:�#248:STAw:LDAtl:�#7
X STAys:LDXtot:SEI:.plp1
b$ LDAht:STAht2:LDAw:STAw+2:LDAw+1
l" STAw+3:LDYys:.plp2:LDA(w+2),Y
v .g:BNEb:.cl:�&9000,X
�" STA(w+2),Y:DEX:BEQbyby:DECht2
� BEQnr:INY:CPY#8:BNEplp2
�% CLC:LDAw+2:ADC#&80:STAw+2:LDAw+3
� ADC#2:STAw+3:LDY#0:JMPplp2
�$ .nr:CLC:LDAw:ADC#8:STAw:BCCplp1
�$ INCw+1:JMPplp1:.byby:CLI:LDAhit
� �m:STAhit:RTS:.tst:NOP:NOP
� .ntst:NOP:NOP:.b:PHA:�Ahit
�  STAhit:PLA:JMPcl:.i:LDY#&FF
�$ LDA#&81:JSR&FFF4:INX:RTS:.mark1
�% ]:P%=&E00:[OPTT:.tune:CPX#7:BEQv
�# PLP:RTS:.v:PHA:TXA:PHA:TYA:PHA
�  LDXtcnt:LDAtdta,X:STAtblk+4
  BEQr:LDA#4:.r:STAtblk+2:INX
$ LDAtdta,X:STAtblk+6:INX:CPXtflg
$ BNEntyet:LDXtstt:.ntyet:STXtcnt
   LDX#tblk �256:LDY#tblk �256
*  LDA#7:JSR&FFF1:JMPout:.tflg
4" BRK:.tcnt:BRK:.tstt:BRK:.tblk
> OPT �skip(8):.tdta
H# ]:P%=&1100:[OPTT:.ev:PHP:CMP#4
R$ BEQf:JMPtune:.f:PHA:TXA:PHA:TYA
\ PHA:DECc1:BNEnextcol
f LDAt1:STAc1:LDA#8:STAch
p LDAcol1:STAch+1:JSRc
z LDA#9:STAch:LDAcol1:�#2
� STAch+1:STAcol1:JSRc
�# LDAjog:�#255:STAjog:BEQnextcol
�! LDA#10:STAch:LDAcol2:STAch+1
�" JSRc:LDA#11:STAch:LDAcol2:�#5
�" STAch+1:STAcol2:JSRc:.nextcol
�% DECc2:BNEout:LDAt2:STAc2:LDAacl1
� STAch:LDAcol3:STAch+1:JSRc
�  LDAacl2:STAch:LDAcol3:�ecl3
� STAch+1:STAcol3:JSRc:.out
�# PLA:TAY:PLA:TAX:PLA:PLP:RTS:.c
� LDA#&C:.s:LDX#ch �256
� LDY#ch �256:JMP&FFF1
� .fx:LDA#19:JMP&FFF4:.boing
	% INCnjs:LDA#2:STAch:LDA#1:STAch+2
	" STAch+4:STAch+6:LDA#0:STAch+1
	! LDA#7:JMPs:.mx:OPT �skip(16)
	$  .ol:OPT �skip(32)
	. .sptht:OPT �skip(16)
	8 .spttot:OPT �skip(16)
	B .sdp:OPT �skip(32)
	L .rp:OPT �skip(65)
	V .ch:OPT �skip(8)
	`$ .c1:BRK:.c2:BRK:.t1:BRK:.t2:BRK
	j" .col1:BRK:.col2:BRK:.col3:BRK
	t" .ecl3:BRK:.acl1:BRK:.acl2:BRK
	~
 .jog:]:�
	�� ?tflg=190:!tblk=3:tblk!4=0:?c1=15:?t1=15:?col1=2:?col2=5:?c2=40:?t2=40:?col3=2:?acl1=14:?acl2=15:?ecl3=2:G%=col3:H%=ecl3:?tst=?g:tst?1=g?1:E$="THERE IS A DATA ERROR"
	�= �eval(tdta)<>&AF2F22EB:�:�0,10)E$" BEFORE LINE 2760":�
	�' N%=ol:�T%=0�14:!N%=&9000:N%=N%+2:�
	� �read(mx,12,1)
	� �read(sptht,12,1)
	� �read(spttot,12,1)
	� �read(sdp,28,2)
	� �check(mx,ch,&1CC5,4)
	�1 N%=rp:�T%=31�0�-1:!N%=&3000+640*T%:N%=N%+2:�
	� �check(&900,&AFF,&EA06,1)
	� �check(&E00,tflg,&1746,2)
	� �check(ev,mx,&4B74,3)
< �eval(&1300)<>&59083FB �:�0,10)E$" AFTER LINE 2760":�

 �
 ݤeval(N%):C%=0:�:�A$
$ !N%=�("&"+A$):C%=C%+!N%:N%=N%+4
( �A$="12345678":=C%
2! ��read(P%,N%,S%):�T%=0�N%�S%
< �N%<15�T%?P%��T%!P%
F �:�
P ݤskip(S%):P%=P%+S%:=T
Z ��check(s%,f%,c%,i%)
d) �C%,T%:�T%=s%�f%:C%=C%+?T%:�:�C%=c%�
nP �:�0,10)"THERE IS AN ERROR IN":�i<4�"ASSEMBLER ":��"SPRITE POINTER DATA":�
x �i%�tBJ,�tLJ,�tVJ
� �"BEFORE .mark1":�
�) �"AFTER .mark1"'"AND BEFORE .tflg":�
�" �"AFTER .ev"'"AND BEFORE .mx"
� �
�� �281027D,4890489,489047D,4890491,400047D,C75047D,875047D,281027D,4890489,489047D,4890491,400047D,275027D,275026D,475047D,400086D,4890489,47D0489,2890289,4890491,400047D
�� �C75047D,875047D,4890489,47D0489,2890289,2910291,2890289,400047D,275027D,275026D,475047D,4000C6D,26D066D,489047D,4000C9D,2910691,491049D,27D0C89,4890281,27D0489
�� �289027D,4910289,87D0489,27D0475,47D0281,2750275,4810C6D,26D0665,27D0675,6950881,8890281,2890695,6950881,6650281,675026D,881027D,29D0695,69D08A5,C950295,85FCA9FF,12345678
�� �68,72,74,74,76,76,76,75,75,74,74,74,65,16,12,8,8,12,12,12,32,32,12,16,32,12,208,84,48,48,48,48,48,160,160,84,96,192,180,&12FF,&13CF,&149F,&156F,&15C3,&15C3,&15F3,&15F3,&15F3,&1623,&1623,&16C3,&1717,&1777,&1837
�� �80C,0,0,0,80C0C0C,0,0,0,C3F2A0C,0,0,0,4040C0C,0,3C3C3C00,20000,28,3C003C00,2A3F3C28,303163C,36362828,283C3C36,3C163C3C,1030316,11119B,3030200,3030303,10101,0,10100,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ܸ �0,0,0,0,0,0,0,0,8200,82000000,C00C008,80400000,80A00C3,4100080A,80480C,40000D0E,8084904,D0E0D0E,80C0C08,D0E0D0E,808080C,C0C0C,C040428,C040504,4040C0C,4,2800283C,22283C14,36362222
� �363636,283C3C14,363C3C3C,33333333,33333333,9B333333,33999914,9B333333,11119B,0,0,0,0,0,80C0,0,0,0,804000,0,0,0,0,0,0,0,0,0,0,0
� �0,0,0,0,0,0,0,0,82008249,8080808,82,D0A080A,8484C184,C0C0404,5080C0C,D0E0504,8084082,C40000C,3C000C0C,500143C,441C300,C0A0D0A,14080C0C,3C3C3C3C,D0A0000
�� �C0C0D0C,C0C0C0C,828208,C0C0D0A,C0C0C0C,4040404,0,C0C0D04,C0C,0,0,C040000,80480C0C,80808000,C0C0C0C0,41000000,C0C8604,4040480C,40,0,41000000,C3C34141,8282,0,0,0,82C34141
� �0,26330000,8,0,19190000,223319,A8000000,C0C5CFC,3300AC,FCFCA800,5D5DAEFC,FF0C,54FCFC,ACAC5C00,FFFFFF,220000FC,C0C11,FFFF0000,11000000,C00,55000000
� �A000000,F3F32A0A,30250A00,F3F33F30,3030250A,F3F33F30,30303010,F3F33F30,30301000,F3F33F30,10000000,F3F33F10,0,3172311,202,13220202,32B3302,2030317,23110101,32B3301,117032B,0,32B1322,101
� �22111105,002A0022,0,0,0,0,0,0,33050000,0022333B,0,0,0,0,0,0,33110500,5033333B,50505050,50505050,50505050,50505050,50505050,50505050,33050000,002A1133,0,0,0,0,0,0,00111105,0,0,0,0,0,0,0
"� �BF2F1F1,2213,0,FF2F1F1,22130303,0,FF2F1F1,3030303,2213,F5AF1F1,1030303,22222201,30707F1,33220003,11333333,2000300,33331113,41933,2B000100,1012B,40000
,k �80C0404,808,A4080000,8A6A6A4,C080000,80C0C2E,AA0C000C,CA8A8AA,1D2E0C00,C080C0C,400080C,40404,2E1D0C00
6Y �C040C0C,800040C,80808,C040000,40C0C1D,500C000C,C515150,40C0808,404,5D040000,45C5C5D
@� �3C3C2800,141414,0,0,0,0,0,0,3C3C3C,0,0,0,0,0,28282800,0,223C3C3C,33333333,22222222,0,0,28002800,3E143C28,2032828,3C3C3C14,33333339,33333333
J� �39393939,36362839,3C283C36,3D3D3C3C,303033C,333C1400,39393333,36363636,33333333,111133,16160200,16031616,30303,0,11111100,11111111,11,0,1030300,1010101,0
T� �C0C0808,C2E040C,8A880008,4000808,C1D1D04,CECD000C,C0E0400,C0C0C0E,0,808080C,C0C0508,80C,80A0800,C0E0C04,80C0C,D0E0D0A,C0E0D0E,C0C0C,D0E0D0E,404050E,C0C0C0C,5040504
^� �C0C0C08,C0C0408,C0E0C0C,C0E0C0E,40C0C,8000004,C0C0D0E,C,D0E0000,40C0D0E,0,D0E0D00,40C0C,0,C0C8480,8286,0,41C0C0C0,C3C3,0,C04000,C34100,0,12345678
h ��shorten:�23;8202;0;0;0;
r@ �:�T%=0�1:�7,T%)�129�157�141�134�11)"DINO"�25)�156:�:*FX21
|3 �7,2)�129�157�130"and the saurus races  "�156
� �12,4)"By Gordon J. Key"
� �<>&1900 �relocate
�6 �0,8)�134" The adventures of an Ancient Britain"
�0 �134" as he tries to ride his goblosaurus"
�( �8,12)�130"Use the following keys"
� �12,14)"Z.........LEFT"
� �12,16)"X.........RIGHT"
� �12,18)"RETURN....JUMP"
�/ �4,22)�131"Please wait for a short while"
�- �code:T%=�+1:A$=�255,"*"):�:T%=T%+�$T%+1
�= �?T%=255�:�0,10)"LINE 2820 IS MISSING OR INCORRECT"�7:�
�, A$=$(T%+3):�:�A$,1)=" "A$=�A$,�(A$)-1)
� ��A$,1)<>" "
 ��A$,6)="THEEND"
 �1,1,200,10:�
7 �4,22)�(�(7)+128)"PRESS SPACE WHEN YOU ARE READY"
& ��-99:�1,1,120,10
0 ?T%=&FF:*FX3,2
: *KEY0OLD|MRUN|M
D *FX138,0,128
N �
X ��relocate:*FX138,0,128
b= �0,10)"PLEASE WAIT WHILST I RELOCATE TO &1900"'':*FX3,2
lW �<&1900:*KEY0FORT%=TOP-PAGE TO-4STEP-4:T%!&1900=T%!PAGE:N.:PAGE=&1900|MOLD|MRUN|M
vV �>&1900:*KEY0FORT%=0TOTOP-PAGE STEP4:T%!&1900=T%!PAGE:N.|MPAGE=&1900|MOLD|MRUN|M
�

00000000  0d 00 28 1b 20 f4 20 2a  2a 2a 2a 2a 2a 2a 20 44  |..(. . ******* D|
00000010  49 4e 4f 20 2a 2a 2a 2a  2a 2a 2a 0d 00 32 1b 20  |INO *******..2. |
00000020  f4 20 61 6e 64 20 74 68  65 20 73 61 75 72 75 73  |. and the saurus|
00000030  20 72 61 63 65 73 0d 00  3c 17 20 f4 20 62 79 20  | races..<. . by |
00000040  47 6f 72 64 6f 6e 20 4a  2e 20 4b 65 79 0d 00 46  |Gordon J. Key..F|
00000050  19 20 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |. . (c) The Micr|
00000060  6f 20 55 73 65 72 0d 00  50 09 20 2a 46 58 33 0d  |o User..P. *FX3.|
00000070  00 5a 0a 20 2a 54 41 50  45 0d 00 64 1d 20 e7 b8  |.Z. *TAPE..d. ..|
00000080  50 3c 26 33 30 30 30 20  eb 32 8b eb 37 3a f2 73  |P<&3000 .2..7:.s|
00000090  68 6f 72 74 65 6e 0d 00  6e 0f 20 f2 69 6e 69 74  |horten..n. .init|
000000a0  3a f2 67 3a e0 0d 00 78  13 20 dd f2 67 3a f5 3a  |:.g:...x. ..g:.:|
000000b0  f2 73 74 61 72 74 3a f5  0d 00 82 26 20 ef 32 36  |.start:....& .26|
000000c0  3a f1 8a 31 2c 33 30 29  3b 3a fb 28 33 2b 28 53  |:..1,30);:.(3+(S|
000000d0  25 81 39 29 2a 32 29 83  39 3a fb 31 33 32 0d 00  |%.9)*2).9:.132..|
000000e0  8c 16 20 e3 54 25 3d 30  b8 53 25 83 39 3a ef 31  |.. .T%=0.S%.9:.1|
000000f0  34 34 3a ed 0d 00 96 1a  20 41 25 3d a0 28 22 46  |44:..... A%=.("F|
00000100  4e 73 63 72 22 2b c3 28  53 25 83 39 29 29 0d 00  |Nscr"+.(S%.9))..|
00000110  a0 15 20 e7 41 25 3d b9  3a f2 65 6e 64 3a fd b9  |.. .A%=.:.end:..|
00000120  3a fd 30 0d 00 aa 15 20  e7 ac 41 25 53 25 3d 53  |:.0.... ..A%S%=S|
00000130  25 2b 31 8b 53 25 3d 30  0d 00 b4 0f 20 fd 41 25  |%+1.S%=0.... .A%|
00000140  3d b9 3a fd 30 3a e1 0d  00 be 0c 20 dd f2 73 74  |=.:.0:..... ..st|
00000150  61 72 74 0d 00 c8 4e 20  ef 31 39 2c 31 32 2c 38  |art...N .19,12,8|
00000160  3b 30 3b 31 39 2c 31 33  2c 31 35 3b 30 3b 31 37  |;0;19,13,15;0;17|
00000170  2c 31 32 38 2c 32 38 3b  32 30 2c 31 39 2c 31 30  |,128,28;20,19,10|
00000180  2c 31 32 2c 31 37 2c 31  33 32 2c 32 38 3b 33 31  |,12,17,132,28;31|
00000190  2c 31 39 2c 32 39 2c 31  32 2c 32 36 2c 31 38 3b  |,19,29,12,26,18;|
000001a0  37 0d 00 d2 1d 20 ec 30  2c 39 32 3a df 31 32 38  |7.... .0,92:.128|
000001b0  30 2c 39 32 3a 4c 25 3d  34 3a 53 25 3d 30 0d 00  |0,92:L%=4:S%=0..|
000001c0  dc 1a 20 e6 30 2c 32 3a  ec 30 2c 37 31 32 3a df  |.. .0,2:.0,712:.|
000001d0  31 32 38 30 2c 37 31 32  0d 00 e6 15 20 ec 30 2c  |1280,712.... .0,|
000001e0  37 31 36 3a df 31 32 38  30 2c 37 31 36 0d 00 f0  |716:.1280,716...|
000001f0  1a 20 f2 70 72 6e 74 73  63 3a f2 67 65 74 73 70  |. .prntsc:.getsp|
00000200  63 3a 43 25 3d 31 30 0d  00 fa 1f 20 58 25 3d 31  |c:C%=10.... X%=1|
00000210  34 38 3a 59 25 3d 32 30  38 3a d6 51 25 2c 43 25  |48:Y%=208:.Q%,C%|
00000220  2c 58 25 2c 59 25 0d 01  04 1f 20 f2 64 61 73 68  |,X%,Y%.... .dash|
00000230  3a 58 25 3d 32 3a 59 25  3d 37 31 3a 43 25 3d 30  |:X%=2:Y%=71:C%=0|
00000240  3a 44 25 3d 30 0d 01 0e  31 20 73 25 3d 30 3a 50  |:D%=0...1 s%=0:P|
00000250  25 3d 32 30 30 30 3a 3f  26 45 33 41 3d 31 39 30  |%=2000:?&E3A=190|
00000260  3a 3f 26 45 33 42 3d 30  3a 3f 26 45 33 43 3d 30  |:?&E3B=0:?&E3C=0|
00000270  3a 2a 46 58 31 34 0d 01  18 0f 20 d4 33 2c 30 2c  |:*FX14.... .3,0,|
00000280  30 2c 30 3a e1 0d 01 22  19 20 dd f2 70 72 6e 74  |0,0:...". ..prnt|
00000290  73 63 3a e6 30 2c 31 32  39 3a e6 30 2c 37 0d 01  |sc:.0,129:.0,7..|
000002a0  2c 20 20 ef 32 34 2c 34  38 32 3b 39 36 30 3b 37  |,  .24,482;960;7|
000002b0  39 36 3b 39 39 30 3b 31  36 2c 32 36 2c 35 0d 01  |96;990;16,26,5..|
000002c0  36 16 20 ec 34 38 32 2c  39 38 38 3a f1 22 53 43  |6. .482,988:."SC|
000002d0  4f 52 45 22 0d 01 40 12  20 fb 37 3a fb 31 32 39  |ORE"..@. .7:.129|
000002e0  3a ef 34 2c 32 36 0d 01  4a 3f 20 f1 8a 36 2c 32  |:.4,26..J? ..6,2|
000002f0  29 89 28 38 29 8a 36 2c  33 29 22 30 30 30 30 30  |).(8).6,3)"00000|
00000300  30 30 30 22 8a 31 34 2c  35 29 22 4e 41 4d 45 22  |000".14,5)"NAME"|
00000310  8a 31 32 2c 36 29 89 28  38 29 8a 31 32 2c 37 29  |.12,6).(8).12,7)|
00000320  24 26 33 38 30 0d 01 54  3e 20 f1 8a 32 2c 35 29  |$&380..T> ..2,5)|
00000330  22 48 49 47 48 22 8a 30  2c 36 29 89 28 38 29 8a  |"HIGH".0,6).(8).|
00000340  30 2c 37 29 c0 22 30 30  30 30 30 30 30 30 22 2c  |0,7)."00000000",|
00000350  38 2d a9 28 c3 28 68 73  25 29 29 29 2b c3 28 68  |8-.(.(hs%)))+.(h|
00000360  73 25 29 0d 01 5e 47 20  e6 30 2c 36 3a ec 30 2c  |s%)..^G .0,6:.0,|
00000370  31 30 32 33 3a ec 30 2c  39 36 36 3a f0 38 35 2c  |1023:.0,966:.85,|
00000380  34 38 30 2c 31 30 32 33  3a ec 31 32 37 39 2c 31  |480,1023:.1279,1|
00000390  30 32 33 3a ec 31 32 37  39 2c 39 36 36 3a f0 38  |023:.1279,966:.8|
000003a0  35 2c 38 30 30 2c 31 30  32 33 0d 01 68 64 20 e6  |5,800,1023..hd .|
000003b0  31 2c 34 3a ec 30 2c 38  33 32 3a ec 35 30 38 2c  |1,4:.0,832:.508,|
000003c0  38 33 32 3a f0 38 35 2c  32 35 34 2c 39 30 30 3a  |832:.85,254,900:|
000003d0  ec 37 37 32 2c 38 33 32  3a ec 31 32 37 39 2c 38  |.772,832:.1279,8|
000003e0  33 32 3a f0 38 35 2c 31  30 32 38 2c 39 30 30 3a  |32:.85,1028,900:|
000003f0  ec 33 38 34 2c 39 36 30  3a ec 38 39 32 2c 39 36  |.384,960:.892,96|
00000400  30 3a f0 38 35 2c 36 34  30 2c 31 30 34 38 0d 01  |0:.85,640,1048..|
00000410  72 06 20 e1 0d 01 7c 15  20 dd f2 64 61 73 68 3a  |r. ...|. ..dash:|
00000420  ea 63 25 2c 78 25 2c 79  25 0d 01 86 1e 20 63 25  |.c%,x%,y%.... c%|
00000430  3d 39 3a 79 25 3d 31 39  32 3a e3 78 25 3d 33 33  |=9:y%=192:.x%=33|
00000440  30 b8 2d 36 88 2d 36 0d  01 90 1f 20 e7 78 25 3e  |0.-6.-6.... .x%>|
00000450  30 d4 26 31 31 2c 2d 31  35 2c 78 25 81 32 2c 31  |0.&11,-15,x%.2,1|
00000460  3a 2a 46 58 31 39 0d 01  9a 1c 20 d6 51 25 2c 63  |:*FX19.... .Q%,c|
00000470  25 2c 78 25 2c 79 25 3a  d4 26 31 31 2c 30 2c 30  |%,x%,y%:.&11,0,0|
00000480  2c 31 0d 01 a4 10 20 f2  64 65 6c 28 31 29 3a ed  |,1.... .del(1):.|
00000490  3a e1 0d 01 ae 39 20 dd  f2 65 6e 64 3a ef 31 37  |:....9 ..end:.17|
000004a0  2c 31 32 38 2c 32 38 3b  32 34 2c 31 39 2c 31 30  |,128,28;24,19,10|
000004b0  2c 31 32 2c 31 37 2c 31  33 32 2c 32 38 2c 34 2c  |,12,17,132,28,4,|
000004c0  31 38 2c 31 35 2c 31 36  2c 31 32 0d 01 b8 1a 20  |18,15,16,12.... |
000004d0  f1 27 22 20 47 41 4d 45  20 20 4f 56 45 52 22 3a  |.'" GAME  OVER":|
000004e0  f2 66 61 64 65 0d 01 c2  1b 20 fb 31 32 38 3a db  |.fade.... .128:.|
000004f0  3a e7 73 25 3e 68 73 25  f2 67 65 74 6e 61 6d 65  |:.s%>hs%.getname|
00000500  0d 01 cc 06 20 e1 0d 01  d6 2b 20 dd f2 67 65 74  |.... ....+ ..get|
00000510  73 70 63 3a ef 31 37 2c  31 33 32 2c 31 37 2c 37  |spc:.17,132,17,7|
00000520  2c 32 38 2c 33 2c 31 35  2c 31 36 2c 31 31 2c 31  |,28,3,15,16,11,1|
00000530  32 0d 01 e0 2c 20 f1 8a  30 2c 31 29 22 50 52 45  |2..., ..0,1)"PRE|
00000540  53 53 20 53 50 41 43 45  20 54 4f 22 8a 35 2c 33  |SS SPACE TO".5,3|
00000550  29 22 50 4c 41 59 22 3a  2a 46 58 32 31 0d 01 ea  |)"PLAY":*FX21...|
00000560  32 20 ea 63 25 2c 78 25  2c 79 25 2c 78 61 25 2c  |2 .c%,x%,y%,xa%,|
00000570  79 61 25 3a 63 25 3d 31  30 3a 78 25 3d 31 36 30  |ya%:c%=10:x%=160|
00000580  3a 79 25 3d 31 30 30 3a  f5 3a 2a 46 58 31 39 0d  |:y%=100:.:*FX19.|
00000590  01 f4 37 20 d6 51 25 2c  63 25 2c 78 25 2c 79 25  |..7 .Q%,c%,x%,y%|
000005a0  3a e7 b3 28 31 30 29 3d  31 78 61 25 3d 28 b3 28  |:..(10)=1xa%=(.(|
000005b0  33 29 2d 32 29 2a 34 3a  79 61 25 3d 28 b3 28 33  |3)-2)*4:ya%=(.(3|
000005c0  29 2d 32 29 2a 32 0d 01  fe 2d 20 e7 78 25 2b 78  |)-2)*2...- .x%+x|
000005d0  61 25 3e 32 38 30 84 78  25 2b 78 61 25 3c 32 30  |a%>280.x%+xa%<20|
000005e0  78 61 25 3d 2d 78 61 25  3a d4 31 2c 31 2c 31 30  |xa%=-xa%:.1,1,10|
000005f0  30 2c 31 0d 02 08 2d 20  e7 79 25 2b 79 61 25 3e  |0,1...- .y%+ya%>|
00000600  31 32 36 84 79 25 2b 79  61 25 3c 35 30 79 61 25  |126.y%+ya%<50ya%|
00000610  3d 2d 79 61 25 3a d4 31  2c 31 2c 31 30 30 2c 31  |=-ya%:.1,1,100,1|
00000620  0d 02 12 1e 20 78 25 3d  78 25 2b 78 61 25 3a 79  |.... x%=x%+xa%:y|
00000630  25 3d 79 25 2b 79 61 25  3a fd a6 2d 39 39 0d 02  |%=y%+ya%:..-99..|
00000640  1c 1f 20 78 25 3d 31 34  38 3a 79 25 3d 32 30 38  |.. x%=148:y%=208|
00000650  3a d6 51 25 2c 63 25 2c  78 25 2c 79 25 0d 02 26  |:.Q%,c%,x%,y%..&|
00000660  0d 20 fb 31 32 38 3a db  3a e1 0d 02 30 57 20 dd  |. .128:.:...0W .|
00000670  f2 66 61 64 65 3a e3 54  25 3d 38 30 b8 30 88 2d  |.fade:.T%=80.0.-|
00000680  31 3a e2 34 2c 32 2c 30  2c 30 2c 30 2c 30 2c 30  |1:.4,2,0,0,0,0,0|
00000690  2c 30 2c 54 25 2c 2d 31  2c 2d 32 2c 2d 32 2c 54  |,0,T%,-1,-2,-2,T|
000006a0  25 2c 30 3a ef 31 39 2c  37 2c 54 25 83 38 3b 30  |%,0:.19,7,T%.8;0|
000006b0  3b 3a f2 64 65 6c 28 33  29 3a ed 3a 2a 46 58 31  |;:.del(3):.:*FX1|
000006c0  33 0d 02 3a 0c 20 2a 46  58 32 31 2c 37 0d 02 44  |3..:. *FX21,7..D|
000006d0  33 20 ef 31 39 2c 37 2c  37 3b 30 3b 3a e2 34 2c  |3 .19,7,7;0;:.4,|
000006e0  32 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 38 30  |2,0,0,0,0,0,0,80|
000006f0  2c 2d 31 2c 2d 32 2c 2d  32 2c 38 30 2c 30 3a e1  |,-1,-2,-2,80,0:.|
00000700  0d 02 4e 0e 20 dd f2 67  65 74 6e 61 6d 65 0d 02  |..N. ..getname..|
00000710  58 22 20 3f 26 45 33 41  3d 32 34 30 3a 3f 26 45  |X" ?&E3A=240:?&E|
00000720  33 42 3d 31 39 32 3a 3f  26 45 33 43 3d 31 39 32  |3B=192:?&E3C=192|
00000730  0d 02 62 0a 20 2a 46 58  31 34 0d 02 6c 79 20 d4  |..b. *FX14..ly .|
00000740  33 2c 30 2c 30 2c 30 3a  68 73 25 3d 73 25 3a 54  |3,0,0,0:hs%=s%:T|
00000750  25 3d 30 3a 24 26 33 38  30 3d 22 20 20 20 20 20  |%=0:$&380="     |
00000760  20 20 20 22 3a f2 70 72  6e 74 73 63 3a fb 31 32  |   ":.prntsc:.12|
00000770  39 3a ef 32 38 2c 34 2c  31 38 2c 31 35 2c 31 36  |9:.28,4,18,15,16|
00000780  2c 31 32 3a f1 27 22 20  45 4e 54 45 52 20 4e 41  |,12:.'" ENTER NA|
00000790  4d 45 22 bd 32 36 8a 31  32 2c 37 29 3b 3a fb 31  |ME".26.12,7);:.1|
000007a0  32 3a ef 31 39 2c 31 32  2c 38 3b 30 3b 3a 2a 46  |2:.19,12,8;0;:*F|
000007b0  58 32 31 0d 02 76 50 20  f5 3a 49 25 3d a5 3a e7  |X21..vP .:I%=.:.|
000007c0  49 25 3e 33 31 80 49 25  3c 31 32 37 80 54 25 3c  |I%>31.I%<127.T%<|
000007d0  38 ef 49 25 3a 54 25 3f  26 33 38 30 3d 49 25 3a  |8.I%:T%?&380=I%:|
000007e0  54 25 3d 54 25 2b 31 8b  e7 49 25 3c 3e 31 32 37  |T%=T%+1..I%<>127|
000007f0  80 49 25 3c 3e 31 33 d4  31 2c 2d 31 35 2c 31 30  |.I%<>13.1,-15,10|
00000800  30 2c 35 0d 02 80 30 20  e7 49 25 3d 31 32 37 80  |0,5...0 .I%=127.|
00000810  54 25 ef 49 25 3a 54 25  3d 54 25 2d 31 3a 54 25  |T%.I%:T%=T%-1:T%|
00000820  3f 26 33 38 30 3d 31 33  2d 31 39 2a 28 54 25 3c  |?&380=13-19*(T%<|
00000830  3e 38 29 0d 02 8a 3e 20  fd 49 25 3d 31 33 3a f2  |>8)...> .I%=13:.|
00000840  70 72 6e 74 73 63 3a ef  32 38 2c 34 2c 31 38 2c  |prntsc:.28,4,18,|
00000850  31 35 2c 31 36 2c 31 32  3a f1 27 22 20 59 4f 55  |15,16,12:.'" YOU|
00000860  52 20 20 54 4f 50 53 22  bd 32 36 3a f2 66 61 64  |R  TOPS".26:.fad|
00000870  65 0d 02 94 06 20 e1 0d  02 9e 0f 20 dd a4 72 61  |e.... ..... ..ra|
00000880  72 74 28 6d 25 29 0d 02  a8 21 20 e7 6d 25 3c 3e  |rt(m%)...! .m%<>|
00000890  b9 20 73 25 3d 73 25 2b  28 53 25 2b 31 29 2a 31  |. s%=s%+(S%+1)*1|
000008a0  30 30 30 3a 3d 6d 25 0d  02 b2 25 20 58 25 3d 32  |000:=m%...% X%=2|
000008b0  3a 59 25 3d 37 31 3a 3f  26 37 37 3d 30 3a 4c 25  |:Y%=71:?&77=0:L%|
000008c0  3d 4c 25 2d 31 3a e7 4c  25 8c 3d 30 0d 02 bc 08  |=L%-1:.L%.=0....|
000008d0  20 3d 6d 25 0d 02 c6 64  20 dd f2 69 6e 69 74 3a  | =m%...d ..init:|
000008e0  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 3a  |.23;8202;0;0;0;:|
000008f0  51 25 3d 26 39 30 30 3a  45 25 3d 26 38 34 3a 68  |Q%=&900:E%=&84:h|
00000900  73 25 3d 31 30 30 3a 3f  26 37 37 3d 30 3a 3f 26  |s%=100:?&77=0:?&|
00000910  32 32 30 3d 30 3a 3f 26  32 32 31 3d 26 31 31 3a  |220=0:?&221=&11:|
00000920  24 26 33 38 30 3d 22 20  54 49 47 47 45 52 20 22  |$&380=" TIGGER "|
00000930  3a 2a 46 58 31 34 2c 34  0d 02 d0 0a 20 2a 46 58  |:*FX14,4.... *FX|
00000940  31 36 0d 02 da 0b 20 2a  46 58 39 2c 33 0d 02 e4  |16.... *FX9,3...|
00000950  0c 20 2a 46 58 31 30 2c  33 0d 02 ee 06 20 e1 0d  |. *FX10,3.... ..|
00000960  02 f8 34 20 dd a4 70 6c  61 79 28 61 25 2c 62 25  |..4 ..play(a%,b%|
00000970  2c 63 25 2c 64 25 2c 65  25 2c 66 25 2c 67 25 2c  |,c%,d%,e%,f%,g%,|
00000980  68 25 2c 69 25 2c 46 25  2c 47 25 2c 48 25 29 3a  |h%,i%,F%,G%,H%):|
00000990  ea 6d 25 0d 03 02 4f 20  56 25 3d 28 53 25 81 39  |.m%...O V%=(S%.9|
000009a0  29 2a 34 3a 46 25 3d 46  25 2b 56 25 3a 47 25 3d  |)*4:F%=F%+V%:G%=|
000009b0  47 25 2b 56 25 3a 48 25  3d 48 25 2b 56 25 3a d1  |G%+V%:H%=H%+V%:.|
000009c0  3d 30 3a 56 25 3d 33 32  30 3a 55 25 3d 34 30 30  |=0:V%=320:U%=400|
000009d0  3a 3f 26 38 44 3d 30 3a  f5 3a e7 44 25 f2 66 61  |:?&8D=0:.:.D%.fa|
000009e0  6c 6c 0d 03 0c 0f 20 e7  91 3e 50 25 56 25 3d 55  |ll.... ..>P%V%=U|
000009f0  25 0d 03 16 24 20 62 25  3d 62 25 2d 46 25 3a e7  |%...$ b%=b%-F%:.|
00000a00  62 25 3c 30 20 62 25 3d  56 25 3a e7 56 25 3d 55  |b%<0 b%=V%:.V%=U|
00000a10  25 46 25 3d 30 0d 03 20  24 20 65 25 3d 65 25 2d  |%F%=0.. $ e%=e%-|
00000a20  47 25 3a e7 65 25 3c 30  20 65 25 3d 56 25 3a e7  |G%:.e%<0 e%=V%:.|
00000a30  56 25 3d 55 25 47 25 3d  30 0d 03 2a 24 20 68 25  |V%=U%G%=0..*$ h%|
00000a40  3d 68 25 2d 48 25 3a e7  68 25 3c 30 20 68 25 3d  |=h%-H%:.h%<0 h%=|
00000a50  56 25 3a e7 56 25 3d 55  25 48 25 3d 30 0d 03 34  |V%:.V%=U%H%=0..4|
00000a60  11 20 d6 51 25 2c 43 25  2c 58 25 2c 59 25 0d 03  |. .Q%,C%,X%,Y%..|
00000a70  3e 1a 20 d6 51 25 2c 61  25 2c 62 25 2c 63 25 3a  |>. .Q%,a%,b%,c%:|
00000a80  e7 3f 45 25 44 25 3d b9  0d 03 48 1a 20 d6 51 25  |.?E%D%=...H. .Q%|
00000a90  2c 64 25 2c 65 25 2c 66  25 3a e7 3f 45 25 44 25  |,d%,e%,f%:.?E%D%|
00000aa0  3d b9 0d 03 52 1a 20 d6  51 25 2c 67 25 2c 68 25  |=...R. .Q%,g%,h%|
00000ab0  2c 69 25 3a e7 3f 45 25  44 25 3d b9 0d 03 5c 1c  |,i%:.?E%D%=...\.|
00000ac0  20 e7 5a 25 e7 b3 28 32  30 29 3d 31 d4 26 31 31  | .Z%..(20)=1.&11|
00000ad0  2c 33 2c 31 37 30 2c 35  0d 03 66 0a 20 e7 4f 25  |,3,170,5..f. .O%|
00000ae0  f2 73 0d 03 70 0d 20 e7  57 25 63 25 3d a4 68 0d  |.s..p. .W%c%=.h.|
00000af0  03 7a 22 20 e7 62 25 3d  55 25 e7 65 25 3d 55 25  |.z" .b%=U%.e%=U%|
00000b00  e7 68 25 3d 55 25 e7 6d  25 3c 3e b9 20 6d 25 3d  |.h%=U%.m%<>. m%=|
00000b10  31 0d 03 84 08 20 fd 6d  25 0d 03 8e 0f 20 3d a4  |1.... .m%.... =.|
00000b20  72 61 72 74 28 6d 25 29  0d 03 98 0b 20 dd f2 66  |rart(m%).... ..f|
00000b30  61 6c 6c 0d 03 a2 14 20  ea 63 25 2c 78 25 2c 79  |all.... .c%,x%,y|
00000b40  25 2c 6a 25 2c 6b 25 0d  03 ac 1d 20 73 25 3d 73  |%,j%,k%.... s%=s|
00000b50  25 2b 3f 26 38 44 2a 28  53 25 2b 31 29 2a 31 30  |%+?&8D*(S%+1)*10|
00000b60  3a ef 32 36 0d 03 b6 26  20 58 25 3d 58 25 2a 34  |:.26...& X%=X%*4|
00000b70  2b 36 3a 78 25 3d 58 25  3a 6a 25 3d 38 30 3a 63  |+6:x%=X%:j%=80:c|
00000b80  25 3d 31 32 3a 79 25 3d  33 36 0d 03 c0 1e 20 d6  |%=12:y%=36.... .|
00000b90  51 25 2c 43 25 2c 6a 25  2c 59 25 3a d6 51 25 2c  |Q%,C%,j%,Y%:.Q%,|
00000ba0  63 25 2c 78 25 2c 79 25  0d 03 ca 3c 20 d4 30 2c  |c%,x%,y%...< .0,|
00000bb0  32 2c 36 2c 31 30 3a ef  32 36 3a fb 37 3a fb 31  |2,6,10:.26:.7:.1|
00000bc0  32 39 3a f1 8a 36 2c 33  29 c0 22 30 30 30 30 30  |29:..6,3)."00000|
00000bd0  30 30 30 22 2c 38 2d a9  c3 28 73 25 29 29 3b 73  |000",8-..(s%));s|
00000be0  25 bd 33 30 0d 03 d4 49  20 63 25 3d 31 31 3a 79  |%.30...I c%=11:y|
00000bf0  25 3d 59 25 3a 42 25 3d  2d 36 3a 6a 25 3d 32 36  |%=Y%:B%=-6:j%=26|
00000c00  3a 6b 25 3d 36 3a f5 3a  d6 51 25 2c 63 25 2c 78  |:k%=6:.:.Q%,c%,x|
00000c10  25 2c 79 25 3a f2 64 65  6c 28 31 29 3a 78 25 3d  |%,y%:.del(1):x%=|
00000c20  78 25 2b 32 3a 79 25 3d  79 25 2b 42 25 0d 03 de  |x%+2:y%=y%+B%...|
00000c30  26 20 e7 79 25 3e 6a 25  2b 35 35 42 25 3d 2d 6b  |& .y%>j%+55B%=-k|
00000c40  25 3a 6a 25 3d 6a 25 2d  31 3a e7 6a 25 3c 31 6a  |%:j%=j%-1:.j%<1j|
00000c50  25 3d 31 0d 03 e8 24 20  e7 79 25 3c 3d 35 35 3a  |%=1...$ .y%<=55:|
00000c60  79 25 3d 35 35 3a 42 25  3d 6b 25 3a d4 26 31 31  |y%=55:B%=k%:.&11|
00000c70  2c 31 2c 35 30 2c 31 0d  03 f2 0c 20 fd 78 25 3e  |,1,50,1.... .x%>|
00000c80  33 30 30 0d 03 fc 46 20  62 25 3d b9 3a 65 25 3d  |300...F b%=.:e%=|
00000c90  b9 3a 68 25 3d b9 3a 3f  26 37 37 3d 30 3a 44 25  |.:h%=.:?&77=0:D%|
00000ca0  3d 30 3a 6d 25 3d b9 3a  63 25 3d 31 30 3a 78 25  |=0:m%=.:c%=10:x%|
00000cb0  3d 31 34 38 3a 79 25 3d  32 30 38 3a 43 25 3d 31  |=148:y%=208:C%=1|
00000cc0  32 3a 59 25 3d 33 36 3a  f5 0d 04 06 24 20 e7 78  |2:Y%=36:....$ .x|
00000cd0  25 3c 3e 58 25 2b 31 36  78 25 3d 78 25 2b b4 28  |%<>X%+16x%=x%+.(|
00000ce0  28 58 25 2b 31 36 29 2d  78 25 29 2a 32 0d 04 10  |(X%+16)-x%)*2...|
00000cf0  14 20 e7 79 25 3c 3e 35  32 20 79 25 3d 79 25 2d  |. .y%<>52 y%=y%-|
00000d00  36 0d 04 1a 0a 20 2a 46  58 31 39 0d 04 24 17 20  |6.... *FX19..$. |
00000d10  d6 51 25 2c 63 25 2c 78  25 2c 79 25 3a 2a 46 58  |.Q%,c%,x%,y%:*FX|
00000d20  31 39 0d 04 2e 51 20 d4  26 31 30 2c 2d 31 35 2c  |19...Q .&10,-15,|
00000d30  33 2c 31 3a d4 26 31 31  2c 30 2c 79 25 2b 33 30  |3,1:.&11,0,y%+30|
00000d40  2c 31 3a fd 78 25 3e 58  25 2b 31 33 80 78 25 3c  |,1:.x%>X%+13.x%<|
00000d50  58 25 2b 31 39 80 79 25  3d 35 32 3a f5 3a 78 25  |X%+19.y%=52:.:x%|
00000d60  3d 78 25 2b 36 3a 58 25  3d 58 25 2b 36 3a 2a 46  |=x%+6:X%=X%+6:*F|
00000d70  58 31 39 0d 04 38 1e 20  d6 51 25 2c 63 25 2c 78  |X19..8. .Q%,c%,x|
00000d80  25 2c 79 25 3a d6 51 25  2c 43 25 2c 58 25 2c 59  |%,y%:.Q%,C%,X%,Y|
00000d90  25 0d 04 42 47 20 d4 26  31 30 2c 2d 31 35 2c 37  |%..BG .&10,-15,7|
00000da0  2c 31 3a d4 26 31 31 2c  30 2c 78 25 81 32 2c 31  |,1:.&11,0,x%.2,1|
00000db0  3a fd 78 25 3e 33 32 30  3a e7 4c 25 2d 31 78 25  |:.x%>320:.L%-1x%|
00000dc0  3d 31 34 38 3a 79 25 3d  32 30 38 3a d6 51 25 2c  |=148:y%=208:.Q%,|
00000dd0  63 25 2c 78 25 2c 79 25  0d 04 4c 15 20 58 25 3d  |c%,x%,y%..L. X%=|
00000de0  38 30 3a 59 25 3d 37 31  3a 43 25 3d 30 0d 04 56  |80:Y%=71:C%=0..V|
00000df0  06 20 e1 0d 04 60 69 20  dd a4 73 63 72 30 3a ef  |. ...`i ..scr0:.|
00000e00  31 39 2c 31 33 2c 30 3b  30 3b 3a ea 41 25 3a 3f  |19,13,0;0;:.A%:?|
00000e10  26 38 43 3d 31 39 32 3a  5a 25 3d 30 3a 4f 25 3d  |&8C=192:Z%=0:O%=|
00000e20  30 3a 57 25 3d 30 3a f5  3a 41 25 3d a4 70 6c 61  |0:W%=0:.:A%=.pla|
00000e30  79 28 32 2c 33 32 30 2c  32 35 2c 34 2c 34 38 30  |y(2,320,25,4,480|
00000e40  2c 32 35 36 2c 33 2c 34  38 30 2c 32 35 2c 38 2c  |,256,3,480,25,8,|
00000e50  38 2c 38 29 3a fd 41 25  3a 3d 41 25 0d 04 6a 68  |8,8):.A%:=A%..jh|
00000e60  20 dd a4 73 63 72 31 3a  ea 41 25 3a 5a 25 3d b9  | ..scr1:.A%:Z%=.|
00000e70  3a 3f 26 31 32 38 33 3d  32 3a 3f 26 31 32 38 34  |:?&1283=2:?&1284|
00000e80  3d 32 3a f5 3a 41 25 3d  a4 70 6c 61 79 28 32 2c  |=2:.:A%=.play(2,|
00000e90  33 32 30 2c 32 35 2c 31  2c 33 34 30 2c 38 35 2c  |320,25,1,340,85,|
00000ea0  33 2c 34 38 30 2c 32 35  2c 38 2c 32 2c 38 29 3a  |3,480,25,8,2,8):|
00000eb0  fd 41 25 3a ef 31 39 2c  31 33 2c 31 35 3b 30 3b  |.A%:.19,13,15;0;|
00000ec0  3a 3d 41 25 0d 04 74 53  20 dd a4 73 63 72 32 3a  |:=A%..tS ..scr2:|
00000ed0  ea 41 25 3a 3f 26 38 43  3d 32 35 35 3a 5a 25 3d  |.A%:?&8C=255:Z%=|
00000ee0  30 3a f5 3a 41 25 3d a4  70 6c 61 79 28 34 2c 33  |0:.:A%=.play(4,3|
00000ef0  32 30 2c 33 35 2c 35 2c  34 38 30 2c 33 35 2c 36  |20,35,5,480,35,6|
00000f00  2c 35 34 30 2c 32 35 36  2c 37 2c 37 2c 37 29 3a  |,540,256,7,7,7):|
00000f10  fd 41 25 3a 3d 41 25 0d  04 7e 7e 20 dd a4 73 63  |.A%:=A%..~~ ..sc|
00000f20  72 33 3a ea 41 25 3a 3f  26 38 43 3d 32 34 33 3a  |r3:.A%:?&8C=243:|
00000f30  3f 26 31 32 38 33 3d 32  3a 3f 26 31 32 38 34 3d  |?&1283=2:?&1284=|
00000f40  30 3a 4f 25 3d 34 3a ef  31 39 2c 31 32 2c 34 3b  |0:O%=4:.19,12,4;|
00000f50  30 3b 3a f2 74 75 6e 6e  28 31 33 30 29 3a f5 3a  |0;:.tunn(130):.:|
00000f60  41 25 3d a4 70 6c 61 79  28 37 2c 33 32 30 2c 31  |A%=.play(7,320,1|
00000f70  32 36 2c 38 2c 34 38 30  2c 31 32 36 2c 35 2c 33  |26,8,480,126,5,3|
00000f80  32 30 2c 32 35 36 2c 39  2c 39 2c 39 29 3a fd 41  |20,256,9,9,9):.A|
00000f90  25 3a 3d 41 25 0d 04 88  56 20 dd a4 73 63 72 34  |%:=A%...V ..scr4|
00000fa0  3a ea 41 25 3a 4f 25 3d  32 3a f5 3a 41 25 3d a4  |:.A%:O%=2:.:A%=.|
00000fb0  70 6c 61 79 28 37 2c 33  32 30 2c 31 32 36 2c 38  |play(7,320,126,8|
00000fc0  2c 35 33 36 2c 31 32 36  2c 35 2c 34 32 38 2c 33  |,536,126,5,428,3|
00000fd0  35 2c 39 2c 39 2c 39 29  3a fd 41 25 3a e7 ac 41  |5,9,9,9):.A%:..A|
00000fe0  25 f2 74 75 6e 6e 28 31  32 38 29 0d 04 92 19 20  |%.tunn(128).... |
00000ff0  4f 25 3d 30 3a ef 31 39  2c 31 32 2c 38 3b 30 3b  |O%=0:.19,12,8;0;|
00001000  3a 3d 41 25 0d 04 9c 52  20 dd a4 73 63 72 35 3a  |:=A%...R ..scr5:|
00001010  ea 41 25 3a 3f 26 38 43  3d 32 35 35 3a 5a 25 3d  |.A%:?&8C=255:Z%=|
00001020  30 3a f5 3a 41 25 3d a4  70 6c 61 79 28 34 2c 33  |0:.:A%=.play(4,3|
00001030  32 30 2c 33 35 2c 35 2c  34 32 38 2c 33 35 2c 36  |20,35,5,428,35,6|
00001040  2c 35 33 36 2c 33 35 2c  37 2c 37 2c 37 29 3a fd  |,536,35,7,7,7):.|
00001050  41 25 3a 3d 41 25 0d 04  a6 89 20 dd a4 73 63 72  |A%:=A%.... ..scr|
00001060  36 3a ea 41 25 3a 3f 26  38 43 3d 32 34 33 3a 3f  |6:.A%:?&8C=243:?|
00001070  26 31 32 38 33 3d 32 3a  3f 26 31 32 38 34 3d 30  |&1283=2:?&1284=0|
00001080  3a 4f 25 3d 34 3a ef 31  39 2c 31 32 2c 34 3b 30  |:O%=4:.19,12,4;0|
00001090  3b 3a f2 74 75 6e 6e 28  31 33 30 29 3a f5 3a 41  |;:.tunn(130):.:A|
000010a0  25 3d a4 70 6c 61 79 28  37 2c 33 32 30 2c 31 32  |%=.play(7,320,12|
000010b0  36 2c 38 2c 34 33 30 2c  31 32 36 2c 39 2c 33 32  |6,8,430,126,9,32|
000010c0  30 2c 33 35 2c 39 2c 39  2c 31 32 29 3a fd 41 25  |0,35,9,9,12):.A%|
000010d0  3a e7 ac 41 25 f2 74 75  6e 6e 28 31 32 38 29 0d  |:..A%.tunn(128).|
000010e0  04 b0 19 20 4f 25 3d 30  3a ef 31 39 2c 31 32 2c  |... O%=0:.19,12,|
000010f0  38 3b 30 3b 3a 3d 41 25  0d 04 ba 49 20 dd a4 73  |8;0;:=A%...I ..s|
00001100  63 72 37 3a ea 41 25 3a  f5 3a 41 25 3d a4 70 6c  |cr7:.A%:.:A%=.pl|
00001110  61 79 28 39 2c 33 32 30  2c 33 35 2c 33 2c 35 34  |ay(9,320,35,3,54|
00001120  30 2c 32 35 36 2c 34 2c  35 34 30 2c 32 35 36 2c  |0,256,4,540,256,|
00001130  31 38 2c 31 38 2c 31 38  29 3a fd 41 25 3a 3d 41  |18,18,18):.A%:=A|
00001140  25 0d 04 c4 50 20 dd a4  73 63 72 38 3a 79 25 3d  |%...P ..scr8:y%=|
00001150  2d 36 3a 57 25 3d b9 3a  ea 41 25 3a f5 3a 41 25  |-6:W%=.:.A%:.:A%|
00001160  3d a4 70 6c 61 79 28 31  30 2c 33 31 30 2c 39 36  |=.play(10,310,96|
00001170  2c 35 2c 34 32 30 2c 33  35 2c 34 2c 35 38 30 2c  |,5,420,35,4,580,|
00001180  33 35 2c 34 2c 38 2c 38  29 3a fd 41 25 3a 3d 41  |35,4,8,8):.A%:=A|
00001190  25 0d 04 ce 08 20 dd a4  68 0d 04 d8 21 20 63 25  |%.... ..h...! c%|
000011a0  3d 63 25 2b 79 25 3a e7  63 25 3e 31 35 30 84 63  |=c%+y%:.c%>150.c|
000011b0  25 3c 36 38 79 25 3d 2d  79 25 0d 04 e2 23 20 d4  |%<68y%=-y%...# .|
000011c0  26 31 31 31 2c 30 2c 63  25 2c 32 3a d4 26 31 31  |&111,0,c%,2:.&11|
000011d0  30 2c 2d 31 35 2c 37 2c  32 3a 3d 63 25 0d 04 ec  |0,-15,7,2:=c%...|
000011e0  08 20 dd f2 73 0d 04 f6  30 20 e7 63 25 3c 31 32  |. ..s...0 .c%<12|
000011f0  36 63 25 3d 63 25 2b 32  8b e7 b3 28 4f 25 29 3d  |6c%=c%+2...(O%)=|
00001200  31 3a 63 25 3d 31 30 30  3a d4 26 31 30 2c 2d 31  |1:c%=100:.&10,-1|
00001210  30 2c 34 2c 34 0d 05 00  30 20 e7 66 25 3c 31 32  |0,4,4...0 .f%<12|
00001220  36 66 25 3d 66 25 2b 32  8b e7 b3 28 4f 25 29 3d  |6f%=f%+2...(O%)=|
00001230  31 3a 66 25 3d 31 30 30  3a d4 26 31 30 2c 2d 31  |1:f%=100:.&10,-1|
00001240  30 2c 34 2c 34 0d 05 0a  06 20 e1 0d 05 14 13 20  |0,4,4.... ..... |
00001250  dd f2 74 75 6e 6e 28 63  25 29 3a fb 63 25 0d 05  |..tunn(c%):.c%..|
00001260  1e 3b 20 e3 54 25 3d 31  38 b8 30 88 b9 3a ef 32  |.; .T%=18.0..:.2|
00001270  38 2c 54 25 2c 31 38 2c  54 25 2b 31 2c 31 30 2c  |8,T%,18,T%+1,10,|
00001280  31 32 3a d6 51 25 2c 43  25 2c 58 25 2c 59 25 3a  |12:.Q%,C%,X%,Y%:|
00001290  f2 64 65 6c 28 32 29 3a  ed 0d 05 28 06 20 e1 0d  |.del(2):...(. ..|
000012a0  05 32 1f 20 dd f2 64 65  6c 28 77 25 29 3a 77 25  |.2. ..del(w%):w%|
000012b0  3d 77 25 2b 91 3a f5 fd  91 3e 77 25 3a e1 0d 05  |=w%+.:...>w%:...|
000012c0  3c 0b 20 54 48 45 45 4e  44 0d 05 46 0b 20 dd f2  |<. THEEND..F. ..|
000012d0  63 6f 64 65 0d 05 50 b6  20 ef 32 33 2c 31 34 34  |code..P. .23,144|
000012e0  2c 31 32 2c 31 32 2c 31  34 2c 33 30 2c 32 34 38  |,12,12,14,30,248|
000012f0  2c 32 34 30 2c 39 36 2c  39 36 3a e2 31 2c 33 2c  |,240,96,96:.1,3,|
00001300  36 2c 31 30 2c 31 30 2c  34 2c 34 2c 34 2c 31 32  |6,10,10,4,4,4,12|
00001310  37 2c 30 2c 30 2c 2d 31  30 2c 31 32 36 2c 30 3a  |7,0,0,-10,126,0:|
00001320  e2 32 2c 32 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |.2,2,0,0,0,0,0,0|
00001330  2c 31 32 36 2c 2d 31 2c  2d 33 2c 2d 33 2c 31 32  |,126,-1,-3,-3,12|
00001340  36 2c 30 3a e2 33 2c 33  2c 2d 33 2c 2d 33 2c 2d  |6,0:.3,3,-3,-3,-|
00001350  33 2c 33 2c 33 2c 33 2c  31 32 36 2c 30 2c 30 2c  |3,3,3,3,126,0,0,|
00001360  2d 36 2c 31 32 36 2c 30  3a e2 34 2c 32 2c 30 2c  |-6,126,0:.4,2,0,|
00001370  30 2c 30 2c 30 2c 30 2c  30 2c 38 30 2c 2d 31 2c  |0,0,0,0,0,80,-1,|
00001380  2d 32 2c 2d 32 2c 38 30  2c 30 0d 05 5a 76 20 77  |-2,-2,80,0..Zv w|
00001390  3d 26 37 30 3a 6a 66 3d  26 37 37 3a 6a 3d 26 37  |=&70:jf=&77:j=&7|
000013a0  38 3a 73 6e 6f 3d 26 38  30 3a 78 63 3d 26 38 31  |8:sno=&80:xc=&81|
000013b0  3a 79 63 3d 26 38 32 3a  77 70 3d 26 38 33 3a 68  |:yc=&82:wp=&83:h|
000013c0  69 74 3d 26 38 34 3a 68  74 3d 26 38 35 3a 74 6f  |it=&84:ht=&85:to|
000013d0  74 3d 26 38 36 3a 78 73  3d 26 38 37 3a 79 73 3d  |t=&86:xs=&87:ys=|
000013e0  26 38 38 3a 74 6c 3d 26  38 39 3a 68 74 32 3d 26  |&88:tl=&89:ht2=&|
000013f0  38 42 3a 6d 3d 26 38 43  3a 6e 6a 73 3d 26 38 44  |8B:m=&8C:njs=&8D|
00001400  0d 05 64 1c 20 e3 54 25  3d 26 39 30 30 b8 26 41  |..d. .T%=&900.&A|
00001410  46 46 88 34 3a 21 54 25  3d 30 3a ed 0d 05 6e 1d  |FF.4:!T%=0:...n.|
00001420  20 e3 54 25 3d 26 45 30  30 b8 26 31 32 46 46 88  | .T%=&E00.&12FF.|
00001430  34 3a 21 54 25 3d 30 3a  ed 0d 05 78 1f 20 e3 54  |4:!T%=0:...x. .T|
00001440  3d 30 b8 32 88 32 3a 50  25 3d 26 39 30 30 3a 5b  |=0.2.2:P%=&900:[|
00001450  4f 50 54 54 3a 2e 51 25  0d 05 82 15 20 4c 44 58  |OPTT:.Q%.... LDX|
00001460  23 35 3a 4c 44 59 23 38  3a 2e 6c 70 31 0d 05 8c  |#5:LDY#8:.lp1...|
00001470  1d 20 4c 44 41 26 36 30  30 2c 59 3a 53 54 41 77  |. LDA&600,Y:STAw|
00001480  2c 58 3a 44 45 58 3a 44  45 59 0d 05 96 1d 20 4c  |,X:DEX:DEY.... L|
00001490  44 41 26 36 30 30 2c 59  3a 53 54 41 77 2c 58 3a  |DA&600,Y:STAw,X:|
000014a0  44 45 59 3a 44 45 59 0d  05 a0 24 20 44 45 58 3a  |DEY:DEY...$ DEX:|
000014b0  42 50 4c 6c 70 31 3a 4c  44 59 23 30 3a 53 54 59  |BPLlp1:LDY#0:STY|
000014c0  77 70 3a 4c 44 41 28 77  29 2c 59 0d 05 aa 20 20  |wp:LDA(w),Y...  |
000014d0  53 54 41 73 6e 6f 3a 54  41 58 3a 4c 44 41 73 70  |STAsno:TAX:LDAsp|
000014e0  74 68 74 2c 58 3a 53 54  41 68 74 0d 05 b4 22 20  |tht,X:STAht..." |
000014f0  4c 44 41 73 70 74 74 6f  74 2c 58 3a 53 54 41 74  |LDAspttot,X:STAt|
00001500  6f 74 3a 4c 44 41 28 77  2b 32 29 2c 59 0d 05 be  |ot:LDA(w+2),Y...|
00001510  23 20 53 54 41 78 63 3a  49 4e 59 3a 4c 44 41 28  |# STAxc:INY:LDA(|
00001520  77 2b 32 29 2c 59 3a 53  54 41 79 63 3a 54 58 41  |w+2),Y:STAyc:TXA|
00001530  0d 05 c8 23 20 42 45 51  6f 74 68 3a 4c 53 52 79  |...# BEQoth:LSRy|
00001540  63 3a 52 4f 52 78 63 3a  4c 53 52 79 63 3a 52 4f  |c:RORxc:LSRyc:RO|
00001550  52 78 63 0d 05 d2 23 20  2e 6f 74 68 3a 44 45 59  |Rxc...# .oth:DEY|
00001560  3a 4c 44 41 78 63 3a 43  4d 50 6d 78 2c 58 3a 42  |:LDAxc:CMPmx,X:B|
00001570  43 43 67 65 74 79 0d 05  dc 25 20 44 45 43 77 70  |CCgety...% DECwp|
00001580  3a 2e 67 65 74 79 3a 4c  44 41 28 77 2b 34 29 2c  |:.gety:LDA(w+4),|
00001590  59 3a 53 54 41 79 63 3a  49 4e 59 0d 05 e6 25 20  |Y:STAyc:INY...% |
000015a0  4c 44 41 28 77 2b 34 29  2c 59 3a 42 45 51 6e 74  |LDA(w+4),Y:BEQnt|
000015b0  6f 66 66 3a 44 45 43 77  70 3a 2e 6e 74 6f 66 66  |off:DECwp:.ntoff|
000015c0  0d 05 f0 25 20 4c 44 41  77 70 3a 42 45 51 6f 3a  |...% LDAwp:BEQo:|
000015d0  4c 44 41 23 26 39 30 3a  53 54 41 77 2b 31 3a 42  |LDA#&90:STAw+1:B|
000015e0  4d 49 6e 74 70 0d 05 fa  1f 20 2e 6f 3a 4c 44 41  |MIntp.... .o:LDA|
000015f0  23 30 3a 53 54 41 77 2b  31 3a 4c 44 41 78 63 3a  |#0:STAw+1:LDAxc:|
00001600  41 53 4c 41 0d 06 04 23  20 52 4f 4c 77 2b 31 3a  |ASLA...# ROLw+1:|
00001610  41 53 4c 41 3a 52 4f 4c  77 2b 31 3a 41 53 4c 41  |ASLA:ROLw+1:ASLA|
00001620  3a 52 4f 4c 77 2b 31 0d  06 0e 20 20 53 54 41 77  |:ROLw+1...  STAw|
00001630  3a 4c 44 41 79 63 3a 80  23 37 3a 82 23 37 3a 43  |:LDAyc:.#7:.#7:C|
00001640  4c 43 3a 41 44 43 77 0d  06 18 22 20 53 54 41 77  |LC:ADCw..." STAw|
00001650  3a 42 43 43 79 70 6f 69  6e 74 3a 49 4e 43 77 2b  |:BCCypoint:INCw+|
00001660  31 3a 2e 79 70 6f 69 6e  74 0d 06 22 22 20 4c 44  |1:.ypoint.."" LD|
00001670  41 79 63 3a 80 23 32 34  38 3a 4c 53 52 41 3a 4c  |Ayc:.#248:LSRA:L|
00001680  53 52 41 3a 54 41 58 3a  43 4c 43 0d 06 2c 1a 20  |SRA:TAX:CLC..,. |
00001690  4c 44 41 72 70 2c 58 3a  41 44 43 77 3a 53 54 41  |LDArp,X:ADCw:STA|
000016a0  77 3a 49 4e 58 0d 06 36  1f 20 4c 44 41 72 70 2c  |w:INX..6. LDArp,|
000016b0  58 3a 41 44 43 77 2b 31  3a 53 54 41 77 2b 31 3a  |X:ADCw+1:STAw+1:|
000016c0  2e 6e 74 70 0d 06 40 1e  20 4c 44 41 73 6e 6f 3a  |.ntp..@. LDAsno:|
000016d0  42 45 51 69 73 64 3a 4a  4d 50 6e 74 64 3a 2e 69  |BEQisd:JMPntd:.i|
000016e0  73 64 0d 06 4a 20 20 4c  44 59 23 30 3a 4c 44 58  |sd..J  LDY#0:LDX|
000016f0  23 26 39 45 3a 4a 53 52  69 3a 42 4e 45 72 69 67  |#&9E:JSRi:BNErig|
00001700  68 74 0d 06 54 24 20 44  45 43 78 63 3a 44 45 43  |ht..T$ DECxc:DEC|
00001710  78 63 3a 2e 72 69 67 68  74 3a 4c 44 58 23 26 42  |xc:.right:LDX#&B|
00001720  44 3a 4a 53 52 69 0d 06  5e 22 20 42 4e 45 6c 69  |D:JSRi..^" BNEli|
00001730  6d 69 74 73 3a 49 4e 43  78 63 3a 49 4e 43 78 63  |mits:INCxc:INCxc|
00001740  3a 2e 6c 69 6d 69 74 73  0d 06 68 22 20 4c 44 41  |:.limits..h" LDA|
00001750  78 63 3a 43 4d 50 23 35  3a 42 43 53 6e 6c 3a 49  |xc:CMP#5:BCSnl:I|
00001760  4e 43 78 63 3a 49 4e 43  78 63 0d 06 72 23 20 2e  |NCxc:INCxc..r# .|
00001770  6e 6c 3a 43 4d 50 23 35  30 3a 42 43 43 6e 74 68  |nl:CMP#50:BCCnth|
00001780  69 3a 44 45 43 78 63 3a  44 45 43 78 63 0d 06 7c  |i:DECxc:DECxc..||
00001790  21 20 2e 6e 74 68 69 3a  4c 44 59 23 30 3a 4c 44  |! .nthi:LDY#0:LD|
000017a0  41 78 63 3a 53 54 41 28  77 2b 32 29 2c 59 0d 06  |Axc:STA(w+2),Y..|
000017b0  86 21 20 4c 44 41 6a 66  3a 42 4d 49 70 72 64 3a  |.! LDAjf:BMIprd:|
000017c0  42 4e 45 6a 69 6e 67 3a  4c 44 58 23 26 42 36 0d  |BNEjing:LDX#&B6.|
000017d0  06 90 24 20 4a 53 52 69  3a 42 4e 45 70 72 64 3a  |..$ JSRi:BNEprd:|
000017e0  4a 53 52 62 6f 69 6e 67  3a 4c 44 41 23 34 3a 53  |JSRboing:LDA#4:S|
000017f0  54 41 6a 0d 06 9a 1f 20  2e 6a 69 6e 67 3a 4c 44  |TAj.... .jing:LD|
00001800  59 23 30 3a 43 4c 43 3a  4c 44 41 79 63 3a 41 44  |Y#0:CLC:LDAyc:AD|
00001810  43 6a 0d 06 a4 25 20 53  54 41 28 77 2b 34 29 2c  |Cj...% STA(w+4),|
00001820  59 3a 43 4c 43 3a 4c 44  41 6a 66 3a 41 44 43 23  |Y:CLC:LDAjf:ADC#|
00001830  31 3a 53 54 41 6a 66 0d  06 ae 23 20 43 4d 50 23  |1:STAjf...# CMP#|
00001840  35 3a 42 4e 45 67 75 70  3a 4c 44 41 23 26 46 43  |5:BNEgup:LDA#&FC|
00001850  3a 53 54 41 6a 3a 2e 67  75 70 0d 06 b8 23 20 43  |:STAj:.gup...# C|
00001860  4d 50 23 31 30 3a 42 4e  45 70 72 64 3a 4c 44 41  |MP#10:BNEprd:LDA|
00001870  23 30 3a 53 54 41 6a 66  3a 2e 70 72 64 0d 06 c2  |#0:STAjf:.prd...|
00001880  24 20 4c 44 41 77 3a 53  54 41 77 2b 35 3a 4c 44  |$ LDAw:STAw+5:LD|
00001890  41 77 2b 31 3a 53 54 41  77 2b 36 3a 4a 53 52 66  |Aw+1:STAw+6:JSRf|
000018a0  78 0d 06 cc 26 20 4c 44  58 23 30 3a 4a 53 52 64  |x...& LDX#0:JSRd|
000018b0  3a 43 4c 43 3a 4c 44 41  77 2b 35 3a 53 54 41 77  |:CLC:LDAw+5:STAw|
000018c0  3a 4c 44 41 77 2b 36 0d  06 d6 22 20 41 44 43 23  |:LDAw+6..." ADC#|
000018d0  35 3a 53 54 41 77 2b 31  3a 4a 53 52 66 78 3a 4c  |5:STAw+1:JSRfx:L|
000018e0  44 58 23 32 3a 4a 53 52  64 0d 06 e0 22 20 43 4c  |DX#2:JSRd..." CL|
000018f0  43 3a 4c 44 41 77 2b 35  3a 53 54 41 77 3a 4c 44  |C:LDAw+5:STAw:LD|
00001900  41 77 2b 36 3a 41 44 43  23 26 41 0d 06 ea 21 20  |Aw+6:ADC#&A...! |
00001910  53 54 41 77 2b 31 3a 4a  53 52 66 78 3a 4c 44 58  |STAw+1:JSRfx:LDX|
00001920  23 34 3a 4a 4d 50 64 3a  2e 6e 74 64 0d 06 f4 23  |#4:JMPd:.ntd...#|
00001930  20 49 4e 43 73 6e 6f 3a  49 4e 43 73 6e 6f 3a 41  | INCsno:INCsno:A|
00001940  53 4c 73 6e 6f 3a 4c 44  58 73 6e 6f 3a 2e 64 0d  |SLsno:LDXsno:.d.|
00001950  06 fe 23 20 4c 44 41 73  64 70 2c 58 3a 53 54 41  |..# LDAsdp,X:STA|
00001960  63 6c 2b 31 3a 4c 44 41  6f 6c 2c 58 3a 53 54 41  |cl+1:LDAol,X:STA|
00001970  74 6c 0d 07 08 23 20 4c  44 41 77 3a 53 54 41 6f  |tl...# LDAw:STAo|
00001980  6c 2c 58 3a 53 54 58 78  73 3a 49 4e 58 3a 4c 44  |l,X:STXxs:INX:LD|
00001990  41 6f 6c 2c 58 0d 07 12  20 20 50 48 41 3a 4c 44  |Aol,X...  PHA:LD|
000019a0  41 73 64 70 2c 58 3a 53  54 41 63 6c 2b 32 3a 4c  |Asdp,X:STAcl+2:L|
000019b0  44 41 77 2b 31 0d 07 1c  24 20 53 54 41 6f 6c 2c  |DAw+1...$ STAol,|
000019c0  58 3a 50 4c 41 3a 53 54  41 77 2b 31 3a 4c 44 41  |X:PLA:STAw+1:LDA|
000019d0  6e 74 73 74 3a 53 54 41  67 0d 07 26 21 20 4c 44  |ntst:STAg..&! LD|
000019e0  41 6e 74 73 74 2b 31 3a  53 54 41 67 2b 31 3a 4a  |Antst+1:STAg+1:J|
000019f0  53 52 70 72 3a 4c 44 41  23 30 0d 07 30 23 20 53  |SRpr:LDA#0..0# S|
00001a00  54 41 68 69 74 3a 4c 44  58 78 73 3a 4c 44 41 6f  |TAhit:LDXxs:LDAo|
00001a10  6c 2c 58 3a 53 54 41 74  6c 3a 49 4e 58 0d 07 3a  |l,X:STAtl:INX..:|
00001a20  22 20 4c 44 41 6f 6c 2c  58 3a 53 54 41 77 2b 31  |" LDAol,X:STAw+1|
00001a30  3a 42 4d 49 62 79 62 79  3a 4c 44 41 74 73 74 0d  |:BMIbyby:LDAtst.|
00001a40  07 44 1d 20 53 54 41 67  3a 4c 44 41 74 73 74 2b  |.D. STAg:LDAtst+|
00001a50  31 3a 53 54 41 67 2b 31  3a 2e 70 72 0d 07 4e 1f  |1:STAg+1:.pr..N.|
00001a60  20 4c 44 41 74 6c 3a 80  23 32 34 38 3a 53 54 41  | LDAtl:.#248:STA|
00001a70  77 3a 4c 44 41 74 6c 3a  80 23 37 0d 07 58 1b 20  |w:LDAtl:.#7..X. |
00001a80  53 54 41 79 73 3a 4c 44  58 74 6f 74 3a 53 45 49  |STAys:LDXtot:SEI|
00001a90  3a 2e 70 6c 70 31 0d 07  62 24 20 4c 44 41 68 74  |:.plp1..b$ LDAht|
00001aa0  3a 53 54 41 68 74 32 3a  4c 44 41 77 3a 53 54 41  |:STAht2:LDAw:STA|
00001ab0  77 2b 32 3a 4c 44 41 77  2b 31 0d 07 6c 22 20 53  |w+2:LDAw+1..l" S|
00001ac0  54 41 77 2b 33 3a 4c 44  59 79 73 3a 2e 70 6c 70  |TAw+3:LDYys:.plp|
00001ad0  32 3a 4c 44 41 28 77 2b  32 29 2c 59 0d 07 76 19  |2:LDA(w+2),Y..v.|
00001ae0  20 2e 67 3a 42 4e 45 62  3a 2e 63 6c 3a 82 26 39  | .g:BNEb:.cl:.&9|
00001af0  30 30 30 2c 58 0d 07 80  22 20 53 54 41 28 77 2b  |000,X..." STA(w+|
00001b00  32 29 2c 59 3a 44 45 58  3a 42 45 51 62 79 62 79  |2),Y:DEX:BEQbyby|
00001b10  3a 44 45 43 68 74 32 0d  07 8a 1c 20 42 45 51 6e  |:DECht2.... BEQn|
00001b20  72 3a 49 4e 59 3a 43 50  59 23 38 3a 42 4e 45 70  |r:INY:CPY#8:BNEp|
00001b30  6c 70 32 0d 07 94 25 20  43 4c 43 3a 4c 44 41 77  |lp2...% CLC:LDAw|
00001b40  2b 32 3a 41 44 43 23 26  38 30 3a 53 54 41 77 2b  |+2:ADC#&80:STAw+|
00001b50  32 3a 4c 44 41 77 2b 33  0d 07 9e 1f 20 41 44 43  |2:LDAw+3.... ADC|
00001b60  23 32 3a 53 54 41 77 2b  33 3a 4c 44 59 23 30 3a  |#2:STAw+3:LDY#0:|
00001b70  4a 4d 50 70 6c 70 32 0d  07 a8 24 20 2e 6e 72 3a  |JMPplp2...$ .nr:|
00001b80  43 4c 43 3a 4c 44 41 77  3a 41 44 43 23 38 3a 53  |CLC:LDAw:ADC#8:S|
00001b90  54 41 77 3a 42 43 43 70  6c 70 31 0d 07 b2 24 20  |TAw:BCCplp1...$ |
00001ba0  49 4e 43 77 2b 31 3a 4a  4d 50 70 6c 70 31 3a 2e  |INCw+1:JMPplp1:.|
00001bb0  62 79 62 79 3a 43 4c 49  3a 4c 44 41 68 69 74 0d  |byby:CLI:LDAhit.|
00001bc0  07 bc 1f 20 80 6d 3a 53  54 41 68 69 74 3a 52 54  |... .m:STAhit:RT|
00001bd0  53 3a 2e 74 73 74 3a 4e  4f 50 3a 4e 4f 50 0d 07  |S:.tst:NOP:NOP..|
00001be0  c6 1f 20 2e 6e 74 73 74  3a 4e 4f 50 3a 4e 4f 50  |.. .ntst:NOP:NOP|
00001bf0  3a 2e 62 3a 50 48 41 3a  84 41 68 69 74 0d 07 d0  |:.b:PHA:.Ahit...|
00001c00  20 20 53 54 41 68 69 74  3a 50 4c 41 3a 4a 4d 50  |  STAhit:PLA:JMP|
00001c10  63 6c 3a 2e 69 3a 4c 44  59 23 26 46 46 0d 07 da  |cl:.i:LDY#&FF...|
00001c20  24 20 4c 44 41 23 26 38  31 3a 4a 53 52 26 46 46  |$ LDA#&81:JSR&FF|
00001c30  46 34 3a 49 4e 58 3a 52  54 53 3a 2e 6d 61 72 6b  |F4:INX:RTS:.mark|
00001c40  31 0d 07 e4 25 20 5d 3a  50 25 3d 26 45 30 30 3a  |1...% ]:P%=&E00:|
00001c50  5b 4f 50 54 54 3a 2e 74  75 6e 65 3a 43 50 58 23  |[OPTT:.tune:CPX#|
00001c60  37 3a 42 45 51 76 0d 07  ee 23 20 50 4c 50 3a 52  |7:BEQv...# PLP:R|
00001c70  54 53 3a 2e 76 3a 50 48  41 3a 54 58 41 3a 50 48  |TS:.v:PHA:TXA:PH|
00001c80  41 3a 54 59 41 3a 50 48  41 0d 07 f8 20 20 4c 44  |A:TYA:PHA...  LD|
00001c90  58 74 63 6e 74 3a 4c 44  41 74 64 74 61 2c 58 3a  |Xtcnt:LDAtdta,X:|
00001ca0  53 54 41 74 62 6c 6b 2b  34 0d 08 02 20 20 42 45  |STAtblk+4...  BE|
00001cb0  51 72 3a 4c 44 41 23 34  3a 2e 72 3a 53 54 41 74  |Qr:LDA#4:.r:STAt|
00001cc0  62 6c 6b 2b 32 3a 49 4e  58 0d 08 0c 24 20 4c 44  |blk+2:INX...$ LD|
00001cd0  41 74 64 74 61 2c 58 3a  53 54 41 74 62 6c 6b 2b  |Atdta,X:STAtblk+|
00001ce0  36 3a 49 4e 58 3a 43 50  58 74 66 6c 67 0d 08 16  |6:INX:CPXtflg...|
00001cf0  24 20 42 4e 45 6e 74 79  65 74 3a 4c 44 58 74 73  |$ BNEntyet:LDXts|
00001d00  74 74 3a 2e 6e 74 79 65  74 3a 53 54 58 74 63 6e  |tt:.ntyet:STXtcn|
00001d10  74 0d 08 20 20 20 4c 44  58 23 74 62 6c 6b 20 83  |t..   LDX#tblk .|
00001d20  32 35 36 3a 4c 44 59 23  74 62 6c 6b 20 81 32 35  |256:LDY#tblk .25|
00001d30  36 0d 08 2a 20 20 4c 44  41 23 37 3a 4a 53 52 26  |6..*  LDA#7:JSR&|
00001d40  46 46 46 31 3a 4a 4d 50  6f 75 74 3a 2e 74 66 6c  |FFF1:JMPout:.tfl|
00001d50  67 0d 08 34 22 20 42 52  4b 3a 2e 74 63 6e 74 3a  |g..4" BRK:.tcnt:|
00001d60  42 52 4b 3a 2e 74 73 74  74 3a 42 52 4b 3a 2e 74  |BRK:.tstt:BRK:.t|
00001d70  62 6c 6b 0d 08 3e 17 20  4f 50 54 20 a4 73 6b 69  |blk..>. OPT .ski|
00001d80  70 28 38 29 3a 2e 74 64  74 61 0d 08 48 23 20 5d  |p(8):.tdta..H# ]|
00001d90  3a 50 25 3d 26 31 31 30  30 3a 5b 4f 50 54 54 3a  |:P%=&1100:[OPTT:|
00001da0  2e 65 76 3a 50 48 50 3a  43 4d 50 23 34 0d 08 52  |.ev:PHP:CMP#4..R|
00001db0  24 20 42 45 51 66 3a 4a  4d 50 74 75 6e 65 3a 2e  |$ BEQf:JMPtune:.|
00001dc0  66 3a 50 48 41 3a 54 58  41 3a 50 48 41 3a 54 59  |f:PHA:TXA:PHA:TY|
00001dd0  41 0d 08 5c 19 20 50 48  41 3a 44 45 43 63 31 3a  |A..\. PHA:DECc1:|
00001de0  42 4e 45 6e 65 78 74 63  6f 6c 0d 08 66 1c 20 4c  |BNEnextcol..f. L|
00001df0  44 41 74 31 3a 53 54 41  63 31 3a 4c 44 41 23 38  |DAt1:STAc1:LDA#8|
00001e00  3a 53 54 41 63 68 0d 08  70 19 20 4c 44 41 63 6f  |:STAch..p. LDAco|
00001e10  6c 31 3a 53 54 41 63 68  2b 31 3a 4a 53 52 63 0d  |l1:STAch+1:JSRc.|
00001e20  08 7a 1c 20 4c 44 41 23  39 3a 53 54 41 63 68 3a  |.z. LDA#9:STAch:|
00001e30  4c 44 41 63 6f 6c 31 3a  82 23 32 0d 08 84 19 20  |LDAcol1:.#2.... |
00001e40  53 54 41 63 68 2b 31 3a  53 54 41 63 6f 6c 31 3a  |STAch+1:STAcol1:|
00001e50  4a 53 52 63 0d 08 8e 23  20 4c 44 41 6a 6f 67 3a  |JSRc...# LDAjog:|
00001e60  82 23 32 35 35 3a 53 54  41 6a 6f 67 3a 42 45 51  |.#255:STAjog:BEQ|
00001e70  6e 65 78 74 63 6f 6c 0d  08 98 21 20 4c 44 41 23  |nextcol...! LDA#|
00001e80  31 30 3a 53 54 41 63 68  3a 4c 44 41 63 6f 6c 32  |10:STAch:LDAcol2|
00001e90  3a 53 54 41 63 68 2b 31  0d 08 a2 22 20 4a 53 52  |:STAch+1..." JSR|
00001ea0  63 3a 4c 44 41 23 31 31  3a 53 54 41 63 68 3a 4c  |c:LDA#11:STAch:L|
00001eb0  44 41 63 6f 6c 32 3a 82  23 35 0d 08 ac 22 20 53  |DAcol2:.#5..." S|
00001ec0  54 41 63 68 2b 31 3a 53  54 41 63 6f 6c 32 3a 4a  |TAch+1:STAcol2:J|
00001ed0  53 52 63 3a 2e 6e 65 78  74 63 6f 6c 0d 08 b6 25  |SRc:.nextcol...%|
00001ee0  20 44 45 43 63 32 3a 42  4e 45 6f 75 74 3a 4c 44  | DECc2:BNEout:LD|
00001ef0  41 74 32 3a 53 54 41 63  32 3a 4c 44 41 61 63 6c  |At2:STAc2:LDAacl|
00001f00  31 0d 08 c0 1f 20 53 54  41 63 68 3a 4c 44 41 63  |1.... STAch:LDAc|
00001f10  6f 6c 33 3a 53 54 41 63  68 2b 31 3a 4a 53 52 63  |ol3:STAch+1:JSRc|
00001f20  0d 08 ca 20 20 4c 44 41  61 63 6c 32 3a 53 54 41  |...  LDAacl2:STA|
00001f30  63 68 3a 4c 44 41 63 6f  6c 33 3a 82 65 63 6c 33  |ch:LDAcol3:.ecl3|
00001f40  0d 08 d4 1e 20 53 54 41  63 68 2b 31 3a 53 54 41  |.... STAch+1:STA|
00001f50  63 6f 6c 33 3a 4a 53 52  63 3a 2e 6f 75 74 0d 08  |col3:JSRc:.out..|
00001f60  de 23 20 50 4c 41 3a 54  41 59 3a 50 4c 41 3a 54  |.# PLA:TAY:PLA:T|
00001f70  41 58 3a 50 4c 41 3a 50  4c 50 3a 52 54 53 3a 2e  |AX:PLA:PLP:RTS:.|
00001f80  63 0d 08 e8 1a 20 4c 44  41 23 26 43 3a 2e 73 3a  |c.... LDA#&C:.s:|
00001f90  4c 44 58 23 63 68 20 83  32 35 36 0d 08 f2 19 20  |LDX#ch .256.... |
00001fa0  4c 44 59 23 63 68 20 81  32 35 36 3a 4a 4d 50 26  |LDY#ch .256:JMP&|
00001fb0  46 46 46 31 0d 08 fc 1f  20 2e 66 78 3a 4c 44 41  |FFF1.... .fx:LDA|
00001fc0  23 31 39 3a 4a 4d 50 26  46 46 46 34 3a 2e 62 6f  |#19:JMP&FFF4:.bo|
00001fd0  69 6e 67 0d 09 06 25 20  49 4e 43 6e 6a 73 3a 4c  |ing...% INCnjs:L|
00001fe0  44 41 23 32 3a 53 54 41  63 68 3a 4c 44 41 23 31  |DA#2:STAch:LDA#1|
00001ff0  3a 53 54 41 63 68 2b 32  0d 09 10 22 20 53 54 41  |:STAch+2..." STA|
00002000  63 68 2b 34 3a 53 54 41  63 68 2b 36 3a 4c 44 41  |ch+4:STAch+6:LDA|
00002010  23 30 3a 53 54 41 63 68  2b 31 0d 09 1a 21 20 4c  |#0:STAch+1...! L|
00002020  44 41 23 37 3a 4a 4d 50  73 3a 2e 6d 78 3a 4f 50  |DA#7:JMPs:.mx:OP|
00002030  54 20 a4 73 6b 69 70 28  31 36 29 0d 09 24 17 20  |T .skip(16)..$. |
00002040  20 2e 6f 6c 3a 4f 50 54  20 a4 73 6b 69 70 28 33  | .ol:OPT .skip(3|
00002050  32 29 0d 09 2e 19 20 2e  73 70 74 68 74 3a 4f 50  |2).... .sptht:OP|
00002060  54 20 a4 73 6b 69 70 28  31 36 29 0d 09 38 1a 20  |T .skip(16)..8. |
00002070  2e 73 70 74 74 6f 74 3a  4f 50 54 20 a4 73 6b 69  |.spttot:OPT .ski|
00002080  70 28 31 36 29 0d 09 42  17 20 2e 73 64 70 3a 4f  |p(16)..B. .sdp:O|
00002090  50 54 20 a4 73 6b 69 70  28 33 32 29 0d 09 4c 16  |PT .skip(32)..L.|
000020a0  20 2e 72 70 3a 4f 50 54  20 a4 73 6b 69 70 28 36  | .rp:OPT .skip(6|
000020b0  35 29 0d 09 56 15 20 2e  63 68 3a 4f 50 54 20 a4  |5)..V. .ch:OPT .|
000020c0  73 6b 69 70 28 38 29 0d  09 60 24 20 2e 63 31 3a  |skip(8)..`$ .c1:|
000020d0  42 52 4b 3a 2e 63 32 3a  42 52 4b 3a 2e 74 31 3a  |BRK:.c2:BRK:.t1:|
000020e0  42 52 4b 3a 2e 74 32 3a  42 52 4b 0d 09 6a 22 20  |BRK:.t2:BRK..j" |
000020f0  2e 63 6f 6c 31 3a 42 52  4b 3a 2e 63 6f 6c 32 3a  |.col1:BRK:.col2:|
00002100  42 52 4b 3a 2e 63 6f 6c  33 3a 42 52 4b 0d 09 74  |BRK:.col3:BRK..t|
00002110  22 20 2e 65 63 6c 33 3a  42 52 4b 3a 2e 61 63 6c  |" .ecl3:BRK:.acl|
00002120  31 3a 42 52 4b 3a 2e 61  63 6c 32 3a 42 52 4b 0d  |1:BRK:.acl2:BRK.|
00002130  09 7e 0d 20 2e 6a 6f 67  3a 5d 3a ed 0d 09 88 aa  |.~. .jog:]:.....|
00002140  20 3f 74 66 6c 67 3d 31  39 30 3a 21 74 62 6c 6b  | ?tflg=190:!tblk|
00002150  3d 33 3a 74 62 6c 6b 21  34 3d 30 3a 3f 63 31 3d  |=3:tblk!4=0:?c1=|
00002160  31 35 3a 3f 74 31 3d 31  35 3a 3f 63 6f 6c 31 3d  |15:?t1=15:?col1=|
00002170  32 3a 3f 63 6f 6c 32 3d  35 3a 3f 63 32 3d 34 30  |2:?col2=5:?c2=40|
00002180  3a 3f 74 32 3d 34 30 3a  3f 63 6f 6c 33 3d 32 3a  |:?t2=40:?col3=2:|
00002190  3f 61 63 6c 31 3d 31 34  3a 3f 61 63 6c 32 3d 31  |?acl1=14:?acl2=1|
000021a0  35 3a 3f 65 63 6c 33 3d  32 3a 47 25 3d 63 6f 6c  |5:?ecl3=2:G%=col|
000021b0  33 3a 48 25 3d 65 63 6c  33 3a 3f 74 73 74 3d 3f  |3:H%=ecl3:?tst=?|
000021c0  67 3a 74 73 74 3f 31 3d  67 3f 31 3a 45 24 3d 22  |g:tst?1=g?1:E$="|
000021d0  54 48 45 52 45 20 49 53  20 41 20 44 41 54 41 20  |THERE IS A DATA |
000021e0  45 52 52 4f 52 22 0d 09  92 3d 20 e7 a4 65 76 61  |ERROR"...= ..eva|
000021f0  6c 28 74 64 74 61 29 3c  3e 26 41 46 32 46 32 32  |l(tdta)<>&AF2F22|
00002200  45 42 3a db 3a f1 8a 30  2c 31 30 29 45 24 22 20  |EB:.:..0,10)E$" |
00002210  42 45 46 4f 52 45 20 4c  49 4e 45 20 32 37 36 30  |BEFORE LINE 2760|
00002220  22 3a e0 0d 09 9c 27 20  4e 25 3d 6f 6c 3a e3 54  |":....' N%=ol:.T|
00002230  25 3d 30 b8 31 34 3a 21  4e 25 3d 26 39 30 30 30  |%=0.14:!N%=&9000|
00002240  3a 4e 25 3d 4e 25 2b 32  3a ed 0d 09 a6 13 20 f2  |:N%=N%+2:..... .|
00002250  72 65 61 64 28 6d 78 2c  31 32 2c 31 29 0d 09 b0  |read(mx,12,1)...|
00002260  16 20 f2 72 65 61 64 28  73 70 74 68 74 2c 31 32  |. .read(sptht,12|
00002270  2c 31 29 0d 09 ba 17 20  f2 72 65 61 64 28 73 70  |,1).... .read(sp|
00002280  74 74 6f 74 2c 31 32 2c  31 29 0d 09 c4 14 20 f2  |ttot,12,1).... .|
00002290  72 65 61 64 28 73 64 70  2c 32 38 2c 32 29 0d 09  |read(sdp,28,2)..|
000022a0  ce 1a 20 f2 63 68 65 63  6b 28 6d 78 2c 63 68 2c  |.. .check(mx,ch,|
000022b0  26 31 43 43 35 2c 34 29  0d 09 d8 31 20 4e 25 3d  |&1CC5,4)...1 N%=|
000022c0  72 70 3a e3 54 25 3d 33  31 b8 30 88 2d 31 3a 21  |rp:.T%=31.0.-1:!|
000022d0  4e 25 3d 26 33 30 30 30  2b 36 34 30 2a 54 25 3a  |N%=&3000+640*T%:|
000022e0  4e 25 3d 4e 25 2b 32 3a  ed 0d 09 e2 1e 20 f2 63  |N%=N%+2:..... .c|
000022f0  68 65 63 6b 28 26 39 30  30 2c 26 41 46 46 2c 26  |heck(&900,&AFF,&|
00002300  45 41 30 36 2c 31 29 0d  09 ec 1e 20 f2 63 68 65  |EA06,1).... .che|
00002310  63 6b 28 26 45 30 30 2c  74 66 6c 67 2c 26 31 37  |ck(&E00,tflg,&17|
00002320  34 36 2c 32 29 0d 09 f6  1a 20 f2 63 68 65 63 6b  |46,2).... .check|
00002330  28 65 76 2c 6d 78 2c 26  34 42 37 34 2c 33 29 0d  |(ev,mx,&4B74,3).|
00002340  0a 00 3c 20 e7 a4 65 76  61 6c 28 26 31 33 30 30  |..< ..eval(&1300|
00002350  29 3c 3e 26 35 39 30 38  33 46 42 20 db 3a f1 8a  |)<>&59083FB .:..|
00002360  30 2c 31 30 29 45 24 22  20 41 46 54 45 52 20 4c  |0,10)E$" AFTER L|
00002370  49 4e 45 20 32 37 36 30  22 3a e0 0d 0a 0a 06 20  |INE 2760":..... |
00002380  e1 0d 0a 14 1a 20 dd a4  65 76 61 6c 28 4e 25 29  |..... ..eval(N%)|
00002390  3a 43 25 3d 30 3a f5 3a  f3 41 24 0d 0a 1e 24 20  |:C%=0:.:.A$...$ |
000023a0  21 4e 25 3d a0 28 22 26  22 2b 41 24 29 3a 43 25  |!N%=.("&"+A$):C%|
000023b0  3d 43 25 2b 21 4e 25 3a  4e 25 3d 4e 25 2b 34 0d  |=C%+!N%:N%=N%+4.|
000023c0  0a 28 17 20 fd 41 24 3d  22 31 32 33 34 35 36 37  |.(. .A$="1234567|
000023d0  38 22 3a 3d 43 25 0d 0a  32 21 20 dd f2 72 65 61  |8":=C%..2! ..rea|
000023e0  64 28 50 25 2c 4e 25 2c  53 25 29 3a e3 54 25 3d  |d(P%,N%,S%):.T%=|
000023f0  30 b8 4e 25 88 53 25 0d  0a 3c 18 20 e7 4e 25 3c  |0.N%.S%..<. .N%<|
00002400  31 35 f3 54 25 3f 50 25  8b f3 54 25 21 50 25 0d  |15.T%?P%..T%!P%.|
00002410  0a 46 08 20 ed 3a e1 0d  0a 50 1b 20 dd a4 73 6b  |.F. .:...P. ..sk|
00002420  69 70 28 53 25 29 3a 50  25 3d 50 25 2b 53 25 3a  |ip(S%):P%=P%+S%:|
00002430  3d 54 0d 0a 5a 19 20 dd  f2 63 68 65 63 6b 28 73  |=T..Z. ..check(s|
00002440  25 2c 66 25 2c 63 25 2c  69 25 29 0d 0a 64 29 20  |%,f%,c%,i%)..d) |
00002450  ea 43 25 2c 54 25 3a e3  54 25 3d 73 25 b8 66 25  |.C%,T%:.T%=s%.f%|
00002460  3a 43 25 3d 43 25 2b 3f  54 25 3a ed 3a e7 43 25  |:C%=C%+?T%:.:.C%|
00002470  3d 63 25 e1 0d 0a 6e 50  20 db 3a f1 8a 30 2c 31  |=c%...nP .:..0,1|
00002480  30 29 22 54 48 45 52 45  20 49 53 20 41 4e 20 45  |0)"THERE IS AN E|
00002490  52 52 4f 52 20 49 4e 22  3a e7 69 3c 34 f1 22 41  |RROR IN":.i<4."A|
000024a0  53 53 45 4d 42 4c 45 52  20 22 3a 8b f1 22 53 50  |SSEMBLER ":.."SP|
000024b0  52 49 54 45 20 50 4f 49  4e 54 45 52 20 44 41 54  |RITE POINTER DAT|
000024c0  41 22 3a e0 0d 0a 78 17  20 ee 69 25 e5 8d 74 42  |A":...x. .i%..tB|
000024d0  4a 2c 8d 74 4c 4a 2c 8d  74 56 4a 0d 0a 82 17 20  |J,.tLJ,.tVJ.... |
000024e0  f1 22 42 45 46 4f 52 45  20 2e 6d 61 72 6b 31 22  |."BEFORE .mark1"|
000024f0  3a e0 0d 0a 8c 29 20 f1  22 41 46 54 45 52 20 2e  |:....) ."AFTER .|
00002500  6d 61 72 6b 31 22 27 22  41 4e 44 20 42 45 46 4f  |mark1"'"AND BEFO|
00002510  52 45 20 2e 74 66 6c 67  22 3a e0 0d 0a 96 22 20  |RE .tflg":...." |
00002520  f1 22 41 46 54 45 52 20  2e 65 76 22 27 22 41 4e  |."AFTER .ev"'"AN|
00002530  44 20 42 45 46 4f 52 45  20 2e 6d 78 22 0d 0a a0  |D BEFORE .mx"...|
00002540  06 20 e0 0d 0a aa ad 20  dc 32 38 31 30 32 37 44  |. ..... .281027D|
00002550  2c 34 38 39 30 34 38 39  2c 34 38 39 30 34 37 44  |,4890489,489047D|
00002560  2c 34 38 39 30 34 39 31  2c 34 30 30 30 34 37 44  |,4890491,400047D|
00002570  2c 43 37 35 30 34 37 44  2c 38 37 35 30 34 37 44  |,C75047D,875047D|
00002580  2c 32 38 31 30 32 37 44  2c 34 38 39 30 34 38 39  |,281027D,4890489|
00002590  2c 34 38 39 30 34 37 44  2c 34 38 39 30 34 39 31  |,489047D,4890491|
000025a0  2c 34 30 30 30 34 37 44  2c 32 37 35 30 32 37 44  |,400047D,275027D|
000025b0  2c 32 37 35 30 32 36 44  2c 34 37 35 30 34 37 44  |,275026D,475047D|
000025c0  2c 34 30 30 30 38 36 44  2c 34 38 39 30 34 38 39  |,400086D,4890489|
000025d0  2c 34 37 44 30 34 38 39  2c 32 38 39 30 32 38 39  |,47D0489,2890289|
000025e0  2c 34 38 39 30 34 39 31  2c 34 30 30 30 34 37 44  |,4890491,400047D|
000025f0  0d 0a b4 a5 20 dc 43 37  35 30 34 37 44 2c 38 37  |.... .C75047D,87|
00002600  35 30 34 37 44 2c 34 38  39 30 34 38 39 2c 34 37  |5047D,4890489,47|
00002610  44 30 34 38 39 2c 32 38  39 30 32 38 39 2c 32 39  |D0489,2890289,29|
00002620  31 30 32 39 31 2c 32 38  39 30 32 38 39 2c 34 30  |10291,2890289,40|
00002630  30 30 34 37 44 2c 32 37  35 30 32 37 44 2c 32 37  |0047D,275027D,27|
00002640  35 30 32 36 44 2c 34 37  35 30 34 37 44 2c 34 30  |5026D,475047D,40|
00002650  30 30 43 36 44 2c 32 36  44 30 36 36 44 2c 34 38  |00C6D,26D066D,48|
00002660  39 30 34 37 44 2c 34 30  30 30 43 39 44 2c 32 39  |9047D,4000C9D,29|
00002670  31 30 36 39 31 2c 34 39  31 30 34 39 44 2c 32 37  |10691,491049D,27|
00002680  44 30 43 38 39 2c 34 38  39 30 32 38 31 2c 32 37  |D0C89,4890281,27|
00002690  44 30 34 38 39 0d 0a be  af 20 dc 32 38 39 30 32  |D0489.... .28902|
000026a0  37 44 2c 34 39 31 30 32  38 39 2c 38 37 44 30 34  |7D,4910289,87D04|
000026b0  38 39 2c 32 37 44 30 34  37 35 2c 34 37 44 30 32  |89,27D0475,47D02|
000026c0  38 31 2c 32 37 35 30 32  37 35 2c 34 38 31 30 43  |81,2750275,4810C|
000026d0  36 44 2c 32 36 44 30 36  36 35 2c 32 37 44 30 36  |6D,26D0665,27D06|
000026e0  37 35 2c 36 39 35 30 38  38 31 2c 38 38 39 30 32  |75,6950881,88902|
000026f0  38 31 2c 32 38 39 30 36  39 35 2c 36 39 35 30 38  |81,2890695,69508|
00002700  38 31 2c 36 36 35 30 32  38 31 2c 36 37 35 30 32  |81,6650281,67502|
00002710  36 44 2c 38 38 31 30 32  37 44 2c 32 39 44 30 36  |6D,881027D,29D06|
00002720  39 35 2c 36 39 44 30 38  41 35 2c 43 39 35 30 32  |95,69D08A5,C9502|
00002730  39 35 2c 38 35 46 43 41  39 46 46 2c 31 32 33 34  |95,85FCA9FF,1234|
00002740  35 36 37 38 0d 0a c8 d7  20 dc 36 38 2c 37 32 2c  |5678.... .68,72,|
00002750  37 34 2c 37 34 2c 37 36  2c 37 36 2c 37 36 2c 37  |74,74,76,76,76,7|
00002760  35 2c 37 35 2c 37 34 2c  37 34 2c 37 34 2c 36 35  |5,75,74,74,74,65|
00002770  2c 31 36 2c 31 32 2c 38  2c 38 2c 31 32 2c 31 32  |,16,12,8,8,12,12|
00002780  2c 31 32 2c 33 32 2c 33  32 2c 31 32 2c 31 36 2c  |,12,32,32,12,16,|
00002790  33 32 2c 31 32 2c 32 30  38 2c 38 34 2c 34 38 2c  |32,12,208,84,48,|
000027a0  34 38 2c 34 38 2c 34 38  2c 34 38 2c 31 36 30 2c  |48,48,48,48,160,|
000027b0  31 36 30 2c 38 34 2c 39  36 2c 31 39 32 2c 31 38  |160,84,96,192,18|
000027c0  30 2c 26 31 32 46 46 2c  26 31 33 43 46 2c 26 31  |0,&12FF,&13CF,&1|
000027d0  34 39 46 2c 26 31 35 36  46 2c 26 31 35 43 33 2c  |49F,&156F,&15C3,|
000027e0  26 31 35 43 33 2c 26 31  35 46 33 2c 26 31 35 46  |&15C3,&15F3,&15F|
000027f0  33 2c 26 31 35 46 33 2c  26 31 36 32 33 2c 26 31  |3,&15F3,&1623,&1|
00002800  36 32 33 2c 26 31 36 43  33 2c 26 31 37 31 37 2c  |623,&16C3,&1717,|
00002810  26 31 37 37 37 2c 26 31  38 33 37 0d 0a d2 c7 20  |&1777,&1837.... |
00002820  dc 38 30 43 2c 30 2c 30  2c 30 2c 38 30 43 30 43  |.80C,0,0,0,80C0C|
00002830  30 43 2c 30 2c 30 2c 30  2c 43 33 46 32 41 30 43  |0C,0,0,0,C3F2A0C|
00002840  2c 30 2c 30 2c 30 2c 34  30 34 30 43 30 43 2c 30  |,0,0,0,4040C0C,0|
00002850  2c 33 43 33 43 33 43 30  30 2c 32 30 30 30 30 2c  |,3C3C3C00,20000,|
00002860  32 38 2c 33 43 30 30 33  43 30 30 2c 32 41 33 46  |28,3C003C00,2A3F|
00002870  33 43 32 38 2c 33 30 33  31 36 33 43 2c 33 36 33  |3C28,303163C,363|
00002880  36 32 38 32 38 2c 32 38  33 43 33 43 33 36 2c 33  |62828,283C3C36,3|
00002890  43 31 36 33 43 33 43 2c  31 30 33 30 33 31 36 2c  |C163C3C,1030316,|
000028a0  31 31 31 31 39 42 2c 33  30 33 30 32 30 30 2c 33  |11119B,3030200,3|
000028b0  30 33 30 33 30 33 2c 31  30 31 30 31 2c 30 2c 31  |030303,10101,0,1|
000028c0  30 31 30 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |0100,0,0,0,0,0,0|
000028d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
000028e0  2c 30 0d 0a dc b8 20 dc  30 2c 30 2c 30 2c 30 2c  |,0.... .0,0,0,0,|
000028f0  30 2c 30 2c 30 2c 30 2c  38 32 30 30 2c 38 32 30  |0,0,0,0,8200,820|
00002900  30 30 30 30 30 2c 43 30  30 43 30 30 38 2c 38 30  |00000,C00C008,80|
00002910  34 30 30 30 30 30 2c 38  30 41 30 30 43 33 2c 34  |400000,80A00C3,4|
00002920  31 30 30 30 38 30 41 2c  38 30 34 38 30 43 2c 34  |100080A,80480C,4|
00002930  30 30 30 30 44 30 45 2c  38 30 38 34 39 30 34 2c  |0000D0E,8084904,|
00002940  44 30 45 30 44 30 45 2c  38 30 43 30 43 30 38 2c  |D0E0D0E,80C0C08,|
00002950  44 30 45 30 44 30 45 2c  38 30 38 30 38 30 43 2c  |D0E0D0E,808080C,|
00002960  43 30 43 30 43 2c 43 30  34 30 34 32 38 2c 43 30  |C0C0C,C040428,C0|
00002970  34 30 35 30 34 2c 34 30  34 30 43 30 43 2c 34 2c  |40504,4040C0C,4,|
00002980  32 38 30 30 32 38 33 43  2c 32 32 32 38 33 43 31  |2800283C,22283C1|
00002990  34 2c 33 36 33 36 32 32  32 32 0d 0a e6 84 20 dc  |4,36362222.... .|
000029a0  33 36 33 36 33 36 2c 32  38 33 43 33 43 31 34 2c  |363636,283C3C14,|
000029b0  33 36 33 43 33 43 33 43  2c 33 33 33 33 33 33 33  |363C3C3C,3333333|
000029c0  33 2c 33 33 33 33 33 33  33 33 2c 39 42 33 33 33  |3,33333333,9B333|
000029d0  33 33 33 2c 33 33 39 39  39 39 31 34 2c 39 42 33  |333,33999914,9B3|
000029e0  33 33 33 33 33 2c 31 31  31 31 39 42 2c 30 2c 30  |33333,11119B,0,0|
000029f0  2c 30 2c 30 2c 30 2c 38  30 43 30 2c 30 2c 30 2c  |,0,0,0,80C0,0,0,|
00002a00  30 2c 38 30 34 30 30 30  2c 30 2c 30 2c 30 2c 30  |0,804000,0,0,0,0|
00002a10  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 0a  |,0,0,0,0,0,0,0..|
00002a20  f0 9d 20 dc 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |.. .0,0,0,0,0,0,|
00002a30  30 2c 30 2c 38 32 30 30  38 32 34 39 2c 38 30 38  |0,0,82008249,808|
00002a40  30 38 30 38 2c 38 32 2c  44 30 41 30 38 30 41 2c  |0808,82,D0A080A,|
00002a50  38 34 38 34 43 31 38 34  2c 43 30 43 30 34 30 34  |8484C184,C0C0404|
00002a60  2c 35 30 38 30 43 30 43  2c 44 30 45 30 35 30 34  |,5080C0C,D0E0504|
00002a70  2c 38 30 38 34 30 38 32  2c 43 34 30 30 30 30 43  |,8084082,C40000C|
00002a80  2c 33 43 30 30 30 43 30  43 2c 35 30 30 31 34 33  |,3C000C0C,500143|
00002a90  43 2c 34 34 31 43 33 30  30 2c 43 30 41 30 44 30  |C,441C300,C0A0D0|
00002aa0  41 2c 31 34 30 38 30 43  30 43 2c 33 43 33 43 33  |A,14080C0C,3C3C3|
00002ab0  43 33 43 2c 44 30 41 30  30 30 30 0d 0a fa ae 20  |C3C,D0A0000.... |
00002ac0  dc 43 30 43 30 44 30 43  2c 43 30 43 30 43 30 43  |.C0C0D0C,C0C0C0C|
00002ad0  2c 38 32 38 32 30 38 2c  43 30 43 30 44 30 41 2c  |,828208,C0C0D0A,|
00002ae0  43 30 43 30 43 30 43 2c  34 30 34 30 34 30 34 2c  |C0C0C0C,4040404,|
00002af0  30 2c 43 30 43 30 44 30  34 2c 43 30 43 2c 30 2c  |0,C0C0D04,C0C,0,|
00002b00  30 2c 43 30 34 30 30 30  30 2c 38 30 34 38 30 43  |0,C040000,80480C|
00002b10  30 43 2c 38 30 38 30 38  30 30 30 2c 43 30 43 30  |0C,80808000,C0C0|
00002b20  43 30 43 30 2c 34 31 30  30 30 30 30 30 2c 43 30  |C0C0,41000000,C0|
00002b30  43 38 36 30 34 2c 34 30  34 30 34 38 30 43 2c 34  |C8604,4040480C,4|
00002b40  30 2c 30 2c 34 31 30 30  30 30 30 30 2c 43 33 43  |0,0,41000000,C3C|
00002b50  33 34 31 34 31 2c 38 32  38 32 2c 30 2c 30 2c 30  |34141,8282,0,0,0|
00002b60  2c 38 32 43 33 34 31 34  31 0d 0b 04 98 20 dc 30  |,82C34141.... .0|
00002b70  2c 32 36 33 33 30 30 30  30 2c 38 2c 30 2c 31 39  |,26330000,8,0,19|
00002b80  31 39 30 30 30 30 2c 32  32 33 33 31 39 2c 41 38  |190000,223319,A8|
00002b90  30 30 30 30 30 30 2c 43  30 43 35 43 46 43 2c 33  |000000,C0C5CFC,3|
00002ba0  33 30 30 41 43 2c 46 43  46 43 41 38 30 30 2c 35  |300AC,FCFCA800,5|
00002bb0  44 35 44 41 45 46 43 2c  46 46 30 43 2c 35 34 46  |D5DAEFC,FF0C,54F|
00002bc0  43 46 43 2c 41 43 41 43  35 43 30 30 2c 46 46 46  |CFC,ACAC5C00,FFF|
00002bd0  46 46 46 2c 32 32 30 30  30 30 46 43 2c 43 30 43  |FFF,220000FC,C0C|
00002be0  31 31 2c 46 46 46 46 30  30 30 30 2c 31 31 30 30  |11,FFFF0000,1100|
00002bf0  30 30 30 30 2c 43 30 30  2c 35 35 30 30 30 30 30  |0000,C00,5500000|
00002c00  30 0d 0b 0e be 20 dc 41  30 30 30 30 30 30 2c 46  |0.... .A000000,F|
00002c10  33 46 33 32 41 30 41 2c  33 30 32 35 30 41 30 30  |3F32A0A,30250A00|
00002c20  2c 46 33 46 33 33 46 33  30 2c 33 30 33 30 32 35  |,F3F33F30,303025|
00002c30  30 41 2c 46 33 46 33 33  46 33 30 2c 33 30 33 30  |0A,F3F33F30,3030|
00002c40  33 30 31 30 2c 46 33 46  33 33 46 33 30 2c 33 30  |3010,F3F33F30,30|
00002c50  33 30 31 30 30 30 2c 46  33 46 33 33 46 33 30 2c  |301000,F3F33F30,|
00002c60  31 30 30 30 30 30 30 30  2c 46 33 46 33 33 46 31  |10000000,F3F33F1|
00002c70  30 2c 30 2c 33 31 37 32  33 31 31 2c 32 30 32 2c  |0,0,3172311,202,|
00002c80  31 33 32 32 30 32 30 32  2c 33 32 42 33 33 30 32  |13220202,32B3302|
00002c90  2c 32 30 33 30 33 31 37  2c 32 33 31 31 30 31 30  |,2030317,2311010|
00002ca0  31 2c 33 32 42 33 33 30  31 2c 31 31 37 30 33 32  |1,32B3301,117032|
00002cb0  42 2c 30 2c 33 32 42 31  33 32 32 2c 31 30 31 0d  |B,0,32B1322,101.|
00002cc0  0b 18 be 20 dc 32 32 31  31 31 31 30 35 2c 30 30  |... .22111105,00|
00002cd0  32 41 30 30 32 32 2c 30  2c 30 2c 30 2c 30 2c 30  |2A0022,0,0,0,0,0|
00002ce0  2c 30 2c 33 33 30 35 30  30 30 30 2c 30 30 32 32  |,0,33050000,0022|
00002cf0  33 33 33 42 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |333B,0,0,0,0,0,0|
00002d00  2c 33 33 31 31 30 35 30  30 2c 35 30 33 33 33 33  |,33110500,503333|
00002d10  33 42 2c 35 30 35 30 35  30 35 30 2c 35 30 35 30  |3B,50505050,5050|
00002d20  35 30 35 30 2c 35 30 35  30 35 30 35 30 2c 35 30  |5050,50505050,50|
00002d30  35 30 35 30 35 30 2c 35  30 35 30 35 30 35 30 2c  |505050,50505050,|
00002d40  35 30 35 30 35 30 35 30  2c 33 33 30 35 30 30 30  |50505050,3305000|
00002d50  30 2c 30 30 32 41 31 31  33 33 2c 30 2c 30 2c 30  |0,002A1133,0,0,0|
00002d60  2c 30 2c 30 2c 30 2c 30  30 31 31 31 31 30 35 2c  |,0,0,0,00111105,|
00002d70  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 0b 22  |0,0,0,0,0,0,0.."|
00002d80  9b 20 dc 42 46 32 46 31  46 31 2c 32 32 31 33 2c  |. .BF2F1F1,2213,|
00002d90  30 2c 46 46 32 46 31 46  31 2c 32 32 31 33 30 33  |0,FF2F1F1,221303|
00002da0  30 33 2c 30 2c 46 46 32  46 31 46 31 2c 33 30 33  |03,0,FF2F1F1,303|
00002db0  30 33 30 33 2c 32 32 31  33 2c 46 35 41 46 31 46  |0303,2213,F5AF1F|
00002dc0  31 2c 31 30 33 30 33 30  33 2c 32 32 32 32 32 32  |1,1030303,222222|
00002dd0  30 31 2c 33 30 37 30 37  46 31 2c 33 33 32 32 30  |01,30707F1,33220|
00002de0  30 30 33 2c 31 31 33 33  33 33 33 33 2c 32 30 30  |003,11333333,200|
00002df0  30 33 30 30 2c 33 33 33  33 31 31 31 33 2c 34 31  |0300,33331113,41|
00002e00  39 33 33 2c 32 42 30 30  30 31 30 30 2c 31 30 31  |933,2B000100,101|
00002e10  32 42 2c 34 30 30 30 30  0d 0b 2c 6b 20 dc 38 30  |2B,40000..,k .80|
00002e20  43 30 34 30 34 2c 38 30  38 2c 41 34 30 38 30 30  |C0404,808,A40800|
00002e30  30 30 2c 38 41 36 41 36  41 34 2c 43 30 38 30 30  |00,8A6A6A4,C0800|
00002e40  30 30 2c 38 30 43 30 43  32 45 2c 41 41 30 43 30  |00,80C0C2E,AA0C0|
00002e50  30 30 43 2c 43 41 38 41  38 41 41 2c 31 44 32 45  |00C,CA8A8AA,1D2E|
00002e60  30 43 30 30 2c 43 30 38  30 43 30 43 2c 34 30 30  |0C00,C080C0C,400|
00002e70  30 38 30 43 2c 34 30 34  30 34 2c 32 45 31 44 30  |080C,40404,2E1D0|
00002e80  43 30 30 0d 0b 36 59 20  dc 43 30 34 30 43 30 43  |C00..6Y .C040C0C|
00002e90  2c 38 30 30 30 34 30 43  2c 38 30 38 30 38 2c 43  |,800040C,80808,C|
00002ea0  30 34 30 30 30 30 2c 34  30 43 30 43 31 44 2c 35  |040000,40C0C1D,5|
00002eb0  30 30 43 30 30 30 43 2c  43 35 31 35 31 35 30 2c  |00C000C,C515150,|
00002ec0  34 30 43 30 38 30 38 2c  34 30 34 2c 35 44 30 34  |40C0808,404,5D04|
00002ed0  30 30 30 30 2c 34 35 43  35 43 35 44 0d 0b 40 91  |0000,45C5C5D..@.|
00002ee0  20 dc 33 43 33 43 32 38  30 30 2c 31 34 31 34 31  | .3C3C2800,14141|
00002ef0  34 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 33 43  |4,0,0,0,0,0,0,3C|
00002f00  33 43 33 43 2c 30 2c 30  2c 30 2c 30 2c 30 2c 32  |3C3C,0,0,0,0,0,2|
00002f10  38 32 38 32 38 30 30 2c  30 2c 32 32 33 43 33 43  |8282800,0,223C3C|
00002f20  33 43 2c 33 33 33 33 33  33 33 33 2c 32 32 32 32  |3C,33333333,2222|
00002f30  32 32 32 32 2c 30 2c 30  2c 32 38 30 30 32 38 30  |2222,0,0,2800280|
00002f40  30 2c 33 45 31 34 33 43  32 38 2c 32 30 33 32 38  |0,3E143C28,20328|
00002f50  32 38 2c 33 43 33 43 33  43 31 34 2c 33 33 33 33  |28,3C3C3C14,3333|
00002f60  33 33 33 39 2c 33 33 33  33 33 33 33 33 0d 0b 4a  |3339,33333333..J|
00002f70  9f 20 dc 33 39 33 39 33  39 33 39 2c 33 36 33 36  |. .39393939,3636|
00002f80  32 38 33 39 2c 33 43 32  38 33 43 33 36 2c 33 44  |2839,3C283C36,3D|
00002f90  33 44 33 43 33 43 2c 33  30 33 30 33 33 43 2c 33  |3D3C3C,303033C,3|
00002fa0  33 33 43 31 34 30 30 2c  33 39 33 39 33 33 33 33  |33C1400,39393333|
00002fb0  2c 33 36 33 36 33 36 33  36 2c 33 33 33 33 33 33  |,36363636,333333|
00002fc0  33 33 2c 31 31 31 31 33  33 2c 31 36 31 36 30 32  |33,111133,161602|
00002fd0  30 30 2c 31 36 30 33 31  36 31 36 2c 33 30 33 30  |00,16031616,3030|
00002fe0  33 2c 30 2c 31 31 31 31  31 31 30 30 2c 31 31 31  |3,0,11111100,111|
00002ff0  31 31 31 31 31 2c 31 31  2c 30 2c 31 30 33 30 33  |11111,11,0,10303|
00003000  30 30 2c 31 30 31 30 31  30 31 2c 30 0d 0b 54 a9  |00,1010101,0..T.|
00003010  20 dc 43 30 43 30 38 30  38 2c 43 32 45 30 34 30  | .C0C0808,C2E040|
00003020  43 2c 38 41 38 38 30 30  30 38 2c 34 30 30 30 38  |C,8A880008,40008|
00003030  30 38 2c 43 31 44 31 44  30 34 2c 43 45 43 44 30  |08,C1D1D04,CECD0|
00003040  30 30 43 2c 43 30 45 30  34 30 30 2c 43 30 43 30  |00C,C0E0400,C0C0|
00003050  43 30 45 2c 30 2c 38 30  38 30 38 30 43 2c 43 30  |C0E,0,808080C,C0|
00003060  43 30 35 30 38 2c 38 30  43 2c 38 30 41 30 38 30  |C0508,80C,80A080|
00003070  30 2c 43 30 45 30 43 30  34 2c 38 30 43 30 43 2c  |0,C0E0C04,80C0C,|
00003080  44 30 45 30 44 30 41 2c  43 30 45 30 44 30 45 2c  |D0E0D0A,C0E0D0E,|
00003090  43 30 43 30 43 2c 44 30  45 30 44 30 45 2c 34 30  |C0C0C,D0E0D0E,40|
000030a0  34 30 35 30 45 2c 43 30  43 30 43 30 43 2c 35 30  |4050E,C0C0C0C,50|
000030b0  34 30 35 30 34 0d 0b 5e  97 20 dc 43 30 43 30 43  |40504..^. .C0C0C|
000030c0  30 38 2c 43 30 43 30 34  30 38 2c 43 30 45 30 43  |08,C0C0408,C0E0C|
000030d0  30 43 2c 43 30 45 30 43  30 45 2c 34 30 43 30 43  |0C,C0E0C0E,40C0C|
000030e0  2c 38 30 30 30 30 30 34  2c 43 30 43 30 44 30 45  |,8000004,C0C0D0E|
000030f0  2c 43 2c 44 30 45 30 30  30 30 2c 34 30 43 30 44  |,C,D0E0000,40C0D|
00003100  30 45 2c 30 2c 44 30 45  30 44 30 30 2c 34 30 43  |0E,0,D0E0D00,40C|
00003110  30 43 2c 30 2c 43 30 43  38 34 38 30 2c 38 32 38  |0C,0,C0C8480,828|
00003120  36 2c 30 2c 34 31 43 30  43 30 43 30 2c 43 33 43  |6,0,41C0C0C0,C3C|
00003130  33 2c 30 2c 43 30 34 30  30 30 2c 43 33 34 31 30  |3,0,C04000,C3410|
00003140  30 2c 30 2c 31 32 33 34  35 36 37 38 0d 0b 68 1e  |0,0,12345678..h.|
00003150  20 dd f2 73 68 6f 72 74  65 6e 3a ef 32 33 3b 38  | ..shorten:.23;8|
00003160  32 30 32 3b 30 3b 30 3b  30 3b 0d 0b 72 40 20 db  |202;0;0;0;..r@ .|
00003170  3a e3 54 25 3d 30 b8 31  3a f1 8a 37 2c 54 25 29  |:.T%=0.1:..7,T%)|
00003180  bd 31 32 39 bd 31 35 37  bd 31 34 31 bd 31 33 34  |.129.157.141.134|
00003190  8a 31 31 29 22 44 49 4e  4f 22 8a 32 35 29 bd 31  |.11)"DINO".25).1|
000031a0  35 36 3a ed 3a 2a 46 58  32 31 0d 0b 7c 33 20 f1  |56:.:*FX21..|3 .|
000031b0  8a 37 2c 32 29 bd 31 32  39 bd 31 35 37 bd 31 33  |.7,2).129.157.13|
000031c0  30 22 61 6e 64 20 74 68  65 20 73 61 75 72 75 73  |0"and the saurus|
000031d0  20 72 61 63 65 73 20 20  22 bd 31 35 36 0d 0b 86  | races  ".156...|
000031e0  1e 20 f1 8a 31 32 2c 34  29 22 42 79 20 47 6f 72  |. ..12,4)"By Gor|
000031f0  64 6f 6e 20 4a 2e 20 4b  65 79 22 0d 0b 90 18 20  |don J. Key".... |
00003200  e7 90 3c 3e 26 31 39 30  30 20 f2 72 65 6c 6f 63  |..<>&1900 .reloc|
00003210  61 74 65 0d 0b 9a 36 20  f1 8a 30 2c 38 29 bd 31  |ate...6 ..0,8).1|
00003220  33 34 22 20 54 68 65 20  61 64 76 65 6e 74 75 72  |34" The adventur|
00003230  65 73 20 6f 66 20 61 6e  20 41 6e 63 69 65 6e 74  |es of an Ancient|
00003240  20 42 72 69 74 61 69 6e  22 0d 0b a4 30 20 f1 bd  | Britain"...0 ..|
00003250  31 33 34 22 20 61 73 20  68 65 20 74 72 69 65 73  |134" as he tries|
00003260  20 74 6f 20 72 69 64 65  20 68 69 73 20 67 6f 62  | to ride his gob|
00003270  6c 6f 73 61 75 72 75 73  22 0d 0b ae 28 20 f1 8a  |losaurus"...( ..|
00003280  38 2c 31 32 29 bd 31 33  30 22 55 73 65 20 74 68  |8,12).130"Use th|
00003290  65 20 66 6f 6c 6c 6f 77  69 6e 67 20 6b 65 79 73  |e following keys|
000032a0  22 0d 0b b8 1d 20 f1 8a  31 32 2c 31 34 29 22 5a  |".... ..12,14)"Z|
000032b0  2e 2e 2e 2e 2e 2e 2e 2e  2e 4c 45 46 54 22 0d 0b  |.........LEFT"..|
000032c0  c2 1e 20 f1 8a 31 32 2c  31 36 29 22 58 2e 2e 2e  |.. ..12,16)"X...|
000032d0  2e 2e 2e 2e 2e 2e 52 49  47 48 54 22 0d 0b cc 1d  |......RIGHT"....|
000032e0  20 f1 8a 31 32 2c 31 38  29 22 52 45 54 55 52 4e  | ..12,18)"RETURN|
000032f0  2e 2e 2e 2e 4a 55 4d 50  22 0d 0b d6 2f 20 f1 8a  |....JUMP".../ ..|
00003300  34 2c 32 32 29 bd 31 33  31 22 50 6c 65 61 73 65  |4,22).131"Please|
00003310  20 77 61 69 74 20 66 6f  72 20 61 20 73 68 6f 72  | wait for a shor|
00003320  74 20 77 68 69 6c 65 22  0d 0b e0 2d 20 f2 63 6f  |t while"...- .co|
00003330  64 65 3a 54 25 3d 90 2b  31 3a 41 24 3d c4 32 35  |de:T%=.+1:A$=.25|
00003340  35 2c 22 2a 22 29 3a f5  3a 54 25 3d 54 25 2b a9  |5,"*"):.:T%=T%+.|
00003350  24 54 25 2b 31 0d 0b ea  3d 20 e7 3f 54 25 3d 32  |$T%+1...= .?T%=2|
00003360  35 35 db 3a f1 8a 30 2c  31 30 29 22 4c 49 4e 45  |55.:..0,10)"LINE|
00003370  20 32 38 32 30 20 49 53  20 4d 49 53 53 49 4e 47  | 2820 IS MISSING|
00003380  20 4f 52 20 49 4e 43 4f  52 52 45 43 54 22 bd 37  | OR INCORRECT".7|
00003390  3a e0 0d 0b f4 2c 20 41  24 3d 24 28 54 25 2b 33  |:...., A$=$(T%+3|
000033a0  29 3a f5 3a e7 c0 41 24  2c 31 29 3d 22 20 22 41  |):.:..A$,1)=" "A|
000033b0  24 3d c2 41 24 2c a9 28  41 24 29 2d 31 29 0d 0b  |$=.A$,.(A$)-1)..|
000033c0  fe 11 20 fd c0 41 24 2c  31 29 3c 3e 22 20 22 0d  |.. ..A$,1)<>" ".|
000033d0  0c 08 15 20 fd c0 41 24  2c 36 29 3d 22 54 48 45  |... ..A$,6)="THE|
000033e0  45 4e 44 22 0d 0c 12 12  20 d4 31 2c 31 2c 32 30  |END".... .1,1,20|
000033f0  30 2c 31 30 3a f5 0d 0c  1c 37 20 f1 8a 34 2c 32  |0,10:....7 ..4,2|
00003400  32 29 bd 28 b3 28 37 29  2b 31 32 38 29 22 50 52  |2).(.(7)+128)"PR|
00003410  45 53 53 20 53 50 41 43  45 20 57 48 45 4e 20 59  |ESS SPACE WHEN Y|
00003420  4f 55 20 41 52 45 20 52  45 41 44 59 22 0d 0c 26  |OU ARE READY"..&|
00003430  16 20 fd a6 2d 39 39 3a  d4 31 2c 31 2c 31 32 30  |. ..-99:.1,1,120|
00003440  2c 31 30 0d 0c 30 13 20  3f 54 25 3d 26 46 46 3a  |,10..0. ?T%=&FF:|
00003450  2a 46 58 33 2c 32 0d 0c  3a 14 20 2a 4b 45 59 30  |*FX3,2..:. *KEY0|
00003460  4f 4c 44 7c 4d 52 55 4e  7c 4d 0d 0c 44 11 20 2a  |OLD|MRUN|M..D. *|
00003470  46 58 31 33 38 2c 30 2c  31 32 38 0d 0c 4e 06 20  |FX138,0,128..N. |
00003480  e0 0d 0c 58 1c 20 dd f2  72 65 6c 6f 63 61 74 65  |...X. ..relocate|
00003490  3a 2a 46 58 31 33 38 2c  30 2c 31 32 38 0d 0c 62  |:*FX138,0,128..b|
000034a0  3d 20 f1 8a 30 2c 31 30  29 22 50 4c 45 41 53 45  |= ..0,10)"PLEASE|
000034b0  20 57 41 49 54 20 57 48  49 4c 53 54 20 49 20 52  | WAIT WHILST I R|
000034c0  45 4c 4f 43 41 54 45 20  54 4f 20 26 31 39 30 30  |ELOCATE TO &1900|
000034d0  22 27 27 3a 2a 46 58 33  2c 32 0d 0c 6c 57 20 e7  |"'':*FX3,2..lW .|
000034e0  90 3c 26 31 39 30 30 3a  2a 4b 45 59 30 46 4f 52  |.<&1900:*KEY0FOR|
000034f0  54 25 3d 54 4f 50 2d 50  41 47 45 20 54 4f 2d 34  |T%=TOP-PAGE TO-4|
00003500  53 54 45 50 2d 34 3a 54  25 21 26 31 39 30 30 3d  |STEP-4:T%!&1900=|
00003510  54 25 21 50 41 47 45 3a  4e 2e 3a 50 41 47 45 3d  |T%!PAGE:N.:PAGE=|
00003520  26 31 39 30 30 7c 4d 4f  4c 44 7c 4d 52 55 4e 7c  |&1900|MOLD|MRUN||
00003530  4d 0d 0c 76 56 20 e7 90  3e 26 31 39 30 30 3a 2a  |M..vV ..>&1900:*|
00003540  4b 45 59 30 46 4f 52 54  25 3d 30 54 4f 54 4f 50  |KEY0FORT%=0TOTOP|
00003550  2d 50 41 47 45 20 53 54  45 50 34 3a 54 25 21 26  |-PAGE STEP4:T%!&|
00003560  31 39 30 30 3d 54 25 21  50 41 47 45 3a 4e 2e 7c  |1900=T%!PAGE:N.||
00003570  4d 50 41 47 45 3d 26 31  39 30 30 7c 4d 4f 4c 44  |MPAGE=&1900|MOLD|
00003580  7c 4d 52 55 4e 7c 4d 0d  ff                       ||MRUN|M..|
00003589