�>DACopy
� DFS-ADFS Copier
� By G Boden
#elk%=((�-256)=1)
(�=((�P+&1000)�256)*256
2	�22,7
<	�init
Fy�'"Please choose source drive (0,1,2,3)":�:s$=�:� �"0123",s$):�'"Please choose target drive (0,1)":�:t$=�:� �"01",t$)
I_� (�(s$)�1)=(�(t$)�1) �'"Two disc copy? (Y/N)":�:d$=�:� �"YyNn",d$):two%=-(�"YNyn",d$) � 1)
L3�'"Insert source disc and press space":� � �-99
P	*DISC
Z�"DRIVE "+s$
x�readcat
��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
��
�5� x<cptr-1 �docopyagain(x+1,cptr-1):�dR@ � �dR@
�
��dispcat

�

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

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

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

61� Z%<(off � 8) � �13)�clr(Z%+1);name$(Z%+1);

@3� Z%<(off � 8)-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, ESCAPE begin copying";

h�

r
��readcat

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

�?OSblock=0

�OSblock!1=names

�OSblock!5=31

�OSblock!9=0

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

�Y%=OSblock �256:� &FFD1

� 

�	off=0

��

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

�"� off?names=7 �getname:�0 � �1

�!OSblock=file:A%=5

�� f%=1 � off �8
$file=name$(f%)
type%(f%)=�(&FFDD) � &FF
�
&�
0g��getname:� f%=(off+1) � (off+7):� �(f%?names)<>" " name$(1+(off �8))=name$(1+(off �8))+�(f%?names)
:�:off=off+8:�
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
�9j=0:�:j=j+1:� C$(j)=name$(z%) � j=cptr:� j<cptr =�129
�=�(135+(4*(type%(z%)=2)))
�8j=0:�:j=j+1:� C$(j)=name$(z%) � j=cptr:� j<cptr ="*"
�� type%(z%)=2 ="#" � =" "
�
��markcat
�*FX229 1
�X=11:Y=4
�
�X,Y)"<"
��
�F� �-42 � �(((Y-4)*3+(X+2)/13)>(off �8)-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)"<"
�R� �-122 � �((X=37) � (((Y-4)*3+(X+2)/13)=(off �8))) �X,Y)" ":X=X+13:�X,Y)"<"
h� �-99 � type%((Y-4)*3+(X+2)/13)=1 � C$(cptr)=name$((Y-4)*3+(X+2)/13):cptr=cptr+1:�dispcat:�X,Y)"<"
�� �-90 j=0:�:j=j+1:� C$(j)=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)
7	*FX21
9(�:�'''"Enter target directory :" td$
:4�'"Insert target disc and press any key...";:z=�
;%�"FADFS":�"MOUNT "+t$:�"DIR "+td$
<��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=�
k	*DISC
p?� �filelen(C$(x))>(&7E00-�) �gpcopy(C$(x)) � �lscopy(C$(x))
z�:�
��lscopy(f$)
�
�load(f$)
�;� two% �'"Insert target disc and press any key...";:z=�
�	*FX21
�	*ADFS
�
�save(f$)
��
���load(file$)
�$names=file$
�!OSblock=names
�OSblock!2=�
�OSblock!6=0
�'"Loading ";file$;
1A%=&FF:X%=OSblock �256:Y%=OSblock �256:�&FFDD
Cattrib%=OSblock!&E:� (attrib% � &A) � attrib%=&99 � attrib%=&33
�
$��save(file$)
.$names=file$
8OSblock!&E=�+OSblock!&A
BOSblock!&A=�
L�'"Saving ";td$;".";$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$)
�vload%=OSblock!2:exec%=OSblock!6:length%=OSblock!&A:attrib%=OSblock!&E:� (attrib% � &A) � attrib%=&99 � attrib%=&33
�"� 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%=�
�	*ADFS
!� 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% � *DISC
|�
�q!OSblock=names:OSblock!2=load%:OSblock!6=exec%:OSblock!&E=attrib%:A%=1:X%=OSblock �256:Y%=OSblock �256:�&FFDD
��
�ݤopenout(file$)
�$names=file$
�=�($names)
�ݤopenup(file$)
�$names=file$
�=�($names)
�

00000000  0d 00 0a 0c f4 3e 44 41  43 6f 70 79 0d 00 14 15  |.....>DACopy....|
00000010  f4 20 44 46 53 2d 41 44  46 53 20 43 6f 70 69 65  |. DFS-ADFS 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 23 14 65 6c 6b  25 3d 28 28 a6 2d 32 35  |n..#.elk%=((.-25|
00000040  36 29 3d 31 29 0d 00 28  1a d3 3d 28 28 b8 50 2b  |6)=1)..(..=((.P+|
00000050  26 31 30 30 30 29 81 32  35 36 29 2a 32 35 36 0d  |&1000).256)*256.|
00000060  00 32 09 ef 32 32 2c 37  0d 00 3c 09 f2 69 6e 69  |.2..22,7..<..ini|
00000070  74 0d 00 46 79 f1 27 22  50 6c 65 61 73 65 20 63  |t..Fy.'"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 2c  32 2c 33 29 22 3a f5 3a  |ve (0,1,2,3)":.:|
000000a0  73 24 3d be 3a fd 20 a7  22 30 31 32 33 22 2c 73  |s$=.:. ."0123",s|
000000b0  24 29 3a f1 27 22 50 6c  65 61 73 65 20 63 68 6f  |$):.'"Please cho|
000000c0  6f 73 65 20 74 61 72 67  65 74 20 64 72 69 76 65  |ose target drive|
000000d0  20 28 30 2c 31 29 22 3a  f5 3a 74 24 3d be 3a fd  | (0,1)":.:t$=.:.|
000000e0  20 a7 22 30 31 22 2c 74  24 29 0d 00 49 5f e7 20  | ."01",t$)..I_. |
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 4c 33 f1 27 22  |,d$) . 1)..L3.'"|
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 50 09  |ce":. . .-99..P.|
00000180  2a 44 49 53 43 0d 00 5a  10 ff 22 44 52 49 56 45  |*DISC..Z.."DRIVE|
00000190  20 22 2b 73 24 0d 00 78  0c f2 72 65 61 64 63 61  | "+s$..x..readca|
000001a0  74 0d 00 8c 0c f2 64 69  73 70 63 61 74 0d 00 96  |t.....dispcat...|
000001b0  0c f2 6d 61 72 6b 63 61  74 0d 00 a0 09 2a 46 58  |..markcat....*FX|
000001c0  32 31 0d 00 aa 28 e7 20  63 70 74 72 3d 31 20 eb  |21...(. cptr=1 .|
000001d0  37 3a f1 27 22 43 6f 70  79 69 6e 67 20 74 65 72  |7:.'"Copying ter|
000001e0  6d 69 6e 61 74 65 64 22  3a e0 0d 00 b4 12 de 20  |minated":...... |
000001f0  65 72 72 24 28 63 70 74  72 2d 31 29 0d 00 be 3c  |err$(cptr-1)...<|
00000200  ee 20 85 20 e7 20 9f 3d  32 37 20 eb 37 3a f1 27  |. . . .=27 .7:.'|
00000210  22 43 6f 70 79 69 6e 67  20 74 65 72 6d 69 6e 61  |"Copying termina|
00000220  74 65 64 22 3a e0 20 8b  20 f2 66 69 6c 65 72 72  |ted":. . .filerr|
00000230  6f 72 3a e5 8d 64 70 40  0d 00 c8 3c f2 64 6f 63  |or:..dp@...<.doc|
00000240  6f 70 79 28 31 2c 63 70  74 72 2d 31 29 3a eb 37  |opy(1,cptr-1):.7|
00000250  3a f1 27 22 41 6c 6c 20  66 69 6c 65 73 20 63 6f  |:.'"All files co|
00000260  70 69 65 64 20 73 75 63  63 65 73 73 66 75 6c 6c  |pied successfull|
00000270  79 22 3a e0 0d 00 d2 06  eb 33 0d 00 dc 0b f2 73  |y":......3.....s|
00000280  74 61 74 75 73 0d 00 e6  05 e0 0d 00 f0 35 e7 20  |tatus........5. |
00000290  78 3c 63 70 74 72 2d 31  20 f2 64 6f 63 6f 70 79  |x<cptr-1 .docopy|
000002a0  61 67 61 69 6e 28 78 2b  31 2c 63 70 74 72 2d 31  |again(x+1,cptr-1|
000002b0  29 3a e5 8d 64 52 40 20  8b 20 e5 8d 64 52 40 0d  |):..dR@ . ..dR@.|
000002c0  00 fa 0d dd f2 64 69 73  70 63 61 74 0d 01 04 05  |.....dispcat....|
000002d0  db 0d 01 0e 2c f1 8a 35  2c 31 29 bd 31 33 31 22  |....,..5,1).131"|
000002e0  46 20 69 20 6c 20 65 20  20 20 53 20 65 20 6c 20  |F i l e   S e l |
000002f0  65 20 63 20 74 20 69 20  6f 20 6e 22 27 0d 01 22  |e c t i o n"'.."|
00000300  17 e3 20 5a 25 3d 31 20  b8 20 6f 66 66 20 81 38  |.. Z%=1 . off .8|
00000310  20 88 20 33 0d 01 2c 1c  f1 27 8a 31 29 a4 63 6c  | . 3..,..'.1).cl|
00000320  72 28 5a 25 29 3b 6e 61  6d 65 24 28 5a 25 29 3b  |r(Z%);name$(Z%);|
00000330  0d 01 36 31 e7 20 5a 25  3c 28 6f 66 66 20 81 20  |..61. Z%<(off . |
00000340  38 29 20 8c 20 f1 8a 31  33 29 a4 63 6c 72 28 5a  |8) . ..13).clr(Z|
00000350  25 2b 31 29 3b 6e 61 6d  65 24 28 5a 25 2b 31 29  |%+1);name$(Z%+1)|
00000360  3b 0d 01 40 33 e7 20 5a  25 3c 28 6f 66 66 20 81  |;..@3. Z%<(off .|
00000370  20 38 29 2d 31 20 8c 20  f1 8a 32 36 29 a4 63 6c  | 8)-1 . ..26).cl|
00000380  72 28 5a 25 2b 32 29 3b  6e 61 6d 65 24 28 5a 25  |r(Z%+2);name$(Z%|
00000390  2b 32 29 3b 0d 01 4a 06  ed 20 0d 01 54 12 ef 32  |+2);..J.. ..T..2|
000003a0  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 01 5e 7d  |3,1,0;0;0;0;..^}|
000003b0  f1 8a 30 2c 32 31 29 22  20 53 65 6c 65 63 74 20  |..0,21)" Select |
000003c0  66 69 6c 65 20 77 69 74  68 20 3c 20 75 73 69 6e  |file with < usin|
000003d0  67 20 63 75 72 73 6f 72  20 6b 65 79 73 22 27 22  |g cursor keys"'"|
000003e0  20 53 50 41 43 45 42 41  52 20 6d 61 72 6b 73 20  | SPACEBAR marks |
000003f0  66 69 6c 65 20 66 6f 72  20 63 6f 70 79 69 6e 67  |file for copying|
00000400  2c 20 44 45 4c 45 54 45  20 63 6f 72 72 65 63 74  |, DELETE correct|
00000410  73 2c 20 45 53 43 41 50  45 20 62 65 67 69 6e 20  |s, ESCAPE begin |
00000420  63 6f 70 79 69 6e 67 22  3b 0d 01 68 05 e1 0d 01  |copying";..h....|
00000430  72 0d dd f2 72 65 61 64  63 61 74 0d 01 7c 1c e3  |r...readcat..|..|
00000440  49 3d 30 b8 26 46 44 20  88 20 34 3a 6e 61 6d 65  |I=0.&FD . 4:name|
00000450  73 21 49 3d 30 3a ed 0d  01 86 0e 3f 4f 53 62 6c  |s!I=0:.....?OSbl|
00000460  6f 63 6b 3d 30 0d 01 90  13 4f 53 62 6c 6f 63 6b  |ock=0....OSblock|
00000470  21 31 3d 6e 61 6d 65 73  0d 01 9a 10 4f 53 62 6c  |!1=names....OSbl|
00000480  6f 63 6b 21 35 3d 33 31  0d 01 a4 0f 4f 53 62 6c  |ock!5=31....OSbl|
00000490  6f 63 6b 21 39 3d 30 0d  01 ae 18 41 25 3d 38 3a  |ock!9=0....A%=8:|
000004a0  58 25 3d 4f 53 62 6c 6f  63 6b 20 83 32 35 36 0d  |X%=OSblock .256.|
000004b0  01 b8 1b 59 25 3d 4f 53  62 6c 6f 63 6b 20 81 32  |...Y%=OSblock .2|
000004c0  35 36 3a d6 20 26 46 46  44 31 0d 01 c2 05 20 0d  |56:. &FFD1.... .|
000004d0  01 cc 09 6f 66 66 3d 30  0d 01 d6 05 f5 0d 01 e0  |...off=0........|
000004e0  18 6e 61 6d 65 24 28 31  2b 28 6f 66 66 20 81 38  |.name$(1+(off .8|
000004f0  29 29 3d 22 22 0d 01 ea  22 e7 20 6f 66 66 3f 6e  |))=""...". off?n|
00000500  61 6d 65 73 3d 37 20 f2  67 65 74 6e 61 6d 65 3a  |ames=7 .getname:|
00000510  fd 30 20 8b 20 fd 31 0d  01 f4 16 21 4f 53 62 6c  |.0 . .1....!OSbl|
00000520  6f 63 6b 3d 66 69 6c 65  3a 41 25 3d 35 0d 01 fe  |ock=file:A%=5...|
00000530  13 e3 20 66 25 3d 31 20  b8 20 6f 66 66 20 81 38  |.. f%=1 . off .8|
00000540  0d 02 08 13 24 66 69 6c  65 3d 6e 61 6d 65 24 28  |....$file=name$(|
00000550  66 25 29 0d 02 12 1c 74  79 70 65 25 28 66 25 29  |f%)....type%(f%)|
00000560  3d ba 28 26 46 46 44 44  29 20 80 20 26 46 46 0d  |=.(&FFDD) . &FF.|
00000570  02 1c 05 ed 0d 02 26 05  e1 0d 02 30 67 dd f2 67  |......&....0g..g|
00000580  65 74 6e 61 6d 65 3a e3  20 66 25 3d 28 6f 66 66  |etname:. f%=(off|
00000590  2b 31 29 20 b8 20 28 6f  66 66 2b 37 29 3a e7 20  |+1) . (off+7):. |
000005a0  bd 28 66 25 3f 6e 61 6d  65 73 29 3c 3e 22 20 22  |.(f%?names)<>" "|
000005b0  20 6e 61 6d 65 24 28 31  2b 28 6f 66 66 20 81 38  | name$(1+(off .8|
000005c0  29 29 3d 6e 61 6d 65 24  28 31 2b 28 6f 66 66 20  |))=name$(1+(off |
000005d0  81 38 29 29 2b bd 28 66  25 3f 6e 61 6d 65 73 29  |.8))+.(f%?names)|
000005e0  0d 02 3a 11 ed 3a 6f 66  66 3d 6f 66 66 2b 38 3a  |..:..:off=off+8:|
000005f0  e1 0d 02 44 0a dd f2 69  6e 69 74 0d 02 4e 23 de  |...D...init..N#.|
00000600  20 6e 61 6d 65 73 20 26  33 30 30 2c 66 69 6c 65  | names &300,file|
00000610  20 31 30 2c 4f 53 62 6c  6f 63 6b 20 31 37 0d 02  | 10,OSblock 17..|
00000620  58 19 de 20 6e 61 6d 65  24 28 34 38 29 2c 74 79  |X.. name$(48),ty|
00000630  70 65 25 28 34 38 29 0d  02 62 0c de 20 43 24 28  |pe%(48)..b.. C$(|
00000640  33 31 29 0d 02 6c 0a 63  70 74 72 3d 31 0d 02 71  |31)..l.cptr=1..q|
00000650  0a 74 77 6f 25 3d a3 0d  02 76 05 e1 0d 02 80 0d  |.two%=...v......|
00000660  dd a4 63 6c 72 28 7a 25  29 0d 02 81 10 e7 20 65  |..clr(z%)..... e|
00000670  6c 6b 25 20 e5 8d 74 55  42 0d 02 8a 39 6a 3d 30  |lk% ..tUB...9j=0|
00000680  3a f5 3a 6a 3d 6a 2b 31  3a fd 20 43 24 28 6a 29  |:.:j=j+1:. C$(j)|
00000690  3d 6e 61 6d 65 24 28 7a  25 29 20 84 20 6a 3d 63  |=name$(z%) . j=c|
000006a0  70 74 72 3a e7 20 6a 3c  63 70 74 72 20 3d bd 31  |ptr:. j<cptr =.1|
000006b0  32 39 0d 02 94 1d 3d bd  28 31 33 35 2b 28 34 2a  |29....=.(135+(4*|
000006c0  28 74 79 70 65 25 28 7a  25 29 3d 32 29 29 29 0d  |(type%(z%)=2))).|
000006d0  02 95 38 6a 3d 30 3a f5  3a 6a 3d 6a 2b 31 3a fd  |..8j=0:.:j=j+1:.|
000006e0  20 43 24 28 6a 29 3d 6e  61 6d 65 24 28 7a 25 29  | C$(j)=name$(z%)|
000006f0  20 84 20 6a 3d 63 70 74  72 3a e7 20 6a 3c 63 70  | . j=cptr:. j<cp|
00000700  74 72 20 3d 22 2a 22 0d  02 96 1d e7 20 74 79 70  |tr ="*"..... typ|
00000710  65 25 28 7a 25 29 3d 32  20 3d 22 23 22 20 8b 20  |e%(z%)=2 ="#" . |
00000720  3d 22 20 22 0d 02 9e 0d  dd f2 6d 61 72 6b 63 61  |=" "......markca|
00000730  74 0d 02 a8 0c 2a 46 58  32 32 39 20 31 0d 02 b2  |t....*FX229 1...|
00000740  0c 58 3d 31 31 3a 59 3d  34 0d 02 bc 0d f1 8a 58  |.X=11:Y=4......X|
00000750  2c 59 29 22 3c 22 0d 02  c6 05 f5 0d 02 d0 46 e7  |,Y)"<"........F.|
00000760  20 a6 2d 34 32 20 80 20  ac 28 28 28 59 2d 34 29  | .-42 . .(((Y-4)|
00000770  2a 33 2b 28 58 2b 32 29  2f 31 33 29 3e 28 6f 66  |*3+(X+2)/13)>(of|
00000780  66 20 81 38 29 2d 33 29  f1 8a 58 2c 59 29 22 20  |f .8)-3)..X,Y)" |
00000790  22 3a 59 3d 59 2b 31 3a  f1 8a 58 2c 59 29 22 3c  |":Y=Y+1:..X,Y)"<|
000007a0  22 0d 02 da 2b e7 20 a6  2d 35 38 20 80 20 59 3c  |"...+. .-58 . Y<|
000007b0  3e 34 20 f1 8a 58 2c 59  29 22 20 22 3a 59 3d 59  |>4 ..X,Y)" ":Y=Y|
000007c0  2d 31 3a f1 8a 58 2c 59  29 22 3c 22 0d 02 e4 2d  |-1:..X,Y)"<"...-|
000007d0  e7 20 a6 2d 32 36 20 80  20 58 3c 3e 31 31 20 f1  |. .-26 . X<>11 .|
000007e0  8a 58 2c 59 29 22 20 22  3a 58 3d 58 2d 31 33 3a  |.X,Y)" ":X=X-13:|
000007f0  f1 8a 58 2c 59 29 22 3c  22 0d 02 ee 52 e7 20 a6  |..X,Y)"<"...R. .|
00000800  2d 31 32 32 20 80 20 ac  28 28 58 3d 33 37 29 20  |-122 . .((X=37) |
00000810  84 20 28 28 28 59 2d 34  29 2a 33 2b 28 58 2b 32  |. (((Y-4)*3+(X+2|
00000820  29 2f 31 33 29 3d 28 6f  66 66 20 81 38 29 29 29  |)/13)=(off .8)))|
00000830  20 f1 8a 58 2c 59 29 22  20 22 3a 58 3d 58 2b 31  | ..X,Y)" ":X=X+1|
00000840  33 3a f1 8a 58 2c 59 29  22 3c 22 0d 03 0c 68 e7  |3:..X,Y)"<"...h.|
00000850  20 a6 2d 39 39 20 80 20  74 79 70 65 25 28 28 59  | .-99 . type%((Y|
00000860  2d 34 29 2a 33 2b 28 58  2b 32 29 2f 31 33 29 3d  |-4)*3+(X+2)/13)=|
00000870  31 20 8c 20 43 24 28 63  70 74 72 29 3d 6e 61 6d  |1 . C$(cptr)=nam|
00000880  65 24 28 28 59 2d 34 29  2a 33 2b 28 58 2b 32 29  |e$((Y-4)*3+(X+2)|
00000890  2f 31 33 29 3a 63 70 74  72 3d 63 70 74 72 2b 31  |/13):cptr=cptr+1|
000008a0  3a f2 64 69 73 70 63 61  74 3a f1 8a 58 2c 59 29  |:.dispcat:..X,Y)|
000008b0  22 3c 22 0d 03 16 90 e7  20 a6 2d 39 30 20 6a 3d  |"<"..... .-90 j=|
000008c0  30 3a f5 3a 6a 3d 6a 2b  31 3a fd 20 43 24 28 6a  |0:.:j=j+1:. C$(j|
000008d0  29 3d 6e 61 6d 65 24 28  28 59 2d 34 29 2a 33 2b  |)=name$((Y-4)*3+|
000008e0  28 58 2b 32 29 2f 31 33  29 20 84 20 6a 3d 33 32  |(X+2)/13) . j=32|
000008f0  3a e7 20 6a 3c 33 32 20  e3 20 69 3d 6a 20 b8 20  |:. j<32 . i=j . |
00000900  63 70 74 72 2d 32 3a 43  24 28 69 29 3d 43 24 28  |cptr-2:C$(i)=C$(|
00000910  69 2b 31 29 3a ed 3a 43  24 28 63 70 74 72 2d 31  |i+1):.:C$(cptr-1|
00000920  29 3d 22 22 3a 63 70 74  72 3d 63 70 74 72 2d 31  |)="":cptr=cptr-1|
00000930  3a f2 64 69 73 70 63 61  74 3a f1 8a 58 2c 59 29  |:.dispcat:..X,Y)|
00000940  22 3c 22 0d 03 20 0b fd  20 a6 2d 31 31 33 0d 03  |"<".. .. .-113..|
00000950  2a 05 e1 0d 03 2b 11 dd  a4 66 69 6c 65 6c 65 6e  |*....+...filelen|
00000960  28 78 24 29 0d 03 2c 1c  24 6e 61 6d 65 73 3d 78  |(x$)..,.$names=x|
00000970  24 3a 21 4f 53 62 6c 6f  63 6b 3d 6e 61 6d 65 73  |$:!OSblock=names|
00000980  0d 03 2d 28 41 25 3d 35  3a 58 25 3d 4f 53 62 6c  |..-(A%=5:X%=OSbl|
00000990  6f 63 6b 20 83 32 35 36  3a 59 25 3d 4f 53 62 6c  |ock .256:Y%=OSbl|
000009a0  6f 63 6b 20 81 32 35 36  0d 03 2e 0a d6 26 46 46  |ock .256.....&FF|
000009b0  44 44 0d 03 2f 0f 3d 4f  53 62 6c 6f 63 6b 21 26  |DD../.=OSblock!&|
000009c0  41 0d 03 34 13 dd f2 64  6f 63 6f 70 79 28 73 66  |A..4...docopy(sf|
000009d0  2c 65 66 29 0d 03 37 09  2a 46 58 32 31 0d 03 39  |,ef)..7.*FX21..9|
000009e0  28 db 3a e8 27 27 27 22  45 6e 74 65 72 20 74 61  |(.:.'''"Enter ta|
000009f0  72 67 65 74 20 64 69 72  65 63 74 6f 72 79 20 3a  |rget directory :|
00000a00  22 20 74 64 24 0d 03 3a  34 f1 27 22 49 6e 73 65  |" td$..:4.'"Inse|
00000a10  72 74 20 74 61 72 67 65  74 20 64 69 73 63 20 61  |rt target disc a|
00000a20  6e 64 20 70 72 65 73 73  20 61 6e 79 20 6b 65 79  |nd press any key|
00000a30  2e 2e 2e 22 3b 3a 7a 3d  a5 0d 03 3b 25 ff 22 46  |...";:z=...;%."F|
00000a40  41 44 46 53 22 3a ff 22  4d 4f 55 4e 54 20 22 2b  |ADFS":."MOUNT "+|
00000a50  74 24 3a ff 22 44 49 52  20 22 2b 74 64 24 0d 03  |t$:."DIR "+td$..|
00000a60  3c 18 dd f2 64 6f 63 6f  70 79 61 67 61 69 6e 28  |<...docopyagain(|
00000a70  73 66 2c 65 66 29 0d 03  3e 15 ef 31 32 2c 32 38  |sf,ef)..>..12,28|
00000a80  2c 30 2c 32 34 2c 33 39  2c 32 34 0d 03 48 0a 2a  |,0,24,39,24..H.*|
00000a90  46 58 32 32 39 0d 03 52  0f e3 20 78 3d 73 66 20  |FX229..R.. x=sf |
00000aa0  b8 20 65 66 0d 03 57 09  2a 46 58 32 31 0d 03 5c  |. ef..W.*FX21..\|
00000ab0  43 e7 20 74 77 6f 25 20  84 20 28 78 3d 31 29 20  |C. two% . (x=1) |
00000ac0  f1 27 22 49 6e 73 65 72  74 20 73 6f 75 72 63 65  |.'"Insert source|
00000ad0  20 64 69 73 63 20 61 6e  64 20 70 72 65 73 73 20  | disc and press |
00000ae0  61 6e 79 20 6b 65 79 2e  2e 2e 22 3b 3a 7a 3d a5  |any key...";:z=.|
00000af0  0d 03 6b 09 2a 44 49 53  43 0d 03 70 3f e7 20 a4  |..k.*DISC..p?. .|
00000b00  66 69 6c 65 6c 65 6e 28  43 24 28 78 29 29 3e 28  |filelen(C$(x))>(|
00000b10  26 37 45 30 30 2d 93 29  20 f2 67 70 63 6f 70 79  |&7E00-.) .gpcopy|
00000b20  28 43 24 28 78 29 29 20  8b 20 f2 6c 73 63 6f 70  |(C$(x)) . .lscop|
00000b30  79 28 43 24 28 78 29 29  0d 03 7a 07 ed 3a e1 0d  |y(C$(x))..z..:..|
00000b40  03 7f 10 dd f2 6c 73 63  6f 70 79 28 66 24 29 0d  |.....lscopy(f$).|
00000b50  03 84 0d f2 6c 6f 61 64  28 66 24 29 0d 03 8e 3b  |....load(f$)...;|
00000b60  e7 20 74 77 6f 25 20 f1  27 22 49 6e 73 65 72 74  |. two% .'"Insert|
00000b70  20 74 61 72 67 65 74 20  64 69 73 63 20 61 6e 64  | target disc and|
00000b80  20 70 72 65 73 73 20 61  6e 79 20 6b 65 79 2e 2e  | press any key..|
00000b90  2e 22 3b 3a 7a 3d a5 0d  03 a2 09 2a 46 58 32 31  |.";:z=.....*FX21|
00000ba0  0d 03 ac 09 2a 41 44 46  53 0d 03 b6 0d f2 73 61  |....*ADFS.....sa|
00000bb0  76 65 28 66 24 29 0d 03  ca 05 e1 0d 03 d4 11 dd  |ve(f$)..........|
00000bc0  f2 6c 6f 61 64 28 66 69  6c 65 24 29 0d 03 de 10  |.load(file$)....|
00000bd0  24 6e 61 6d 65 73 3d 66  69 6c 65 24 0d 03 e8 12  |$names=file$....|
00000be0  21 4f 53 62 6c 6f 63 6b  3d 6e 61 6d 65 73 0d 03  |!OSblock=names..|
00000bf0  f2 0f 4f 53 62 6c 6f 63  6b 21 32 3d 93 0d 03 fc  |..OSblock!2=....|
00000c00  0f 4f 53 62 6c 6f 63 6b  21 36 3d 30 0d 04 06 17  |.OSblock!6=0....|
00000c10  f1 27 22 4c 6f 61 64 69  6e 67 20 22 3b 66 69 6c  |.'"Loading ";fil|
00000c20  65 24 3b 0d 04 10 31 41  25 3d 26 46 46 3a 58 25  |e$;...1A%=&FF:X%|
00000c30  3d 4f 53 62 6c 6f 63 6b  20 83 32 35 36 3a 59 25  |=OSblock .256:Y%|
00000c40  3d 4f 53 62 6c 6f 63 6b  20 81 32 35 36 3a d6 26  |=OSblock .256:.&|
00000c50  46 46 44 44 0d 04 15 43  61 74 74 72 69 62 25 3d  |FFDD...Cattrib%=|
00000c60  4f 53 62 6c 6f 63 6b 21  26 45 3a e7 20 28 61 74  |OSblock!&E:. (at|
00000c70  74 72 69 62 25 20 80 20  26 41 29 20 8c 20 61 74  |trib% . &A) . at|
00000c80  74 72 69 62 25 3d 26 39  39 20 8b 20 61 74 74 72  |trib%=&99 . attr|
00000c90  69 62 25 3d 26 33 33 0d  04 1a 05 e1 0d 04 24 11  |ib%=&33.......$.|
00000ca0  dd f2 73 61 76 65 28 66  69 6c 65 24 29 0d 04 2e  |..save(file$)...|
00000cb0  10 24 6e 61 6d 65 73 3d  66 69 6c 65 24 0d 04 38  |.$names=file$..8|
00000cc0  1b 4f 53 62 6c 6f 63 6b  21 26 45 3d 93 2b 4f 53  |.OSblock!&E=.+OS|
00000cd0  62 6c 6f 63 6b 21 26 41  0d 04 42 10 4f 53 62 6c  |block!&A..B.OSbl|
00000ce0  6f 63 6b 21 26 41 3d 93  0d 04 4c 1f f1 27 22 53  |ock!&A=...L..'"S|
00000cf0  61 76 69 6e 67 20 22 3b  74 64 24 3b 22 2e 22 3b  |aving ";td$;".";|
00000d00  24 6e 61 6d 65 73 3b 0d  04 56 30 41 25 3d 30 3a  |$names;..V0A%=0:|
00000d10  58 25 3d 4f 53 62 6c 6f  63 6b 20 83 32 35 36 3a  |X%=OSblock .256:|
00000d20  59 25 3d 4f 53 62 6c 6f  63 6b 20 81 32 35 36 3a  |Y%=OSblock .256:|
00000d30  d6 20 26 46 46 44 44 0d  04 57 3a 4f 53 62 6c 6f  |. &FFDD..W:OSblo|
00000d40  63 6b 21 26 41 3d 4f 53  62 6c 6f 63 6b 21 26 45  |ck!&A=OSblock!&E|
00000d50  2d 93 3a 4f 53 62 6c 6f  63 6b 21 26 45 3d 61 74  |-.:OSblock!&E=at|
00000d60  74 72 69 62 25 3a 41 25  3d 31 3a d6 26 46 46 44  |trib%:A%=1:.&FFD|
00000d70  44 0d 04 60 05 e1 0d 04  6a 0e dd f2 66 69 6c 65  |D..`....j...file|
00000d80  72 72 6f 72 0d 04 74 0c  ea 20 65 72 72 61 64 72  |rror..t.. erradr|
00000d90  0d 04 7e 13 65 72 72 61  64 72 3d 28 21 26 46 44  |..~.erradr=(!&FD|
00000da0  29 2b 31 0d 04 88 20 f5  3a 65 72 72 24 28 78 29  |)+1... .:err$(x)|
00000db0  3d 65 72 72 24 28 78 29  2b bd 28 3f 65 72 72 61  |=err$(x)+.(?erra|
00000dc0  64 72 29 0d 04 92 1f 65  72 72 61 64 72 3d 65 72  |dr)....erradr=er|
00000dd0  72 61 64 72 2b 31 3a fd  20 3f 65 72 72 61 64 72  |radr+1:. ?erradr|
00000de0  3d 30 0d 04 9c 05 e1 0d  04 a6 0c dd f2 73 74 61  |=0...........sta|
00000df0  74 75 73 0d 04 b0 2f f1  22 54 68 65 20 66 6f 6c  |tus.../."The fol|
00000e00  6c 6f 77 69 6e 67 20 66  69 6c 65 73 20 63 6f 75  |lowing files cou|
00000e10  6c 64 20 6e 6f 74 20 62  65 20 63 6f 70 69 65 64  |ld not be copied|
00000e20  3a 22 0d 04 ba 19 f1 27  22 46 69 6c 65 22 3b 8a  |:".....'"File";.|
00000e30  33 38 29 22 52 65 61 73  6f 6e 22 0d 04 c4 12 e3  |38)"Reason".....|
00000e40  20 78 3d 31 20 b8 20 63  70 74 72 2d 31 0d 04 ce  | x=1 . cptr-1...|
00000e50  26 e7 20 65 72 72 24 28  78 29 3c 3e 22 22 20 f1  |&. err$(x)<>"" .|
00000e60  20 43 24 28 78 29 3b 8a  33 38 29 3b 65 72 72 24  | C$(x);.38);err$|
00000e70  28 78 29 0d 04 d8 05 ed  0d 04 e2 05 e1 0d 05 78  |(x)............x|
00000e80  10 dd f2 67 70 63 6f 70  79 28 66 24 29 0d 05 82  |...gpcopy(f$)...|
00000e90  76 6c 6f 61 64 25 3d 4f  53 62 6c 6f 63 6b 21 32  |vload%=OSblock!2|
00000ea0  3a 65 78 65 63 25 3d 4f  53 62 6c 6f 63 6b 21 36  |:exec%=OSblock!6|
00000eb0  3a 6c 65 6e 67 74 68 25  3d 4f 53 62 6c 6f 63 6b  |:length%=OSblock|
00000ec0  21 26 41 3a 61 74 74 72  69 62 25 3d 4f 53 62 6c  |!&A:attrib%=OSbl|
00000ed0  6f 63 6b 21 26 45 3a e7  20 28 61 74 74 72 69 62  |ock!&E:. (attrib|
00000ee0  25 20 80 20 26 41 29 20  8c 20 61 74 74 72 69 62  |% . &A) . attrib|
00000ef0  25 3d 26 39 39 20 8b 20  61 74 74 72 69 62 25 3d  |%=&99 . attrib%=|
00000f00  26 33 33 0d 05 8c 22 e3  20 70 74 72 25 3d 30 20  |&33...". ptr%=0 |
00000f10  b8 20 6c 65 6e 67 74 68  25 20 88 20 28 26 37 45  |. length% . (&7E|
00000f20  30 30 2d 93 29 0d 05 96  13 f1 27 22 4c 6f 61 64  |00-.).....'"Load|
00000f30  69 6e 67 20 22 66 24 3b  0d 05 a0 0c 66 25 3d ad  |ing "f$;....f%=.|
00000f40  28 66 24 29 0d 05 aa 0f  3f 4f 53 62 6c 6f 63 6b  |(f$)....?OSblock|
00000f50  3d 66 25 0d 05 b4 0f 4f  53 62 6c 6f 63 6b 21 31  |=f%....OSblock!1|
00000f60  3d 93 0d 05 be 17 4f 53  62 6c 6f 63 6b 21 35 3d  |=.....OSblock!5=|
00000f70  28 26 37 45 30 30 2d 93  29 0d 05 c8 12 4f 53 62  |(&7E00-.)....OSb|
00000f80  6c 6f 63 6b 21 39 3d 70  74 72 25 0d 05 d2 2f 41  |lock!9=ptr%.../A|
00000f90  25 3d 33 3a 58 25 3d 4f  53 62 6c 6f 63 6b 20 83  |%=3:X%=OSblock .|
00000fa0  32 35 36 3a 59 25 3d 4f  53 62 6c 6f 63 6b 20 81  |256:Y%=OSblock .|
00000fb0  32 35 36 3a d6 26 46 46  44 31 0d 05 dc 08 d9 23  |256:.&FFD1.....#|
00000fc0  66 25 0d 05 e6 09 2a 46  58 32 31 0d 05 f0 3c e7  |f%....*FX21...<.|
00000fd0  20 74 77 6f 25 20 f1 27  22 49 6e 73 65 72 74 20  | two% .'"Insert |
00000fe0  74 61 72 67 65 74 20 64  69 73 63 20 61 6e 64 20  |target disc and |
00000ff0  70 72 65 73 73 20 61 6e  79 20 6b 65 79 2e 2e 2e  |press any key...|
00001000  22 3b 3a 7a 25 3d a5 0d  05 fa 09 2a 41 44 46 53  |";:z%=.....*ADFS|
00001010  0d 06 04 21 e7 20 70 74  72 25 3d 30 20 67 25 3d  |...!. ptr%=0 g%=|
00001020  a4 6f 70 65 6e 6f 75 74  28 66 24 29 3a d9 23 67  |.openout(f$):.#g|
00001030  25 0d 06 0e 16 f1 27 22  53 61 76 69 6e 67 20 22  |%.....'"Saving "|
00001040  24 6e 61 6d 65 73 3b 0d  06 18 12 67 25 3d a4 6f  |$names;....g%=.o|
00001050  70 65 6e 75 70 28 66 24  29 0d 06 22 0f 3f 4f 53  |penup(f$)..".?OS|
00001060  62 6c 6f 63 6b 3d 67 25  0d 06 2c 0f 4f 53 62 6c  |block=g%..,.OSbl|
00001070  6f 63 6b 21 31 3d 93 0d  06 36 21 4f 53 62 6c 6f  |ock!1=...6!OSblo|
00001080  63 6b 21 35 3d 28 26 37  45 30 30 2d 93 29 2d 4f  |ck!5=(&7E00-.)-O|
00001090  53 62 6c 6f 63 6b 21 35  0d 06 40 12 4f 53 62 6c  |Sblock!5..@.OSbl|
000010a0  6f 63 6b 21 39 3d 70 74  72 25 0d 06 4a 2f 41 25  |ock!9=ptr%..J/A%|
000010b0  3d 31 3a 58 25 3d 4f 53  62 6c 6f 63 6b 20 83 32  |=1:X%=OSblock .2|
000010c0  35 36 3a 59 25 3d 4f 53  62 6c 6f 63 6b 20 81 32  |56:Y%=OSblock .2|
000010d0  35 36 3a d6 26 46 46 44  31 0d 06 54 08 d9 23 67  |56:.&FFD1..T..#g|
000010e0  25 0d 06 5e 09 2a 46 58  32 31 0d 06 68 53 e7 20  |%..^.*FX21..hS. |
000010f0  74 77 6f 25 20 80 20 ac  28 4f 53 62 6c 6f 63 6b  |two% . .(OSblock|
00001100  21 39 3d 6c 65 6e 67 74  68 25 29 20 f1 27 22 49  |!9=length%) .'"I|
00001110  6e 73 65 72 74 20 73 6f  75 72 63 65 20 64 69 73  |nsert source dis|
00001120  63 20 61 6e 64 20 70 72  65 73 73 20 61 6e 79 20  |c and press any |
00001130  6b 65 79 2e 2e 2e 22 3b  3a 7a 25 3d a5 0d 06 72  |key...";:z%=...r|
00001140  20 e7 20 4f 53 62 6c 6f  63 6b 21 39 3c 3e 6c 65  | . OSblock!9<>le|
00001150  6e 67 74 68 25 20 8c 20  2a 44 49 53 43 0d 06 7c  |ngth% . *DISC..||
00001160  05 ed 0d 06 86 71 21 4f  53 62 6c 6f 63 6b 3d 6e  |.....q!OSblock=n|
00001170  61 6d 65 73 3a 4f 53 62  6c 6f 63 6b 21 32 3d 6c  |ames:OSblock!2=l|
00001180  6f 61 64 25 3a 4f 53 62  6c 6f 63 6b 21 36 3d 65  |oad%:OSblock!6=e|
00001190  78 65 63 25 3a 4f 53 62  6c 6f 63 6b 21 26 45 3d  |xec%:OSblock!&E=|
000011a0  61 74 74 72 69 62 25 3a  41 25 3d 31 3a 58 25 3d  |attrib%:A%=1:X%=|
000011b0  4f 53 62 6c 6f 63 6b 20  83 32 35 36 3a 59 25 3d  |OSblock .256:Y%=|
000011c0  4f 53 62 6c 6f 63 6b 20  81 32 35 36 3a d6 26 46  |OSblock .256:.&F|
000011d0  46 44 44 0d 06 90 05 e1  0d 06 9a 14 dd a4 6f 70  |FDD...........op|
000011e0  65 6e 6f 75 74 28 66 69  6c 65 24 29 0d 06 a4 10  |enout(file$)....|
000011f0  24 6e 61 6d 65 73 3d 66  69 6c 65 24 0d 06 ae 0e  |$names=file$....|
00001200  3d ae 28 24 6e 61 6d 65  73 29 0d 06 b8 13 dd a4  |=.($names)......|
00001210  6f 70 65 6e 75 70 28 66  69 6c 65 24 29 0d 06 c2  |openup(file$)...|
00001220  10 24 6e 61 6d 65 73 3d  66 69 6c 65 24 0d 06 cc  |.$names=file$...|
00001230  0e 3d ad 28 24 6e 61 6d  65 73 29 0d ff           |.=.($names)..|
0000123d