�>AACopy
� ADFS-ADFS Copier
� By G Boden
#elk%=((�-256)=1)
(�=((�P+&1000)�256)*256
2	�22,7
<	�init
Fs�'"Please choose source drive (0,1)":�:s$=�:� �"01",s$):�'"Please choose target drive (0,1)":�:t$=�:� �"01",t$)
P_� (�(s$)�1)=(�(t$)�1) �'"Two disc copy? (Y/N)":�:d$=�:� �"YyNn",d$):two%=-(�"YNyn",d$) � 1)
Z3�'"Insert source disc and press space":� � �-99
d
*FADFS
n�"MOUNT "+s$
x�readcat
�prefix$="$."
��dispcat
��markcat
�	*FX21
�(� cptr=1 �7:�'"Copying terminated":�
�� err$(cptr-1)
�<� � � �=27 �7:�'"Copying terminated":� � �filerror:�dp@
�<�docopy(1,cptr-1):�7:�'"All files copied successfully":�
��3
��status
��
�0� x<cptr-1 �docopy(x+1,cptr-1):�dR@ � �dR@
�
��dispcat

�

+�5,1)�131"F i l e   S e l e c t i o n"

3�(39-�prefix$)/2,3);�131;�prefix$,�prefix$-1);

"� Z%=1 � off �11 � 3

,�'�1)�clr(Z%);name$(Z%);

62� Z%<(off � 11) � �13)�clr(Z%+1);name$(Z%+1);

@4� Z%<(off � 11)-1 � �26)�clr(Z%+2);name$(Z%+2);

J� 

T�23,1,0;0;0;0;

^��0,21)" Select file with < using cursor keys"'" SPACEBAR marks file for copying, DELETE corrects, RETURN enter directory, SHIFT parent directory, ESCAPE begin copying";

h�

r
��readcat

|�I=0�&FD � 4:names!I=0:�

�?OSblock=0

�OSblock!1=names

�OSblock!5=48

�OSblock!9=0

�A%=8:X%=OSblock �256

�Y%=OSblock �256:� &FFD1

� 

�	off=0

��

�name$(1+(off �11))=""

�#� off?names=&A �getname:�0 � �1

�!OSblock=file:A%=5

�� f%=1 � off �11
$file=name$(f%)
type%(f%)=�(&FFDD) � &FF
�
&�
0j��getname:� f%=(off+1) � (off+10):� �(f%?names)<>" " name$(1+(off �11))=name$(1+(off �11))+�(f%?names)
:�:off=off+11:�
D
��init
N#� names &300,file 10,OSblock 17
X� name$(48),type%(48)
b� C$(31)
l
cptr=1
q
two%=�
v�
�
ݤclr(z%)
�� elk% � �tUB
�Aj=0:�:j=j+1:� C$(j)=prefix$+name$(z%) � j=cptr:� j<cptr =�129
�=�(135+(4*(type%(z%)=2)))
�@j=0:�:j=j+1:� C$(j)=prefix$+name$(z%) � j=cptr:� j<cptr ="*"
�� type%(z%)=2 ="#" � =" "
�
��markcat
�*FX229 1
�X=11:Y=4
�
�X,Y)"<"
��
�G� �-42 � �(((Y-4)*3+(X+2)/13)>(off �11)-3)�X,Y)" ":Y=Y+1:�X,Y)"<"
�+� �-58 � Y<>4 �X,Y)" ":Y=Y-1:�X,Y)"<"
�-� �-26 � X<>11 �X,Y)" ":X=X-13:�X,Y)"<"
�S� �-122 � �((X=37) � (((Y-4)*3+(X+2)/13)=(off �11))) �X,Y)" ":X=X+13:�X,Y)"<"
��� �-74 � type%((Y-4)*3+(X+2)/13)=2 � prefix$=prefix$+name$((Y-4)*3+(X+2)/13)+".":�"DIR "+name$((Y-4)*3+(X+2)/13):�readcat:�dispcat:X=11:Y=4:�X,Y)"<"
�� �-1 � prefix$<>"$." � j=�(prefix$):�:j=j-1:� �prefix$,j,1)=".":prefix$=�prefix$,j):�"DIR ^":�readcat:�dispcat:X=11:Y=4:�X,Y)"<"
p� �-99 � type%((Y-4)*3+(X+2)/13)=1 � C$(cptr)=prefix$+name$((Y-4)*3+(X+2)/13):cptr=cptr+1:�dispcat:�X,Y)"<"
�� �-90 j=0:�:j=j+1:� C$(j)=prefix$+name$((Y-4)*3+(X+2)/13) � j=32:� j<32 � i=j � cptr-2:C$(i)=C$(i+1):�:C$(cptr-1)="":cptr=cptr-1:�dispcat:�X,Y)"<"
 � �-113
*�
+ݤfilelen(x$)
,$names=x$:!OSblock=names
-(A%=5:X%=OSblock �256:Y%=OSblock �256
.
�&FFDD
/=OSblock!&A
4��docopy(sf,ef)
5	*FX21
6(�:�'''"Enter target directory :" td$
7�"FADFS"
8��docopyagain(sf,ef)
>�12,28,0,24,39,24
H
*FX229
R� x=sf � ef
W	*FX21
\C� two% � (x=1) �'"Insert source disc and press any key...";:z=�
z�"MOUNT "+s$
{<� �filelen(C$(x))>(&7E00-�)�gpcopy(C$(x))��lscopy(C$(x))
|�:�
}��lscopy(f$)
�
�load(f$)
�	*FX21
�;� two% �'"Insert target disc and press any key...";:z=�
��"MOUNT "+t$:�"DIR "+td$
�
�save(f$)
��
���load(file$)
�$names=file$
�!OSblock=names
�OSblock!2=�
�OSblock!6=0
�'"Loading ";file$;
1A%=&FF:X%=OSblock �256:Y%=OSblock �256:�&FFDD
attrib%=OSblock!&E
�
$��save(file$)
.Ej=�(file$):�:j=j-1:� �file$,j,1)=".":$names=��file$,�file$-j),10)
8OSblock!&E=�+OSblock!&A
BOSblock!&A=�
L�'"Saving ";$names;
V0A%=0:X%=OSblock �256:Y%=OSblock �256:� &FFDD
W:OSblock!&A=OSblock!&E-�:OSblock!&E=attrib%:A%=1:�&FFDD
`�
j��filerror
t� erradr
~erradr=(!&FD)+1
� �:err$(x)=err$(x)+�(?erradr)
�erradr=erradr+1:� ?erradr=0
��
���status
�/�"The following files could not be copied:"
��'"File";�38)"Reason"
�� x=1 � cptr-1
�&� err$(x)<>"" � C$(x);�38);err$(x)
��
��
x��gpcopy(f$)
�Iload%=OSblock!2:exec%=OSblock!6:length%=OSblock!&A:attrib%=OSblock!&E
�"� ptr%=0 � length% � (&7E00-�)
��'"Loading "f$;
�f%=�(f$)
�?OSblock=f%
�OSblock!1=�
�OSblock!5=(&7E00-�)
�OSblock!9=ptr%
�/A%=3:X%=OSblock �256:Y%=OSblock �256:�&FFD1
��#f%
�	*FX21
�<� two% �'"Insert target disc and press any key...";:z%=�
��"MOUNT "+t$:�"DIR "+td$
!� ptr%=0 g%=�openout(f$):�#g%
�'"Saving "$names;
g%=�openup(f$)
"?OSblock=g%
,OSblock!1=�
6!OSblock!5=(&7E00-�)-OSblock!5
@OSblock!9=ptr%
J/A%=1:X%=OSblock �256:Y%=OSblock �256:�&FFD1
T�#g%
^	*FX21
hS� two% � �(OSblock!9=length%) �'"Insert source disc and press any key...";:z%=�
r'� OSblock!9<>length% � �"MOUNT "+s$
|�
�q!OSblock=names:OSblock!2=load%:OSblock!6=exec%:OSblock!&E=attrib%:A%=1:X%=OSblock �256:Y%=OSblock �256:�&FFDD
��
�ݤopenout(file$)
�Jj%=�(file$):�:j%=j%-1:� �file$,j%,1)=".":$names=��file$,�file$-j%),10)
�=�($names)
�ݤopenup(file$)
�Hj%=�file$:�:j%=j%-1:� �file$,j%,1)=".":$names=��file$,�file$-j%),10)
�=�($names)
�

00000000  0d 00 0a 0c f4 3e 41 41  43 6f 70 79 0d 00 14 16  |.....>AACopy....|
00000010  f4 20 41 44 46 53 2d 41  44 46 53 20 43 6f 70 69  |. ADFS-ADFS Copi|
00000020  65 72 0d 00 1e 10 f4 20  42 79 20 47 20 42 6f 64  |er..... By G Bod|
00000030  65 6e 0d 00 23 14 65 6c  6b 25 3d 28 28 a6 2d 32  |en..#.elk%=((.-2|
00000040  35 36 29 3d 31 29 0d 00  28 1a d3 3d 28 28 b8 50  |56)=1)..(..=((.P|
00000050  2b 26 31 30 30 30 29 81  32 35 36 29 2a 32 35 36  |+&1000).256)*256|
00000060  0d 00 32 09 ef 32 32 2c  37 0d 00 3c 09 f2 69 6e  |..2..22,7..<..in|
00000070  69 74 0d 00 46 73 f1 27  22 50 6c 65 61 73 65 20  |it..Fs.'"Please |
00000080  63 68 6f 6f 73 65 20 73  6f 75 72 63 65 20 64 72  |choose source dr|
00000090  69 76 65 20 28 30 2c 31  29 22 3a f5 3a 73 24 3d  |ive (0,1)":.:s$=|
000000a0  be 3a fd 20 a7 22 30 31  22 2c 73 24 29 3a f1 27  |.:. ."01",s$):.'|
000000b0  22 50 6c 65 61 73 65 20  63 68 6f 6f 73 65 20 74  |"Please choose t|
000000c0  61 72 67 65 74 20 64 72  69 76 65 20 28 30 2c 31  |arget drive (0,1|
000000d0  29 22 3a f5 3a 74 24 3d  be 3a fd 20 a7 22 30 31  |)":.:t$=.:. ."01|
000000e0  22 2c 74 24 29 0d 00 50  5f e7 20 28 97 28 73 24  |",t$)..P_. (.(s$|
000000f0  29 80 31 29 3d 28 97 28  74 24 29 80 31 29 20 f1  |).1)=(.(t$).1) .|
00000100  27 22 54 77 6f 20 64 69  73 63 20 63 6f 70 79 3f  |'"Two disc copy?|
00000110  20 28 59 2f 4e 29 22 3a  f5 3a 64 24 3d be 3a fd  | (Y/N)":.:d$=.:.|
00000120  20 a7 22 59 79 4e 6e 22  2c 64 24 29 3a 74 77 6f  | ."YyNn",d$):two|
00000130  25 3d 2d 28 a7 22 59 4e  79 6e 22 2c 64 24 29 20  |%=-(."YNyn",d$) |
00000140  80 20 31 29 0d 00 5a 33  f1 27 22 49 6e 73 65 72  |. 1)..Z3.'"Inser|
00000150  74 20 73 6f 75 72 63 65  20 64 69 73 63 20 61 6e  |t source disc an|
00000160  64 20 70 72 65 73 73 20  73 70 61 63 65 22 3a f5  |d press space":.|
00000170  20 fd 20 a6 2d 39 39 0d  00 64 0a 2a 46 41 44 46  | . .-99..d.*FADF|
00000180  53 0d 00 6e 10 ff 22 4d  4f 55 4e 54 20 22 2b 73  |S..n.."MOUNT "+s|
00000190  24 0d 00 78 0c f2 72 65  61 64 63 61 74 0d 00 82  |$..x..readcat...|
000001a0  10 70 72 65 66 69 78 24  3d 22 24 2e 22 0d 00 8c  |.prefix$="$."...|
000001b0  0c f2 64 69 73 70 63 61  74 0d 00 96 0c f2 6d 61  |..dispcat.....ma|
000001c0  72 6b 63 61 74 0d 00 a0  09 2a 46 58 32 31 0d 00  |rkcat....*FX21..|
000001d0  aa 28 e7 20 63 70 74 72  3d 31 20 eb 37 3a f1 27  |.(. cptr=1 .7:.'|
000001e0  22 43 6f 70 79 69 6e 67  20 74 65 72 6d 69 6e 61  |"Copying termina|
000001f0  74 65 64 22 3a e0 0d 00  b4 12 de 20 65 72 72 24  |ted":...... err$|
00000200  28 63 70 74 72 2d 31 29  0d 00 be 3c ee 20 85 20  |(cptr-1)...<. . |
00000210  e7 20 9f 3d 32 37 20 eb  37 3a f1 27 22 43 6f 70  |. .=27 .7:.'"Cop|
00000220  79 69 6e 67 20 74 65 72  6d 69 6e 61 74 65 64 22  |ying terminated"|
00000230  3a e0 20 8b 20 f2 66 69  6c 65 72 72 6f 72 3a e5  |:. . .filerror:.|
00000240  8d 64 70 40 0d 00 c8 3c  f2 64 6f 63 6f 70 79 28  |.dp@...<.docopy(|
00000250  31 2c 63 70 74 72 2d 31  29 3a eb 37 3a f1 27 22  |1,cptr-1):.7:.'"|
00000260  41 6c 6c 20 66 69 6c 65  73 20 63 6f 70 69 65 64  |All files copied|
00000270  20 73 75 63 63 65 73 73  66 75 6c 6c 79 22 3a e0  | successfully":.|
00000280  0d 00 d2 06 eb 33 0d 00  dc 0b f2 73 74 61 74 75  |.....3.....statu|
00000290  73 0d 00 e6 05 e0 0d 00  f0 30 e7 20 78 3c 63 70  |s........0. x<cp|
000002a0  74 72 2d 31 20 f2 64 6f  63 6f 70 79 28 78 2b 31  |tr-1 .docopy(x+1|
000002b0  2c 63 70 74 72 2d 31 29  3a e5 8d 64 52 40 20 8b  |,cptr-1):..dR@ .|
000002c0  20 e5 8d 64 52 40 0d 00  fa 0d dd f2 64 69 73 70  | ..dR@......disp|
000002d0  63 61 74 0d 01 04 05 db  0d 01 0e 2b f1 8a 35 2c  |cat........+..5,|
000002e0  31 29 bd 31 33 31 22 46  20 69 20 6c 20 65 20 20  |1).131"F i l e  |
000002f0  20 53 20 65 20 6c 20 65  20 63 20 74 20 69 20 6f  | S e l e c t i o|
00000300  20 6e 22 0d 01 18 33 f1  8a 28 33 39 2d a9 70 72  | n"...3..(39-.pr|
00000310  65 66 69 78 24 29 2f 32  2c 33 29 3b bd 31 33 31  |efix$)/2,3);.131|
00000320  3b c0 70 72 65 66 69 78  24 2c a9 70 72 65 66 69  |;.prefix$,.prefi|
00000330  78 24 2d 31 29 3b 0d 01  22 18 e3 20 5a 25 3d 31  |x$-1);..".. Z%=1|
00000340  20 b8 20 6f 66 66 20 81  31 31 20 88 20 33 0d 01  | . off .11 . 3..|
00000350  2c 1c f1 27 8a 31 29 a4  63 6c 72 28 5a 25 29 3b  |,..'.1).clr(Z%);|
00000360  6e 61 6d 65 24 28 5a 25  29 3b 0d 01 36 32 e7 20  |name$(Z%);..62. |
00000370  5a 25 3c 28 6f 66 66 20  81 20 31 31 29 20 8c 20  |Z%<(off . 11) . |
00000380  f1 8a 31 33 29 a4 63 6c  72 28 5a 25 2b 31 29 3b  |..13).clr(Z%+1);|
00000390  6e 61 6d 65 24 28 5a 25  2b 31 29 3b 0d 01 40 34  |name$(Z%+1);..@4|
000003a0  e7 20 5a 25 3c 28 6f 66  66 20 81 20 31 31 29 2d  |. Z%<(off . 11)-|
000003b0  31 20 8c 20 f1 8a 32 36  29 a4 63 6c 72 28 5a 25  |1 . ..26).clr(Z%|
000003c0  2b 32 29 3b 6e 61 6d 65  24 28 5a 25 2b 32 29 3b  |+2);name$(Z%+2);|
000003d0  0d 01 4a 06 ed 20 0d 01  54 12 ef 32 33 2c 31 2c  |..J.. ..T..23,1,|
000003e0  30 3b 30 3b 30 3b 30 3b  0d 01 5e ad f1 8a 30 2c  |0;0;0;0;..^...0,|
000003f0  32 31 29 22 20 53 65 6c  65 63 74 20 66 69 6c 65  |21)" Select file|
00000400  20 77 69 74 68 20 3c 20  75 73 69 6e 67 20 63 75  | with < using cu|
00000410  72 73 6f 72 20 6b 65 79  73 22 27 22 20 53 50 41  |rsor keys"'" SPA|
00000420  43 45 42 41 52 20 6d 61  72 6b 73 20 66 69 6c 65  |CEBAR marks file|
00000430  20 66 6f 72 20 63 6f 70  79 69 6e 67 2c 20 44 45  | for copying, DE|
00000440  4c 45 54 45 20 63 6f 72  72 65 63 74 73 2c 20 52  |LETE corrects, R|
00000450  45 54 55 52 4e 20 65 6e  74 65 72 20 64 69 72 65  |ETURN enter dire|
00000460  63 74 6f 72 79 2c 20 53  48 49 46 54 20 70 61 72  |ctory, SHIFT par|
00000470  65 6e 74 20 64 69 72 65  63 74 6f 72 79 2c 20 45  |ent directory, E|
00000480  53 43 41 50 45 20 62 65  67 69 6e 20 63 6f 70 79  |SCAPE begin copy|
00000490  69 6e 67 22 3b 0d 01 68  05 e1 0d 01 72 0d dd f2  |ing";..h....r...|
000004a0  72 65 61 64 63 61 74 0d  01 7c 1c e3 49 3d 30 b8  |readcat..|..I=0.|
000004b0  26 46 44 20 88 20 34 3a  6e 61 6d 65 73 21 49 3d  |&FD . 4:names!I=|
000004c0  30 3a ed 0d 01 86 0e 3f  4f 53 62 6c 6f 63 6b 3d  |0:.....?OSblock=|
000004d0  30 0d 01 90 13 4f 53 62  6c 6f 63 6b 21 31 3d 6e  |0....OSblock!1=n|
000004e0  61 6d 65 73 0d 01 9a 10  4f 53 62 6c 6f 63 6b 21  |ames....OSblock!|
000004f0  35 3d 34 38 0d 01 a4 0f  4f 53 62 6c 6f 63 6b 21  |5=48....OSblock!|
00000500  39 3d 30 0d 01 ae 18 41  25 3d 38 3a 58 25 3d 4f  |9=0....A%=8:X%=O|
00000510  53 62 6c 6f 63 6b 20 83  32 35 36 0d 01 b8 1b 59  |Sblock .256....Y|
00000520  25 3d 4f 53 62 6c 6f 63  6b 20 81 32 35 36 3a d6  |%=OSblock .256:.|
00000530  20 26 46 46 44 31 0d 01  c2 05 20 0d 01 cc 09 6f  | &FFD1.... ....o|
00000540  66 66 3d 30 0d 01 d6 05  f5 0d 01 e0 19 6e 61 6d  |ff=0.........nam|
00000550  65 24 28 31 2b 28 6f 66  66 20 81 31 31 29 29 3d  |e$(1+(off .11))=|
00000560  22 22 0d 01 ea 23 e7 20  6f 66 66 3f 6e 61 6d 65  |""...#. off?name|
00000570  73 3d 26 41 20 f2 67 65  74 6e 61 6d 65 3a fd 30  |s=&A .getname:.0|
00000580  20 8b 20 fd 31 0d 01 f4  16 21 4f 53 62 6c 6f 63  | . .1....!OSbloc|
00000590  6b 3d 66 69 6c 65 3a 41  25 3d 35 0d 01 fe 14 e3  |k=file:A%=5.....|
000005a0  20 66 25 3d 31 20 b8 20  6f 66 66 20 81 31 31 0d  | f%=1 . off .11.|
000005b0  02 08 13 24 66 69 6c 65  3d 6e 61 6d 65 24 28 66  |...$file=name$(f|
000005c0  25 29 0d 02 12 1c 74 79  70 65 25 28 66 25 29 3d  |%)....type%(f%)=|
000005d0  ba 28 26 46 46 44 44 29  20 80 20 26 46 46 0d 02  |.(&FFDD) . &FF..|
000005e0  1c 05 ed 0d 02 26 05 e1  0d 02 30 6a dd f2 67 65  |.....&....0j..ge|
000005f0  74 6e 61 6d 65 3a e3 20  66 25 3d 28 6f 66 66 2b  |tname:. f%=(off+|
00000600  31 29 20 b8 20 28 6f 66  66 2b 31 30 29 3a e7 20  |1) . (off+10):. |
00000610  bd 28 66 25 3f 6e 61 6d  65 73 29 3c 3e 22 20 22  |.(f%?names)<>" "|
00000620  20 6e 61 6d 65 24 28 31  2b 28 6f 66 66 20 81 31  | name$(1+(off .1|
00000630  31 29 29 3d 6e 61 6d 65  24 28 31 2b 28 6f 66 66  |1))=name$(1+(off|
00000640  20 81 31 31 29 29 2b bd  28 66 25 3f 6e 61 6d 65  | .11))+.(f%?name|
00000650  73 29 0d 02 3a 12 ed 3a  6f 66 66 3d 6f 66 66 2b  |s)..:..:off=off+|
00000660  31 31 3a e1 0d 02 44 0a  dd f2 69 6e 69 74 0d 02  |11:...D...init..|
00000670  4e 23 de 20 6e 61 6d 65  73 20 26 33 30 30 2c 66  |N#. names &300,f|
00000680  69 6c 65 20 31 30 2c 4f  53 62 6c 6f 63 6b 20 31  |ile 10,OSblock 1|
00000690  37 0d 02 58 19 de 20 6e  61 6d 65 24 28 34 38 29  |7..X.. name$(48)|
000006a0  2c 74 79 70 65 25 28 34  38 29 0d 02 62 0c de 20  |,type%(48)..b.. |
000006b0  43 24 28 33 31 29 0d 02  6c 0a 63 70 74 72 3d 31  |C$(31)..l.cptr=1|
000006c0  0d 02 71 0a 74 77 6f 25  3d a3 0d 02 76 05 e1 0d  |..q.two%=...v...|
000006d0  02 80 0d dd a4 63 6c 72  28 7a 25 29 0d 02 81 11  |.....clr(z%)....|
000006e0  e7 20 65 6c 6b 25 20 e5  20 8d 74 55 42 0d 02 8a  |. elk% . .tUB...|
000006f0  41 6a 3d 30 3a f5 3a 6a  3d 6a 2b 31 3a fd 20 43  |Aj=0:.:j=j+1:. C|
00000700  24 28 6a 29 3d 70 72 65  66 69 78 24 2b 6e 61 6d  |$(j)=prefix$+nam|
00000710  65 24 28 7a 25 29 20 84  20 6a 3d 63 70 74 72 3a  |e$(z%) . j=cptr:|
00000720  e7 20 6a 3c 63 70 74 72  20 3d bd 31 32 39 0d 02  |. j<cptr =.129..|
00000730  94 1d 3d bd 28 31 33 35  2b 28 34 2a 28 74 79 70  |..=.(135+(4*(typ|
00000740  65 25 28 7a 25 29 3d 32  29 29 29 0d 02 95 40 6a  |e%(z%)=2)))...@j|
00000750  3d 30 3a f5 3a 6a 3d 6a  2b 31 3a fd 20 43 24 28  |=0:.:j=j+1:. C$(|
00000760  6a 29 3d 70 72 65 66 69  78 24 2b 6e 61 6d 65 24  |j)=prefix$+name$|
00000770  28 7a 25 29 20 84 20 6a  3d 63 70 74 72 3a e7 20  |(z%) . j=cptr:. |
00000780  6a 3c 63 70 74 72 20 3d  22 2a 22 0d 02 96 1d e7  |j<cptr ="*".....|
00000790  20 74 79 70 65 25 28 7a  25 29 3d 32 20 3d 22 23  | type%(z%)=2 ="#|
000007a0  22 20 8b 20 3d 22 20 22  0d 02 9e 0d dd f2 6d 61  |" . =" "......ma|
000007b0  72 6b 63 61 74 0d 02 a8  0c 2a 46 58 32 32 39 20  |rkcat....*FX229 |
000007c0  31 0d 02 b2 0c 58 3d 31  31 3a 59 3d 34 0d 02 bc  |1....X=11:Y=4...|
000007d0  0d f1 8a 58 2c 59 29 22  3c 22 0d 02 c6 05 f5 0d  |...X,Y)"<"......|
000007e0  02 d0 47 e7 20 a6 2d 34  32 20 80 20 ac 28 28 28  |..G. .-42 . .(((|
000007f0  59 2d 34 29 2a 33 2b 28  58 2b 32 29 2f 31 33 29  |Y-4)*3+(X+2)/13)|
00000800  3e 28 6f 66 66 20 81 31  31 29 2d 33 29 f1 8a 58  |>(off .11)-3)..X|
00000810  2c 59 29 22 20 22 3a 59  3d 59 2b 31 3a f1 8a 58  |,Y)" ":Y=Y+1:..X|
00000820  2c 59 29 22 3c 22 0d 02  da 2b e7 20 a6 2d 35 38  |,Y)"<"...+. .-58|
00000830  20 80 20 59 3c 3e 34 20  f1 8a 58 2c 59 29 22 20  | . Y<>4 ..X,Y)" |
00000840  22 3a 59 3d 59 2d 31 3a  f1 8a 58 2c 59 29 22 3c  |":Y=Y-1:..X,Y)"<|
00000850  22 0d 02 e4 2d e7 20 a6  2d 32 36 20 80 20 58 3c  |"...-. .-26 . X<|
00000860  3e 31 31 20 f1 8a 58 2c  59 29 22 20 22 3a 58 3d  |>11 ..X,Y)" ":X=|
00000870  58 2d 31 33 3a f1 8a 58  2c 59 29 22 3c 22 0d 02  |X-13:..X,Y)"<"..|
00000880  ee 53 e7 20 a6 2d 31 32  32 20 80 20 ac 28 28 58  |.S. .-122 . .((X|
00000890  3d 33 37 29 20 84 20 28  28 28 59 2d 34 29 2a 33  |=37) . (((Y-4)*3|
000008a0  2b 28 58 2b 32 29 2f 31  33 29 3d 28 6f 66 66 20  |+(X+2)/13)=(off |
000008b0  81 31 31 29 29 29 20 f1  8a 58 2c 59 29 22 20 22  |.11))) ..X,Y)" "|
000008c0  3a 58 3d 58 2b 31 33 3a  f1 8a 58 2c 59 29 22 3c  |:X=X+13:..X,Y)"<|
000008d0  22 0d 02 f8 99 e7 20 a6  2d 37 34 20 80 20 74 79  |"..... .-74 . ty|
000008e0  70 65 25 28 28 59 2d 34  29 2a 33 2b 28 58 2b 32  |pe%((Y-4)*3+(X+2|
000008f0  29 2f 31 33 29 3d 32 20  8c 20 70 72 65 66 69 78  |)/13)=2 . prefix|
00000900  24 3d 70 72 65 66 69 78  24 2b 6e 61 6d 65 24 28  |$=prefix$+name$(|
00000910  28 59 2d 34 29 2a 33 2b  28 58 2b 32 29 2f 31 33  |(Y-4)*3+(X+2)/13|
00000920  29 2b 22 2e 22 3a ff 22  44 49 52 20 22 2b 6e 61  |)+".":."DIR "+na|
00000930  6d 65 24 28 28 59 2d 34  29 2a 33 2b 28 58 2b 32  |me$((Y-4)*3+(X+2|
00000940  29 2f 31 33 29 3a f2 72  65 61 64 63 61 74 3a f2  |)/13):.readcat:.|
00000950  64 69 73 70 63 61 74 3a  58 3d 31 31 3a 59 3d 34  |dispcat:X=11:Y=4|
00000960  3a f1 8a 58 2c 59 29 22  3c 22 0d 03 02 86 e7 20  |:..X,Y)"<"..... |
00000970  a6 2d 31 20 80 20 70 72  65 66 69 78 24 3c 3e 22  |.-1 . prefix$<>"|
00000980  24 2e 22 20 8c 20 6a 3d  a9 28 70 72 65 66 69 78  |$." . j=.(prefix|
00000990  24 29 3a f5 3a 6a 3d 6a  2d 31 3a fd 20 c1 70 72  |$):.:j=j-1:. .pr|
000009a0  65 66 69 78 24 2c 6a 2c  31 29 3d 22 2e 22 3a 70  |efix$,j,1)=".":p|
000009b0  72 65 66 69 78 24 3d c0  70 72 65 66 69 78 24 2c  |refix$=.prefix$,|
000009c0  6a 29 3a ff 22 44 49 52  20 5e 22 3a f2 72 65 61  |j):."DIR ^":.rea|
000009d0  64 63 61 74 3a f2 64 69  73 70 63 61 74 3a 58 3d  |dcat:.dispcat:X=|
000009e0  31 31 3a 59 3d 34 3a f1  8a 58 2c 59 29 22 3c 22  |11:Y=4:..X,Y)"<"|
000009f0  0d 03 0c 70 e7 20 a6 2d  39 39 20 80 20 74 79 70  |...p. .-99 . typ|
00000a00  65 25 28 28 59 2d 34 29  2a 33 2b 28 58 2b 32 29  |e%((Y-4)*3+(X+2)|
00000a10  2f 31 33 29 3d 31 20 8c  20 43 24 28 63 70 74 72  |/13)=1 . C$(cptr|
00000a20  29 3d 70 72 65 66 69 78  24 2b 6e 61 6d 65 24 28  |)=prefix$+name$(|
00000a30  28 59 2d 34 29 2a 33 2b  28 58 2b 32 29 2f 31 33  |(Y-4)*3+(X+2)/13|
00000a40  29 3a 63 70 74 72 3d 63  70 74 72 2b 31 3a f2 64  |):cptr=cptr+1:.d|
00000a50  69 73 70 63 61 74 3a f1  8a 58 2c 59 29 22 3c 22  |ispcat:..X,Y)"<"|
00000a60  0d 03 16 98 e7 20 a6 2d  39 30 20 6a 3d 30 3a f5  |..... .-90 j=0:.|
00000a70  3a 6a 3d 6a 2b 31 3a fd  20 43 24 28 6a 29 3d 70  |:j=j+1:. C$(j)=p|
00000a80  72 65 66 69 78 24 2b 6e  61 6d 65 24 28 28 59 2d  |refix$+name$((Y-|
00000a90  34 29 2a 33 2b 28 58 2b  32 29 2f 31 33 29 20 84  |4)*3+(X+2)/13) .|
00000aa0  20 6a 3d 33 32 3a e7 20  6a 3c 33 32 20 e3 20 69  | j=32:. j<32 . i|
00000ab0  3d 6a 20 b8 20 63 70 74  72 2d 32 3a 43 24 28 69  |=j . cptr-2:C$(i|
00000ac0  29 3d 43 24 28 69 2b 31  29 3a ed 3a 43 24 28 63  |)=C$(i+1):.:C$(c|
00000ad0  70 74 72 2d 31 29 3d 22  22 3a 63 70 74 72 3d 63  |ptr-1)="":cptr=c|
00000ae0  70 74 72 2d 31 3a f2 64  69 73 70 63 61 74 3a f1  |ptr-1:.dispcat:.|
00000af0  8a 58 2c 59 29 22 3c 22  0d 03 20 0b fd 20 a6 2d  |.X,Y)"<".. .. .-|
00000b00  31 31 33 0d 03 2a 05 e1  0d 03 2b 11 dd a4 66 69  |113..*....+...fi|
00000b10  6c 65 6c 65 6e 28 78 24  29 0d 03 2c 1c 24 6e 61  |lelen(x$)..,.$na|
00000b20  6d 65 73 3d 78 24 3a 21  4f 53 62 6c 6f 63 6b 3d  |mes=x$:!OSblock=|
00000b30  6e 61 6d 65 73 0d 03 2d  28 41 25 3d 35 3a 58 25  |names..-(A%=5:X%|
00000b40  3d 4f 53 62 6c 6f 63 6b  20 83 32 35 36 3a 59 25  |=OSblock .256:Y%|
00000b50  3d 4f 53 62 6c 6f 63 6b  20 81 32 35 36 0d 03 2e  |=OSblock .256...|
00000b60  0a d6 26 46 46 44 44 0d  03 2f 0f 3d 4f 53 62 6c  |..&FFDD../.=OSbl|
00000b70  6f 63 6b 21 26 41 0d 03  34 13 dd f2 64 6f 63 6f  |ock!&A..4...doco|
00000b80  70 79 28 73 66 2c 65 66  29 0d 03 35 09 2a 46 58  |py(sf,ef)..5.*FX|
00000b90  32 31 0d 03 36 28 db 3a  e8 27 27 27 22 45 6e 74  |21..6(.:.'''"Ent|
00000ba0  65 72 20 74 61 72 67 65  74 20 64 69 72 65 63 74  |er target direct|
00000bb0  6f 72 79 20 3a 22 20 74  64 24 0d 03 37 0c ff 22  |ory :" td$..7.."|
00000bc0  46 41 44 46 53 22 0d 03  38 18 dd f2 64 6f 63 6f  |FADFS"..8...doco|
00000bd0  70 79 61 67 61 69 6e 28  73 66 2c 65 66 29 0d 03  |pyagain(sf,ef)..|
00000be0  3e 15 ef 31 32 2c 32 38  2c 30 2c 32 34 2c 33 39  |>..12,28,0,24,39|
00000bf0  2c 32 34 0d 03 48 0a 2a  46 58 32 32 39 0d 03 52  |,24..H.*FX229..R|
00000c00  0f e3 20 78 3d 73 66 20  b8 20 65 66 0d 03 57 09  |.. x=sf . ef..W.|
00000c10  2a 46 58 32 31 0d 03 5c  43 e7 20 74 77 6f 25 20  |*FX21..\C. two% |
00000c20  84 20 28 78 3d 31 29 20  f1 27 22 49 6e 73 65 72  |. (x=1) .'"Inser|
00000c30  74 20 73 6f 75 72 63 65  20 64 69 73 63 20 61 6e  |t source disc an|
00000c40  64 20 70 72 65 73 73 20  61 6e 79 20 6b 65 79 2e  |d press any key.|
00000c50  2e 2e 22 3b 3a 7a 3d a5  0d 03 7a 10 ff 22 4d 4f  |..";:z=...z.."MO|
00000c60  55 4e 54 20 22 2b 73 24  0d 03 7b 3c e7 20 a4 66  |UNT "+s$..{<. .f|
00000c70  69 6c 65 6c 65 6e 28 43  24 28 78 29 29 3e 28 26  |ilelen(C$(x))>(&|
00000c80  37 45 30 30 2d 93 29 f2  67 70 63 6f 70 79 28 43  |7E00-.).gpcopy(C|
00000c90  24 28 78 29 29 8b f2 6c  73 63 6f 70 79 28 43 24  |$(x))..lscopy(C$|
00000ca0  28 78 29 29 0d 03 7c 07  ed 3a e1 0d 03 7d 10 dd  |(x))..|..:...}..|
00000cb0  f2 6c 73 63 6f 70 79 28  66 24 29 0d 03 84 0d f2  |.lscopy(f$).....|
00000cc0  6c 6f 61 64 28 66 24 29  0d 03 89 09 2a 46 58 32  |load(f$)....*FX2|
00000cd0  31 0d 03 8e 3b e7 20 74  77 6f 25 20 f1 27 22 49  |1...;. two% .'"I|
00000ce0  6e 73 65 72 74 20 74 61  72 67 65 74 20 64 69 73  |nsert target dis|
00000cf0  63 20 61 6e 64 20 70 72  65 73 73 20 61 6e 79 20  |c and press any |
00000d00  6b 65 79 2e 2e 2e 22 3b  3a 7a 3d a5 0d 03 ac 1c  |key...";:z=.....|
00000d10  ff 22 4d 4f 55 4e 54 20  22 2b 74 24 3a ff 22 44  |."MOUNT "+t$:."D|
00000d20  49 52 20 22 2b 74 64 24  0d 03 b6 0d f2 73 61 76  |IR "+td$.....sav|
00000d30  65 28 66 24 29 0d 03 ca  05 e1 0d 03 d4 11 dd f2  |e(f$)...........|
00000d40  6c 6f 61 64 28 66 69 6c  65 24 29 0d 03 de 10 24  |load(file$)....$|
00000d50  6e 61 6d 65 73 3d 66 69  6c 65 24 0d 03 e8 12 21  |names=file$....!|
00000d60  4f 53 62 6c 6f 63 6b 3d  6e 61 6d 65 73 0d 03 f2  |OSblock=names...|
00000d70  0f 4f 53 62 6c 6f 63 6b  21 32 3d 93 0d 03 fc 0f  |.OSblock!2=.....|
00000d80  4f 53 62 6c 6f 63 6b 21  36 3d 30 0d 04 06 17 f1  |OSblock!6=0.....|
00000d90  27 22 4c 6f 61 64 69 6e  67 20 22 3b 66 69 6c 65  |'"Loading ";file|
00000da0  24 3b 0d 04 10 31 41 25  3d 26 46 46 3a 58 25 3d  |$;...1A%=&FF:X%=|
00000db0  4f 53 62 6c 6f 63 6b 20  83 32 35 36 3a 59 25 3d  |OSblock .256:Y%=|
00000dc0  4f 53 62 6c 6f 63 6b 20  81 32 35 36 3a d6 26 46  |OSblock .256:.&F|
00000dd0  46 44 44 0d 04 15 16 61  74 74 72 69 62 25 3d 4f  |FDD....attrib%=O|
00000de0  53 62 6c 6f 63 6b 21 26  45 0d 04 1a 05 e1 0d 04  |Sblock!&E.......|
00000df0  24 11 dd f2 73 61 76 65  28 66 69 6c 65 24 29 0d  |$...save(file$).|
00000e00  04 2e 45 6a 3d a9 28 66  69 6c 65 24 29 3a f5 3a  |..Ej=.(file$):.:|
00000e10  6a 3d 6a 2d 31 3a fd 20  c1 66 69 6c 65 24 2c 6a  |j=j-1:. .file$,j|
00000e20  2c 31 29 3d 22 2e 22 3a  24 6e 61 6d 65 73 3d c0  |,1)=".":$names=.|
00000e30  c2 66 69 6c 65 24 2c a9  66 69 6c 65 24 2d 6a 29  |.file$,.file$-j)|
00000e40  2c 31 30 29 0d 04 38 1b  4f 53 62 6c 6f 63 6b 21  |,10)..8.OSblock!|
00000e50  26 45 3d 93 2b 4f 53 62  6c 6f 63 6b 21 26 41 0d  |&E=.+OSblock!&A.|
00000e60  04 42 10 4f 53 62 6c 6f  63 6b 21 26 41 3d 93 0d  |.B.OSblock!&A=..|
00000e70  04 4c 17 f1 27 22 53 61  76 69 6e 67 20 22 3b 24  |.L..'"Saving ";$|
00000e80  6e 61 6d 65 73 3b 0d 04  56 30 41 25 3d 30 3a 58  |names;..V0A%=0:X|
00000e90  25 3d 4f 53 62 6c 6f 63  6b 20 83 32 35 36 3a 59  |%=OSblock .256:Y|
00000ea0  25 3d 4f 53 62 6c 6f 63  6b 20 81 32 35 36 3a d6  |%=OSblock .256:.|
00000eb0  20 26 46 46 44 44 0d 04  57 3a 4f 53 62 6c 6f 63  | &FFDD..W:OSbloc|
00000ec0  6b 21 26 41 3d 4f 53 62  6c 6f 63 6b 21 26 45 2d  |k!&A=OSblock!&E-|
00000ed0  93 3a 4f 53 62 6c 6f 63  6b 21 26 45 3d 61 74 74  |.:OSblock!&E=att|
00000ee0  72 69 62 25 3a 41 25 3d  31 3a d6 26 46 46 44 44  |rib%:A%=1:.&FFDD|
00000ef0  0d 04 60 05 e1 0d 04 6a  0e dd f2 66 69 6c 65 72  |..`....j...filer|
00000f00  72 6f 72 0d 04 74 0c ea  20 65 72 72 61 64 72 0d  |ror..t.. erradr.|
00000f10  04 7e 13 65 72 72 61 64  72 3d 28 21 26 46 44 29  |.~.erradr=(!&FD)|
00000f20  2b 31 0d 04 88 20 f5 3a  65 72 72 24 28 78 29 3d  |+1... .:err$(x)=|
00000f30  65 72 72 24 28 78 29 2b  bd 28 3f 65 72 72 61 64  |err$(x)+.(?errad|
00000f40  72 29 0d 04 92 1f 65 72  72 61 64 72 3d 65 72 72  |r)....erradr=err|
00000f50  61 64 72 2b 31 3a fd 20  3f 65 72 72 61 64 72 3d  |adr+1:. ?erradr=|
00000f60  30 0d 04 9c 05 e1 0d 04  a6 0c dd f2 73 74 61 74  |0...........stat|
00000f70  75 73 0d 04 b0 2f f1 22  54 68 65 20 66 6f 6c 6c  |us.../."The foll|
00000f80  6f 77 69 6e 67 20 66 69  6c 65 73 20 63 6f 75 6c  |owing files coul|
00000f90  64 20 6e 6f 74 20 62 65  20 63 6f 70 69 65 64 3a  |d not be copied:|
00000fa0  22 0d 04 ba 19 f1 27 22  46 69 6c 65 22 3b 8a 33  |".....'"File";.3|
00000fb0  38 29 22 52 65 61 73 6f  6e 22 0d 04 c4 12 e3 20  |8)"Reason"..... |
00000fc0  78 3d 31 20 b8 20 63 70  74 72 2d 31 0d 04 ce 26  |x=1 . cptr-1...&|
00000fd0  e7 20 65 72 72 24 28 78  29 3c 3e 22 22 20 f1 20  |. err$(x)<>"" . |
00000fe0  43 24 28 78 29 3b 8a 33  38 29 3b 65 72 72 24 28  |C$(x);.38);err$(|
00000ff0  78 29 0d 04 d8 05 ed 0d  04 e2 05 e1 0d 05 78 10  |x)............x.|
00001000  dd f2 67 70 63 6f 70 79  28 66 24 29 0d 05 82 49  |..gpcopy(f$)...I|
00001010  6c 6f 61 64 25 3d 4f 53  62 6c 6f 63 6b 21 32 3a  |load%=OSblock!2:|
00001020  65 78 65 63 25 3d 4f 53  62 6c 6f 63 6b 21 36 3a  |exec%=OSblock!6:|
00001030  6c 65 6e 67 74 68 25 3d  4f 53 62 6c 6f 63 6b 21  |length%=OSblock!|
00001040  26 41 3a 61 74 74 72 69  62 25 3d 4f 53 62 6c 6f  |&A:attrib%=OSblo|
00001050  63 6b 21 26 45 0d 05 8c  22 e3 20 70 74 72 25 3d  |ck!&E...". ptr%=|
00001060  30 20 b8 20 6c 65 6e 67  74 68 25 20 88 20 28 26  |0 . length% . (&|
00001070  37 45 30 30 2d 93 29 0d  05 96 13 f1 27 22 4c 6f  |7E00-.).....'"Lo|
00001080  61 64 69 6e 67 20 22 66  24 3b 0d 05 a0 0c 66 25  |ading "f$;....f%|
00001090  3d ad 28 66 24 29 0d 05  aa 0f 3f 4f 53 62 6c 6f  |=.(f$)....?OSblo|
000010a0  63 6b 3d 66 25 0d 05 b4  0f 4f 53 62 6c 6f 63 6b  |ck=f%....OSblock|
000010b0  21 31 3d 93 0d 05 be 17  4f 53 62 6c 6f 63 6b 21  |!1=.....OSblock!|
000010c0  35 3d 28 26 37 45 30 30  2d 93 29 0d 05 c8 12 4f  |5=(&7E00-.)....O|
000010d0  53 62 6c 6f 63 6b 21 39  3d 70 74 72 25 0d 05 d2  |Sblock!9=ptr%...|
000010e0  2f 41 25 3d 33 3a 58 25  3d 4f 53 62 6c 6f 63 6b  |/A%=3:X%=OSblock|
000010f0  20 83 32 35 36 3a 59 25  3d 4f 53 62 6c 6f 63 6b  | .256:Y%=OSblock|
00001100  20 81 32 35 36 3a d6 26  46 46 44 31 0d 05 dc 08  | .256:.&FFD1....|
00001110  d9 23 66 25 0d 05 e6 09  2a 46 58 32 31 0d 05 f0  |.#f%....*FX21...|
00001120  3c e7 20 74 77 6f 25 20  f1 27 22 49 6e 73 65 72  |<. two% .'"Inser|
00001130  74 20 74 61 72 67 65 74  20 64 69 73 63 20 61 6e  |t target disc an|
00001140  64 20 70 72 65 73 73 20  61 6e 79 20 6b 65 79 2e  |d press any key.|
00001150  2e 2e 22 3b 3a 7a 25 3d  a5 0d 05 fa 1c ff 22 4d  |..";:z%=......"M|
00001160  4f 55 4e 54 20 22 2b 74  24 3a ff 22 44 49 52 20  |OUNT "+t$:."DIR |
00001170  22 2b 74 64 24 0d 06 04  21 e7 20 70 74 72 25 3d  |"+td$...!. ptr%=|
00001180  30 20 67 25 3d a4 6f 70  65 6e 6f 75 74 28 66 24  |0 g%=.openout(f$|
00001190  29 3a d9 23 67 25 0d 06  0e 16 f1 27 22 53 61 76  |):.#g%.....'"Sav|
000011a0  69 6e 67 20 22 24 6e 61  6d 65 73 3b 0d 06 18 12  |ing "$names;....|
000011b0  67 25 3d a4 6f 70 65 6e  75 70 28 66 24 29 0d 06  |g%=.openup(f$)..|
000011c0  22 0f 3f 4f 53 62 6c 6f  63 6b 3d 67 25 0d 06 2c  |".?OSblock=g%..,|
000011d0  0f 4f 53 62 6c 6f 63 6b  21 31 3d 93 0d 06 36 21  |.OSblock!1=...6!|
000011e0  4f 53 62 6c 6f 63 6b 21  35 3d 28 26 37 45 30 30  |OSblock!5=(&7E00|
000011f0  2d 93 29 2d 4f 53 62 6c  6f 63 6b 21 35 0d 06 40  |-.)-OSblock!5..@|
00001200  12 4f 53 62 6c 6f 63 6b  21 39 3d 70 74 72 25 0d  |.OSblock!9=ptr%.|
00001210  06 4a 2f 41 25 3d 31 3a  58 25 3d 4f 53 62 6c 6f  |.J/A%=1:X%=OSblo|
00001220  63 6b 20 83 32 35 36 3a  59 25 3d 4f 53 62 6c 6f  |ck .256:Y%=OSblo|
00001230  63 6b 20 81 32 35 36 3a  d6 26 46 46 44 31 0d 06  |ck .256:.&FFD1..|
00001240  54 08 d9 23 67 25 0d 06  5e 09 2a 46 58 32 31 0d  |T..#g%..^.*FX21.|
00001250  06 68 53 e7 20 74 77 6f  25 20 80 20 ac 28 4f 53  |.hS. two% . .(OS|
00001260  62 6c 6f 63 6b 21 39 3d  6c 65 6e 67 74 68 25 29  |block!9=length%)|
00001270  20 f1 27 22 49 6e 73 65  72 74 20 73 6f 75 72 63  | .'"Insert sourc|
00001280  65 20 64 69 73 63 20 61  6e 64 20 70 72 65 73 73  |e disc and press|
00001290  20 61 6e 79 20 6b 65 79  2e 2e 2e 22 3b 3a 7a 25  | any key...";:z%|
000012a0  3d a5 0d 06 72 27 e7 20  4f 53 62 6c 6f 63 6b 21  |=...r'. OSblock!|
000012b0  39 3c 3e 6c 65 6e 67 74  68 25 20 8c 20 ff 22 4d  |9<>length% . ."M|
000012c0  4f 55 4e 54 20 22 2b 73  24 0d 06 7c 05 ed 0d 06  |OUNT "+s$..|....|
000012d0  86 71 21 4f 53 62 6c 6f  63 6b 3d 6e 61 6d 65 73  |.q!OSblock=names|
000012e0  3a 4f 53 62 6c 6f 63 6b  21 32 3d 6c 6f 61 64 25  |:OSblock!2=load%|
000012f0  3a 4f 53 62 6c 6f 63 6b  21 36 3d 65 78 65 63 25  |:OSblock!6=exec%|
00001300  3a 4f 53 62 6c 6f 63 6b  21 26 45 3d 61 74 74 72  |:OSblock!&E=attr|
00001310  69 62 25 3a 41 25 3d 31  3a 58 25 3d 4f 53 62 6c  |ib%:A%=1:X%=OSbl|
00001320  6f 63 6b 20 83 32 35 36  3a 59 25 3d 4f 53 62 6c  |ock .256:Y%=OSbl|
00001330  6f 63 6b 20 81 32 35 36  3a d6 26 46 46 44 44 0d  |ock .256:.&FFDD.|
00001340  06 90 05 e1 0d 06 9a 14  dd a4 6f 70 65 6e 6f 75  |..........openou|
00001350  74 28 66 69 6c 65 24 29  0d 06 a4 4a 6a 25 3d a9  |t(file$)...Jj%=.|
00001360  28 66 69 6c 65 24 29 3a  f5 3a 6a 25 3d 6a 25 2d  |(file$):.:j%=j%-|
00001370  31 3a fd 20 c1 66 69 6c  65 24 2c 6a 25 2c 31 29  |1:. .file$,j%,1)|
00001380  3d 22 2e 22 3a 24 6e 61  6d 65 73 3d c0 c2 66 69  |=".":$names=..fi|
00001390  6c 65 24 2c a9 66 69 6c  65 24 2d 6a 25 29 2c 31  |le$,.file$-j%),1|
000013a0  30 29 0d 06 ae 0e 3d ae  28 24 6e 61 6d 65 73 29  |0)....=.($names)|
000013b0  0d 06 b8 13 dd a4 6f 70  65 6e 75 70 28 66 69 6c  |......openup(fil|
000013c0  65 24 29 0d 06 c2 48 6a  25 3d a9 66 69 6c 65 24  |e$)...Hj%=.file$|
000013d0  3a f5 3a 6a 25 3d 6a 25  2d 31 3a fd 20 c1 66 69  |:.:j%=j%-1:. .fi|
000013e0  6c 65 24 2c 6a 25 2c 31  29 3d 22 2e 22 3a 24 6e  |le$,j%,1)=".":$n|
000013f0  61 6d 65 73 3d c0 c2 66  69 6c 65 24 2c a9 66 69  |ames=..file$,.fi|
00001400  6c 65 24 2d 6a 25 29 2c  31 30 29 0d 06 cc 0e 3d  |le$-j%),10)....=|
00001410  ad 28 24 6e 61 6d 65 73  29 0d ff                 |.($names)..|
0000141b