�>DDCopy
� DFS-DFS Copier
� By G Boden
#elk%=((�-256)=1)
(�=((�P+&1000)�256)*256
2	�22,7
<	�init
F�'"Please choose source drive (0,1,2,3)":�:s$=�:� �"0123",s$):�'"Please choose target drive (0,1,2,3)":�:t$=�:� �"0123",t$)
I_� (�(s$)�1)=(�(t$)�1) �'"Two disc copy? (Y/N)":�:d$=�:� �"YyNn",d$):two%=-(�"YNyn",d$) � 1)
M3�'"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�
<��docopyagain(sf,ef)
>�12,28,0,24,39,24
H
*FX229
R� x=sf � ef
W	*FX21
\;� two% �'"Insert source disc and press any key...";:z=�
z�"DRIVE "+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=�
��"DRIVE "+t$
�
�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$)
.$names=file$
8OSblock!&E=�+OSblock!&A
BOSblock!&A=�
L�'"Saving ";file$;
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%=�
��"DRIVE "+t$
!� 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% � �"DRIVE "+s$
|�
�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 44  43 6f 70 79 0d 00 14 14  |.....>DDCopy....|
00000010  f4 20 44 46 53 2d 44 46  53 20 43 6f 70 69 65 72  |. DFS-DFS Copier|
00000020  0d 00 1e 10 f4 20 42 79  20 47 20 42 6f 64 65 6e  |..... By G Boden|
00000030  0d 00 23 14 65 6c 6b 25  3d 28 28 a6 2d 32 35 36  |..#.elk%=((.-256|
00000040  29 3d 31 29 0d 00 28 1a  d3 3d 28 28 b8 50 2b 26  |)=1)..(..=((.P+&|
00000050  31 30 30 30 29 81 32 35  36 29 2a 32 35 36 0d 00  |1000).256)*256..|
00000060  32 09 ef 32 32 2c 37 0d  00 3c 09 f2 69 6e 69 74  |2..22,7..<..init|
00000070  0d 00 46 7f f1 27 22 50  6c 65 61 73 65 20 63 68  |..F..'"Please ch|
00000080  6f 6f 73 65 20 73 6f 75  72 63 65 20 64 72 69 76  |oose source driv|
00000090  65 20 28 30 2c 31 2c 32  2c 33 29 22 3a f5 3a 73  |e (0,1,2,3)":.:s|
000000a0  24 3d be 3a fd 20 a7 22  30 31 32 33 22 2c 73 24  |$=.:. ."0123",s$|
000000b0  29 3a f1 27 22 50 6c 65  61 73 65 20 63 68 6f 6f  |):.'"Please choo|
000000c0  73 65 20 74 61 72 67 65  74 20 64 72 69 76 65 20  |se target drive |
000000d0  28 30 2c 31 2c 32 2c 33  29 22 3a f5 3a 74 24 3d  |(0,1,2,3)":.:t$=|
000000e0  be 3a fd 20 a7 22 30 31  32 33 22 2c 74 24 29 0d  |.:. ."0123",t$).|
000000f0  00 49 5f e7 20 28 97 28  73 24 29 80 31 29 3d 28  |.I_. (.(s$).1)=(|
00000100  97 28 74 24 29 80 31 29  20 f1 27 22 54 77 6f 20  |.(t$).1) .'"Two |
00000110  64 69 73 63 20 63 6f 70  79 3f 20 28 59 2f 4e 29  |disc copy? (Y/N)|
00000120  22 3a f5 3a 64 24 3d be  3a fd 20 a7 22 59 79 4e  |":.:d$=.:. ."YyN|
00000130  6e 22 2c 64 24 29 3a 74  77 6f 25 3d 2d 28 a7 22  |n",d$):two%=-(."|
00000140  59 4e 79 6e 22 2c 64 24  29 20 80 20 31 29 0d 00  |YNyn",d$) . 1)..|
00000150  4d 33 f1 27 22 49 6e 73  65 72 74 20 73 6f 75 72  |M3.'"Insert sour|
00000160  63 65 20 64 69 73 63 20  61 6e 64 20 70 72 65 73  |ce disc and pres|
00000170  73 20 73 70 61 63 65 22  3a f5 20 fd 20 a6 2d 39  |s space":. . .-9|
00000180  39 0d 00 50 09 2a 44 49  53 43 0d 00 5a 10 ff 22  |9..P.*DISC..Z.."|
00000190  44 52 49 56 45 20 22 2b  73 24 0d 00 78 0c f2 72  |DRIVE "+s$..x..r|
000001a0  65 61 64 63 61 74 0d 00  8c 0c f2 64 69 73 70 63  |eadcat.....dispc|
000001b0  61 74 0d 00 96 0c f2 6d  61 72 6b 63 61 74 0d 00  |at.....markcat..|
000001c0  a0 09 2a 46 58 32 31 0d  00 aa 28 e7 20 63 70 74  |..*FX21...(. cpt|
000001d0  72 3d 31 20 eb 37 3a f1  27 22 43 6f 70 79 69 6e  |r=1 .7:.'"Copyin|
000001e0  67 20 74 65 72 6d 69 6e  61 74 65 64 22 3a e0 0d  |g terminated":..|
000001f0  00 b4 12 de 20 65 72 72  24 28 63 70 74 72 2d 31  |.... err$(cptr-1|
00000200  29 0d 00 be 3c ee 20 85  20 e7 20 9f 3d 32 37 20  |)...<. . . .=27 |
00000210  eb 37 3a f1 27 22 43 6f  70 79 69 6e 67 20 74 65  |.7:.'"Copying te|
00000220  72 6d 69 6e 61 74 65 64  22 3a e0 20 8b 20 f2 66  |rminated":. . .f|
00000230  69 6c 65 72 72 6f 72 3a  e5 8d 64 70 40 0d 00 c8  |ilerror:..dp@...|
00000240  3c f2 64 6f 63 6f 70 79  28 31 2c 63 70 74 72 2d  |<.docopy(1,cptr-|
00000250  31 29 3a eb 37 3a f1 27  22 41 6c 6c 20 66 69 6c  |1):.7:.'"All fil|
00000260  65 73 20 63 6f 70 69 65  64 20 73 75 63 63 65 73  |es copied succes|
00000270  73 66 75 6c 6c 79 22 3a  e0 0d 00 d2 06 eb 33 0d  |sfully":......3.|
00000280  00 dc 0b f2 73 74 61 74  75 73 0d 00 e6 05 e0 0d  |....status......|
00000290  00 f0 35 e7 20 78 3c 63  70 74 72 2d 31 20 f2 64  |..5. x<cptr-1 .d|
000002a0  6f 63 6f 70 79 61 67 61  69 6e 28 78 2b 31 2c 63  |ocopyagain(x+1,c|
000002b0  70 74 72 2d 31 29 3a e5  8d 64 52 40 20 8b 20 e5  |ptr-1):..dR@ . .|
000002c0  8d 64 52 40 0d 00 fa 0d  dd f2 64 69 73 70 63 61  |.dR@......dispca|
000002d0  74 0d 01 04 05 db 0d 01  0e 2c f1 8a 35 2c 31 29  |t........,..5,1)|
000002e0  bd 31 33 31 22 46 20 69  20 6c 20 65 20 20 20 53  |.131"F i l e   S|
000002f0  20 65 20 6c 20 65 20 63  20 74 20 69 20 6f 20 6e  | e l e c t i o n|
00000300  22 27 0d 01 22 17 e3 20  5a 25 3d 31 20 b8 20 6f  |"'..".. Z%=1 . o|
00000310  66 66 20 81 38 20 88 20  33 0d 01 2c 1c f1 27 8a  |ff .8 . 3..,..'.|
00000320  31 29 a4 63 6c 72 28 5a  25 29 3b 6e 61 6d 65 24  |1).clr(Z%);name$|
00000330  28 5a 25 29 3b 0d 01 36  31 e7 20 5a 25 3c 28 6f  |(Z%);..61. Z%<(o|
00000340  66 66 20 81 20 38 29 20  8c 20 f1 8a 31 33 29 a4  |ff . 8) . ..13).|
00000350  63 6c 72 28 5a 25 2b 31  29 3b 6e 61 6d 65 24 28  |clr(Z%+1);name$(|
00000360  5a 25 2b 31 29 3b 0d 01  40 33 e7 20 5a 25 3c 28  |Z%+1);..@3. Z%<(|
00000370  6f 66 66 20 81 20 38 29  2d 31 20 8c 20 f1 8a 32  |off . 8)-1 . ..2|
00000380  36 29 a4 63 6c 72 28 5a  25 2b 32 29 3b 6e 61 6d  |6).clr(Z%+2);nam|
00000390  65 24 28 5a 25 2b 32 29  3b 0d 01 4a 06 ed 20 0d  |e$(Z%+2);..J.. .|
000003a0  01 54 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.T..23,1,0;0;0;0|
000003b0  3b 0d 01 5e 7d f1 8a 30  2c 32 31 29 22 20 53 65  |;..^}..0,21)" Se|
000003c0  6c 65 63 74 20 66 69 6c  65 20 77 69 74 68 20 3c  |lect file with <|
000003d0  20 75 73 69 6e 67 20 63  75 72 73 6f 72 20 6b 65  | using cursor ke|
000003e0  79 73 22 27 22 20 53 50  41 43 45 42 41 52 20 6d  |ys"'" SPACEBAR m|
000003f0  61 72 6b 73 20 66 69 6c  65 20 66 6f 72 20 63 6f  |arks file for co|
00000400  70 79 69 6e 67 2c 20 44  45 4c 45 54 45 20 63 6f  |pying, DELETE co|
00000410  72 72 65 63 74 73 2c 20  45 53 43 41 50 45 20 62  |rrects, ESCAPE b|
00000420  65 67 69 6e 20 63 6f 70  79 69 6e 67 22 3b 0d 01  |egin copying";..|
00000430  68 05 e1 0d 01 72 0d dd  f2 72 65 61 64 63 61 74  |h....r...readcat|
00000440  0d 01 7c 1c e3 49 3d 30  b8 26 46 44 20 88 20 34  |..|..I=0.&FD . 4|
00000450  3a 6e 61 6d 65 73 21 49  3d 30 3a ed 0d 01 86 0e  |:names!I=0:.....|
00000460  3f 4f 53 62 6c 6f 63 6b  3d 30 0d 01 90 13 4f 53  |?OSblock=0....OS|
00000470  62 6c 6f 63 6b 21 31 3d  6e 61 6d 65 73 0d 01 9a  |block!1=names...|
00000480  10 4f 53 62 6c 6f 63 6b  21 35 3d 33 31 0d 01 a4  |.OSblock!5=31...|
00000490  0f 4f 53 62 6c 6f 63 6b  21 39 3d 30 0d 01 ae 18  |.OSblock!9=0....|
000004a0  41 25 3d 38 3a 58 25 3d  4f 53 62 6c 6f 63 6b 20  |A%=8:X%=OSblock |
000004b0  83 32 35 36 0d 01 b8 1b  59 25 3d 4f 53 62 6c 6f  |.256....Y%=OSblo|
000004c0  63 6b 20 81 32 35 36 3a  d6 20 26 46 46 44 31 0d  |ck .256:. &FFD1.|
000004d0  01 c2 05 20 0d 01 cc 09  6f 66 66 3d 30 0d 01 d6  |... ....off=0...|
000004e0  05 f5 0d 01 e0 18 6e 61  6d 65 24 28 31 2b 28 6f  |......name$(1+(o|
000004f0  66 66 20 81 38 29 29 3d  22 22 0d 01 ea 22 e7 20  |ff .8))=""...". |
00000500  6f 66 66 3f 6e 61 6d 65  73 3d 37 20 f2 67 65 74  |off?names=7 .get|
00000510  6e 61 6d 65 3a fd 30 20  8b 20 fd 31 0d 01 f4 16  |name:.0 . .1....|
00000520  21 4f 53 62 6c 6f 63 6b  3d 66 69 6c 65 3a 41 25  |!OSblock=file:A%|
00000530  3d 35 0d 01 fe 13 e3 20  66 25 3d 31 20 b8 20 6f  |=5..... f%=1 . o|
00000540  66 66 20 81 38 0d 02 08  13 24 66 69 6c 65 3d 6e  |ff .8....$file=n|
00000550  61 6d 65 24 28 66 25 29  0d 02 12 1c 74 79 70 65  |ame$(f%)....type|
00000560  25 28 66 25 29 3d ba 28  26 46 46 44 44 29 20 80  |%(f%)=.(&FFDD) .|
00000570  20 26 46 46 0d 02 1c 05  ed 0d 02 26 05 e1 0d 02  | &FF.......&....|
00000580  30 67 dd f2 67 65 74 6e  61 6d 65 3a e3 20 66 25  |0g..getname:. f%|
00000590  3d 28 6f 66 66 2b 31 29  20 b8 20 28 6f 66 66 2b  |=(off+1) . (off+|
000005a0  37 29 3a e7 20 bd 28 66  25 3f 6e 61 6d 65 73 29  |7):. .(f%?names)|
000005b0  3c 3e 22 20 22 20 6e 61  6d 65 24 28 31 2b 28 6f  |<>" " name$(1+(o|
000005c0  66 66 20 81 38 29 29 3d  6e 61 6d 65 24 28 31 2b  |ff .8))=name$(1+|
000005d0  28 6f 66 66 20 81 38 29  29 2b bd 28 66 25 3f 6e  |(off .8))+.(f%?n|
000005e0  61 6d 65 73 29 0d 02 3a  11 ed 3a 6f 66 66 3d 6f  |ames)..:..:off=o|
000005f0  66 66 2b 38 3a e1 0d 02  44 0a dd f2 69 6e 69 74  |ff+8:...D...init|
00000600  0d 02 4e 23 de 20 6e 61  6d 65 73 20 26 33 30 30  |..N#. names &300|
00000610  2c 66 69 6c 65 20 31 30  2c 4f 53 62 6c 6f 63 6b  |,file 10,OSblock|
00000620  20 31 37 0d 02 58 19 de  20 6e 61 6d 65 24 28 34  | 17..X.. name$(4|
00000630  38 29 2c 74 79 70 65 25  28 34 38 29 0d 02 62 0c  |8),type%(48)..b.|
00000640  de 20 43 24 28 33 31 29  0d 02 6c 0a 63 70 74 72  |. C$(31)..l.cptr|
00000650  3d 31 0d 02 71 0a 74 77  6f 25 3d a3 0d 02 76 05  |=1..q.two%=...v.|
00000660  e1 0d 02 80 0d dd a4 63  6c 72 28 7a 25 29 0d 02  |.......clr(z%)..|
00000670  81 10 e7 20 65 6c 6b 25  20 e5 8d 74 55 42 0d 02  |... elk% ..tUB..|
00000680  8a 39 6a 3d 30 3a f5 3a  6a 3d 6a 2b 31 3a fd 20  |.9j=0:.:j=j+1:. |
00000690  43 24 28 6a 29 3d 6e 61  6d 65 24 28 7a 25 29 20  |C$(j)=name$(z%) |
000006a0  84 20 6a 3d 63 70 74 72  3a e7 20 6a 3c 63 70 74  |. j=cptr:. j<cpt|
000006b0  72 20 3d bd 31 32 39 0d  02 94 1d 3d bd 28 31 33  |r =.129....=.(13|
000006c0  35 2b 28 34 2a 28 74 79  70 65 25 28 7a 25 29 3d  |5+(4*(type%(z%)=|
000006d0  32 29 29 29 0d 02 95 38  6a 3d 30 3a f5 3a 6a 3d  |2)))...8j=0:.:j=|
000006e0  6a 2b 31 3a fd 20 43 24  28 6a 29 3d 6e 61 6d 65  |j+1:. C$(j)=name|
000006f0  24 28 7a 25 29 20 84 20  6a 3d 63 70 74 72 3a e7  |$(z%) . j=cptr:.|
00000700  20 6a 3c 63 70 74 72 20  3d 22 2a 22 0d 02 96 1d  | j<cptr ="*"....|
00000710  e7 20 74 79 70 65 25 28  7a 25 29 3d 32 20 3d 22  |. type%(z%)=2 ="|
00000720  23 22 20 8b 20 3d 22 20  22 0d 02 9e 0d dd f2 6d  |#" . =" "......m|
00000730  61 72 6b 63 61 74 0d 02  a8 0c 2a 46 58 32 32 39  |arkcat....*FX229|
00000740  20 31 0d 02 b2 0c 58 3d  31 31 3a 59 3d 34 0d 02  | 1....X=11:Y=4..|
00000750  bc 0d f1 8a 58 2c 59 29  22 3c 22 0d 02 c6 05 f5  |....X,Y)"<".....|
00000760  0d 02 d0 46 e7 20 a6 2d  34 32 20 80 20 ac 28 28  |...F. .-42 . .((|
00000770  28 59 2d 34 29 2a 33 2b  28 58 2b 32 29 2f 31 33  |(Y-4)*3+(X+2)/13|
00000780  29 3e 28 6f 66 66 20 81  38 29 2d 33 29 f1 8a 58  |)>(off .8)-3)..X|
00000790  2c 59 29 22 20 22 3a 59  3d 59 2b 31 3a f1 8a 58  |,Y)" ":Y=Y+1:..X|
000007a0  2c 59 29 22 3c 22 0d 02  da 2b e7 20 a6 2d 35 38  |,Y)"<"...+. .-58|
000007b0  20 80 20 59 3c 3e 34 20  f1 8a 58 2c 59 29 22 20  | . Y<>4 ..X,Y)" |
000007c0  22 3a 59 3d 59 2d 31 3a  f1 8a 58 2c 59 29 22 3c  |":Y=Y-1:..X,Y)"<|
000007d0  22 0d 02 e4 2d e7 20 a6  2d 32 36 20 80 20 58 3c  |"...-. .-26 . X<|
000007e0  3e 31 31 20 f1 8a 58 2c  59 29 22 20 22 3a 58 3d  |>11 ..X,Y)" ":X=|
000007f0  58 2d 31 33 3a f1 8a 58  2c 59 29 22 3c 22 0d 02  |X-13:..X,Y)"<"..|
00000800  ee 52 e7 20 a6 2d 31 32  32 20 80 20 ac 28 28 58  |.R. .-122 . .((X|
00000810  3d 33 37 29 20 84 20 28  28 28 59 2d 34 29 2a 33  |=37) . (((Y-4)*3|
00000820  2b 28 58 2b 32 29 2f 31  33 29 3d 28 6f 66 66 20  |+(X+2)/13)=(off |
00000830  81 38 29 29 29 20 f1 8a  58 2c 59 29 22 20 22 3a  |.8))) ..X,Y)" ":|
00000840  58 3d 58 2b 31 33 3a f1  8a 58 2c 59 29 22 3c 22  |X=X+13:..X,Y)"<"|
00000850  0d 03 0c 68 e7 20 a6 2d  39 39 20 80 20 74 79 70  |...h. .-99 . typ|
00000860  65 25 28 28 59 2d 34 29  2a 33 2b 28 58 2b 32 29  |e%((Y-4)*3+(X+2)|
00000870  2f 31 33 29 3d 31 20 8c  20 43 24 28 63 70 74 72  |/13)=1 . C$(cptr|
00000880  29 3d 6e 61 6d 65 24 28  28 59 2d 34 29 2a 33 2b  |)=name$((Y-4)*3+|
00000890  28 58 2b 32 29 2f 31 33  29 3a 63 70 74 72 3d 63  |(X+2)/13):cptr=c|
000008a0  70 74 72 2b 31 3a f2 64  69 73 70 63 61 74 3a f1  |ptr+1:.dispcat:.|
000008b0  8a 58 2c 59 29 22 3c 22  0d 03 16 90 e7 20 a6 2d  |.X,Y)"<"..... .-|
000008c0  39 30 20 6a 3d 30 3a f5  3a 6a 3d 6a 2b 31 3a fd  |90 j=0:.:j=j+1:.|
000008d0  20 43 24 28 6a 29 3d 6e  61 6d 65 24 28 28 59 2d  | C$(j)=name$((Y-|
000008e0  34 29 2a 33 2b 28 58 2b  32 29 2f 31 33 29 20 84  |4)*3+(X+2)/13) .|
000008f0  20 6a 3d 33 32 3a e7 20  6a 3c 33 32 20 e3 20 69  | j=32:. j<32 . i|
00000900  3d 6a 20 b8 20 63 70 74  72 2d 32 3a 43 24 28 69  |=j . cptr-2:C$(i|
00000910  29 3d 43 24 28 69 2b 31  29 3a ed 3a 43 24 28 63  |)=C$(i+1):.:C$(c|
00000920  70 74 72 2d 31 29 3d 22  22 3a 63 70 74 72 3d 63  |ptr-1)="":cptr=c|
00000930  70 74 72 2d 31 3a f2 64  69 73 70 63 61 74 3a f1  |ptr-1:.dispcat:.|
00000940  8a 58 2c 59 29 22 3c 22  0d 03 20 0b fd 20 a6 2d  |.X,Y)"<".. .. .-|
00000950  31 31 33 0d 03 2a 05 e1  0d 03 2b 11 dd a4 66 69  |113..*....+...fi|
00000960  6c 65 6c 65 6e 28 78 24  29 0d 03 2c 1c 24 6e 61  |lelen(x$)..,.$na|
00000970  6d 65 73 3d 78 24 3a 21  4f 53 62 6c 6f 63 6b 3d  |mes=x$:!OSblock=|
00000980  6e 61 6d 65 73 0d 03 2d  28 41 25 3d 35 3a 58 25  |names..-(A%=5:X%|
00000990  3d 4f 53 62 6c 6f 63 6b  20 83 32 35 36 3a 59 25  |=OSblock .256:Y%|
000009a0  3d 4f 53 62 6c 6f 63 6b  20 81 32 35 36 0d 03 2e  |=OSblock .256...|
000009b0  0a d6 26 46 46 44 44 0d  03 2f 0f 3d 4f 53 62 6c  |..&FFDD../.=OSbl|
000009c0  6f 63 6b 21 26 41 0d 03  34 13 dd f2 64 6f 63 6f  |ock!&A..4...doco|
000009d0  70 79 28 73 66 2c 65 66  29 0d 03 37 09 2a 46 58  |py(sf,ef)..7.*FX|
000009e0  32 31 0d 03 39 05 db 0d  03 3c 18 dd f2 64 6f 63  |21..9....<...doc|
000009f0  6f 70 79 61 67 61 69 6e  28 73 66 2c 65 66 29 0d  |opyagain(sf,ef).|
00000a00  03 3e 15 ef 31 32 2c 32  38 2c 30 2c 32 34 2c 33  |.>..12,28,0,24,3|
00000a10  39 2c 32 34 0d 03 48 0a  2a 46 58 32 32 39 0d 03  |9,24..H.*FX229..|
00000a20  52 0f e3 20 78 3d 73 66  20 b8 20 65 66 0d 03 57  |R.. x=sf . ef..W|
00000a30  09 2a 46 58 32 31 0d 03  5c 3b e7 20 74 77 6f 25  |.*FX21..\;. two%|
00000a40  20 f1 27 22 49 6e 73 65  72 74 20 73 6f 75 72 63  | .'"Insert sourc|
00000a50  65 20 64 69 73 63 20 61  6e 64 20 70 72 65 73 73  |e disc and press|
00000a60  20 61 6e 79 20 6b 65 79  2e 2e 2e 22 3b 3a 7a 3d  | any key...";:z=|
00000a70  a5 0d 03 7a 10 ff 22 44  52 49 56 45 20 22 2b 73  |...z.."DRIVE "+s|
00000a80  24 0d 03 7f 3d e7 20 a4  66 69 6c 65 6c 65 6e 28  |$...=. .filelen(|
00000a90  43 24 28 78 29 29 3e 28  26 37 45 30 30 2d 93 29  |C$(x))>(&7E00-.)|
00000aa0  8c f2 67 70 63 6f 70 79  28 43 24 28 78 29 29 8b  |..gpcopy(C$(x)).|
00000ab0  f2 6c 73 63 6f 70 79 28  43 24 28 78 29 29 0d 03  |.lscopy(C$(x))..|
00000ac0  80 07 ed 3a e1 0d 03 81  10 dd f2 6c 73 63 6f 70  |...:.......lscop|
00000ad0  79 28 66 24 29 0d 03 84  0d f2 6c 6f 61 64 28 66  |y(f$).....load(f|
00000ae0  24 29 0d 03 89 09 2a 46  58 32 31 0d 03 8e 3b e7  |$)....*FX21...;.|
00000af0  20 74 77 6f 25 20 f1 27  22 49 6e 73 65 72 74 20  | two% .'"Insert |
00000b00  74 61 72 67 65 74 20 64  69 73 63 20 61 6e 64 20  |target disc and |
00000b10  70 72 65 73 73 20 61 6e  79 20 6b 65 79 2e 2e 2e  |press any key...|
00000b20  22 3b 3a 7a 3d a5 0d 03  ac 10 ff 22 44 52 49 56  |";:z=......"DRIV|
00000b30  45 20 22 2b 74 24 0d 03  b6 0d f2 73 61 76 65 28  |E "+t$.....save(|
00000b40  66 24 29 0d 03 ca 05 e1  0d 03 d4 11 dd f2 6c 6f  |f$)...........lo|
00000b50  61 64 28 66 69 6c 65 24  29 0d 03 de 10 24 6e 61  |ad(file$)....$na|
00000b60  6d 65 73 3d 66 69 6c 65  24 0d 03 e8 12 21 4f 53  |mes=file$....!OS|
00000b70  62 6c 6f 63 6b 3d 6e 61  6d 65 73 0d 03 f2 0f 4f  |block=names....O|
00000b80  53 62 6c 6f 63 6b 21 32  3d 93 0d 03 fc 0f 4f 53  |Sblock!2=.....OS|
00000b90  62 6c 6f 63 6b 21 36 3d  30 0d 04 06 17 f1 27 22  |block!6=0.....'"|
00000ba0  4c 6f 61 64 69 6e 67 20  22 3b 66 69 6c 65 24 3b  |Loading ";file$;|
00000bb0  0d 04 10 31 41 25 3d 26  46 46 3a 58 25 3d 4f 53  |...1A%=&FF:X%=OS|
00000bc0  62 6c 6f 63 6b 20 83 32  35 36 3a 59 25 3d 4f 53  |block .256:Y%=OS|
00000bd0  62 6c 6f 63 6b 20 81 32  35 36 3a d6 26 46 46 44  |block .256:.&FFD|
00000be0  44 0d 04 15 16 61 74 74  72 69 62 25 3d 4f 53 62  |D....attrib%=OSb|
00000bf0  6c 6f 63 6b 21 26 45 0d  04 1a 05 e1 0d 04 24 11  |lock!&E.......$.|
00000c00  dd f2 73 61 76 65 28 66  69 6c 65 24 29 0d 04 2e  |..save(file$)...|
00000c10  10 24 6e 61 6d 65 73 3d  66 69 6c 65 24 0d 04 38  |.$names=file$..8|
00000c20  1b 4f 53 62 6c 6f 63 6b  21 26 45 3d 93 2b 4f 53  |.OSblock!&E=.+OS|
00000c30  62 6c 6f 63 6b 21 26 41  0d 04 42 10 4f 53 62 6c  |block!&A..B.OSbl|
00000c40  6f 63 6b 21 26 41 3d 93  0d 04 4c 16 f1 27 22 53  |ock!&A=...L..'"S|
00000c50  61 76 69 6e 67 20 22 3b  66 69 6c 65 24 3b 0d 04  |aving ";file$;..|
00000c60  56 30 41 25 3d 30 3a 58  25 3d 4f 53 62 6c 6f 63  |V0A%=0:X%=OSbloc|
00000c70  6b 20 83 32 35 36 3a 59  25 3d 4f 53 62 6c 6f 63  |k .256:Y%=OSbloc|
00000c80  6b 20 81 32 35 36 3a d6  20 26 46 46 44 44 0d 04  |k .256:. &FFDD..|
00000c90  57 3a 4f 53 62 6c 6f 63  6b 21 26 41 3d 4f 53 62  |W:OSblock!&A=OSb|
00000ca0  6c 6f 63 6b 21 26 45 2d  93 3a 4f 53 62 6c 6f 63  |lock!&E-.:OSbloc|
00000cb0  6b 21 26 45 3d 61 74 74  72 69 62 25 3a 41 25 3d  |k!&E=attrib%:A%=|
00000cc0  31 3a d6 26 46 46 44 44  0d 04 60 05 e1 0d 04 6a  |1:.&FFDD..`....j|
00000cd0  0e dd f2 66 69 6c 65 72  72 6f 72 0d 04 74 0c ea  |...filerror..t..|
00000ce0  20 65 72 72 61 64 72 0d  04 7e 13 65 72 72 61 64  | erradr..~.errad|
00000cf0  72 3d 28 21 26 46 44 29  2b 31 0d 04 88 20 f5 3a  |r=(!&FD)+1... .:|
00000d00  65 72 72 24 28 78 29 3d  65 72 72 24 28 78 29 2b  |err$(x)=err$(x)+|
00000d10  bd 28 3f 65 72 72 61 64  72 29 0d 04 92 1f 65 72  |.(?erradr)....er|
00000d20  72 61 64 72 3d 65 72 72  61 64 72 2b 31 3a fd 20  |radr=erradr+1:. |
00000d30  3f 65 72 72 61 64 72 3d  30 0d 04 9c 05 e1 0d 04  |?erradr=0.......|
00000d40  a6 0c dd f2 73 74 61 74  75 73 0d 04 b0 2f f1 22  |....status.../."|
00000d50  54 68 65 20 66 6f 6c 6c  6f 77 69 6e 67 20 66 69  |The following fi|
00000d60  6c 65 73 20 63 6f 75 6c  64 20 6e 6f 74 20 62 65  |les could not be|
00000d70  20 63 6f 70 69 65 64 3a  22 0d 04 ba 19 f1 27 22  | copied:".....'"|
00000d80  46 69 6c 65 22 3b 8a 33  38 29 22 52 65 61 73 6f  |File";.38)"Reaso|
00000d90  6e 22 0d 04 c4 12 e3 20  78 3d 31 20 b8 20 63 70  |n"..... x=1 . cp|
00000da0  74 72 2d 31 0d 04 ce 26  e7 20 65 72 72 24 28 78  |tr-1...&. err$(x|
00000db0  29 3c 3e 22 22 20 f1 20  43 24 28 78 29 3b 8a 33  |)<>"" . C$(x);.3|
00000dc0  38 29 3b 65 72 72 24 28  78 29 0d 04 d8 05 ed 0d  |8);err$(x)......|
00000dd0  04 e2 05 e1 0d 05 78 10  dd f2 67 70 63 6f 70 79  |......x...gpcopy|
00000de0  28 66 24 29 0d 05 82 49  6c 6f 61 64 25 3d 4f 53  |(f$)...Iload%=OS|
00000df0  62 6c 6f 63 6b 21 32 3a  65 78 65 63 25 3d 4f 53  |block!2:exec%=OS|
00000e00  62 6c 6f 63 6b 21 36 3a  6c 65 6e 67 74 68 25 3d  |block!6:length%=|
00000e10  4f 53 62 6c 6f 63 6b 21  26 41 3a 61 74 74 72 69  |OSblock!&A:attri|
00000e20  62 25 3d 4f 53 62 6c 6f  63 6b 21 26 45 0d 05 8c  |b%=OSblock!&E...|
00000e30  22 e3 20 70 74 72 25 3d  30 20 b8 20 6c 65 6e 67  |". ptr%=0 . leng|
00000e40  74 68 25 20 88 20 28 26  37 45 30 30 2d 93 29 0d  |th% . (&7E00-.).|
00000e50  05 96 13 f1 27 22 4c 6f  61 64 69 6e 67 20 22 66  |....'"Loading "f|
00000e60  24 3b 0d 05 a0 0c 66 25  3d ad 28 66 24 29 0d 05  |$;....f%=.(f$)..|
00000e70  aa 0f 3f 4f 53 62 6c 6f  63 6b 3d 66 25 0d 05 b4  |..?OSblock=f%...|
00000e80  0f 4f 53 62 6c 6f 63 6b  21 31 3d 93 0d 05 be 17  |.OSblock!1=.....|
00000e90  4f 53 62 6c 6f 63 6b 21  35 3d 28 26 37 45 30 30  |OSblock!5=(&7E00|
00000ea0  2d 93 29 0d 05 c8 12 4f  53 62 6c 6f 63 6b 21 39  |-.)....OSblock!9|
00000eb0  3d 70 74 72 25 0d 05 d2  2f 41 25 3d 33 3a 58 25  |=ptr%.../A%=3:X%|
00000ec0  3d 4f 53 62 6c 6f 63 6b  20 83 32 35 36 3a 59 25  |=OSblock .256:Y%|
00000ed0  3d 4f 53 62 6c 6f 63 6b  20 81 32 35 36 3a d6 26  |=OSblock .256:.&|
00000ee0  46 46 44 31 0d 05 dc 08  d9 23 66 25 0d 05 e6 09  |FFD1.....#f%....|
00000ef0  2a 46 58 32 31 0d 05 f0  3c e7 20 74 77 6f 25 20  |*FX21...<. two% |
00000f00  f1 27 22 49 6e 73 65 72  74 20 74 61 72 67 65 74  |.'"Insert target|
00000f10  20 64 69 73 63 20 61 6e  64 20 70 72 65 73 73 20  | disc and press |
00000f20  61 6e 79 20 6b 65 79 2e  2e 2e 22 3b 3a 7a 25 3d  |any key...";:z%=|
00000f30  a5 0d 05 fa 10 ff 22 44  52 49 56 45 20 22 2b 74  |......"DRIVE "+t|
00000f40  24 0d 06 04 21 e7 20 70  74 72 25 3d 30 20 67 25  |$...!. ptr%=0 g%|
00000f50  3d a4 6f 70 65 6e 6f 75  74 28 66 24 29 3a d9 23  |=.openout(f$):.#|
00000f60  67 25 0d 06 0e 16 f1 27  22 53 61 76 69 6e 67 20  |g%.....'"Saving |
00000f70  22 24 6e 61 6d 65 73 3b  0d 06 18 12 67 25 3d a4  |"$names;....g%=.|
00000f80  6f 70 65 6e 75 70 28 66  24 29 0d 06 22 0f 3f 4f  |openup(f$)..".?O|
00000f90  53 62 6c 6f 63 6b 3d 67  25 0d 06 2c 0f 4f 53 62  |Sblock=g%..,.OSb|
00000fa0  6c 6f 63 6b 21 31 3d 93  0d 06 36 21 4f 53 62 6c  |lock!1=...6!OSbl|
00000fb0  6f 63 6b 21 35 3d 28 26  37 45 30 30 2d 93 29 2d  |ock!5=(&7E00-.)-|
00000fc0  4f 53 62 6c 6f 63 6b 21  35 0d 06 40 12 4f 53 62  |OSblock!5..@.OSb|
00000fd0  6c 6f 63 6b 21 39 3d 70  74 72 25 0d 06 4a 2f 41  |lock!9=ptr%..J/A|
00000fe0  25 3d 31 3a 58 25 3d 4f  53 62 6c 6f 63 6b 20 83  |%=1:X%=OSblock .|
00000ff0  32 35 36 3a 59 25 3d 4f  53 62 6c 6f 63 6b 20 81  |256:Y%=OSblock .|
00001000  32 35 36 3a d6 26 46 46  44 31 0d 06 54 08 d9 23  |256:.&FFD1..T..#|
00001010  67 25 0d 06 5e 09 2a 46  58 32 31 0d 06 68 53 e7  |g%..^.*FX21..hS.|
00001020  20 74 77 6f 25 20 80 20  ac 28 4f 53 62 6c 6f 63  | two% . .(OSbloc|
00001030  6b 21 39 3d 6c 65 6e 67  74 68 25 29 20 f1 27 22  |k!9=length%) .'"|
00001040  49 6e 73 65 72 74 20 73  6f 75 72 63 65 20 64 69  |Insert source di|
00001050  73 63 20 61 6e 64 20 70  72 65 73 73 20 61 6e 79  |sc and press any|
00001060  20 6b 65 79 2e 2e 2e 22  3b 3a 7a 25 3d a5 0d 06  | key...";:z%=...|
00001070  72 27 e7 20 4f 53 62 6c  6f 63 6b 21 39 3c 3e 6c  |r'. OSblock!9<>l|
00001080  65 6e 67 74 68 25 20 8c  20 ff 22 44 52 49 56 45  |ength% . ."DRIVE|
00001090  20 22 2b 73 24 0d 06 7c  05 ed 0d 06 86 71 21 4f  | "+s$..|.....q!O|
000010a0  53 62 6c 6f 63 6b 3d 6e  61 6d 65 73 3a 4f 53 62  |Sblock=names:OSb|
000010b0  6c 6f 63 6b 21 32 3d 6c  6f 61 64 25 3a 4f 53 62  |lock!2=load%:OSb|
000010c0  6c 6f 63 6b 21 36 3d 65  78 65 63 25 3a 4f 53 62  |lock!6=exec%:OSb|
000010d0  6c 6f 63 6b 21 26 45 3d  61 74 74 72 69 62 25 3a  |lock!&E=attrib%:|
000010e0  41 25 3d 31 3a 58 25 3d  4f 53 62 6c 6f 63 6b 20  |A%=1:X%=OSblock |
000010f0  83 32 35 36 3a 59 25 3d  4f 53 62 6c 6f 63 6b 20  |.256:Y%=OSblock |
00001100  81 32 35 36 3a d6 26 46  46 44 44 0d 06 90 05 e1  |.256:.&FFDD.....|
00001110  0d 06 9a 14 dd a4 6f 70  65 6e 6f 75 74 28 66 69  |......openout(fi|
00001120  6c 65 24 29 0d 06 a4 10  24 6e 61 6d 65 73 3d 66  |le$)....$names=f|
00001130  69 6c 65 24 0d 06 ae 0e  3d ae 28 24 6e 61 6d 65  |ile$....=.($name|
00001140  73 29 0d 06 b8 13 dd a4  6f 70 65 6e 75 70 28 66  |s)......openup(f|
00001150  69 6c 65 24 29 0d 06 c2  10 24 6e 61 6d 65 73 3d  |ile$)....$names=|
00001160  66 69 6c 65 24 0d 06 cc  0e 3d ad 28 24 6e 61 6d  |file$....=.($nam|
00001170  65 73 29 0d ff                                    |es)..|
00001175