� PROMMER
� by Hugh Haskell 1987
� V1.0 For BBC & MASTER
(� (c) The Micro User
2%�7:� �<>&5900 ��=&5900:�"PROMMER"
<��26:�er2:�
F�init:�scr1:�rom
P�size:�hdr:H%=P%-C%
Z�scr2:I%=0:�fname
d�I%<0 � ��I%>1 �sort
n�B%=0�2�2:P%=C%
x�hdr:�list:�
��scr3:�gfiles:�clear
�� �er1:� �tV@
�(� �y("Save to disk  ") �save � �tj@
�� �y("Further copies")��tV@
�� � saved �
� � �y("Load to S/W RAM") �ram
��
���init:saved=�
�,B%=0:G%=&FFFF:K%=&FFE3:M%=&FFE7:T%=&FFF4
�<�Nm$(15),Ln%(15),Ad%(15),DNm$(15),p%(15),Ld%(15),Xq%(15)
�7A%=&83:C%=(�(T%) � 256) � &FF00:S%=&900:O%=&8000-C%
�master= (253=�-256):�
�	��er1

)� �=190 � �=195 � �=198 � �=201 ��TbA

	��er2

�:�" at line ";�:�

"�:�:�7:A=�(200):�:�

,��list:[OPTB%:.hdg

6OPT �s("   Program List")

@OPT �eb(13):BRK:.ls:]

J�J%=0�I%:[OPTB%

TOPT �s(Nm$(J%))

^OPT �eb(Ad%(J%) �256)

hOPT �eb(Ad%(J%) �256)

rOPT �ew(Ln%(J%))

|OPT �eb(p%(J%))

�OPT �ew(Ld%(J%))

�OPT �ew(Xq%(J%))

�]�:[OPTB%:OPT �eb(&FF)

�BRK:.lh%

�OPT �s(�r$,1))

�OPT �eb(&FE):]�

���hdr:P%=C%:[OPTB%

�BRK:BRK:BRK:JMPO%+E%

�OPT �eb(&82)

�OPT �eb(D% �256)

�OPT �eb(1)

�.t%:OPT �s(r$):.D%:BRK

�#OPT �s("(C) 1987 Hugh Haskell")
BRK:.E%:PHA:CMP#9:BEQh%
CMP#4:BEQnr:PLA:RTS:.h%
TYA:PHA:TXA:PHA:LDA(&F2),Y
&CMP#13:BEQsh%:LDX#&FF:DEY
0.L0:INX:INY:LDAO%+lh%,X
:CMP(&F2),Y:BEQL0:CMP#&FE
DBEQprgs:PLA:TAX:PLA:TAY
NPLA:RTS:.sh%:JSRO%+ph%
XJMPO%+out:.ph%:JSRM%
bLDX#&FF:.L1:INX:LDAO%+t%,X
lJSRK%:BNEL1:JSRM%:RTS
v.prgs:JSRO%+ph%:JSRM%
�LDX#&FF:.L2:INX:LDAO%+hdg,X
�JSRK%:CMP#13:BNEL2:JSRM%
�LDY#&FF:.stn:LDX#5:LDA#32
�.spc:JSRK%:DEX:BNEspc:.L3
�INY:LDAO%+ls,Y:BMInxn
�JSRK%:BNEL3:.nxn:TAX:JSRM%
� CPX#&FF:BEQout:TYA:CLC:ADC#8
�CMP#&FF:BEQout:TAY:BNEstn
�.nr:TYA:PHA:TXA:PHA:DEY
�STY86:LDX#&FF:.L4:INX:INY
� LDAO%+ls,X:BMIfnd:LDA(&F2),Y
�CMPO%+ls,X:BEQL4:CMP#&2E
�BNEncd:INY:.L5:INX
LDAO%+ls,X:BPLL5:JMPO%+fnd
.ncd:INX:LDAO%+ls,X:BPLncd
 CMP#&FF:BEQout:TXA:CLC:ADC#8
 CMP#&FF:BEQout:TAX:LDY86
*JMPO%+L4:.out:PLA:TAX
4 PLA:TAY:PLA:RTS:.fnd:CMP#&FF
>BEQout:STA83:INX:LDAO%+ls,X
HSTA82:INX:LDAO%+ls,X:STA84
RINX:LDAO%+ls,X:STA85:INX
\LDAO%+ls,X:STA86:BEQdef
fBMIm%:STA24:CMP#&19
pBEQdef:BCSdef:LDA#&8C:JSRT%
z .def:LDA24:STA88:LDA#0:STA87
�!.mv%:LDX85:CPX#0:BEQsp%:LDY#0
�.L6:LDA(82),Y:STA(87),Y:INY
�BNEL6:INC88:INC83:DEX:BNEL6
�.sp%:LDY84:.L7:LDA(82),Y
�!STA(87),Y:DEY:BNEL7:LDA(82),Y
�STA(87),Y:LDA86:BMIms%
� LDA#&8A:LDX#&00:LDY#79:JSRT%
�LDY#76:JSRT%:LDY#68:JSRT%
�LDY#13:JSRT%:LDY#82:JSRT%
�LDY#85:JSRT%:LDY#78:JSRT%
�LDY#13:JSRT%:.ex%:PLA:PLA
�PLA:LDA#0:RTS:.m%:INX
�LDAO%+ls,X:STA87:INX
LDAO%+ls,X:STA88
LDA#&60:LDY86:CPY#&FF
BNEload:LDA#&4C:.load
$STA89:INX:LDAO%+ls,X
.STA90:INX:LDAO%+ls,X:STA91
8JMPO%+mv%:.ms%:JSR89
BJMPO%+ex%:]�
LݤS(n$)
V#�n$,1)=" " n$=�n$,�n$-1):�DVD
`#��n$,1)=" " n$=�n$,�n$-1):�D`D
jDNm$(I%)=n$
t�n$,1)=":" n$=�n$,�n$-3)
~�n$,".")=2 n$=�n$,�n$-2)
�=n$
�ݤy(y$)
��12;y$;" Y/N";
��:Z%=�"YyNn*",�):�Z%
�!�Z%=5 �'"*"$S%:�os($S%):�t\D
��:�Z%<3 =� � =�
�
��os($S%)
�"X%=S% �256:Y%=S% �256:�&FFF7:�
�ݤs($S%):$P%=$S%
�P%=P%+�$P%:=B%
�ݤeb(V%):?P%=V%:P%=P%+1:=B%
�1ݤew(V%):?P%=V% �256:P%?1=V% �256:P%=P%+2:=B%
��lfile:err=�

F%=�(DNm$(J%)):�#0
�F%>0 ��tBE
err=�:�28,0,3,39,0,12
(!�A=0 �3:�31,0,A,132,157,131:�
2�28,3,3,39,0,15
<�129"Can't find "DNm$(J%)
F$�"Change Disk, Directory, Drive"
P+�"Press RETURN when ready to try again"
Z
�:�": "N$
d��N$=0��N$,1)="*"
n�N$>0�os(N$)
x	�TJE
�)�os("L."+DNm$(J%)+" "+�~(Ad%(J%)-O%))
�5�err �28,0,3,39,0,12,31,11,0,23,1,0;0;0;0;:�scr1a
��
�&ݤnname(n$):�""R$:�R$=0 =n$ � =R$
�'ݤchk(n$):m=�n$:�m>47 �m<58 =� � =�
�*ݤletr(n$):n=�n$�&DF:�n<65�n>90=� � =�
�ݤinfo($S%)
��A=0�16�4:A!96=0:�
�?96=S% �256:?97=S% �256
�X%=96:Y%=0:A%=5:�&FFDD
�Ld%(I%)=!98�G%
�Xq%(I%)=!102�G%
�Ln%(I%)=!106�G%
=Ln%(I%)

��page
)�"PAGE setting :- <ret>=default  &"p$
"� � �hx(p$)��TXF
,*�p$=0 p%(I%)=0 �p%(I%)=�("&"+p$) �256
6Ld%(I%)=p%(I%)*256:�
@��lorun
J!�"Load <L> or Run <RETURN> ";
T%� Z%=�:Z%=Z% � &DF:�Z%=76 � Z%=13
^)� Z%=76 p%(I%)=&F0 � p%(I%)=&FF:Z%=82
h
�Z%:�
r	��rom
|�'"ROM name  : "r$
�R�r$>7 �7''"Too long to save on disk:"'"(Optional) new name ";:r$= �nname(r$)
�@�r$=0�7'"You must give a name ! :- ";:r$= �nname(r$):�tFF
��
�
��size
��'"ROM size . . 16K ";l$
�(�l$=0 �� �chk(l$) l%=0 � l%=�(l$):�
��l%=0 �l%>8 L%=&4000:�
�!�l% �2<>0 �l%=6 l%=l%+1:�dLF
�L%=1024*l%:�
�
��fname:�
��"File Name "N$
��N$=0��TVH
��N$,1)="*"�os(N$):�djF
Nm$(I%)= �S(N$)
� �len(Nm$(I%))��djF
F%= �info(DNm$(I%))
&-�F%=0�'�129"No Such File":�os("*."):�djF
0�"Name for use in ROM "$S%
:�$S%=0 $S%=Nm$(I%)
D:� �letr($S%)�7"Names must start with a letter":�TpG
N� �len($S%)��TpG
XNm$(I%)=$S%
b"�I%=0�tJG � used=�:�J%=0�I%-1
l�Nm$(J%)=Nm$(I%) used=�
v�
�� used �"Used before":�TpG
�)Basic=(Xq%(I%)>&8000 � Xq%(I%)<&C000)
� P%=C%:�list:tl%=P%-C%:Len%=0
�!�J%=0 �15:Len%=Len%+Ln%(J%):�
�Q%=Len%+H%+tl%
�<�Q%>L% �"Not enough room for that one!!":Ln%(I%)=0:�djF
�� Basic �page � �lorun
��"Space Remaining &";~L%-Q%
�Ad%(0)=&8000+H%+tl%
��J%=1�I%
�Ad%(J%)=Ad%(J%-1)+Ln%(J%-1)
��
�I%=I%+1
#�I%>15�7"Catalogue full":�TVH
��
��
 
I%=I%-1:�
*��gfiles
4�J%=0�I%
>
�lfile
H"�28,0,24,39,8+J%,23,1,1;0;0;0;
R+�130;Nm$(J%)�14)�134;DNm$(J%)�29)�131;
\�p%(J%)=0 �"default";:�tDH
f7� p%(J%)<&F0 �"&"+�~p%(J%)+"00";: � �"&"+�~Ld%(J%);
p�p%(J%)=&FF �" r";:�tDH
z�p%(J%)=&F0 �" l";
��:�
��28,0,24,39,8+J%:�9+(J%>15)
��
���clear
��R%=Q%�L%-4�4:C%!R%=�:�
� �R%<L% R%?C%=�:R%=R%+1:�tvH
��
�	��ram
�� � master ��TFI
��12;"Slot No.";
��z$=�:��hx(z$)
��z$;:b=�("&"+z$)
�/�("SRLOAD "+�r$,7)+" 8000 "+�~b+" Q"):�TPI
	�os("L."+�r$,7)+" 8000")
	5�12;�133;�6"Loaded "�129"  -  END";:A=�(200):�:�
	
��save
	$+�os("S."+�r$,7)+" "+�~C%+" "+�~(C%+L%))
	.
saved=�:�
	8
ݤlen(n$)
	B.�n$>7 �7"Too long ! 7 chars max":=� � =�
	L��scr1:�26,12,31,11,0,15
	V��scr1a
	`�&83+"PROGRAM PROMMER"'
	j#�8�&82+"(c) Hugh Haskell 1987"
	t�
	~��scr2:�28,0,24,39,4,12
	�7$S%=�129+r$+�131+": Buffer &"+�~C%+" - &"+�~(C%+L%)
	�#�$S%<40 �20-�$S%/2);$S% ��$S%
	�:�"* Commands:"'" May be entered in place of file name"
	��28,0,24,39,8:�
	���scr3:�28,0,24,39,5,12
	�4�'�130"Call name"�134"    Disk name"�131�5"PAGE"
	��28,0,24,39,8:�
	�
ݤhx($S%)
	��$S%=0 =�
	�a=-1:�:a=a+1
	�0�(S%?a>47�S%?a<58)��(S%?a>64�S%?a<71)���:=�
	��a=�($S%)-1:=�
��sort:�swapped=�

�J%=0�I%-1
N%=J%+1
�Nm$(J%)>Nm$(N%) �swap
(�
2��swapped:�
<
��swap
F+$S%=Nm$(J%):Nm$(J%)=Nm$(N%):Nm$(N%)=$S%
P/$S%=DNm$(J%):DNm$(J%)=DNm$(N%):DNm$(N%)=$S%
Z+!S%=Ln%(J%):Ln%(J%)=Ln%(N%):Ln%(N%)=!S%
d+!S%=Ad%(J%):Ad%(J%)=Ad%(N%):Ad%(N%)=!S%
n'!S%=p%(J%):p%(J%)=p%(N%):p%(N%)=!S%
x+!S%=Ld%(J%):Ld%(J%)=Ld%(N%):Ld%(N%)=!S%
�+!S%=Xq%(J%):Xq%(J%)=Xq%(N%):Xq%(N%)=!S%
�swapped=�:�
�

00000000  0d 00 0a 0d f4 20 50 52  4f 4d 4d 45 52 0d 00 14  |..... PROMMER...|
00000010  1a f4 20 62 79 20 48 75  67 68 20 48 61 73 6b 65  |.. by Hugh Haske|
00000020  6c 6c 20 31 39 38 37 0d  00 1e 1b f4 20 56 31 2e  |ll 1987..... V1.|
00000030  30 20 46 6f 72 20 42 42  43 20 26 20 4d 41 53 54  |0 For BBC & MAST|
00000040  45 52 0d 00 28 18 f4 20  28 63 29 20 54 68 65 20  |ER..(.. (c) The |
00000050  4d 69 63 72 6f 20 55 73  65 72 0d 00 32 25 eb 37  |Micro User..2%.7|
00000060  3a e7 20 90 3c 3e 26 35  39 30 30 20 8c d0 3d 26  |:. .<>&5900 ..=&|
00000070  35 39 30 30 3a d7 22 50  52 4f 4d 4d 45 52 22 0d  |5900:."PROMMER".|
00000080  00 3c 10 ee 85 ef 32 36  3a f2 65 72 32 3a e0 0d  |.<....26:.er2:..|
00000090  00 46 14 f2 69 6e 69 74  3a f2 73 63 72 31 3a f2  |.F..init:.scr1:.|
000000a0  72 6f 6d 0d 00 50 17 f2  73 69 7a 65 3a f2 68 64  |rom..P..size:.hd|
000000b0  72 3a 48 25 3d 50 25 2d  43 25 0d 00 5a 15 f2 73  |r:H%=P%-C%..Z..s|
000000c0  63 72 32 3a 49 25 3d 30  3a f2 66 6e 61 6d 65 0d  |cr2:I%=0:.fname.|
000000d0  00 64 18 e7 49 25 3c 30  20 e0 20 8b e7 49 25 3e  |.d..I%<0 . ..I%>|
000000e0  31 20 f2 73 6f 72 74 0d  00 6e 13 e3 42 25 3d 30  |1 .sort..n..B%=0|
000000f0  b8 32 88 32 3a 50 25 3d  43 25 0d 00 78 10 f2 68  |.2.2:P%=C%..x..h|
00000100  64 72 3a f2 6c 69 73 74  3a ed 0d 00 82 18 f2 73  |dr:.list:......s|
00000110  63 72 33 3a f2 67 66 69  6c 65 73 3a f2 63 6c 65  |cr3:.gfiles:.cle|
00000120  61 72 0d 00 8c 12 ee 85  20 f2 65 72 31 3a e5 20  |ar...... .er1:. |
00000130  8d 74 56 40 0d 00 96 28  e7 20 a4 79 28 22 53 61  |.tV@...(. .y("Sa|
00000140  76 65 20 74 6f 20 64 69  73 6b 20 20 22 29 20 f2  |ve to disk  ") .|
00000150  73 61 76 65 20 8b 20 e5  8d 74 6a 40 0d 00 a0 1f  |save . ..tj@....|
00000160  e7 20 a4 79 28 22 46 75  72 74 68 65 72 20 63 6f  |. .y("Further co|
00000170  70 69 65 73 22 29 8c 8d  74 56 40 0d 00 aa 0f e7  |pies")..tV@.....|
00000180  20 ac 20 73 61 76 65 64  20 e0 0d 00 b4 20 e7 20  | . saved .... . |
00000190  a4 79 28 22 4c 6f 61 64  20 74 6f 20 53 2f 57 20  |.y("Load to S/W |
000001a0  52 41 4d 22 29 20 f2 72  61 6d 0d 00 be 05 e0 0d  |RAM") .ram......|
000001b0  00 c8 12 dd f2 69 6e 69  74 3a 73 61 76 65 64 3d  |.....init:saved=|
000001c0  a3 0d 00 d2 2c 42 25 3d  30 3a 47 25 3d 26 46 46  |....,B%=0:G%=&FF|
000001d0  46 46 3a 4b 25 3d 26 46  46 45 33 3a 4d 25 3d 26  |FF:K%=&FFE3:M%=&|
000001e0  46 46 45 37 3a 54 25 3d  26 46 46 46 34 0d 00 dc  |FFE7:T%=&FFF4...|
000001f0  3c de 4e 6d 24 28 31 35  29 2c 4c 6e 25 28 31 35  |<.Nm$(15),Ln%(15|
00000200  29 2c 41 64 25 28 31 35  29 2c 44 4e 6d 24 28 31  |),Ad%(15),DNm$(1|
00000210  35 29 2c 70 25 28 31 35  29 2c 4c 64 25 28 31 35  |5),p%(15),Ld%(15|
00000220  29 2c 58 71 25 28 31 35  29 0d 00 e6 37 41 25 3d  |),Xq%(15)...7A%=|
00000230  26 38 33 3a 43 25 3d 28  ba 28 54 25 29 20 81 20  |&83:C%=(.(T%) . |
00000240  32 35 36 29 20 80 20 26  46 46 30 30 3a 53 25 3d  |256) . &FF00:S%=|
00000250  26 39 30 30 3a 4f 25 3d  26 38 30 30 30 2d 43 25  |&900:O%=&8000-C%|
00000260  0d 00 f0 19 6d 61 73 74  65 72 3d 20 28 32 35 33  |....master= (253|
00000270  3d a6 2d 32 35 36 29 3a  e1 0d 00 fa 09 dd f2 65  |=.-256):.......e|
00000280  72 31 0d 01 04 29 e7 20  9f 3d 31 39 30 20 84 20  |r1...). .=190 . |
00000290  9f 3d 31 39 35 20 84 20  9f 3d 31 39 38 20 84 20  |.=195 . .=198 . |
000002a0  9f 3d 32 30 31 20 8c 8d  54 62 41 0d 01 0e 09 dd  |.=201 ..TbA.....|
000002b0  f2 65 72 32 0d 01 18 16  f6 3a f1 22 20 61 74 20  |.er2.....:." at |
000002c0  6c 69 6e 65 20 22 3b 9e  3a e0 0d 01 22 17 db 3a  |line ";.:..."..:|
000002d0  f6 3a ef 37 3a 41 3d a6  28 32 30 30 29 3a db 3a  |.:.7:A=.(200):.:|
000002e0  e1 0d 01 2c 16 dd f2 6c  69 73 74 3a 5b 4f 50 54  |...,...list:[OPT|
000002f0  42 25 3a 2e 68 64 67 0d  01 36 1d 4f 50 54 20 a4  |B%:.hdg..6.OPT .|
00000300  73 28 22 20 20 20 50 72  6f 67 72 61 6d 20 4c 69  |s("   Program Li|
00000310  73 74 22 29 0d 01 40 19  4f 50 54 20 a4 65 62 28  |st")..@.OPT .eb(|
00000320  31 33 29 3a 42 52 4b 3a  2e 6c 73 3a 5d 0d 01 4a  |13):BRK:.ls:]..J|
00000330  13 e3 4a 25 3d 30 b8 49  25 3a 5b 4f 50 54 42 25  |..J%=0.I%:[OPTB%|
00000340  0d 01 54 13 4f 50 54 20  a4 73 28 4e 6d 24 28 4a  |..T.OPT .s(Nm$(J|
00000350  25 29 29 0d 01 5e 19 4f  50 54 20 a4 65 62 28 41  |%))..^.OPT .eb(A|
00000360  64 25 28 4a 25 29 20 81  32 35 36 29 0d 01 68 19  |d%(J%) .256)..h.|
00000370  4f 50 54 20 a4 65 62 28  41 64 25 28 4a 25 29 20  |OPT .eb(Ad%(J%) |
00000380  83 32 35 36 29 0d 01 72  14 4f 50 54 20 a4 65 77  |.256)..r.OPT .ew|
00000390  28 4c 6e 25 28 4a 25 29  29 0d 01 7c 13 4f 50 54  |(Ln%(J%))..|.OPT|
000003a0  20 a4 65 62 28 70 25 28  4a 25 29 29 0d 01 86 14  | .eb(p%(J%))....|
000003b0  4f 50 54 20 a4 65 77 28  4c 64 25 28 4a 25 29 29  |OPT .ew(Ld%(J%))|
000003c0  0d 01 90 14 4f 50 54 20  a4 65 77 28 58 71 25 28  |....OPT .ew(Xq%(|
000003d0  4a 25 29 29 0d 01 9a 1a  5d ed 3a 5b 4f 50 54 42  |J%))....].:[OPTB|
000003e0  25 3a 4f 50 54 20 a4 65  62 28 26 46 46 29 0d 01  |%:OPT .eb(&FF)..|
000003f0  a4 0c 42 52 4b 3a 2e 6c  68 25 0d 01 ae 12 4f 50  |..BRK:.lh%....OP|
00000400  54 20 a4 73 28 c0 72 24  2c 31 29 29 0d 01 b8 13  |T .s(.r$,1))....|
00000410  4f 50 54 20 a4 65 62 28  26 46 45 29 3a 5d e1 0d  |OPT .eb(&FE):]..|
00000420  01 c2 16 dd f2 68 64 72  3a 50 25 3d 43 25 3a 5b  |.....hdr:P%=C%:[|
00000430  4f 50 54 42 25 0d 01 cc  18 42 52 4b 3a 42 52 4b  |OPTB%....BRK:BRK|
00000440  3a 42 52 4b 3a 4a 4d 50  4f 25 2b 45 25 0d 01 d6  |:BRK:JMPO%+E%...|
00000450  10 4f 50 54 20 a4 65 62  28 26 38 32 29 0d 01 e0  |.OPT .eb(&82)...|
00000460  14 4f 50 54 20 a4 65 62  28 44 25 20 83 32 35 36  |.OPT .eb(D% .256|
00000470  29 0d 01 ea 0e 4f 50 54  20 a4 65 62 28 31 29 0d  |)....OPT .eb(1).|
00000480  01 f4 1a 2e 74 25 3a 4f  50 54 20 a4 73 28 72 24  |....t%:OPT .s(r$|
00000490  29 3a 2e 44 25 3a 42 52  4b 0d 01 fe 23 4f 50 54  |):.D%:BRK...#OPT|
000004a0  20 a4 73 28 22 28 43 29  20 31 39 38 37 20 48 75  | .s("(C) 1987 Hu|
000004b0  67 68 20 48 61 73 6b 65  6c 6c 22 29 0d 02 08 1b  |gh Haskell")....|
000004c0  42 52 4b 3a 2e 45 25 3a  50 48 41 3a 43 4d 50 23  |BRK:.E%:PHA:CMP#|
000004d0  39 3a 42 45 51 68 25 0d  02 12 1b 43 4d 50 23 34  |9:BEQh%....CMP#4|
000004e0  3a 42 45 51 6e 72 3a 50  4c 41 3a 52 54 53 3a 2e  |:BEQnr:PLA:RTS:.|
000004f0  68 25 0d 02 1c 1e 54 59  41 3a 50 48 41 3a 54 58  |h%....TYA:PHA:TX|
00000500  41 3a 50 48 41 3a 4c 44  41 28 26 46 32 29 2c 59  |A:PHA:LDA(&F2),Y|
00000510  0d 02 26 1d 43 4d 50 23  31 33 3a 42 45 51 73 68  |..&.CMP#13:BEQsh|
00000520  25 3a 4c 44 58 23 26 46  46 3a 44 45 59 0d 02 30  |%:LDX#&FF:DEY..0|
00000530  1b 2e 4c 30 3a 49 4e 58  3a 49 4e 59 3a 4c 44 41  |..L0:INX:INY:LDA|
00000540  4f 25 2b 6c 68 25 2c 58  0d 02 3a 1c 43 4d 50 28  |O%+lh%,X..:.CMP(|
00000550  26 46 32 29 2c 59 3a 42  45 51 4c 30 3a 43 4d 50  |&F2),Y:BEQL0:CMP|
00000560  23 26 46 45 0d 02 44 1b  42 45 51 70 72 67 73 3a  |#&FE..D.BEQprgs:|
00000570  50 4c 41 3a 54 41 58 3a  50 4c 41 3a 54 41 59 0d  |PLA:TAX:PLA:TAY.|
00000580  02 4e 1a 50 4c 41 3a 52  54 53 3a 2e 73 68 25 3a  |.N.PLA:RTS:.sh%:|
00000590  4a 53 52 4f 25 2b 70 68  25 0d 02 58 18 4a 4d 50  |JSRO%+ph%..X.JMP|
000005a0  4f 25 2b 6f 75 74 3a 2e  70 68 25 3a 4a 53 52 4d  |O%+out:.ph%:JSRM|
000005b0  25 0d 02 62 1e 4c 44 58  23 26 46 46 3a 2e 4c 31  |%..b.LDX#&FF:.L1|
000005c0  3a 49 4e 58 3a 4c 44 41  4f 25 2b 74 25 2c 58 0d  |:INX:LDAO%+t%,X.|
000005d0  02 6c 19 4a 53 52 4b 25  3a 42 4e 45 4c 31 3a 4a  |.l.JSRK%:BNEL1:J|
000005e0  53 52 4d 25 3a 52 54 53  0d 02 76 19 2e 70 72 67  |SRM%:RTS..v..prg|
000005f0  73 3a 4a 53 52 4f 25 2b  70 68 25 3a 4a 53 52 4d  |s:JSRO%+ph%:JSRM|
00000600  25 0d 02 80 1f 4c 44 58  23 26 46 46 3a 2e 4c 32  |%....LDX#&FF:.L2|
00000610  3a 49 4e 58 3a 4c 44 41  4f 25 2b 68 64 67 2c 58  |:INX:LDAO%+hdg,X|
00000620  0d 02 8a 1c 4a 53 52 4b  25 3a 43 4d 50 23 31 33  |....JSRK%:CMP#13|
00000630  3a 42 4e 45 4c 32 3a 4a  53 52 4d 25 0d 02 94 1d  |:BNEL2:JSRM%....|
00000640  4c 44 59 23 26 46 46 3a  2e 73 74 6e 3a 4c 44 58  |LDY#&FF:.stn:LDX|
00000650  23 35 3a 4c 44 41 23 33  32 0d 02 9e 1d 2e 73 70  |#5:LDA#32.....sp|
00000660  63 3a 4a 53 52 4b 25 3a  44 45 58 3a 42 4e 45 73  |c:JSRK%:DEX:BNEs|
00000670  70 63 3a 2e 4c 33 0d 02  a8 19 49 4e 59 3a 4c 44  |pc:.L3....INY:LD|
00000680  41 4f 25 2b 6c 73 2c 59  3a 42 4d 49 6e 78 6e 0d  |AO%+ls,Y:BMInxn.|
00000690  02 b2 1e 4a 53 52 4b 25  3a 42 4e 45 4c 33 3a 2e  |...JSRK%:BNEL3:.|
000006a0  6e 78 6e 3a 54 41 58 3a  4a 53 52 4d 25 0d 02 bc  |nxn:TAX:JSRM%...|
000006b0  20 43 50 58 23 26 46 46  3a 42 45 51 6f 75 74 3a  | CPX#&FF:BEQout:|
000006c0  54 59 41 3a 43 4c 43 3a  41 44 43 23 38 0d 02 c6  |TYA:CLC:ADC#8...|
000006d0  1d 43 4d 50 23 26 46 46  3a 42 45 51 6f 75 74 3a  |.CMP#&FF:BEQout:|
000006e0  54 41 59 3a 42 4e 45 73  74 6e 0d 02 d0 1b 2e 6e  |TAY:BNEstn.....n|
000006f0  72 3a 54 59 41 3a 50 48  41 3a 54 58 41 3a 50 48  |r:TYA:PHA:TXA:PH|
00000700  41 3a 44 45 59 0d 02 da  1d 53 54 59 38 36 3a 4c  |A:DEY....STY86:L|
00000710  44 58 23 26 46 46 3a 2e  4c 34 3a 49 4e 58 3a 49  |DX#&FF:.L4:INX:I|
00000720  4e 59 0d 02 e4 20 4c 44  41 4f 25 2b 6c 73 2c 58  |NY... LDAO%+ls,X|
00000730  3a 42 4d 49 66 6e 64 3a  4c 44 41 28 26 46 32 29  |:BMIfnd:LDA(&F2)|
00000740  2c 59 0d 02 ee 1c 43 4d  50 4f 25 2b 6c 73 2c 58  |,Y....CMPO%+ls,X|
00000750  3a 42 45 51 4c 34 3a 43  4d 50 23 26 32 45 0d 02  |:BEQL4:CMP#&2E..|
00000760  f8 16 42 4e 45 6e 63 64  3a 49 4e 59 3a 2e 4c 35  |..BNEncd:INY:.L5|
00000770  3a 49 4e 58 0d 03 02 1e  4c 44 41 4f 25 2b 6c 73  |:INX....LDAO%+ls|
00000780  2c 58 3a 42 50 4c 4c 35  3a 4a 4d 50 4f 25 2b 66  |,X:BPLL5:JMPO%+f|
00000790  6e 64 0d 03 0c 1e 2e 6e  63 64 3a 49 4e 58 3a 4c  |nd.....ncd:INX:L|
000007a0  44 41 4f 25 2b 6c 73 2c  58 3a 42 50 4c 6e 63 64  |DAO%+ls,X:BPLncd|
000007b0  0d 03 16 20 43 4d 50 23  26 46 46 3a 42 45 51 6f  |... CMP#&FF:BEQo|
000007c0  75 74 3a 54 58 41 3a 43  4c 43 3a 41 44 43 23 38  |ut:TXA:CLC:ADC#8|
000007d0  0d 03 20 1c 43 4d 50 23  26 46 46 3a 42 45 51 6f  |.. .CMP#&FF:BEQo|
000007e0  75 74 3a 54 41 58 3a 4c  44 59 38 36 0d 03 2a 19  |ut:TAX:LDY86..*.|
000007f0  4a 4d 50 4f 25 2b 4c 34  3a 2e 6f 75 74 3a 50 4c  |JMPO%+L4:.out:PL|
00000800  41 3a 54 41 58 0d 03 34  20 50 4c 41 3a 54 41 59  |A:TAX..4 PLA:TAY|
00000810  3a 50 4c 41 3a 52 54 53  3a 2e 66 6e 64 3a 43 4d  |:PLA:RTS:.fnd:CM|
00000820  50 23 26 46 46 0d 03 3e  1f 42 45 51 6f 75 74 3a  |P#&FF..>.BEQout:|
00000830  53 54 41 38 33 3a 49 4e  58 3a 4c 44 41 4f 25 2b  |STA83:INX:LDAO%+|
00000840  6c 73 2c 58 0d 03 48 1e  53 54 41 38 32 3a 49 4e  |ls,X..H.STA82:IN|
00000850  58 3a 4c 44 41 4f 25 2b  6c 73 2c 58 3a 53 54 41  |X:LDAO%+ls,X:STA|
00000860  38 34 0d 03 52 1c 49 4e  58 3a 4c 44 41 4f 25 2b  |84..R.INX:LDAO%+|
00000870  6c 73 2c 58 3a 53 54 41  38 35 3a 49 4e 58 0d 03  |ls,X:STA85:INX..|
00000880  5c 1b 4c 44 41 4f 25 2b  6c 73 2c 58 3a 53 54 41  |\.LDAO%+ls,X:STA|
00000890  38 36 3a 42 45 51 64 65  66 0d 03 66 17 42 4d 49  |86:BEQdef..f.BMI|
000008a0  6d 25 3a 53 54 41 32 34  3a 43 4d 50 23 26 31 39  |m%:STA24:CMP#&19|
000008b0  0d 03 70 1f 42 45 51 64  65 66 3a 42 43 53 64 65  |..p.BEQdef:BCSde|
000008c0  66 3a 4c 44 41 23 26 38  43 3a 4a 53 52 54 25 0d  |f:LDA#&8C:JSRT%.|
000008d0  03 7a 20 2e 64 65 66 3a  4c 44 41 32 34 3a 53 54  |.z .def:LDA24:ST|
000008e0  41 38 38 3a 4c 44 41 23  30 3a 53 54 41 38 37 0d  |A88:LDA#0:STA87.|
000008f0  03 84 21 2e 6d 76 25 3a  4c 44 58 38 35 3a 43 50  |..!.mv%:LDX85:CP|
00000900  58 23 30 3a 42 45 51 73  70 25 3a 4c 44 59 23 30  |X#0:BEQsp%:LDY#0|
00000910  0d 03 8e 1f 2e 4c 36 3a  4c 44 41 28 38 32 29 2c  |.....L6:LDA(82),|
00000920  59 3a 53 54 41 28 38 37  29 2c 59 3a 49 4e 59 0d  |Y:STA(87),Y:INY.|
00000930  03 98 1f 42 4e 45 4c 36  3a 49 4e 43 38 38 3a 49  |...BNEL6:INC88:I|
00000940  4e 43 38 33 3a 44 45 58  3a 42 4e 45 4c 36 0d 03  |NC83:DEX:BNEL6..|
00000950  a2 1c 2e 73 70 25 3a 4c  44 59 38 34 3a 2e 4c 37  |...sp%:LDY84:.L7|
00000960  3a 4c 44 41 28 38 32 29  2c 59 0d 03 ac 21 53 54  |:LDA(82),Y...!ST|
00000970  41 28 38 37 29 2c 59 3a  44 45 59 3a 42 4e 45 4c  |A(87),Y:DEY:BNEL|
00000980  37 3a 4c 44 41 28 38 32  29 2c 59 0d 03 b6 1a 53  |7:LDA(82),Y....S|
00000990  54 41 28 38 37 29 2c 59  3a 4c 44 41 38 36 3a 42  |TA(87),Y:LDA86:B|
000009a0  4d 49 6d 73 25 0d 03 c0  20 4c 44 41 23 26 38 41  |MIms%... LDA#&8A|
000009b0  3a 4c 44 58 23 26 30 30  3a 4c 44 59 23 37 39 3a  |:LDX#&00:LDY#79:|
000009c0  4a 53 52 54 25 0d 03 ca  1d 4c 44 59 23 37 36 3a  |JSRT%....LDY#76:|
000009d0  4a 53 52 54 25 3a 4c 44  59 23 36 38 3a 4a 53 52  |JSRT%:LDY#68:JSR|
000009e0  54 25 0d 03 d4 1d 4c 44  59 23 31 33 3a 4a 53 52  |T%....LDY#13:JSR|
000009f0  54 25 3a 4c 44 59 23 38  32 3a 4a 53 52 54 25 0d  |T%:LDY#82:JSRT%.|
00000a00  03 de 1d 4c 44 59 23 38  35 3a 4a 53 52 54 25 3a  |...LDY#85:JSRT%:|
00000a10  4c 44 59 23 37 38 3a 4a  53 52 54 25 0d 03 e8 1d  |LDY#78:JSRT%....|
00000a20  4c 44 59 23 31 33 3a 4a  53 52 54 25 3a 2e 65 78  |LDY#13:JSRT%:.ex|
00000a30  25 3a 50 4c 41 3a 50 4c  41 0d 03 f2 19 50 4c 41  |%:PLA:PLA....PLA|
00000a40  3a 4c 44 41 23 30 3a 52  54 53 3a 2e 6d 25 3a 49  |:LDA#0:RTS:.m%:I|
00000a50  4e 58 0d 03 fc 18 4c 44  41 4f 25 2b 6c 73 2c 58  |NX....LDAO%+ls,X|
00000a60  3a 53 54 41 38 37 3a 49  4e 58 0d 04 06 14 4c 44  |:STA87:INX....LD|
00000a70  41 4f 25 2b 6c 73 2c 58  3a 53 54 41 38 38 0d 04  |AO%+ls,X:STA88..|
00000a80  10 19 4c 44 41 23 26 36  30 3a 4c 44 59 38 36 3a  |..LDA#&60:LDY86:|
00000a90  43 50 59 23 26 46 46 0d  04 1a 19 42 4e 45 6c 6f  |CPY#&FF....BNElo|
00000aa0  61 64 3a 4c 44 41 23 26  34 43 3a 2e 6c 6f 61 64  |ad:LDA#&4C:.load|
00000ab0  0d 04 24 18 53 54 41 38  39 3a 49 4e 58 3a 4c 44  |..$.STA89:INX:LD|
00000ac0  41 4f 25 2b 6c 73 2c 58  0d 04 2e 1e 53 54 41 39  |AO%+ls,X....STA9|
00000ad0  30 3a 49 4e 58 3a 4c 44  41 4f 25 2b 6c 73 2c 58  |0:INX:LDAO%+ls,X|
00000ae0  3a 53 54 41 39 31 0d 04  38 18 4a 4d 50 4f 25 2b  |:STA91..8.JMPO%+|
00000af0  6d 76 25 3a 2e 6d 73 25  3a 4a 53 52 38 39 0d 04  |mv%:.ms%:JSR89..|
00000b00  42 10 4a 4d 50 4f 25 2b  65 78 25 3a 5d e1 0d 04  |B.JMPO%+ex%:]...|
00000b10  4c 0b dd a4 53 28 6e 24  29 0d 04 56 23 e7 c0 6e  |L...S(n$)..V#..n|
00000b20  24 2c 31 29 3d 22 20 22  20 6e 24 3d c2 6e 24 2c  |$,1)=" " n$=.n$,|
00000b30  a9 6e 24 2d 31 29 3a e5  8d 44 56 44 0d 04 60 23  |.n$-1):..DVD..`#|
00000b40  e7 c2 6e 24 2c 31 29 3d  22 20 22 20 6e 24 3d c0  |..n$,1)=" " n$=.|
00000b50  6e 24 2c a9 6e 24 2d 31  29 3a e5 8d 44 60 44 0d  |n$,.n$-1):..D`D.|
00000b60  04 6a 0f 44 4e 6d 24 28  49 25 29 3d 6e 24 0d 04  |.j.DNm$(I%)=n$..|
00000b70  74 1d e7 c0 6e 24 2c 31  29 3d 22 3a 22 20 6e 24  |t...n$,1)=":" n$|
00000b80  3d c2 6e 24 2c a9 6e 24  2d 33 29 0d 04 7e 1d e7  |=.n$,.n$-3)..~..|
00000b90  a7 6e 24 2c 22 2e 22 29  3d 32 20 6e 24 3d c2 6e  |.n$,".")=2 n$=.n|
00000ba0  24 2c a9 6e 24 2d 32 29  0d 04 88 07 3d 6e 24 0d  |$,.n$-2)....=n$.|
00000bb0  04 92 0b dd a4 79 28 79  24 29 0d 04 9c 13 f1 bd  |.....y(y$)......|
00000bc0  31 32 3b 79 24 3b 22 20  59 2f 4e 22 3b 0d 04 a6  |12;y$;" Y/N";...|
00000bd0  18 f5 3a 5a 25 3d a7 22  59 79 4e 6e 2a 22 2c be  |..:Z%=."YyNn*",.|
00000be0  29 3a fd 5a 25 0d 04 b0  21 e7 5a 25 3d 35 20 e8  |):.Z%...!.Z%=5 .|
00000bf0  27 22 2a 22 24 53 25 3a  f2 6f 73 28 24 53 25 29  |'"*"$S%:.os($S%)|
00000c00  3a e5 8d 74 5c 44 0d 04  ba 13 f1 3a e7 5a 25 3c  |:..t\D.....:.Z%<|
00000c10  33 20 3d b9 20 8b 20 3d  a3 0d 04 c4 0d dd f2 6f  |3 =. . =.......o|
00000c20  73 28 24 53 25 29 0d 04  ce 22 58 25 3d 53 25 20  |s($S%)..."X%=S% |
00000c30  83 32 35 36 3a 59 25 3d  53 25 20 81 32 35 36 3a  |.256:Y%=S% .256:|
00000c40  d6 26 46 46 46 37 3a e1  0d 04 d8 14 dd a4 73 28  |.&FFF7:.......s(|
00000c50  24 53 25 29 3a 24 50 25  3d 24 53 25 0d 04 e2 12  |$S%):$P%=$S%....|
00000c60  50 25 3d 50 25 2b a9 24  50 25 3a 3d 42 25 0d 04  |P%=P%+.$P%:=B%..|
00000c70  ec 1f dd a4 65 62 28 56  25 29 3a 3f 50 25 3d 56  |....eb(V%):?P%=V|
00000c80  25 3a 50 25 3d 50 25 2b  31 3a 3d 42 25 0d 04 f6  |%:P%=P%+1:=B%...|
00000c90  31 dd a4 65 77 28 56 25  29 3a 3f 50 25 3d 56 25  |1..ew(V%):?P%=V%|
00000ca0  20 83 32 35 36 3a 50 25  3f 31 3d 56 25 20 81 32  | .256:P%?1=V% .2|
00000cb0  35 36 3a 50 25 3d 50 25  2b 32 3a 3d 42 25 0d 05  |56:P%=P%+2:=B%..|
00000cc0  00 11 dd f2 6c 66 69 6c  65 3a 65 72 72 3d a3 0d  |....lfile:err=..|
00000cd0  05 0a 16 46 25 3d 8e 28  44 4e 6d 24 28 4a 25 29  |...F%=.(DNm$(J%)|
00000ce0  29 3a d9 23 30 0d 05 14  0f e7 46 25 3e 30 20 8c  |):.#0.....F%>0 .|
00000cf0  8d 74 42 45 0d 05 1e 19  65 72 72 3d b9 3a ef 32  |.tBE....err=.:.2|
00000d00  38 2c 30 2c 33 2c 33 39  2c 30 2c 31 32 0d 05 28  |8,0,3,39,0,12..(|
00000d10  21 e3 41 3d 30 20 b8 33  3a ef 33 31 2c 30 2c 41  |!.A=0 .3:.31,0,A|
00000d20  2c 31 33 32 2c 31 35 37  2c 31 33 31 3a ed 0d 05  |,132,157,131:...|
00000d30  32 13 ef 32 38 2c 33 2c  33 2c 33 39 2c 30 2c 31  |2..28,3,3,39,0,1|
00000d40  35 0d 05 3c 1e f1 bd 31  32 39 22 43 61 6e 27 74  |5..<...129"Can't|
00000d50  20 66 69 6e 64 20 22 44  4e 6d 24 28 4a 25 29 0d  | find "DNm$(J%).|
00000d60  05 46 24 f1 22 43 68 61  6e 67 65 20 44 69 73 6b  |.F$."Change Disk|
00000d70  2c 20 44 69 72 65 63 74  6f 72 79 2c 20 44 72 69  |, Directory, Dri|
00000d80  76 65 22 0d 05 50 2b f1  22 50 72 65 73 73 20 52  |ve"..P+."Press R|
00000d90  45 54 55 52 4e 20 77 68  65 6e 20 72 65 61 64 79  |ETURN when ready|
00000da0  20 74 6f 20 74 72 79 20  61 67 61 69 6e 22 0d 05  | to try again"..|
00000db0  5a 0d f5 3a e8 22 3a 20  22 4e 24 0d 05 64 15 fd  |Z..:.": "N$..d..|
00000dc0  a9 4e 24 3d 30 84 c0 4e  24 2c 31 29 3d 22 2a 22  |.N$=0..N$,1)="*"|
00000dd0  0d 05 6e 11 e7 a9 4e 24  3e 30 f2 6f 73 28 4e 24  |..n...N$>0.os(N$|
00000de0  29 0d 05 78 09 e5 8d 54  4a 45 0d 05 82 29 f2 6f  |)..x...TJE...).o|
00000df0  73 28 22 4c 2e 22 2b 44  4e 6d 24 28 4a 25 29 2b  |s("L."+DNm$(J%)+|
00000e00  22 20 22 2b c3 7e 28 41  64 25 28 4a 25 29 2d 4f  |" "+.~(Ad%(J%)-O|
00000e10  25 29 29 0d 05 8c 35 e7  65 72 72 20 ef 32 38 2c  |%))...5.err .28,|
00000e20  30 2c 33 2c 33 39 2c 30  2c 31 32 2c 33 31 2c 31  |0,3,39,0,12,31,1|
00000e30  31 2c 30 2c 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |1,0,23,1,0;0;0;0|
00000e40  3b 3a f2 73 63 72 31 61  0d 05 96 05 e1 0d 05 a0  |;:.scr1a........|
00000e50  26 dd a4 6e 6e 61 6d 65  28 6e 24 29 3a e8 22 22  |&..nname(n$):.""|
00000e60  52 24 3a e7 a9 52 24 3d  30 20 3d 6e 24 20 8b 20  |R$:..R$=0 =n$ . |
00000e70  3d 52 24 0d 05 aa 27 dd  a4 63 68 6b 28 6e 24 29  |=R$...'..chk(n$)|
00000e80  3a 6d 3d 97 6e 24 3a e7  6d 3e 34 37 20 80 6d 3c  |:m=.n$:.m>47 .m<|
00000e90  35 38 20 3d b9 20 8b 20  3d a3 0d 05 b4 2a dd a4  |58 =. . =....*..|
00000ea0  6c 65 74 72 28 6e 24 29  3a 6e 3d 97 6e 24 80 26  |letr(n$):n=.n$.&|
00000eb0  44 46 3a e7 6e 3c 36 35  84 6e 3e 39 30 3d a3 20  |DF:.n<65.n>90=. |
00000ec0  8b 20 3d b9 0d 05 be 0f  dd a4 69 6e 66 6f 28 24  |. =.......info($|
00000ed0  53 25 29 0d 05 c8 16 e3  41 3d 30 b8 31 36 88 34  |S%).....A=0.16.4|
00000ee0  3a 41 21 39 36 3d 30 3a  ed 0d 05 d2 1b 3f 39 36  |:A!96=0:.....?96|
00000ef0  3d 53 25 20 83 32 35 36  3a 3f 39 37 3d 53 25 20  |=S% .256:?97=S% |
00000f00  81 32 35 36 0d 05 dc 1a  58 25 3d 39 36 3a 59 25  |.256....X%=96:Y%|
00000f10  3d 30 3a 41 25 3d 35 3a  d6 26 46 46 44 44 0d 05  |=0:A%=5:.&FFDD..|
00000f20  e6 12 4c 64 25 28 49 25  29 3d 21 39 38 80 47 25  |..Ld%(I%)=!98.G%|
00000f30  0d 05 f0 13 58 71 25 28  49 25 29 3d 21 31 30 32  |....Xq%(I%)=!102|
00000f40  80 47 25 0d 05 fa 13 4c  6e 25 28 49 25 29 3d 21  |.G%....Ln%(I%)=!|
00000f50  31 30 36 80 47 25 0d 06  04 0c 3d 4c 6e 25 28 49  |106.G%....=Ln%(I|
00000f60  25 29 0d 06 0e 0a dd f2  70 61 67 65 0d 06 18 29  |%)......page...)|
00000f70  e8 22 50 41 47 45 20 73  65 74 74 69 6e 67 20 3a  |."PAGE setting :|
00000f80  2d 20 3c 72 65 74 3e 3d  64 65 66 61 75 6c 74 20  |- <ret>=default |
00000f90  20 26 22 70 24 0d 06 22  14 e7 20 ac 20 a4 68 78  | &"p$..".. . .hx|
00000fa0  28 70 24 29 8c 8d 54 58  46 0d 06 2c 2a e7 a9 70  |(p$)..TXF..,*..p|
00000fb0  24 3d 30 20 70 25 28 49  25 29 3d 30 20 8b 70 25  |$=0 p%(I%)=0 .p%|
00000fc0  28 49 25 29 3d a0 28 22  26 22 2b 70 24 29 20 81  |(I%)=.("&"+p$) .|
00000fd0  32 35 36 0d 06 36 18 4c  64 25 28 49 25 29 3d 70  |256..6.Ld%(I%)=p|
00000fe0  25 28 49 25 29 2a 32 35  36 3a e1 0d 06 40 0b dd  |%(I%)*256:...@..|
00000ff0  f2 6c 6f 72 75 6e 0d 06  4a 21 f1 22 4c 6f 61 64  |.lorun..J!."Load|
00001000  20 3c 4c 3e 20 6f 72 20  52 75 6e 20 3c 52 45 54  | <L> or Run <RET|
00001010  55 52 4e 3e 20 22 3b 0d  06 54 25 f5 20 5a 25 3d  |URN> ";..T%. Z%=|
00001020  a5 3a 5a 25 3d 5a 25 20  80 20 26 44 46 3a fd 5a  |.:Z%=Z% . &DF:.Z|
00001030  25 3d 37 36 20 84 20 5a  25 3d 31 33 0d 06 5e 29  |%=76 . Z%=13..^)|
00001040  e7 20 5a 25 3d 37 36 20  70 25 28 49 25 29 3d 26  |. Z%=76 p%(I%)=&|
00001050  46 30 20 8b 20 70 25 28  49 25 29 3d 26 46 46 3a  |F0 . p%(I%)=&FF:|
00001060  5a 25 3d 38 32 0d 06 68  0a f1 bd 5a 25 3a e1 0d  |Z%=82..h...Z%:..|
00001070  06 72 09 dd f2 72 6f 6d  0d 06 7c 16 e8 27 22 52  |.r...rom..|..'"R|
00001080  4f 4d 20 6e 61 6d 65 20  20 3a 20 22 72 24 0d 06  |OM name  : "r$..|
00001090  86 52 e7 a9 72 24 3e 37  20 f1 bd 37 27 27 22 54  |.R..r$>7 ..7''"T|
000010a0  6f 6f 20 6c 6f 6e 67 20  74 6f 20 73 61 76 65 20  |oo long to save |
000010b0  6f 6e 20 64 69 73 6b 3a  22 27 22 28 4f 70 74 69  |on disk:"'"(Opti|
000010c0  6f 6e 61 6c 29 20 6e 65  77 20 6e 61 6d 65 20 22  |onal) new name "|
000010d0  3b 3a 72 24 3d 20 a4 6e  6e 61 6d 65 28 72 24 29  |;:r$= .nname(r$)|
000010e0  0d 06 90 40 e7 a9 72 24  3d 30 f1 bd 37 27 22 59  |...@..r$=0..7'"Y|
000010f0  6f 75 20 6d 75 73 74 20  67 69 76 65 20 61 20 6e  |ou must give a n|
00001100  61 6d 65 20 21 20 3a 2d  20 22 3b 3a 72 24 3d 20  |ame ! :- ";:r$= |
00001110  a4 6e 6e 61 6d 65 28 72  24 29 3a e5 8d 74 46 46  |.nname(r$):..tFF|
00001120  0d 06 9a 05 e1 0d 06 a4  0a dd f2 73 69 7a 65 0d  |...........size.|
00001130  06 ae 1c e8 27 22 52 4f  4d 20 73 69 7a 65 20 2e  |....'"ROM size .|
00001140  20 2e 20 31 36 4b 20 22  3b 6c 24 0d 06 b8 28 e7  | . 16K ";l$...(.|
00001150  a9 6c 24 3d 30 20 84 ac  20 a4 63 68 6b 28 6c 24  |.l$=0 .. .chk(l$|
00001160  29 20 6c 25 3d 30 20 8b  20 6c 25 3d bb 28 6c 24  |) l%=0 . l%=.(l$|
00001170  29 3a f1 0d 06 c2 1a e7  6c 25 3d 30 20 84 6c 25  |):......l%=0 .l%|
00001180  3e 38 20 4c 25 3d 26 34  30 30 30 3a e1 0d 06 cc  |>8 L%=&4000:....|
00001190  21 e7 6c 25 20 83 32 3c  3e 30 20 84 6c 25 3d 36  |!.l% .2<>0 .l%=6|
000011a0  20 6c 25 3d 6c 25 2b 31  3a e5 8d 64 4c 46 0d 06  | l%=l%+1:..dLF..|
000011b0  d6 10 4c 25 3d 31 30 32  34 2a 6c 25 3a e1 0d 06  |..L%=1024*l%:...|
000011c0  e0 0d dd f2 66 6e 61 6d  65 3a f5 0d 06 ea 13 e8  |....fname:......|
000011d0  22 46 69 6c 65 20 4e 61  6d 65 20 22 4e 24 0d 06  |"File Name "N$..|
000011e0  f4 0f e7 a9 4e 24 3d 30  8c 8d 54 56 48 0d 06 fe  |....N$=0..TVH...|
000011f0  1c e7 c0 4e 24 2c 31 29  3d 22 2a 22 f2 6f 73 28  |...N$,1)="*".os(|
00001200  4e 24 29 3a e5 8d 64 6a  46 0d 07 08 13 4e 6d 24  |N$):..djF....Nm$|
00001210  28 49 25 29 3d 20 a4 53  28 4e 24 29 0d 07 12 18  |(I%)= .S(N$)....|
00001220  e7 20 a4 6c 65 6e 28 4e  6d 24 28 49 25 29 29 8c  |. .len(Nm$(I%)).|
00001230  8d 64 6a 46 0d 07 1c 17  46 25 3d 20 a4 69 6e 66  |.djF....F%= .inf|
00001240  6f 28 44 4e 6d 24 28 49  25 29 29 0d 07 26 2d e7  |o(DNm$(I%))..&-.|
00001250  46 25 3d 30 f1 27 bd 31  32 39 22 4e 6f 20 53 75  |F%=0.'.129"No Su|
00001260  63 68 20 46 69 6c 65 22  3a f2 6f 73 28 22 2a 2e  |ch File":.os("*.|
00001270  22 29 3a e5 8d 64 6a 46  0d 07 30 1e e8 22 4e 61  |"):..djF..0.."Na|
00001280  6d 65 20 66 6f 72 20 75  73 65 20 69 6e 20 52 4f  |me for use in RO|
00001290  4d 20 22 24 53 25 0d 07  3a 17 e7 a9 24 53 25 3d  |M "$S%..:...$S%=|
000012a0  30 20 24 53 25 3d 4e 6d  24 28 49 25 29 0d 07 44  |0 $S%=Nm$(I%)..D|
000012b0  3a e7 ac 20 a4 6c 65 74  72 28 24 53 25 29 f1 bd  |:.. .letr($S%)..|
000012c0  37 22 4e 61 6d 65 73 20  6d 75 73 74 20 73 74 61  |7"Names must sta|
000012d0  72 74 20 77 69 74 68 20  61 20 6c 65 74 74 65 72  |rt with a letter|
000012e0  22 3a e5 8d 54 70 47 0d  07 4e 14 e7 20 a4 6c 65  |":..TpG..N.. .le|
000012f0  6e 28 24 53 25 29 8c 8d  54 70 47 0d 07 58 0f 4e  |n($S%)..TpG..X.N|
00001300  6d 24 28 49 25 29 3d 24  53 25 0d 07 62 22 e7 49  |m$(I%)=$S%..b".I|
00001310  25 3d 30 e5 8d 74 4a 47  20 8b 20 75 73 65 64 3d  |%=0..tJG . used=|
00001320  a3 3a e3 4a 25 3d 30 b8  49 25 2d 31 0d 07 6c 1b  |.:.J%=0.I%-1..l.|
00001330  e7 4e 6d 24 28 4a 25 29  3d 4e 6d 24 28 49 25 29  |.Nm$(J%)=Nm$(I%)|
00001340  20 75 73 65 64 3d b9 0d  07 76 05 ed 0d 07 80 1f  | used=...v......|
00001350  e7 20 75 73 65 64 20 f1  22 55 73 65 64 20 62 65  |. used ."Used be|
00001360  66 6f 72 65 22 3a e5 8d  54 70 47 0d 07 8a 29 42  |fore":..TpG...)B|
00001370  61 73 69 63 3d 28 58 71  25 28 49 25 29 3e 26 38  |asic=(Xq%(I%)>&8|
00001380  30 30 30 20 80 20 58 71  25 28 49 25 29 3c 26 43  |000 . Xq%(I%)<&C|
00001390  30 30 30 29 0d 07 94 20  50 25 3d 43 25 3a f2 6c  |000)... P%=C%:.l|
000013a0  69 73 74 3a 74 6c 25 3d  50 25 2d 43 25 3a 4c 65  |ist:tl%=P%-C%:Le|
000013b0  6e 25 3d 30 0d 07 9e 21  e3 4a 25 3d 30 20 b8 31  |n%=0...!.J%=0 .1|
000013c0  35 3a 4c 65 6e 25 3d 4c  65 6e 25 2b 4c 6e 25 28  |5:Len%=Len%+Ln%(|
000013d0  4a 25 29 3a ed 0d 07 a8  12 51 25 3d 4c 65 6e 25  |J%):.....Q%=Len%|
000013e0  2b 48 25 2b 74 6c 25 0d  07 b2 3c e7 51 25 3e 4c  |+H%+tl%...<.Q%>L|
000013f0  25 20 f1 22 4e 6f 74 20  65 6e 6f 75 67 68 20 72  |% ."Not enough r|
00001400  6f 6f 6d 20 66 6f 72 20  74 68 61 74 20 6f 6e 65  |oom for that one|
00001410  21 21 22 3a 4c 6e 25 28  49 25 29 3d 30 3a e5 8d  |!!":Ln%(I%)=0:..|
00001420  64 6a 46 0d 07 bc 1a e7  20 42 61 73 69 63 20 f2  |djF..... Basic .|
00001430  70 61 67 65 20 8b 20 f2  6c 6f 72 75 6e 0d 07 c6  |page . .lorun...|
00001440  1f f1 22 53 70 61 63 65  20 52 65 6d 61 69 6e 69  |.."Space Remaini|
00001450  6e 67 20 26 22 3b 7e 4c  25 2d 51 25 0d 07 d0 17  |ng &";~L%-Q%....|
00001460  41 64 25 28 30 29 3d 26  38 30 30 30 2b 48 25 2b  |Ad%(0)=&8000+H%+|
00001470  74 6c 25 0d 07 da 0c e3  4a 25 3d 31 b8 49 25 0d  |tl%.....J%=1.I%.|
00001480  07 e4 1f 41 64 25 28 4a  25 29 3d 41 64 25 28 4a  |...Ad%(J%)=Ad%(J|
00001490  25 2d 31 29 2b 4c 6e 25  28 4a 25 2d 31 29 0d 07  |%-1)+Ln%(J%-1)..|
000014a0  ee 05 ed 0d 07 f8 0b 49  25 3d 49 25 2b 31 0d 08  |.......I%=I%+1..|
000014b0  02 23 e7 49 25 3e 31 35  f1 bd 37 22 43 61 74 61  |.#.I%>15..7"Cata|
000014c0  6c 6f 67 75 65 20 66 75  6c 6c 22 3a e5 8d 54 56  |logue full":..TV|
000014d0  48 0d 08 0c 06 fd a3 0d  08 16 06 fd b9 0d 08 20  |H.............. |
000014e0  0d 49 25 3d 49 25 2d 31  3a e1 0d 08 2a 0c dd f2  |.I%=I%-1:...*...|
000014f0  67 66 69 6c 65 73 0d 08  34 0c e3 4a 25 3d 30 b8  |gfiles..4..J%=0.|
00001500  49 25 0d 08 3e 0a f2 6c  66 69 6c 65 0d 08 48 22  |I%..>..lfile..H"|
00001510  ef 32 38 2c 30 2c 32 34  2c 33 39 2c 38 2b 4a 25  |.28,0,24,39,8+J%|
00001520  2c 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 0d 08  |,23,1,1;0;0;0;..|
00001530  52 2b f1 bd 31 33 30 3b  4e 6d 24 28 4a 25 29 8a  |R+..130;Nm$(J%).|
00001540  31 34 29 bd 31 33 34 3b  44 4e 6d 24 28 4a 25 29  |14).134;DNm$(J%)|
00001550  8a 32 39 29 bd 31 33 31  3b 0d 08 5c 1f e7 70 25  |.29).131;..\..p%|
00001560  28 4a 25 29 3d 30 20 f1  22 64 65 66 61 75 6c 74  |(J%)=0 ."default|
00001570  22 3b 3a e5 8d 74 44 48  0d 08 66 37 e7 20 70 25  |";:..tDH..f7. p%|
00001580  28 4a 25 29 3c 26 46 30  20 f1 22 26 22 2b c3 7e  |(J%)<&F0 ."&"+.~|
00001590  70 25 28 4a 25 29 2b 22  30 30 22 3b 3a 20 8b 20  |p%(J%)+"00";: . |
000015a0  f1 22 26 22 2b c3 7e 4c  64 25 28 4a 25 29 3b 0d  |."&"+.~Ld%(J%);.|
000015b0  08 70 1c e7 70 25 28 4a  25 29 3d 26 46 46 20 f1  |.p..p%(J%)=&FF .|
000015c0  22 20 72 22 3b 3a e5 8d  74 44 48 0d 08 7a 16 e7  |" r";:..tDH..z..|
000015d0  70 25 28 4a 25 29 3d 26  46 30 20 f1 22 20 6c 22  |p%(J%)=&F0 ." l"|
000015e0  3b 0d 08 84 07 f1 3a ed  0d 08 8e 1f ef 32 38 2c  |;.....:......28,|
000015f0  30 2c 32 34 2c 33 39 2c  38 2b 4a 25 3a f4 39 2b  |0,24,39,8+J%:.9+|
00001600  28 4a 25 3e 31 35 29 0d  08 98 05 e1 0d 08 a2 0b  |(J%>15).........|
00001610  dd f2 63 6c 65 61 72 0d  08 ac 1b e3 52 25 3d 51  |..clear.....R%=Q|
00001620  25 b8 4c 25 2d 34 88 34  3a 43 25 21 52 25 3d b9  |%.L%-4.4:C%!R%=.|
00001630  3a ed 0d 08 b6 20 e7 52  25 3c 4c 25 20 52 25 3f  |:.... .R%<L% R%?|
00001640  43 25 3d b9 3a 52 25 3d  52 25 2b 31 3a e5 8d 74  |C%=.:R%=R%+1:..t|
00001650  76 48 0d 08 c0 05 e1 0d  08 ca 09 dd f2 72 61 6d  |vH...........ram|
00001660  0d 08 d4 14 e7 20 ac 20  6d 61 73 74 65 72 20 8c  |..... . master .|
00001670  8d 54 46 49 0d 08 de 14  f1 bd 31 32 3b 22 53 6c  |.TFI......12;"Sl|
00001680  6f 74 20 4e 6f 2e 22 3b  0d 08 e8 12 f5 7a 24 3d  |ot No.";.....z$=|
00001690  be 3a fd a4 68 78 28 7a  24 29 0d 08 f2 14 f1 7a  |.:..hx(z$).....z|
000016a0  24 3b 3a 62 3d a0 28 22  26 22 2b 7a 24 29 0d 08  |$;:b=.("&"+z$)..|
000016b0  fc 2f ff 28 22 53 52 4c  4f 41 44 20 22 2b c0 72  |./.("SRLOAD "+.r|
000016c0  24 2c 37 29 2b 22 20 38  30 30 30 20 22 2b c3 7e  |$,7)+" 8000 "+.~|
000016d0  62 2b 22 20 51 22 29 3a  e5 8d 54 50 49 0d 09 06  |b+" Q"):..TPI...|
000016e0  1c f2 6f 73 28 22 4c 2e  22 2b c0 72 24 2c 37 29  |..os("L."+.r$,7)|
000016f0  2b 22 20 38 30 30 30 22  29 0d 09 10 35 f1 bd 31  |+" 8000")...5..1|
00001700  32 3b bd 31 33 33 3b 89  36 22 4c 6f 61 64 65 64  |2;.133;.6"Loaded|
00001710  20 22 bd 31 32 39 22 20  20 2d 20 20 45 4e 44 22  | ".129"  -  END"|
00001720  3b 3a 41 3d a6 28 32 30  30 29 3a db 3a e1 0d 09  |;:A=.(200):.:...|
00001730  1a 0a dd f2 73 61 76 65  0d 09 24 2b f2 6f 73 28  |....save..$+.os(|
00001740  22 53 2e 22 2b c0 72 24  2c 37 29 2b 22 20 22 2b  |"S."+.r$,7)+" "+|
00001750  c3 7e 43 25 2b 22 20 22  2b c3 7e 28 43 25 2b 4c  |.~C%+" "+.~(C%+L|
00001760  25 29 29 0d 09 2e 0d 73  61 76 65 64 3d b9 3a e1  |%))....saved=.:.|
00001770  0d 09 38 0d dd a4 6c 65  6e 28 6e 24 29 0d 09 42  |..8...len(n$)..B|
00001780  2e e7 a9 6e 24 3e 37 20  f1 bd 37 22 54 6f 6f 20  |...n$>7 ..7"Too |
00001790  6c 6f 6e 67 20 21 20 37  20 63 68 61 72 73 20 6d  |long ! 7 chars m|
000017a0  61 78 22 3a 3d b9 20 8b  20 3d a3 0d 09 4c 1c dd  |ax":=. . =...L..|
000017b0  f2 73 63 72 31 3a ef 32  36 2c 31 32 2c 33 31 2c  |.scr1:.26,12,31,|
000017c0  31 31 2c 30 2c 31 35 0d  09 56 0b dd f2 73 63 72  |11,0,15..V...scr|
000017d0  31 61 0d 09 60 1c f1 bd  26 38 33 2b 22 50 52 4f  |1a..`...&83+"PRO|
000017e0  47 52 41 4d 20 50 52 4f  4d 4d 45 52 22 27 0d 09  |GRAM PROMMER"'..|
000017f0  6a 23 f1 89 38 bd 26 38  32 2b 22 28 63 29 20 48  |j#..8.&82+"(c) H|
00001800  75 67 68 20 48 61 73 6b  65 6c 6c 20 31 39 38 37  |ugh Haskell 1987|
00001810  22 0d 09 74 05 e1 0d 09  7e 1b dd f2 73 63 72 32  |"..t....~...scr2|
00001820  3a ef 32 38 2c 30 2c 32  34 2c 33 39 2c 34 2c 31  |:.28,0,24,39,4,1|
00001830  32 0d 09 88 37 24 53 25  3d bd 31 32 39 2b 72 24  |2...7$S%=.129+r$|
00001840  2b bd 31 33 31 2b 22 3a  20 42 75 66 66 65 72 20  |+.131+": Buffer |
00001850  26 22 2b c3 7e 43 25 2b  22 20 2d 20 26 22 2b c3  |&"+.~C%+" - &"+.|
00001860  7e 28 43 25 2b 4c 25 29  0d 09 92 23 e7 a9 24 53  |~(C%+L%)...#..$S|
00001870  25 3c 34 30 20 f1 8a 32  30 2d a9 24 53 25 2f 32  |%<40 ..20-.$S%/2|
00001880  29 3b 24 53 25 20 8b f1  24 53 25 0d 09 9c 3a f1  |);$S% ..$S%...:.|
00001890  22 2a 20 43 6f 6d 6d 61  6e 64 73 3a 22 27 22 20  |"* Commands:"'" |
000018a0  4d 61 79 20 62 65 20 65  6e 74 65 72 65 64 20 69  |May be entered i|
000018b0  6e 20 70 6c 61 63 65 20  6f 66 20 66 69 6c 65 20  |n place of file |
000018c0  6e 61 6d 65 22 0d 09 a6  13 ef 32 38 2c 30 2c 32  |name".....28,0,2|
000018d0  34 2c 33 39 2c 38 3a e1  0d 09 b0 1b dd f2 73 63  |4,39,8:.......sc|
000018e0  72 33 3a ef 32 38 2c 30  2c 32 34 2c 33 39 2c 35  |r3:.28,0,24,39,5|
000018f0  2c 31 32 0d 09 ba 34 f1  27 bd 31 33 30 22 43 61  |,12...4.'.130"Ca|
00001900  6c 6c 20 6e 61 6d 65 22  bd 31 33 34 22 20 20 20  |ll name".134"   |
00001910  20 44 69 73 6b 20 6e 61  6d 65 22 bd 31 33 31 89  | Disk name".131.|
00001920  35 22 50 41 47 45 22 0d  09 c4 13 ef 32 38 2c 30  |5"PAGE".....28,0|
00001930  2c 32 34 2c 33 39 2c 38  3a e1 0d 09 ce 0d dd a4  |,24,39,8:.......|
00001940  68 78 28 24 53 25 29 0d  09 d8 0e e7 a9 24 53 25  |hx($S%)......$S%|
00001950  3d 30 20 3d b9 0d 09 e2  10 61 3d 2d 31 3a f5 3a  |=0 =.....a=-1:.:|
00001960  61 3d 61 2b 31 0d 09 ec  30 e7 ac 28 53 25 3f 61  |a=a+1...0..(S%?a|
00001970  3e 34 37 80 53 25 3f 61  3c 35 38 29 80 ac 28 53  |>47.S%?a<58)..(S|
00001980  25 3f 61 3e 36 34 80 53  25 3f 61 3c 37 31 29 8c  |%?a>64.S%?a<71).|
00001990  fd b9 3a 3d a3 0d 09 f6  12 fd 61 3d a9 28 24 53  |..:=......a=.($S|
000019a0  25 29 2d 31 3a 3d b9 0d  0a 00 15 dd f2 73 6f 72  |%)-1:=.......sor|
000019b0  74 3a f5 73 77 61 70 70  65 64 3d a3 0d 0a 0a 0e  |t:.swapped=.....|
000019c0  e3 4a 25 3d 30 b8 49 25  2d 31 0d 0a 14 0b 4e 25  |.J%=0.I%-1....N%|
000019d0  3d 4a 25 2b 31 0d 0a 1e  1a e7 4e 6d 24 28 4a 25  |=J%+1.....Nm$(J%|
000019e0  29 3e 4e 6d 24 28 4e 25  29 20 f2 73 77 61 70 0d  |)>Nm$(N%) .swap.|
000019f0  0a 28 05 ed 0d 0a 32 0f  fd ac 73 77 61 70 70 65  |.(....2...swappe|
00001a00  64 3a e1 0d 0a 3c 0a dd  f2 73 77 61 70 0d 0a 46  |d:...<...swap..F|
00001a10  2b 24 53 25 3d 4e 6d 24  28 4a 25 29 3a 4e 6d 24  |+$S%=Nm$(J%):Nm$|
00001a20  28 4a 25 29 3d 4e 6d 24  28 4e 25 29 3a 4e 6d 24  |(J%)=Nm$(N%):Nm$|
00001a30  28 4e 25 29 3d 24 53 25  0d 0a 50 2f 24 53 25 3d  |(N%)=$S%..P/$S%=|
00001a40  44 4e 6d 24 28 4a 25 29  3a 44 4e 6d 24 28 4a 25  |DNm$(J%):DNm$(J%|
00001a50  29 3d 44 4e 6d 24 28 4e  25 29 3a 44 4e 6d 24 28  |)=DNm$(N%):DNm$(|
00001a60  4e 25 29 3d 24 53 25 0d  0a 5a 2b 21 53 25 3d 4c  |N%)=$S%..Z+!S%=L|
00001a70  6e 25 28 4a 25 29 3a 4c  6e 25 28 4a 25 29 3d 4c  |n%(J%):Ln%(J%)=L|
00001a80  6e 25 28 4e 25 29 3a 4c  6e 25 28 4e 25 29 3d 21  |n%(N%):Ln%(N%)=!|
00001a90  53 25 0d 0a 64 2b 21 53  25 3d 41 64 25 28 4a 25  |S%..d+!S%=Ad%(J%|
00001aa0  29 3a 41 64 25 28 4a 25  29 3d 41 64 25 28 4e 25  |):Ad%(J%)=Ad%(N%|
00001ab0  29 3a 41 64 25 28 4e 25  29 3d 21 53 25 0d 0a 6e  |):Ad%(N%)=!S%..n|
00001ac0  27 21 53 25 3d 70 25 28  4a 25 29 3a 70 25 28 4a  |'!S%=p%(J%):p%(J|
00001ad0  25 29 3d 70 25 28 4e 25  29 3a 70 25 28 4e 25 29  |%)=p%(N%):p%(N%)|
00001ae0  3d 21 53 25 0d 0a 78 2b  21 53 25 3d 4c 64 25 28  |=!S%..x+!S%=Ld%(|
00001af0  4a 25 29 3a 4c 64 25 28  4a 25 29 3d 4c 64 25 28  |J%):Ld%(J%)=Ld%(|
00001b00  4e 25 29 3a 4c 64 25 28  4e 25 29 3d 21 53 25 0d  |N%):Ld%(N%)=!S%.|
00001b10  0a 82 2b 21 53 25 3d 58  71 25 28 4a 25 29 3a 58  |..+!S%=Xq%(J%):X|
00001b20  71 25 28 4a 25 29 3d 58  71 25 28 4e 25 29 3a 58  |q%(J%)=Xq%(N%):X|
00001b30  71 25 28 4e 25 29 3d 21  53 25 0d 0a 8c 0f 73 77  |q%(N%)=!S%....sw|
00001b40  61 70 70 65 64 3d b9 3a  e1 0d ff                 |apped=.:...|
00001b4b