�>ADCopy
� ADFS-DFS Copier
� By G Boden
(elk%=((�-256)=1)
2�=((�P+&1100)�256)*256
<	�22,7
F	�init
Py�'"Please choose source drive (0,1)":�:s$=�:� �"01",s$):�'"Please choose target drive (0,1,2,3)":�:t$=�:� �"0123",t$)
Z_� (�(s$)�1)=(�(t$)�1) �'"Two disc copy? (Y/N)":�:d$=�:� �"YyNn",d$):two%=-(�"YNyn",d$) � 1)
d3�'"Insert source disc and press space":� � �-99
n	*DISC
x�"DRIVE "+t$
�
*FADFS
��"MOUNT "+s$
��readcat
�prefix$="$."
��dispcat
��markcat
�	*FX21
�(� cptr=1 �7:�'"Copying terminated":�
�� err$(cptr-1)
�<� � � �=27 �7:�'"Copying terminated":� � �filerror:�TNA
�<�docopy(1,cptr-1):�7:�'"All files copied successfully":�
��3
��status

�

0� x<cptr-1 �docopy(x+1,cptr-1):�dp@ � �dp@


��dispcat

"�

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

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

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

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

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

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

h� 

r�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";

��

�
��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%)
0type%(f%)=�(&FFDD) � &FF
:�
D�
Nj��getname:� f%=(off+1) � (off+10):� �(f%?names)<>" " name$(1+(off �11))=name$(1+(off �11))+�(f%?names)
X�:off=off+11:�
b
��init
l#� names &300,file 10,OSblock 17
v� name$(48),type%(48)
�� C$(31)
�
cptr=1
�
two%=�
��
�
ݤclr(z%)
�� elk% �dPB
�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)"<"
4S� �-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)"<"
H�� �-1 � prefix$<>"$." � j=�(prefix$):�:j=j-1:� �prefix$,j,1)=".":prefix$=�prefix$,j):�"DIR ^":�readcat:�dispcat:X=11:Y=4:�X,Y)"<"
Rp� �-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)"<"
f� �-113
p�
zݤfilelen(x$)
�$names=x$:!OSblock=names
�(A%=5:X%=OSblock �256:Y%=OSblock �256
�
�&FFDD
�=OSblock!&0A
� 
���docopy(sf,ef)
��12,28,0,24,39,24
�
*FX229
�� x=sf � ef
�	*FX21
�<� two% �'"Insert source disc and press any key...";:z%=�
�	*ADFS
�>� �filelen(C$(x))>(&7E00-�) �gpcopy(C$(x))� �lscopy(C$(x))
� x
�
��lscopy(f$)
$
�load(f$)
.	*FX21
8;� two% �'"Insert target disc and press any key...";:z=�
B	*DISC
L
�save(f$)
V�
`��load(file$)
j$names=file$
t!OSblock=names
~OSblock!2=�
�OSblock!6=0
��'"Loading ";file$;
�1A%=&FF:X%=OSblock �256:Y%=OSblock �256:�&FFDD
�Sattrib%=OSblock!&E:� (attrib% �&8)=8 � (attrib% �&2)=0 � attrib%=&A � attrib%=0
��
���save(file$)
�Dj=�(file$):�:j=j-1:� �file$,j,1)=".":$names=��file$,�file$-j),7)
�OSblock!&E=�+OSblock!&A
�OSblock!&A=�
��'"Saving ";$names;
�0A%=0:X%=OSblock �256:Y%=OSblock �256:� &FFDD
�:OSblock!&A=OSblock!&E-�:OSblock!&E=attrib%:A%=1:�&FFDD
��
���filerror
� erradr

erradr=(!&FD)+1
 �:err$(x)=err$(x)+�(?erradr)
erradr=erradr+1:� ?erradr=0
(�
2��status
</�"The following files could not be copied:"
F�'"File";�38)"Reason"
P� x=1 � cptr-1
Z&� err$(x)<>"" � C$(x);�38);err$(x)
d�
n�
x��gpcopy(f$)
��load%=OSblock!2:exec%=OSblock!6:length%=OSblock!&A:attrib%=OSblock!&E:� (attrib% �&8)=8 � (attrib% �&2)=0 � attrib%=&A � attrib%=0
�"� 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%=�
�	*DISC
!� 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% � *ADFS
|�
�q!OSblock=names:OSblock!2=load%:OSblock!6=exec%:OSblock!&E=attrib%:A%=1:X%=OSblock �256:Y%=OSblock �256:�&FFDD
��
�ݤopenout(file$)
�Ij%=�(file$):�:j%=j%-1:� �file$,j%,1)=".":$names=��file$,�file$-j%),7)
�=�($names)
�ݤopenup(file$)
�Gj%=�file$:�:j%=j%-1:� �file$,j%,1)=".":$names=��file$,�file$-j%),7)
�=�($names)
�

00000000  0d 00 0a 0c f4 3e 41 44  43 6f 70 79 0d 00 14 15  |.....>ADCopy....|
00000010  f4 20 41 44 46 53 2d 44  46 53 20 43 6f 70 69 65  |. ADFS-DFS Copie|
00000020  72 0d 00 1e 10 f4 20 42  79 20 47 20 42 6f 64 65  |r..... By G Bode|
00000030  6e 0d 00 28 14 65 6c 6b  25 3d 28 28 a6 2d 32 35  |n..(.elk%=((.-25|
00000040  36 29 3d 31 29 0d 00 32  1a d3 3d 28 28 b8 50 2b  |6)=1)..2..=((.P+|
00000050  26 31 31 30 30 29 81 32  35 36 29 2a 32 35 36 0d  |&1100).256)*256.|
00000060  00 3c 09 ef 32 32 2c 37  0d 00 46 09 f2 69 6e 69  |.<..22,7..F..ini|
00000070  74 0d 00 50 79 f1 27 22  50 6c 65 61 73 65 20 63  |t..Py.'"Please c|
00000080  68 6f 6f 73 65 20 73 6f  75 72 63 65 20 64 72 69  |hoose source dri|
00000090  76 65 20 28 30 2c 31 29  22 3a f5 3a 73 24 3d be  |ve (0,1)":.:s$=.|
000000a0  3a fd 20 a7 22 30 31 22  2c 73 24 29 3a f1 27 22  |:. ."01",s$):.'"|
000000b0  50 6c 65 61 73 65 20 63  68 6f 6f 73 65 20 74 61  |Please choose ta|
000000c0  72 67 65 74 20 64 72 69  76 65 20 28 30 2c 31 2c  |rget drive (0,1,|
000000d0  32 2c 33 29 22 3a f5 3a  74 24 3d be 3a fd 20 a7  |2,3)":.:t$=.:. .|
000000e0  22 30 31 32 33 22 2c 74  24 29 0d 00 5a 5f e7 20  |"0123",t$)..Z_. |
000000f0  28 97 28 73 24 29 80 31  29 3d 28 97 28 74 24 29  |(.(s$).1)=(.(t$)|
00000100  80 31 29 20 f1 27 22 54  77 6f 20 64 69 73 63 20  |.1) .'"Two disc |
00000110  63 6f 70 79 3f 20 28 59  2f 4e 29 22 3a f5 3a 64  |copy? (Y/N)":.:d|
00000120  24 3d be 3a fd 20 a7 22  59 79 4e 6e 22 2c 64 24  |$=.:. ."YyNn",d$|
00000130  29 3a 74 77 6f 25 3d 2d  28 a7 22 59 4e 79 6e 22  |):two%=-(."YNyn"|
00000140  2c 64 24 29 20 80 20 31  29 0d 00 64 33 f1 27 22  |,d$) . 1)..d3.'"|
00000150  49 6e 73 65 72 74 20 73  6f 75 72 63 65 20 64 69  |Insert source di|
00000160  73 63 20 61 6e 64 20 70  72 65 73 73 20 73 70 61  |sc and press spa|
00000170  63 65 22 3a f5 20 fd 20  a6 2d 39 39 0d 00 6e 09  |ce":. . .-99..n.|
00000180  2a 44 49 53 43 0d 00 78  10 ff 22 44 52 49 56 45  |*DISC..x.."DRIVE|
00000190  20 22 2b 74 24 0d 00 82  0a 2a 46 41 44 46 53 0d  | "+t$....*FADFS.|
000001a0  00 8c 10 ff 22 4d 4f 55  4e 54 20 22 2b 73 24 0d  |...."MOUNT "+s$.|
000001b0  00 96 0c f2 72 65 61 64  63 61 74 0d 00 a0 10 70  |....readcat....p|
000001c0  72 65 66 69 78 24 3d 22  24 2e 22 0d 00 aa 0c f2  |refix$="$.".....|
000001d0  64 69 73 70 63 61 74 0d  00 b4 0c f2 6d 61 72 6b  |dispcat.....mark|
000001e0  63 61 74 0d 00 be 09 2a  46 58 32 31 0d 00 c8 28  |cat....*FX21...(|
000001f0  e7 20 63 70 74 72 3d 31  20 eb 37 3a f1 27 22 43  |. cptr=1 .7:.'"C|
00000200  6f 70 79 69 6e 67 20 74  65 72 6d 69 6e 61 74 65  |opying terminate|
00000210  64 22 3a e0 0d 00 d2 12  de 20 65 72 72 24 28 63  |d":...... err$(c|
00000220  70 74 72 2d 31 29 0d 00  dc 3c ee 20 85 20 e7 20  |ptr-1)...<. . . |
00000230  9f 3d 32 37 20 eb 37 3a  f1 27 22 43 6f 70 79 69  |.=27 .7:.'"Copyi|
00000240  6e 67 20 74 65 72 6d 69  6e 61 74 65 64 22 3a e0  |ng terminated":.|
00000250  20 8b 20 f2 66 69 6c 65  72 72 6f 72 3a e5 8d 54  | . .filerror:..T|
00000260  4e 41 0d 00 e6 3c f2 64  6f 63 6f 70 79 28 31 2c  |NA...<.docopy(1,|
00000270  63 70 74 72 2d 31 29 3a  eb 37 3a f1 27 22 41 6c  |cptr-1):.7:.'"Al|
00000280  6c 20 66 69 6c 65 73 20  63 6f 70 69 65 64 20 73  |l files copied s|
00000290  75 63 63 65 73 73 66 75  6c 6c 79 22 3a e0 0d 00  |uccessfully":...|
000002a0  f0 06 eb 33 0d 00 fa 0b  f2 73 74 61 74 75 73 0d  |...3.....status.|
000002b0  01 04 05 e0 0d 01 0e 30  e7 20 78 3c 63 70 74 72  |.......0. x<cptr|
000002c0  2d 31 20 f2 64 6f 63 6f  70 79 28 78 2b 31 2c 63  |-1 .docopy(x+1,c|
000002d0  70 74 72 2d 31 29 3a e5  8d 64 70 40 20 8b 20 e5  |ptr-1):..dp@ . .|
000002e0  8d 64 70 40 0d 01 18 0d  dd f2 64 69 73 70 63 61  |.dp@......dispca|
000002f0  74 0d 01 22 05 db 0d 01  2c 2b f1 8a 35 2c 31 29  |t.."....,+..5,1)|
00000300  bd 31 33 31 22 46 20 69  20 6c 20 65 20 20 20 53  |.131"F i l e   S|
00000310  20 65 20 6c 20 65 20 63  20 74 20 69 20 6f 20 6e  | e l e c t i o n|
00000320  22 0d 01 36 33 f1 8a 28  33 39 2d a9 70 72 65 66  |"..63..(39-.pref|
00000330  69 78 24 29 2f 32 2c 33  29 3b bd 31 33 31 3b c0  |ix$)/2,3);.131;.|
00000340  70 72 65 66 69 78 24 2c  a9 70 72 65 66 69 78 24  |prefix$,.prefix$|
00000350  2d 31 29 3b 0d 01 40 18  e3 20 5a 25 3d 31 20 b8  |-1);..@.. Z%=1 .|
00000360  20 6f 66 66 20 81 31 31  20 88 20 33 0d 01 4a 1c  | off .11 . 3..J.|
00000370  f1 27 8a 31 29 a4 63 6c  72 28 5a 25 29 3b 6e 61  |.'.1).clr(Z%);na|
00000380  6d 65 24 28 5a 25 29 3b  0d 01 54 32 e7 20 5a 25  |me$(Z%);..T2. Z%|
00000390  3c 28 6f 66 66 20 81 20  31 31 29 20 8c 20 f1 8a  |<(off . 11) . ..|
000003a0  31 33 29 a4 63 6c 72 28  5a 25 2b 31 29 3b 6e 61  |13).clr(Z%+1);na|
000003b0  6d 65 24 28 5a 25 2b 31  29 3b 0d 01 5e 34 e7 20  |me$(Z%+1);..^4. |
000003c0  5a 25 3c 28 6f 66 66 20  81 20 31 31 29 2d 31 20  |Z%<(off . 11)-1 |
000003d0  8c 20 f1 8a 32 36 29 a4  63 6c 72 28 5a 25 2b 32  |. ..26).clr(Z%+2|
000003e0  29 3b 6e 61 6d 65 24 28  5a 25 2b 32 29 3b 0d 01  |);name$(Z%+2);..|
000003f0  68 06 ed 20 0d 01 72 12  ef 32 33 2c 31 2c 30 3b  |h.. ..r..23,1,0;|
00000400  30 3b 30 3b 30 3b 0d 01  7c ad f1 8a 30 2c 32 31  |0;0;0;..|...0,21|
00000410  29 22 20 53 65 6c 65 63  74 20 66 69 6c 65 20 77  |)" Select file w|
00000420  69 74 68 20 3c 20 75 73  69 6e 67 20 63 75 72 73  |ith < using curs|
00000430  6f 72 20 6b 65 79 73 22  27 22 20 53 50 41 43 45  |or keys"'" SPACE|
00000440  42 41 52 20 6d 61 72 6b  73 20 66 69 6c 65 20 66  |BAR marks file f|
00000450  6f 72 20 63 6f 70 79 69  6e 67 2c 20 44 45 4c 45  |or copying, DELE|
00000460  54 45 20 63 6f 72 72 65  63 74 73 2c 20 52 45 54  |TE corrects, RET|
00000470  55 52 4e 20 65 6e 74 65  72 20 64 69 72 65 63 74  |URN enter direct|
00000480  6f 72 79 2c 20 53 48 49  46 54 20 70 61 72 65 6e  |ory, SHIFT paren|
00000490  74 20 64 69 72 65 63 74  6f 72 79 2c 20 45 53 43  |t directory, ESC|
000004a0  41 50 45 20 62 65 67 69  6e 20 63 6f 70 79 69 6e  |APE begin copyin|
000004b0  67 22 3b 0d 01 86 05 e1  0d 01 90 0d dd f2 72 65  |g";...........re|
000004c0  61 64 63 61 74 0d 01 9a  1c e3 49 3d 30 b8 26 46  |adcat.....I=0.&F|
000004d0  44 20 88 20 34 3a 6e 61  6d 65 73 21 49 3d 30 3a  |D . 4:names!I=0:|
000004e0  ed 0d 01 a4 0e 3f 4f 53  62 6c 6f 63 6b 3d 30 0d  |.....?OSblock=0.|
000004f0  01 ae 13 4f 53 62 6c 6f  63 6b 21 31 3d 6e 61 6d  |...OSblock!1=nam|
00000500  65 73 0d 01 b8 10 4f 53  62 6c 6f 63 6b 21 35 3d  |es....OSblock!5=|
00000510  34 38 0d 01 c2 0f 4f 53  62 6c 6f 63 6b 21 39 3d  |48....OSblock!9=|
00000520  30 0d 01 cc 18 41 25 3d  38 3a 58 25 3d 4f 53 62  |0....A%=8:X%=OSb|
00000530  6c 6f 63 6b 20 83 32 35  36 0d 01 d6 1b 59 25 3d  |lock .256....Y%=|
00000540  4f 53 62 6c 6f 63 6b 20  81 32 35 36 3a d6 20 26  |OSblock .256:. &|
00000550  46 46 44 31 0d 01 e0 05  20 0d 01 ea 09 6f 66 66  |FFD1.... ....off|
00000560  3d 30 0d 01 f4 05 f5 0d  01 fe 19 6e 61 6d 65 24  |=0.........name$|
00000570  28 31 2b 28 6f 66 66 20  81 31 31 29 29 3d 22 22  |(1+(off .11))=""|
00000580  0d 02 08 23 e7 20 6f 66  66 3f 6e 61 6d 65 73 3d  |...#. off?names=|
00000590  26 41 20 f2 67 65 74 6e  61 6d 65 3a fd 30 20 8b  |&A .getname:.0 .|
000005a0  20 fd 31 0d 02 12 16 21  4f 53 62 6c 6f 63 6b 3d  | .1....!OSblock=|
000005b0  66 69 6c 65 3a 41 25 3d  35 0d 02 1c 14 e3 20 66  |file:A%=5..... f|
000005c0  25 3d 31 20 b8 20 6f 66  66 20 81 31 31 0d 02 26  |%=1 . off .11..&|
000005d0  13 24 66 69 6c 65 3d 6e  61 6d 65 24 28 66 25 29  |.$file=name$(f%)|
000005e0  0d 02 30 1c 74 79 70 65  25 28 66 25 29 3d ba 28  |..0.type%(f%)=.(|
000005f0  26 46 46 44 44 29 20 80  20 26 46 46 0d 02 3a 05  |&FFDD) . &FF..:.|
00000600  ed 0d 02 44 05 e1 0d 02  4e 6a dd f2 67 65 74 6e  |...D....Nj..getn|
00000610  61 6d 65 3a e3 20 66 25  3d 28 6f 66 66 2b 31 29  |ame:. f%=(off+1)|
00000620  20 b8 20 28 6f 66 66 2b  31 30 29 3a e7 20 bd 28  | . (off+10):. .(|
00000630  66 25 3f 6e 61 6d 65 73  29 3c 3e 22 20 22 20 6e  |f%?names)<>" " n|
00000640  61 6d 65 24 28 31 2b 28  6f 66 66 20 81 31 31 29  |ame$(1+(off .11)|
00000650  29 3d 6e 61 6d 65 24 28  31 2b 28 6f 66 66 20 81  |)=name$(1+(off .|
00000660  31 31 29 29 2b bd 28 66  25 3f 6e 61 6d 65 73 29  |11))+.(f%?names)|
00000670  0d 02 58 12 ed 3a 6f 66  66 3d 6f 66 66 2b 31 31  |..X..:off=off+11|
00000680  3a e1 0d 02 62 0a dd f2  69 6e 69 74 0d 02 6c 23  |:...b...init..l#|
00000690  de 20 6e 61 6d 65 73 20  26 33 30 30 2c 66 69 6c  |. names &300,fil|
000006a0  65 20 31 30 2c 4f 53 62  6c 6f 63 6b 20 31 37 0d  |e 10,OSblock 17.|
000006b0  02 76 19 de 20 6e 61 6d  65 24 28 34 38 29 2c 74  |.v.. name$(48),t|
000006c0  79 70 65 25 28 34 38 29  0d 02 80 0c de 20 43 24  |ype%(48)..... C$|
000006d0  28 33 31 29 0d 02 8a 0a  63 70 74 72 3d 31 0d 02  |(31)....cptr=1..|
000006e0  94 0a 74 77 6f 25 3d a3  0d 02 9e 05 e1 0d 02 a8  |..two%=.........|
000006f0  0d dd a4 63 6c 72 28 7a  25 29 0d 02 b2 10 e7 20  |...clr(z%)..... |
00000700  65 6c 6b 25 20 e5 8d 64  50 42 0d 02 bc 41 6a 3d  |elk% ..dPB...Aj=|
00000710  30 3a f5 3a 6a 3d 6a 2b  31 3a fd 20 43 24 28 6a  |0:.:j=j+1:. C$(j|
00000720  29 3d 70 72 65 66 69 78  24 2b 6e 61 6d 65 24 28  |)=prefix$+name$(|
00000730  7a 25 29 20 84 20 6a 3d  63 70 74 72 3a e7 20 6a  |z%) . j=cptr:. j|
00000740  3c 63 70 74 72 20 3d bd  31 32 39 0d 02 c6 1d 3d  |<cptr =.129....=|
00000750  bd 28 31 33 35 2b 28 34  2a 28 74 79 70 65 25 28  |.(135+(4*(type%(|
00000760  7a 25 29 3d 32 29 29 29  0d 02 d0 40 6a 3d 30 3a  |z%)=2)))...@j=0:|
00000770  f5 3a 6a 3d 6a 2b 31 3a  fd 20 43 24 28 6a 29 3d  |.:j=j+1:. C$(j)=|
00000780  70 72 65 66 69 78 24 2b  6e 61 6d 65 24 28 7a 25  |prefix$+name$(z%|
00000790  29 20 84 20 6a 3d 63 70  74 72 3a e7 20 6a 3c 63  |) . j=cptr:. j<c|
000007a0  70 74 72 20 3d 22 2a 22  0d 02 da 1d e7 20 74 79  |ptr ="*"..... ty|
000007b0  70 65 25 28 7a 25 29 3d  32 20 3d 22 23 22 20 8b  |pe%(z%)=2 ="#" .|
000007c0  20 3d 22 20 22 0d 02 e4  0d dd f2 6d 61 72 6b 63  | =" "......markc|
000007d0  61 74 0d 02 ee 0c 2a 46  58 32 32 39 20 31 0d 02  |at....*FX229 1..|
000007e0  f8 0c 58 3d 31 31 3a 59  3d 34 0d 03 02 0d f1 8a  |..X=11:Y=4......|
000007f0  58 2c 59 29 22 3c 22 0d  03 0c 05 f5 0d 03 16 47  |X,Y)"<"........G|
00000800  e7 20 a6 2d 34 32 20 80  20 ac 28 28 28 59 2d 34  |. .-42 . .(((Y-4|
00000810  29 2a 33 2b 28 58 2b 32  29 2f 31 33 29 3e 28 6f  |)*3+(X+2)/13)>(o|
00000820  66 66 20 81 31 31 29 2d  33 29 f1 8a 58 2c 59 29  |ff .11)-3)..X,Y)|
00000830  22 20 22 3a 59 3d 59 2b  31 3a f1 8a 58 2c 59 29  |" ":Y=Y+1:..X,Y)|
00000840  22 3c 22 0d 03 20 2b e7  20 a6 2d 35 38 20 80 20  |"<".. +. .-58 . |
00000850  59 3c 3e 34 20 f1 8a 58  2c 59 29 22 20 22 3a 59  |Y<>4 ..X,Y)" ":Y|
00000860  3d 59 2d 31 3a f1 8a 58  2c 59 29 22 3c 22 0d 03  |=Y-1:..X,Y)"<"..|
00000870  2a 2d e7 20 a6 2d 32 36  20 80 20 58 3c 3e 31 31  |*-. .-26 . X<>11|
00000880  20 f1 8a 58 2c 59 29 22  20 22 3a 58 3d 58 2d 31  | ..X,Y)" ":X=X-1|
00000890  33 3a f1 8a 58 2c 59 29  22 3c 22 0d 03 34 53 e7  |3:..X,Y)"<"..4S.|
000008a0  20 a6 2d 31 32 32 20 80  20 ac 28 28 58 3d 33 37  | .-122 . .((X=37|
000008b0  29 20 84 20 28 28 28 59  2d 34 29 2a 33 2b 28 58  |) . (((Y-4)*3+(X|
000008c0  2b 32 29 2f 31 33 29 3d  28 6f 66 66 20 81 31 31  |+2)/13)=(off .11|
000008d0  29 29 29 20 f1 8a 58 2c  59 29 22 20 22 3a 58 3d  |))) ..X,Y)" ":X=|
000008e0  58 2b 31 33 3a f1 8a 58  2c 59 29 22 3c 22 0d 03  |X+13:..X,Y)"<"..|
000008f0  3e 99 e7 20 a6 2d 37 34  20 80 20 74 79 70 65 25  |>.. .-74 . type%|
00000900  28 28 59 2d 34 29 2a 33  2b 28 58 2b 32 29 2f 31  |((Y-4)*3+(X+2)/1|
00000910  33 29 3d 32 20 8c 20 70  72 65 66 69 78 24 3d 70  |3)=2 . prefix$=p|
00000920  72 65 66 69 78 24 2b 6e  61 6d 65 24 28 28 59 2d  |refix$+name$((Y-|
00000930  34 29 2a 33 2b 28 58 2b  32 29 2f 31 33 29 2b 22  |4)*3+(X+2)/13)+"|
00000940  2e 22 3a ff 22 44 49 52  20 22 2b 6e 61 6d 65 24  |.":."DIR "+name$|
00000950  28 28 59 2d 34 29 2a 33  2b 28 58 2b 32 29 2f 31  |((Y-4)*3+(X+2)/1|
00000960  33 29 3a f2 72 65 61 64  63 61 74 3a f2 64 69 73  |3):.readcat:.dis|
00000970  70 63 61 74 3a 58 3d 31  31 3a 59 3d 34 3a f1 8a  |pcat:X=11:Y=4:..|
00000980  58 2c 59 29 22 3c 22 0d  03 48 86 e7 20 a6 2d 31  |X,Y)"<"..H.. .-1|
00000990  20 80 20 70 72 65 66 69  78 24 3c 3e 22 24 2e 22  | . prefix$<>"$."|
000009a0  20 8c 20 6a 3d a9 28 70  72 65 66 69 78 24 29 3a  | . j=.(prefix$):|
000009b0  f5 3a 6a 3d 6a 2d 31 3a  fd 20 c1 70 72 65 66 69  |.:j=j-1:. .prefi|
000009c0  78 24 2c 6a 2c 31 29 3d  22 2e 22 3a 70 72 65 66  |x$,j,1)=".":pref|
000009d0  69 78 24 3d c0 70 72 65  66 69 78 24 2c 6a 29 3a  |ix$=.prefix$,j):|
000009e0  ff 22 44 49 52 20 5e 22  3a f2 72 65 61 64 63 61  |."DIR ^":.readca|
000009f0  74 3a f2 64 69 73 70 63  61 74 3a 58 3d 31 31 3a  |t:.dispcat:X=11:|
00000a00  59 3d 34 3a f1 8a 58 2c  59 29 22 3c 22 0d 03 52  |Y=4:..X,Y)"<"..R|
00000a10  70 e7 20 a6 2d 39 39 20  80 20 74 79 70 65 25 28  |p. .-99 . type%(|
00000a20  28 59 2d 34 29 2a 33 2b  28 58 2b 32 29 2f 31 33  |(Y-4)*3+(X+2)/13|
00000a30  29 3d 31 20 8c 20 43 24  28 63 70 74 72 29 3d 70  |)=1 . C$(cptr)=p|
00000a40  72 65 66 69 78 24 2b 6e  61 6d 65 24 28 28 59 2d  |refix$+name$((Y-|
00000a50  34 29 2a 33 2b 28 58 2b  32 29 2f 31 33 29 3a 63  |4)*3+(X+2)/13):c|
00000a60  70 74 72 3d 63 70 74 72  2b 31 3a f2 64 69 73 70  |ptr=cptr+1:.disp|
00000a70  63 61 74 3a f1 8a 58 2c  59 29 22 3c 22 0d 03 5c  |cat:..X,Y)"<"..\|
00000a80  98 e7 20 a6 2d 39 30 20  6a 3d 30 3a f5 3a 6a 3d  |.. .-90 j=0:.:j=|
00000a90  6a 2b 31 3a fd 20 43 24  28 6a 29 3d 70 72 65 66  |j+1:. C$(j)=pref|
00000aa0  69 78 24 2b 6e 61 6d 65  24 28 28 59 2d 34 29 2a  |ix$+name$((Y-4)*|
00000ab0  33 2b 28 58 2b 32 29 2f  31 33 29 20 84 20 6a 3d  |3+(X+2)/13) . j=|
00000ac0  33 32 3a e7 20 6a 3c 33  32 20 e3 20 69 3d 6a 20  |32:. j<32 . i=j |
00000ad0  b8 20 63 70 74 72 2d 32  3a 43 24 28 69 29 3d 43  |. cptr-2:C$(i)=C|
00000ae0  24 28 69 2b 31 29 3a ed  3a 43 24 28 63 70 74 72  |$(i+1):.:C$(cptr|
00000af0  2d 31 29 3d 22 22 3a 63  70 74 72 3d 63 70 74 72  |-1)="":cptr=cptr|
00000b00  2d 31 3a f2 64 69 73 70  63 61 74 3a f1 8a 58 2c  |-1:.dispcat:..X,|
00000b10  59 29 22 3c 22 0d 03 66  0b fd 20 a6 2d 31 31 33  |Y)"<"..f.. .-113|
00000b20  0d 03 70 05 e1 0d 03 7a  11 dd a4 66 69 6c 65 6c  |..p....z...filel|
00000b30  65 6e 28 78 24 29 0d 03  84 1c 24 6e 61 6d 65 73  |en(x$)....$names|
00000b40  3d 78 24 3a 21 4f 53 62  6c 6f 63 6b 3d 6e 61 6d  |=x$:!OSblock=nam|
00000b50  65 73 0d 03 8e 28 41 25  3d 35 3a 58 25 3d 4f 53  |es...(A%=5:X%=OS|
00000b60  62 6c 6f 63 6b 20 83 32  35 36 3a 59 25 3d 4f 53  |block .256:Y%=OS|
00000b70  62 6c 6f 63 6b 20 81 32  35 36 0d 03 98 0a d6 26  |block .256.....&|
00000b80  46 46 44 44 0d 03 a2 10  3d 4f 53 62 6c 6f 63 6b  |FFDD....=OSblock|
00000b90  21 26 30 41 0d 03 ac 05  20 0d 03 b6 13 dd f2 64  |!&0A.... ......d|
00000ba0  6f 63 6f 70 79 28 73 66  2c 65 66 29 0d 03 c0 15  |ocopy(sf,ef)....|
00000bb0  ef 31 32 2c 32 38 2c 30  2c 32 34 2c 33 39 2c 32  |.12,28,0,24,39,2|
00000bc0  34 0d 03 ca 0a 2a 46 58  32 32 39 0d 03 d4 0f e3  |4....*FX229.....|
00000bd0  20 78 3d 73 66 20 b8 20  65 66 0d 03 de 09 2a 46  | x=sf . ef....*F|
00000be0  58 32 31 0d 03 e8 3c e7  20 74 77 6f 25 20 f1 27  |X21...<. two% .'|
00000bf0  22 49 6e 73 65 72 74 20  73 6f 75 72 63 65 20 64  |"Insert source d|
00000c00  69 73 63 20 61 6e 64 20  70 72 65 73 73 20 61 6e  |isc and press an|
00000c10  79 20 6b 65 79 2e 2e 2e  22 3b 3a 7a 25 3d a5 0d  |y key...";:z%=..|
00000c20  03 f2 09 2a 41 44 46 53  0d 03 fc 3e e7 20 a4 66  |...*ADFS...>. .f|
00000c30  69 6c 65 6c 65 6e 28 43  24 28 78 29 29 3e 28 26  |ilelen(C$(x))>(&|
00000c40  37 45 30 30 2d 93 29 20  f2 67 70 63 6f 70 79 28  |7E00-.) .gpcopy(|
00000c50  43 24 28 78 29 29 8b 20  f2 6c 73 63 6f 70 79 28  |C$(x)). .lscopy(|
00000c60  43 24 28 78 29 29 0d 04  06 07 ed 20 78 0d 04 10  |C$(x))..... x...|
00000c70  05 e1 0d 04 1a 10 dd f2  6c 73 63 6f 70 79 28 66  |........lscopy(f|
00000c80  24 29 0d 04 24 0d f2 6c  6f 61 64 28 66 24 29 0d  |$)..$..load(f$).|
00000c90  04 2e 09 2a 46 58 32 31  0d 04 38 3b e7 20 74 77  |...*FX21..8;. tw|
00000ca0  6f 25 20 f1 27 22 49 6e  73 65 72 74 20 74 61 72  |o% .'"Insert tar|
00000cb0  67 65 74 20 64 69 73 63  20 61 6e 64 20 70 72 65  |get disc and pre|
00000cc0  73 73 20 61 6e 79 20 6b  65 79 2e 2e 2e 22 3b 3a  |ss any key...";:|
00000cd0  7a 3d a5 0d 04 42 09 2a  44 49 53 43 0d 04 4c 0d  |z=...B.*DISC..L.|
00000ce0  f2 73 61 76 65 28 66 24  29 0d 04 56 05 e1 0d 04  |.save(f$)..V....|
00000cf0  60 11 dd f2 6c 6f 61 64  28 66 69 6c 65 24 29 0d  |`...load(file$).|
00000d00  04 6a 10 24 6e 61 6d 65  73 3d 66 69 6c 65 24 0d  |.j.$names=file$.|
00000d10  04 74 12 21 4f 53 62 6c  6f 63 6b 3d 6e 61 6d 65  |.t.!OSblock=name|
00000d20  73 0d 04 7e 0f 4f 53 62  6c 6f 63 6b 21 32 3d 93  |s..~.OSblock!2=.|
00000d30  0d 04 88 0f 4f 53 62 6c  6f 63 6b 21 36 3d 30 0d  |....OSblock!6=0.|
00000d40  04 92 17 f1 27 22 4c 6f  61 64 69 6e 67 20 22 3b  |....'"Loading ";|
00000d50  66 69 6c 65 24 3b 0d 04  9c 31 41 25 3d 26 46 46  |file$;...1A%=&FF|
00000d60  3a 58 25 3d 4f 53 62 6c  6f 63 6b 20 83 32 35 36  |:X%=OSblock .256|
00000d70  3a 59 25 3d 4f 53 62 6c  6f 63 6b 20 81 32 35 36  |:Y%=OSblock .256|
00000d80  3a d6 26 46 46 44 44 0d  04 a1 53 61 74 74 72 69  |:.&FFDD...Sattri|
00000d90  62 25 3d 4f 53 62 6c 6f  63 6b 21 26 45 3a e7 20  |b%=OSblock!&E:. |
00000da0  28 61 74 74 72 69 62 25  20 80 26 38 29 3d 38 20  |(attrib% .&8)=8 |
00000db0  84 20 28 61 74 74 72 69  62 25 20 80 26 32 29 3d  |. (attrib% .&2)=|
00000dc0  30 20 8c 20 61 74 74 72  69 62 25 3d 26 41 20 8b  |0 . attrib%=&A .|
00000dd0  20 61 74 74 72 69 62 25  3d 30 0d 04 a6 05 e1 0d  | attrib%=0......|
00000de0  04 b0 11 dd f2 73 61 76  65 28 66 69 6c 65 24 29  |.....save(file$)|
00000df0  0d 04 ba 44 6a 3d a9 28  66 69 6c 65 24 29 3a f5  |...Dj=.(file$):.|
00000e00  3a 6a 3d 6a 2d 31 3a fd  20 c1 66 69 6c 65 24 2c  |:j=j-1:. .file$,|
00000e10  6a 2c 31 29 3d 22 2e 22  3a 24 6e 61 6d 65 73 3d  |j,1)=".":$names=|
00000e20  c0 c2 66 69 6c 65 24 2c  a9 66 69 6c 65 24 2d 6a  |..file$,.file$-j|
00000e30  29 2c 37 29 0d 04 c4 1b  4f 53 62 6c 6f 63 6b 21  |),7)....OSblock!|
00000e40  26 45 3d 93 2b 4f 53 62  6c 6f 63 6b 21 26 41 0d  |&E=.+OSblock!&A.|
00000e50  04 ce 10 4f 53 62 6c 6f  63 6b 21 26 41 3d 93 0d  |...OSblock!&A=..|
00000e60  04 d8 17 f1 27 22 53 61  76 69 6e 67 20 22 3b 24  |....'"Saving ";$|
00000e70  6e 61 6d 65 73 3b 0d 04  e2 30 41 25 3d 30 3a 58  |names;...0A%=0:X|
00000e80  25 3d 4f 53 62 6c 6f 63  6b 20 83 32 35 36 3a 59  |%=OSblock .256:Y|
00000e90  25 3d 4f 53 62 6c 6f 63  6b 20 81 32 35 36 3a d6  |%=OSblock .256:.|
00000ea0  20 26 46 46 44 44 0d 04  e7 3a 4f 53 62 6c 6f 63  | &FFDD...:OSbloc|
00000eb0  6b 21 26 41 3d 4f 53 62  6c 6f 63 6b 21 26 45 2d  |k!&A=OSblock!&E-|
00000ec0  93 3a 4f 53 62 6c 6f 63  6b 21 26 45 3d 61 74 74  |.:OSblock!&E=att|
00000ed0  72 69 62 25 3a 41 25 3d  31 3a d6 26 46 46 44 44  |rib%:A%=1:.&FFDD|
00000ee0  0d 04 ec 05 e1 0d 04 f6  0e dd f2 66 69 6c 65 72  |...........filer|
00000ef0  72 6f 72 0d 05 00 0c ea  20 65 72 72 61 64 72 0d  |ror..... erradr.|
00000f00  05 0a 13 65 72 72 61 64  72 3d 28 21 26 46 44 29  |...erradr=(!&FD)|
00000f10  2b 31 0d 05 14 20 f5 3a  65 72 72 24 28 78 29 3d  |+1... .:err$(x)=|
00000f20  65 72 72 24 28 78 29 2b  bd 28 3f 65 72 72 61 64  |err$(x)+.(?errad|
00000f30  72 29 0d 05 1e 1f 65 72  72 61 64 72 3d 65 72 72  |r)....erradr=err|
00000f40  61 64 72 2b 31 3a fd 20  3f 65 72 72 61 64 72 3d  |adr+1:. ?erradr=|
00000f50  30 0d 05 28 05 e1 0d 05  32 0c dd f2 73 74 61 74  |0..(....2...stat|
00000f60  75 73 0d 05 3c 2f f1 22  54 68 65 20 66 6f 6c 6c  |us..</."The foll|
00000f70  6f 77 69 6e 67 20 66 69  6c 65 73 20 63 6f 75 6c  |owing files coul|
00000f80  64 20 6e 6f 74 20 62 65  20 63 6f 70 69 65 64 3a  |d not be copied:|
00000f90  22 0d 05 46 19 f1 27 22  46 69 6c 65 22 3b 8a 33  |"..F..'"File";.3|
00000fa0  38 29 22 52 65 61 73 6f  6e 22 0d 05 50 12 e3 20  |8)"Reason"..P.. |
00000fb0  78 3d 31 20 b8 20 63 70  74 72 2d 31 0d 05 5a 26  |x=1 . cptr-1..Z&|
00000fc0  e7 20 65 72 72 24 28 78  29 3c 3e 22 22 20 f1 20  |. err$(x)<>"" . |
00000fd0  43 24 28 78 29 3b 8a 33  38 29 3b 65 72 72 24 28  |C$(x);.38);err$(|
00000fe0  78 29 0d 05 64 05 ed 0d  05 6e 05 e1 0d 05 78 10  |x)..d....n....x.|
00000ff0  dd f2 67 70 63 6f 70 79  28 66 24 29 0d 05 82 86  |..gpcopy(f$)....|
00001000  6c 6f 61 64 25 3d 4f 53  62 6c 6f 63 6b 21 32 3a  |load%=OSblock!2:|
00001010  65 78 65 63 25 3d 4f 53  62 6c 6f 63 6b 21 36 3a  |exec%=OSblock!6:|
00001020  6c 65 6e 67 74 68 25 3d  4f 53 62 6c 6f 63 6b 21  |length%=OSblock!|
00001030  26 41 3a 61 74 74 72 69  62 25 3d 4f 53 62 6c 6f  |&A:attrib%=OSblo|
00001040  63 6b 21 26 45 3a e7 20  28 61 74 74 72 69 62 25  |ck!&E:. (attrib%|
00001050  20 80 26 38 29 3d 38 20  84 20 28 61 74 74 72 69  | .&8)=8 . (attri|
00001060  62 25 20 80 26 32 29 3d  30 20 8c 20 61 74 74 72  |b% .&2)=0 . attr|
00001070  69 62 25 3d 26 41 20 8b  20 61 74 74 72 69 62 25  |ib%=&A . attrib%|
00001080  3d 30 0d 05 8c 22 e3 20  70 74 72 25 3d 30 20 b8  |=0...". ptr%=0 .|
00001090  20 6c 65 6e 67 74 68 25  20 88 20 28 26 37 45 30  | length% . (&7E0|
000010a0  30 2d 93 29 0d 05 96 13  f1 27 22 4c 6f 61 64 69  |0-.).....'"Loadi|
000010b0  6e 67 20 22 66 24 3b 0d  05 a0 0c 66 25 3d ad 28  |ng "f$;....f%=.(|
000010c0  66 24 29 0d 05 aa 0f 3f  4f 53 62 6c 6f 63 6b 3d  |f$)....?OSblock=|
000010d0  66 25 0d 05 b4 0f 4f 53  62 6c 6f 63 6b 21 31 3d  |f%....OSblock!1=|
000010e0  93 0d 05 be 17 4f 53 62  6c 6f 63 6b 21 35 3d 28  |.....OSblock!5=(|
000010f0  26 37 45 30 30 2d 93 29  0d 05 c8 12 4f 53 62 6c  |&7E00-.)....OSbl|
00001100  6f 63 6b 21 39 3d 70 74  72 25 0d 05 d2 2f 41 25  |ock!9=ptr%.../A%|
00001110  3d 33 3a 58 25 3d 4f 53  62 6c 6f 63 6b 20 83 32  |=3:X%=OSblock .2|
00001120  35 36 3a 59 25 3d 4f 53  62 6c 6f 63 6b 20 81 32  |56:Y%=OSblock .2|
00001130  35 36 3a d6 26 46 46 44  31 0d 05 dc 08 d9 23 66  |56:.&FFD1.....#f|
00001140  25 0d 05 e6 09 2a 46 58  32 31 0d 05 f0 3c e7 20  |%....*FX21...<. |
00001150  74 77 6f 25 20 f1 27 22  49 6e 73 65 72 74 20 74  |two% .'"Insert t|
00001160  61 72 67 65 74 20 64 69  73 63 20 61 6e 64 20 70  |arget disc and p|
00001170  72 65 73 73 20 61 6e 79  20 6b 65 79 2e 2e 2e 22  |ress any key..."|
00001180  3b 3a 7a 25 3d a5 0d 05  fa 09 2a 44 49 53 43 0d  |;:z%=.....*DISC.|
00001190  06 04 21 e7 20 70 74 72  25 3d 30 20 67 25 3d a4  |..!. ptr%=0 g%=.|
000011a0  6f 70 65 6e 6f 75 74 28  66 24 29 3a d9 23 67 25  |openout(f$):.#g%|
000011b0  0d 06 0e 16 f1 27 22 53  61 76 69 6e 67 20 22 24  |.....'"Saving "$|
000011c0  6e 61 6d 65 73 3b 0d 06  18 12 67 25 3d a4 6f 70  |names;....g%=.op|
000011d0  65 6e 75 70 28 66 24 29  0d 06 22 0f 3f 4f 53 62  |enup(f$)..".?OSb|
000011e0  6c 6f 63 6b 3d 67 25 0d  06 2c 0f 4f 53 62 6c 6f  |lock=g%..,.OSblo|
000011f0  63 6b 21 31 3d 93 0d 06  36 21 4f 53 62 6c 6f 63  |ck!1=...6!OSbloc|
00001200  6b 21 35 3d 28 26 37 45  30 30 2d 93 29 2d 4f 53  |k!5=(&7E00-.)-OS|
00001210  62 6c 6f 63 6b 21 35 0d  06 40 12 4f 53 62 6c 6f  |block!5..@.OSblo|
00001220  63 6b 21 39 3d 70 74 72  25 0d 06 4a 2f 41 25 3d  |ck!9=ptr%..J/A%=|
00001230  31 3a 58 25 3d 4f 53 62  6c 6f 63 6b 20 83 32 35  |1:X%=OSblock .25|
00001240  36 3a 59 25 3d 4f 53 62  6c 6f 63 6b 20 81 32 35  |6:Y%=OSblock .25|
00001250  36 3a d6 26 46 46 44 31  0d 06 54 08 d9 23 67 25  |6:.&FFD1..T..#g%|
00001260  0d 06 5e 09 2a 46 58 32  31 0d 06 68 53 e7 20 74  |..^.*FX21..hS. t|
00001270  77 6f 25 20 80 20 ac 28  4f 53 62 6c 6f 63 6b 21  |wo% . .(OSblock!|
00001280  39 3d 6c 65 6e 67 74 68  25 29 20 f1 27 22 49 6e  |9=length%) .'"In|
00001290  73 65 72 74 20 73 6f 75  72 63 65 20 64 69 73 63  |sert source disc|
000012a0  20 61 6e 64 20 70 72 65  73 73 20 61 6e 79 20 6b  | and press any k|
000012b0  65 79 2e 2e 2e 22 3b 3a  7a 25 3d a5 0d 06 72 20  |ey...";:z%=...r |
000012c0  e7 20 4f 53 62 6c 6f 63  6b 21 39 3c 3e 6c 65 6e  |. OSblock!9<>len|
000012d0  67 74 68 25 20 8c 20 2a  41 44 46 53 0d 06 7c 05  |gth% . *ADFS..|.|
000012e0  ed 0d 06 86 71 21 4f 53  62 6c 6f 63 6b 3d 6e 61  |....q!OSblock=na|
000012f0  6d 65 73 3a 4f 53 62 6c  6f 63 6b 21 32 3d 6c 6f  |mes:OSblock!2=lo|
00001300  61 64 25 3a 4f 53 62 6c  6f 63 6b 21 36 3d 65 78  |ad%:OSblock!6=ex|
00001310  65 63 25 3a 4f 53 62 6c  6f 63 6b 21 26 45 3d 61  |ec%:OSblock!&E=a|
00001320  74 74 72 69 62 25 3a 41  25 3d 31 3a 58 25 3d 4f  |ttrib%:A%=1:X%=O|
00001330  53 62 6c 6f 63 6b 20 83  32 35 36 3a 59 25 3d 4f  |Sblock .256:Y%=O|
00001340  53 62 6c 6f 63 6b 20 81  32 35 36 3a d6 26 46 46  |Sblock .256:.&FF|
00001350  44 44 0d 06 90 05 e1 0d  06 9a 14 dd a4 6f 70 65  |DD...........ope|
00001360  6e 6f 75 74 28 66 69 6c  65 24 29 0d 06 a4 49 6a  |nout(file$)...Ij|
00001370  25 3d a9 28 66 69 6c 65  24 29 3a f5 3a 6a 25 3d  |%=.(file$):.:j%=|
00001380  6a 25 2d 31 3a fd 20 c1  66 69 6c 65 24 2c 6a 25  |j%-1:. .file$,j%|
00001390  2c 31 29 3d 22 2e 22 3a  24 6e 61 6d 65 73 3d c0  |,1)=".":$names=.|
000013a0  c2 66 69 6c 65 24 2c a9  66 69 6c 65 24 2d 6a 25  |.file$,.file$-j%|
000013b0  29 2c 37 29 0d 06 ae 0e  3d ae 28 24 6e 61 6d 65  |),7)....=.($name|
000013c0  73 29 0d 06 b8 13 dd a4  6f 70 65 6e 75 70 28 66  |s)......openup(f|
000013d0  69 6c 65 24 29 0d 06 c2  47 6a 25 3d a9 66 69 6c  |ile$)...Gj%=.fil|
000013e0  65 24 3a f5 3a 6a 25 3d  6a 25 2d 31 3a fd 20 c1  |e$:.:j%=j%-1:. .|
000013f0  66 69 6c 65 24 2c 6a 25  2c 31 29 3d 22 2e 22 3a  |file$,j%,1)=".":|
00001400  24 6e 61 6d 65 73 3d c0  c2 66 69 6c 65 24 2c a9  |$names=..file$,.|
00001410  66 69 6c 65 24 2d 6a 25  29 2c 37 29 0d 06 cc 0e  |file$-j%),7)....|
00001420  3d ad 28 24 6e 61 6d 65  73 29 0d ff              |=.($names)..|
0000142c