� > InstallNET
:
H� 0                                          :� <<< MAIN PROGRAM >>>
(� copyarea &4B000
2�copyright
<net%=�net_or_HardDisc
F�initialise
P�front_page
Z�library
d�resources
n
�users
x�end
��
�:
�C� �copyright                                 :� <<< MODULES >>>
�1� Archimedes application installation program
�� Henry Howarth, July 1988
�,� Copyright Acorn Computers Limited 1988
��
�:
�� �net_or_HardDisc
�� buffer 255
�<ș "XOS_ReadVarVal", "HD$Install", buffer, -1 � r0,r1,r2
�)� r2=0 � �cli("set HD$Install FALSE")
�@ș "OS_ReadVarVal", "HD$Install", buffer, 255-1,0 � r0,r1,r2

buffer?r2=&0D

Ȏ $buffer �

� "FALSE":net%=�

"� "TRUE" :net%=�

,3: � '"HD$Install has incorrect value!"':�abort

6�

@/ș "OS_SetVarVal", "HD$Install", buffer, -1

J
= net%

T:

^� �initialise

h� application$

r� S$,D_NET$,D_HD$

|
Ȏ net% �

�.� 0  :D$ = D_HD$  :medium$ = " hard disc "

�+� -1 :D$ = D_NET$ :medium$ = " Econet "

��

��

�:

�� �front_page

��

��

�� ''

�(� "Archimedes software installation"

�+� "________________________________"'''

�:

�� "Version 1.00"'
� "25 July 1988"'
� "For " + application$''
J� "Installs application on" + medium$ + "from floppy disc supplied."''
&L� "You are advised to read the further information provided before    "'
0&� "installing this application:"''
:+� " * press ESC to leave the program "'
D4� " * press SPACE BAR for further information "'
N3� " * press RETURN to install " + application$'
X:
b�
l*FX 15,1
vg=�:� (g=13 � g=32)
�!� g=32 � �further_information
�
� g=13
��
��
�:
�5� �library  :�block("COPYING LIBRARY OBJECTS") :�
�5� �resources:�block("COPYING RESOURCE OBJECTS"):�
�:
�� �users
��read_user_objects
�� '"COPYING USER OBJECTS"'
�� Spath$
�� user$
9ȕ (user$ <> "end" � user$ <> "END" � user$ <> "End")
Dpath$ = user$
	�path
 � I%=1 � obj%
*'flag% = flag%(I%):name$ = name$(I%)
43� net% � acc$ = NETacc$(I%) � acc$ = HDacc$(I%)
>�object(flag%,name$,acc$)
H� I%
R� user$
\�
f�
p:
z*� �end:� '"Installation completed."':�
�:
�� �further_information
�:
��
��
�� "Further Information"
�� "___________________"
��
��
�O� "The installation program, as supplied, assumes the default set up for "'
�O� "a hard disc (HD) or network (NET), as illustrated in the              "'
�O� "'Installation' section of the user manual.                            "'
��
O� "In particular, the program assumes the names '$.Library' and          "'
O� "'$.Arthurlib' (HD  and NET respectively) for the library, and is set  "'
O� "to install a single (default) user.                                   "'
$�
.O� "You may wish to install the applications differently, and you can use "'
8O� "this program for this purpose. It is written in BASIC, and you will   "'
BO� "need to be able to load, edit and save a BASIC program (covered in the"'
LO� "User Guide).                                                          "'
V�
`�space_bar
j�
t�
~O� "The name of this program is 'installNET'; the program 'installHD' only"'
�O� "sets a flag to indicate HD installation before running 'installNET'.  "'
��
�O� "Multiple users:                                                       "'
��
�O� "If you want to install the application for a number of users on the   "'
�O� "network (or a number of directories on a hard disc), you need to alter"'
�O� "the final line of the program.                                        "'
��
�O� "This is a DATA statement consisting of a list of user names terminated"'
�O� "by 'end'.                                                             "'
��
�O� "As supplied, there may only be a single user, (and if a null string,  "'
O� "two double-quotes, this indicates the user is installed in the root   "'

O� "directory, $).                                                        "'
�
�space_bar
(�
2�
<O� "To install the application for users Rachel, Tim and Sue, for example,"'
FO� "you need to edit this last line so that it now reads:                 "'
P�
ZO� "     DATA Rachel, Tim, Sue, end                                       "'
d�
nO� "Now when you run the program, logged on to the network with system    "'
xO� "status, the directories $.Rachel, $.Tim and $.Sue will be created (if "'
�O� "necessary) and the user files installed there.                        "'
��
�O� "N.B. the program will only cope with user names nested two deep :-    "'
�O� "i.e. 'Jim' and 'Class4.Jim' are acceptable, but not 'Art.Class4.Jim'  "'
��
�O� "Consult the user manual for further information required to enable    "'
�O� "Rachel, Tim and Sue to log on and run the application.                "'
��
��space_bar
��
��
�O� "Library names:                                                        "'
��
O� "To alter the name of the library used for installation, you need to   "'
O� "edit another line of data.                                            "'
�
"O� "All the data for the program is at the end of the listing, and is     "'
,O� "arranged in blocks.                                                   "'
6�
@O� "The start of the data is indicated by ':REM <<< DATA >>>', and the    "'
JO� "block you require is the third in order, called 'REM LIBRARY'.        "'
T�
^�space_bar
h�
r�
|O� "As indicated by the REMark above it, the first DATA statement provides"'
�O� "the directory names of the library on the source floppy, the network  "'
�O� "and the hard disc, and will probably read:                            "'
��
�O� "    DATA Library, Arthurlib, Library                                  "'
��
�O� "If, for example, the name of the library on your network is '$.Utils' "'
�O� "then you will need to edit this line so that it now reads:            "'
��
�O� "    DATA Library, Utils, Library                                      "'
��
��space_bar
�� net% � �net_info
��
:
� �net_info
�
&� "Network Installation"
0� "____________________"
:�
D�
NN� "Site licence:                                                        "'
X�
bN� "You need a site licence to install and run this application on an    "'
lN� "Econet network.                                                      "'
v�
�N� "Econet module updates:                                               "'
��
�N� "If you have Arthur 1.2, you are advised to use the Archimedes Econet "'
�N� "software module updates; contact your LEA advisor or Acorn dealer for"'
�N� "further information.                                                 "'
��
��space_bar
��
�:
�� �block(block$)
�� 'block$'
�� Spath$, NETpath$, HDpath$
�1� net% � Dpath$ = NETpath$ � Dpath$ = HDpath$
	�path
 � flag%,name$,NETacc$,HDacc$
ȕ flag%<>0
 +� net% � acc$ = NETacc$ � acc$ = HDacc$
*�object(flag%,name$,acc$)
4 � flag%,name$,NETacc$,HDacc$
>�
H�
R:
\� �read_user_objects
f
� obj%
p8� flag%(obj%),name$(obj%),NETacc$(obj%),HDacc$(obj%)
z� I%=1 � obj%
�0� flag%(I%),name$(I%),NETacc$(I%),HDacc$(I%)
�� I%
��
�:
�� �path
�)temp$ = Dpath$:double% = �Dpath$,".")
�=� double% � Dpath$ = �Dpath$,double%-1):�object(2,"","L")
�.Dpath$ = temp$:�object(2,"","L"):double%=0
��
�:
�� �object(flag%,name$,acc$)
��set_object_variables
��check_source
	&� dest$ <> D$ � �write_destination
	�
	:
	$� �set_object_variables
	.-source$ = �object_name(S$, Spath$, name$)
	8-dest$   = �object_name(D$, Dpath$, name$)
	BȎ flag% �
	L2� 1: object$ = "file":mis_match$ = "directory"
	V3� 2: object$ = "directory":mis_match$  = "file"
	`�
	j�
	t:
	~� �check_source
	�3case0$ = object$ + " " + source$ + " not found"
	�Jcase1$ = source$ + " should be a " + object$ + ", not a " + mis_match$
	�2case2$ = object$ + �10-�object$," ") + source$
	�$source%=�osfile_5(source$,flag%)
	�Ȏ source% �
	�;� 0:� "Omission on release disc! - "'' + case0$':�abort
	�;� 1:� "Mismatch on release disc! - "'' + case1$':�abort
	�?� 2:� case2$ (correct type of object found on release disc)
	��
	��
	�:
	�� �write_destination
"dest% = �osfile_5(dest$,flag%)

"� flag%=1 � �file � �directory
(�cli("ACCESS " + dest$ + " " + acc$)
� PROCpress_key
(�
2:
<� �file
FȎ dest% �
P� 0:�copy_file
Z4� 1:� �overwrite � �wipe_dir:�copy_file � �abort
d4� 2:� �overwrite � �del_file:�copy_file � �abort
n�
x�
�:
�� �directory
�Ȏ dest% �
�
� 0:�cdir
�/� 1:� �overwrite � �del_file:�cdir � �abort
�2� 2:� "directory " + dest$ + " already exists"
��
��
�:
�� �overwrite
�� type$
�Ȏ dest% �
�� 1:type$ = mis_match$
� 2:type$ = object$
�
=� '"Warning!  " + dest$ + " already exists as a " + type$
"� '"Overwrite?(Y/N) ";
, � G$, yes%, no%:yes%=�:no%=�
6�
@*FX 15,1
JG$=�
T0yes%=(G$="Y" � G$="y"):no%=(G$="N" � G$="n")
^� (yes% � no%)
h	� G$'
r
= yes%
|:
�� �osfile_5(obj$,flag%)
�� type%,return%
�type%=0:return%=0
�ș "OS_File",5,obj$ � type%
�?� type% = 0 � return% = 0                      :� Not found
�D� (type% > 0 � type% <> flag%) � return% = 1 :� Object mis-match
�@� (type% > 0 � type% = flag%) � return% = 2  :� Object match
�
= return%
�:
�� �object_name(a$,b$,c$)
�#� b$ <> "" � a$ = a$ + "." + b$
�#� c$ <> "" � a$ = a$ + "." + c$
�= a$
:
7� �copy_file:� copy_opt$:copy_opt$="~C~D~F~P~Q~R~V"
"� type,load,exec,length,how%,X
&7X=�(source$):length=�#X:�#X:how%=(length <= &4B000)
0
Ȏ how% �
:@� 0 :�cli("COPY " + source$ + " " + dest$ + " " + copy_opt$)
DE� -1:ș "OS_File",&FF,source$,copyarea,0 � type,,load,exec,length
N?ș "OS_File",0,dest$,load,exec,copyarea,(copyarea + length)
X�
b$� case2$ + " copied as " + dest$
l�
v:
�,� �abort:� '"Installation aborted."':�:�
�� �cli(s$):�(s$):�
�!� �cdir:�cli("CDIR " + dest$)
�1� double%=0 � � case2$+" created as " + dest$
��
�?� �del_file:�cli("ACCESS " + dest$):�cli("DELETE "+dest$):�
�7� �space_bar:� " * press SPACE BAR to continue":� g
��:*FX 15,1
�g=�:� g=32:�
��
�0� �wipe_dir:�cli("WIPE " + dest$ + " VFR"):�
�:
�O� APPLICATION                                             :REM <<< DATA >>>

� "Pascal release 2"

:

� ROOTS

 +� source, network (NET), hard disc (HD)

*'� "ADFS::0.$", "NET:$", "ADFS::4.$"

4:

>
� LIBRARY

H,�  source, network (NET), hard disc (HD)

R'� Library, Arthurlib, !Boot.Library

\� LIBRARY OBJECTS

f.� type, object name, NET access, HD access

p� 1, fpe,        LR/R, LR

z� 2, lib,        L,    L

�� 1, lib.paslib, LR/R, LR

�� 1, link,       LR/R, LR

�� 1, pascal,     LR/R, LR

�� 0, end,        end,  end

�:

�� RESOURCES

�+� source, network (NET), hard disc (HD)

�� "", "", ""

�� RESOURCE OBJECTS

�.� type, object name, NET access, HD access

� � 0, end,         end,   end

�:

�� USER OBJECTS
� number of objects
� 5
.� type, object name, NET access, HD access
$� 2, aof,           L,   L
.� 2, lis,           L,   L
8� 2, pas,           L,   L
B� 1, pas.HelloW,    WR/, WR
L� 2, tmp,           L,   L
V:
`�  USERS
j
�  source
t� ""
~�  user1, user2, etc..
�� Pascal, end
�
�

00000000  0d 00 0a 12 f4 20 3e 20  49 6e 73 74 61 6c 6c 4e  |..... > InstallN|
00000010  45 54 0d 00 14 05 3a 0d  00 1e 48 eb 20 30 20 20  |ET....:...H. 0  |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000040  20 20 20 20 20 20 20 20  3a f4 20 3c 3c 3c 20 4d  |        :. <<< M|
00000050  41 49 4e 20 50 52 4f 47  52 41 4d 20 3e 3e 3e 0d  |AIN PROGRAM >>>.|
00000060  00 28 15 de 20 63 6f 70  79 61 72 65 61 20 26 34  |.(.. copyarea &4|
00000070  42 30 30 30 0d 00 32 0e  f2 63 6f 70 79 72 69 67  |B000..2..copyrig|
00000080  68 74 0d 00 3c 19 6e 65  74 25 3d a4 6e 65 74 5f  |ht..<.net%=.net_|
00000090  6f 72 5f 48 61 72 64 44  69 73 63 0d 00 46 0f f2  |or_HardDisc..F..|
000000a0  69 6e 69 74 69 61 6c 69  73 65 0d 00 50 0f f2 66  |initialise..P..f|
000000b0  72 6f 6e 74 5f 70 61 67  65 0d 00 5a 0c f2 6c 69  |ront_page..Z..li|
000000c0  62 72 61 72 79 0d 00 64  0e f2 72 65 73 6f 75 72  |brary..d..resour|
000000d0  63 65 73 0d 00 6e 0a f2  75 73 65 72 73 0d 00 78  |ces..n..users..x|
000000e0  08 f2 65 6e 64 0d 00 82  05 e0 0d 00 8c 05 3a 0d  |..end.........:.|
000000f0  00 96 43 dd 20 f2 63 6f  70 79 72 69 67 68 74 20  |..C. .copyright |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000120  3a f4 20 3c 3c 3c 20 4d  4f 44 55 4c 45 53 20 3e  |:. <<< MODULES >|
00000130  3e 3e 0d 00 a0 31 f4 20  41 72 63 68 69 6d 65 64  |>>...1. Archimed|
00000140  65 73 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  |es application i|
00000150  6e 73 74 61 6c 6c 61 74  69 6f 6e 20 70 72 6f 67  |nstallation prog|
00000160  72 61 6d 0d 00 aa 1e f4  20 48 65 6e 72 79 20 48  |ram..... Henry H|
00000170  6f 77 61 72 74 68 2c 20  4a 75 6c 79 20 31 39 38  |owarth, July 198|
00000180  38 0d 00 b4 2c f4 20 43  6f 70 79 72 69 67 68 74  |8...,. Copyright|
00000190  20 41 63 6f 72 6e 20 43  6f 6d 70 75 74 65 72 73  | Acorn Computers|
000001a0  20 4c 69 6d 69 74 65 64  20 31 39 38 38 0d 00 be  | Limited 1988...|
000001b0  05 e1 0d 00 c8 05 3a 0d  00 d2 16 dd 20 a4 6e 65  |......:..... .ne|
000001c0  74 5f 6f 72 5f 48 61 72  64 44 69 73 63 0d 00 dc  |t_or_HardDisc...|
000001d0  10 de 20 62 75 66 66 65  72 20 32 35 35 0d 00 e6  |.. buffer 255...|
000001e0  3c c8 99 20 22 58 4f 53  5f 52 65 61 64 56 61 72  |<.. "XOS_ReadVar|
000001f0  56 61 6c 22 2c 20 22 48  44 24 49 6e 73 74 61 6c  |Val", "HD$Instal|
00000200  6c 22 2c 20 62 75 66 66  65 72 2c 20 2d 31 20 b8  |l", buffer, -1 .|
00000210  20 72 30 2c 72 31 2c 72  32 0d 00 f0 29 e7 20 72  | r0,r1,r2...). r|
00000220  32 3d 30 20 8c 20 f2 63  6c 69 28 22 73 65 74 20  |2=0 . .cli("set |
00000230  48 44 24 49 6e 73 74 61  6c 6c 20 46 41 4c 53 45  |HD$Install FALSE|
00000240  22 29 0d 00 fa 40 c8 99  20 22 4f 53 5f 52 65 61  |")...@.. "OS_Rea|
00000250  64 56 61 72 56 61 6c 22  2c 20 22 48 44 24 49 6e  |dVarVal", "HD$In|
00000260  73 74 61 6c 6c 22 2c 20  62 75 66 66 65 72 2c 20  |stall", buffer, |
00000270  32 35 35 2d 31 2c 30 20  b8 20 72 30 2c 72 31 2c  |255-1,0 . r0,r1,|
00000280  72 32 0d 01 04 11 62 75  66 66 65 72 3f 72 32 3d  |r2....buffer?r2=|
00000290  26 30 44 0d 01 0e 10 c8  8e 20 24 62 75 66 66 65  |&0D...... $buffe|
000002a0  72 20 ca 0d 01 18 14 c9  20 22 46 41 4c 53 45 22  |r ...... "FALSE"|
000002b0  3a 6e 65 74 25 3d b9 0d  01 22 14 c9 20 22 54 52  |:net%=...".. "TR|
000002c0  55 45 22 20 3a 6e 65 74  25 3d a3 0d 01 2c 33 7f  |UE" :net%=...,3.|
000002d0  3a 20 f1 20 27 22 48 44  24 49 6e 73 74 61 6c 6c  |: . '"HD$Install|
000002e0  20 68 61 73 20 69 6e 63  6f 72 72 65 63 74 20 76  | has incorrect v|
000002f0  61 6c 75 65 21 22 27 3a  f2 61 62 6f 72 74 0d 01  |alue!"':.abort..|
00000300  36 05 cb 0d 01 40 2f c8  99 20 22 4f 53 5f 53 65  |6....@/.. "OS_Se|
00000310  74 56 61 72 56 61 6c 22  2c 20 22 48 44 24 49 6e  |tVarVal", "HD$In|
00000320  73 74 61 6c 6c 22 2c 20  62 75 66 66 65 72 2c 20  |stall", buffer, |
00000330  2d 31 0d 01 4a 0a 3d 20  6e 65 74 25 0d 01 54 05  |-1..J.= net%..T.|
00000340  3a 0d 01 5e 11 dd 20 f2  69 6e 69 74 69 61 6c 69  |:..^.. .initiali|
00000350  73 65 0d 01 68 12 f3 20  61 70 70 6c 69 63 61 74  |se..h.. applicat|
00000360  69 6f 6e 24 0d 01 72 15  f3 20 53 24 2c 44 5f 4e  |ion$..r.. S$,D_N|
00000370  45 54 24 2c 44 5f 48 44  24 0d 01 7c 0d c8 8e 20  |ET$,D_HD$..|... |
00000380  6e 65 74 25 20 ca 0d 01  86 2e c9 20 30 20 20 3a  |net% ...... 0  :|
00000390  44 24 20 3d 20 44 5f 48  44 24 20 20 3a 6d 65 64  |D$ = D_HD$  :med|
000003a0  69 75 6d 24 20 3d 20 22  20 68 61 72 64 20 64 69  |ium$ = " hard di|
000003b0  73 63 20 22 0d 01 90 2b  c9 20 2d 31 20 3a 44 24  |sc "...+. -1 :D$|
000003c0  20 3d 20 44 5f 4e 45 54  24 20 3a 6d 65 64 69 75  | = D_NET$ :mediu|
000003d0  6d 24 20 3d 20 22 20 45  63 6f 6e 65 74 20 22 0d  |m$ = " Econet ".|
000003e0  01 9a 05 cb 0d 01 a4 05  e1 0d 01 ae 05 3a 0d 01  |.............:..|
000003f0  b8 11 dd 20 f2 66 72 6f  6e 74 5f 70 61 67 65 0d  |... .front_page.|
00000400  01 c2 05 f5 0d 01 cc 05  db 0d 01 d6 08 f1 20 27  |.............. '|
00000410  27 0d 01 e0 28 f1 20 22  41 72 63 68 69 6d 65 64  |'...(. "Archimed|
00000420  65 73 20 73 6f 66 74 77  61 72 65 20 69 6e 73 74  |es software inst|
00000430  61 6c 6c 61 74 69 6f 6e  22 0d 01 ea 2b f1 20 22  |allation"...+. "|
00000440  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000460  22 27 27 27 0d 01 f4 05  3a 0d 01 fe 15 f1 20 22  |"'''....:..... "|
00000470  56 65 72 73 69 6f 6e 20  31 2e 30 30 22 27 0d 02  |Version 1.00"'..|
00000480  08 15 f1 20 22 32 35 20  4a 75 6c 79 20 31 39 38  |... "25 July 198|
00000490  38 22 27 0d 02 12 1d f1  20 22 46 6f 72 20 22 20  |8"'..... "For " |
000004a0  2b 20 61 70 70 6c 69 63  61 74 69 6f 6e 24 27 27  |+ application$''|
000004b0  0d 02 1c 4a f1 20 22 49  6e 73 74 61 6c 6c 73 20  |...J. "Installs |
000004c0  61 70 70 6c 69 63 61 74  69 6f 6e 20 6f 6e 22 20  |application on" |
000004d0  2b 20 6d 65 64 69 75 6d  24 20 2b 20 22 66 72 6f  |+ medium$ + "fro|
000004e0  6d 20 66 6c 6f 70 70 79  20 64 69 73 63 20 73 75  |m floppy disc su|
000004f0  70 70 6c 69 65 64 2e 22  27 27 0d 02 26 4c f1 20  |pplied."''..&L. |
00000500  22 59 6f 75 20 61 72 65  20 61 64 76 69 73 65 64  |"You are advised|
00000510  20 74 6f 20 72 65 61 64  20 74 68 65 20 66 75 72  | to read the fur|
00000520  74 68 65 72 20 69 6e 66  6f 72 6d 61 74 69 6f 6e  |ther information|
00000530  20 70 72 6f 76 69 64 65  64 20 62 65 66 6f 72 65  | provided before|
00000540  20 20 20 20 22 27 0d 02  30 26 f1 20 22 69 6e 73  |    "'..0&. "ins|
00000550  74 61 6c 6c 69 6e 67 20  74 68 69 73 20 61 70 70  |talling this app|
00000560  6c 69 63 61 74 69 6f 6e  3a 22 27 27 0d 02 3a 2b  |lication:"''..:+|
00000570  f1 20 22 20 2a 20 70 72  65 73 73 20 45 53 43 20  |. " * press ESC |
00000580  74 6f 20 6c 65 61 76 65  20 74 68 65 20 70 72 6f  |to leave the pro|
00000590  67 72 61 6d 20 22 27 0d  02 44 34 f1 20 22 20 2a  |gram "'..D4. " *|
000005a0  20 70 72 65 73 73 20 53  50 41 43 45 20 42 41 52  | press SPACE BAR|
000005b0  20 66 6f 72 20 66 75 72  74 68 65 72 20 69 6e 66  | for further inf|
000005c0  6f 72 6d 61 74 69 6f 6e  20 22 27 0d 02 4e 33 f1  |ormation "'..N3.|
000005d0  20 22 20 2a 20 70 72 65  73 73 20 52 45 54 55 52  | " * press RETUR|
000005e0  4e 20 74 6f 20 69 6e 73  74 61 6c 6c 20 22 20 2b  |N to install " +|
000005f0  20 61 70 70 6c 69 63 61  74 69 6f 6e 24 27 0d 02  | application$'..|
00000600  58 05 3a 0d 02 62 05 f5  0d 02 6c 0c 2a 46 58 20  |X.:..b....l.*FX |
00000610  31 35 2c 31 0d 02 76 17  67 3d a5 3a fd 20 28 67  |15,1..v.g=.:. (g|
00000620  3d 31 33 20 84 20 67 3d  33 32 29 0d 02 80 21 e7  |=13 . g=32)...!.|
00000630  20 67 3d 33 32 20 8c 20  f2 66 75 72 74 68 65 72  | g=32 . .further|
00000640  5f 69 6e 66 6f 72 6d 61  74 69 6f 6e 0d 02 8a 0a  |_information....|
00000650  fd 20 67 3d 31 33 0d 02  94 05 db 0d 02 9e 05 e1  |. g=13..........|
00000660  0d 02 a8 05 3a 0d 02 b2  35 dd 20 f2 6c 69 62 72  |....:...5. .libr|
00000670  61 72 79 20 20 3a f2 62  6c 6f 63 6b 28 22 43 4f  |ary  :.block("CO|
00000680  50 59 49 4e 47 20 4c 49  42 52 41 52 59 20 4f 42  |PYING LIBRARY OB|
00000690  4a 45 43 54 53 22 29 20  3a e1 0d 02 bc 35 dd 20  |JECTS") :....5. |
000006a0  f2 72 65 73 6f 75 72 63  65 73 3a f2 62 6c 6f 63  |.resources:.bloc|
000006b0  6b 28 22 43 4f 50 59 49  4e 47 20 52 45 53 4f 55  |k("COPYING RESOU|
000006c0  52 43 45 20 4f 42 4a 45  43 54 53 22 29 3a e1 0d  |RCE OBJECTS"):..|
000006d0  02 c6 05 3a 0d 02 d0 0c  dd 20 f2 75 73 65 72 73  |...:..... .users|
000006e0  0d 02 da 16 f2 72 65 61  64 5f 75 73 65 72 5f 6f  |.....read_user_o|
000006f0  62 6a 65 63 74 73 0d 02  e4 1e f1 20 27 22 43 4f  |bjects..... '"CO|
00000700  50 59 49 4e 47 20 55 53  45 52 20 4f 42 4a 45 43  |PYING USER OBJEC|
00000710  54 53 22 27 0d 02 ee 0c  f3 20 53 70 61 74 68 24  |TS"'..... Spath$|
00000720  0d 02 f8 0b f3 20 75 73  65 72 24 0d 03 02 39 c8  |..... user$...9.|
00000730  95 20 28 75 73 65 72 24  20 3c 3e 20 22 65 6e 64  |. (user$ <> "end|
00000740  22 20 80 20 75 73 65 72  24 20 3c 3e 20 22 45 4e  |" . user$ <> "EN|
00000750  44 22 20 80 20 75 73 65  72 24 20 3c 3e 20 22 45  |D" . user$ <> "E|
00000760  6e 64 22 29 0d 03 0c 12  44 70 61 74 68 24 20 3d  |nd")....Dpath$ =|
00000770  20 75 73 65 72 24 0d 03  16 09 f2 70 61 74 68 0d  | user$.....path.|
00000780  03 20 11 e3 20 49 25 3d  31 20 b8 20 6f 62 6a 25  |. .. I%=1 . obj%|
00000790  0d 03 2a 27 66 6c 61 67  25 20 3d 20 66 6c 61 67  |..*'flag% = flag|
000007a0  25 28 49 25 29 3a 6e 61  6d 65 24 20 3d 20 6e 61  |%(I%):name$ = na|
000007b0  6d 65 24 28 49 25 29 0d  03 34 33 e7 20 6e 65 74  |me$(I%)..43. net|
000007c0  25 20 8c 20 61 63 63 24  20 3d 20 4e 45 54 61 63  |% . acc$ = NETac|
000007d0  63 24 28 49 25 29 20 8b  20 61 63 63 24 20 3d 20  |c$(I%) . acc$ = |
000007e0  48 44 61 63 63 24 28 49  25 29 0d 03 3e 1d f2 6f  |HDacc$(I%)..>..o|
000007f0  62 6a 65 63 74 28 66 6c  61 67 25 2c 6e 61 6d 65  |bject(flag%,name|
00000800  24 2c 61 63 63 24 29 0d  03 48 08 ed 20 49 25 0d  |$,acc$)..H.. I%.|
00000810  03 52 0b f3 20 75 73 65  72 24 0d 03 5c 05 ce 0d  |.R.. user$..\...|
00000820  03 66 05 e1 0d 03 70 05  3a 0d 03 7a 2a dd 20 f2  |.f....p.:..z*. .|
00000830  65 6e 64 3a f1 20 27 22  49 6e 73 74 61 6c 6c 61  |end:. '"Installa|
00000840  74 69 6f 6e 20 63 6f 6d  70 6c 65 74 65 64 2e 22  |tion completed."|
00000850  27 3a e1 0d 03 84 05 3a  0d 03 8e 1a dd 20 f2 66  |':.....:..... .f|
00000860  75 72 74 68 65 72 5f 69  6e 66 6f 72 6d 61 74 69  |urther_informati|
00000870  6f 6e 0d 03 98 05 3a 0d  03 a2 05 db 0d 03 ac 05  |on....:.........|
00000880  f1 0d 03 b6 1b f1 20 22  46 75 72 74 68 65 72 20  |...... "Further |
00000890  49 6e 66 6f 72 6d 61 74  69 6f 6e 22 0d 03 c0 1b  |Information"....|
000008a0  f1 20 22 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |. "_____________|
000008b0  5f 5f 5f 5f 5f 5f 22 0d  03 ca 05 f1 0d 03 d4 05  |______".........|
000008c0  f1 0d 03 de 4f f1 20 22  54 68 65 20 69 6e 73 74  |....O. "The inst|
000008d0  61 6c 6c 61 74 69 6f 6e  20 70 72 6f 67 72 61 6d  |allation program|
000008e0  2c 20 61 73 20 73 75 70  70 6c 69 65 64 2c 20 61  |, as supplied, a|
000008f0  73 73 75 6d 65 73 20 74  68 65 20 64 65 66 61 75  |ssumes the defau|
00000900  6c 74 20 73 65 74 20 75  70 20 66 6f 72 20 22 27  |lt set up for "'|
00000910  0d 03 e8 4f f1 20 22 61  20 68 61 72 64 20 64 69  |...O. "a hard di|
00000920  73 63 20 28 48 44 29 20  6f 72 20 6e 65 74 77 6f  |sc (HD) or netwo|
00000930  72 6b 20 28 4e 45 54 29  2c 20 61 73 20 69 6c 6c  |rk (NET), as ill|
00000940  75 73 74 72 61 74 65 64  20 69 6e 20 74 68 65 20  |ustrated in the |
00000950  20 20 20 20 20 20 20 20  20 20 20 20 20 22 27 0d  |             "'.|
00000960  03 f2 4f f1 20 22 27 49  6e 73 74 61 6c 6c 61 74  |..O. "'Installat|
00000970  69 6f 6e 27 20 73 65 63  74 69 6f 6e 20 6f 66 20  |ion' section of |
00000980  74 68 65 20 75 73 65 72  20 6d 61 6e 75 61 6c 2e  |the user manual.|
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 22 27 0d 03  |            "'..|
000009b0  fc 05 f1 0d 04 06 4f f1  20 22 49 6e 20 70 61 72  |......O. "In par|
000009c0  74 69 63 75 6c 61 72 2c  20 74 68 65 20 70 72 6f  |ticular, the pro|
000009d0  67 72 61 6d 20 61 73 73  75 6d 65 73 20 74 68 65  |gram assumes the|
000009e0  20 6e 61 6d 65 73 20 27  24 2e 4c 69 62 72 61 72  | names '$.Librar|
000009f0  79 27 20 61 6e 64 20 20  20 20 20 20 20 20 20 20  |y' and          |
00000a00  22 27 0d 04 10 4f f1 20  22 27 24 2e 41 72 74 68  |"'...O. "'$.Arth|
00000a10  75 72 6c 69 62 27 20 28  48 44 20 20 61 6e 64 20  |urlib' (HD  and |
00000a20  4e 45 54 20 72 65 73 70  65 63 74 69 76 65 6c 79  |NET respectively|
00000a30  29 20 66 6f 72 20 74 68  65 20 6c 69 62 72 61 72  |) for the librar|
00000a40  79 2c 20 61 6e 64 20 69  73 20 73 65 74 20 20 22  |y, and is set  "|
00000a50  27 0d 04 1a 4f f1 20 22  74 6f 20 69 6e 73 74 61  |'...O. "to insta|
00000a60  6c 6c 20 61 20 73 69 6e  67 6c 65 20 28 64 65 66  |ll a single (def|
00000a70  61 75 6c 74 29 20 75 73  65 72 2e 20 20 20 20 20  |ault) user.     |
00000a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 27  |              "'|
00000aa0  0d 04 24 05 f1 0d 04 2e  4f f1 20 22 59 6f 75 20  |..$.....O. "You |
00000ab0  6d 61 79 20 77 69 73 68  20 74 6f 20 69 6e 73 74  |may wish to inst|
00000ac0  61 6c 6c 20 74 68 65 20  61 70 70 6c 69 63 61 74  |all the applicat|
00000ad0  69 6f 6e 73 20 64 69 66  66 65 72 65 6e 74 6c 79  |ions differently|
00000ae0  2c 20 61 6e 64 20 79 6f  75 20 63 61 6e 20 75 73  |, and you can us|
00000af0  65 20 22 27 0d 04 38 4f  f1 20 22 74 68 69 73 20  |e "'..8O. "this |
00000b00  70 72 6f 67 72 61 6d 20  66 6f 72 20 74 68 69 73  |program for this|
00000b10  20 70 75 72 70 6f 73 65  2e 20 49 74 20 69 73 20  | purpose. It is |
00000b20  77 72 69 74 74 65 6e 20  69 6e 20 42 41 53 49 43  |written in BASIC|
00000b30  2c 20 61 6e 64 20 79 6f  75 20 77 69 6c 6c 20 20  |, and you will  |
00000b40  20 22 27 0d 04 42 4f f1  20 22 6e 65 65 64 20 74  | "'..BO. "need t|
00000b50  6f 20 62 65 20 61 62 6c  65 20 74 6f 20 6c 6f 61  |o be able to loa|
00000b60  64 2c 20 65 64 69 74 20  61 6e 64 20 73 61 76 65  |d, edit and save|
00000b70  20 61 20 42 41 53 49 43  20 70 72 6f 67 72 61 6d  | a BASIC program|
00000b80  20 28 63 6f 76 65 72 65  64 20 69 6e 20 74 68 65  | (covered in the|
00000b90  22 27 0d 04 4c 4f f1 20  22 55 73 65 72 20 47 75  |"'..LO. "User Gu|
00000ba0  69 64 65 29 2e 20 20 20  20 20 20 20 20 20 20 20  |ide).           |
00000bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000be0  27 0d 04 56 05 f1 0d 04  60 0e f2 73 70 61 63 65  |'..V....`..space|
00000bf0  5f 62 61 72 0d 04 6a 05  f1 0d 04 74 05 f1 0d 04  |_bar..j....t....|
00000c00  7e 4f f1 20 22 54 68 65  20 6e 61 6d 65 20 6f 66  |~O. "The name of|
00000c10  20 74 68 69 73 20 70 72  6f 67 72 61 6d 20 69 73  | this program is|
00000c20  20 27 69 6e 73 74 61 6c  6c 4e 45 54 27 3b 20 74  | 'installNET'; t|
00000c30  68 65 20 70 72 6f 67 72  61 6d 20 27 69 6e 73 74  |he program 'inst|
00000c40  61 6c 6c 48 44 27 20 6f  6e 6c 79 22 27 0d 04 88  |allHD' only"'...|
00000c50  4f f1 20 22 73 65 74 73  20 61 20 66 6c 61 67 20  |O. "sets a flag |
00000c60  74 6f 20 69 6e 64 69 63  61 74 65 20 48 44 20 69  |to indicate HD i|
00000c70  6e 73 74 61 6c 6c 61 74  69 6f 6e 20 62 65 66 6f  |nstallation befo|
00000c80  72 65 20 72 75 6e 6e 69  6e 67 20 27 69 6e 73 74  |re running 'inst|
00000c90  61 6c 6c 4e 45 54 27 2e  20 20 22 27 0d 04 92 05  |allNET'.  "'....|
00000ca0  f1 0d 04 9c 4f f1 20 22  4d 75 6c 74 69 70 6c 65  |....O. "Multiple|
00000cb0  20 75 73 65 72 73 3a 20  20 20 20 20 20 20 20 20  | users:         |
00000cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000ce0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 27  |              "'|
00000cf0  0d 04 a6 05 f1 0d 04 b0  4f f1 20 22 49 66 20 79  |........O. "If y|
00000d00  6f 75 20 77 61 6e 74 20  74 6f 20 69 6e 73 74 61  |ou want to insta|
00000d10  6c 6c 20 74 68 65 20 61  70 70 6c 69 63 61 74 69  |ll the applicati|
00000d20  6f 6e 20 66 6f 72 20 61  20 6e 75 6d 62 65 72 20  |on for a number |
00000d30  6f 66 20 75 73 65 72 73  20 6f 6e 20 74 68 65 20  |of users on the |
00000d40  20 20 22 27 0d 04 ba 4f  f1 20 22 6e 65 74 77 6f  |  "'...O. "netwo|
00000d50  72 6b 20 28 6f 72 20 61  20 6e 75 6d 62 65 72 20  |rk (or a number |
00000d60  6f 66 20 64 69 72 65 63  74 6f 72 69 65 73 20 6f  |of directories o|
00000d70  6e 20 61 20 68 61 72 64  20 64 69 73 63 29 2c 20  |n a hard disc), |
00000d80  79 6f 75 20 6e 65 65 64  20 74 6f 20 61 6c 74 65  |you need to alte|
00000d90  72 22 27 0d 04 c4 4f f1  20 22 74 68 65 20 66 69  |r"'...O. "the fi|
00000da0  6e 61 6c 20 6c 69 6e 65  20 6f 66 20 74 68 65 20  |nal line of the |
00000db0  70 72 6f 67 72 61 6d 2e  20 20 20 20 20 20 20 20  |program.        |
00000dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000de0  22 27 0d 04 ce 05 f1 0d  04 d8 4f f1 20 22 54 68  |"'........O. "Th|
00000df0  69 73 20 69 73 20 61 20  44 41 54 41 20 73 74 61  |is is a DATA sta|
00000e00  74 65 6d 65 6e 74 20 63  6f 6e 73 69 73 74 69 6e  |tement consistin|
00000e10  67 20 6f 66 20 61 20 6c  69 73 74 20 6f 66 20 75  |g of a list of u|
00000e20  73 65 72 20 6e 61 6d 65  73 20 74 65 72 6d 69 6e  |ser names termin|
00000e30  61 74 65 64 22 27 0d 04  e2 4f f1 20 22 62 79 20  |ated"'...O. "by |
00000e40  27 65 6e 64 27 2e 20 20  20 20 20 20 20 20 20 20  |'end'.          |
00000e50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000e80  20 20 20 22 27 0d 04 ec  05 f1 0d 04 f6 4f f1 20  |   "'........O. |
00000e90  22 41 73 20 73 75 70 70  6c 69 65 64 2c 20 74 68  |"As supplied, th|
00000ea0  65 72 65 20 6d 61 79 20  6f 6e 6c 79 20 62 65 20  |ere may only be |
00000eb0  61 20 73 69 6e 67 6c 65  20 75 73 65 72 2c 20 28  |a single user, (|
00000ec0  61 6e 64 20 69 66 20 61  20 6e 75 6c 6c 20 73 74  |and if a null st|
00000ed0  72 69 6e 67 2c 20 20 22  27 0d 05 00 4f f1 20 22  |ring,  "'...O. "|
00000ee0  74 77 6f 20 64 6f 75 62  6c 65 2d 71 75 6f 74 65  |two double-quote|
00000ef0  73 2c 20 74 68 69 73 20  69 6e 64 69 63 61 74 65  |s, this indicate|
00000f00  73 20 74 68 65 20 75 73  65 72 20 69 73 20 69 6e  |s the user is in|
00000f10  73 74 61 6c 6c 65 64 20  69 6e 20 74 68 65 20 72  |stalled in the r|
00000f20  6f 6f 74 20 20 20 22 27  0d 05 0a 4f f1 20 22 64  |oot   "'...O. "d|
00000f30  69 72 65 63 74 6f 72 79  2c 20 24 29 2e 20 20 20  |irectory, $).   |
00000f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000f70  20 20 20 20 20 22 27 0d  05 14 05 f1 0d 05 1e 0e  |     "'.........|
00000f80  f2 73 70 61 63 65 5f 62  61 72 0d 05 28 05 f1 0d  |.space_bar..(...|
00000f90  05 32 05 f1 0d 05 3c 4f  f1 20 22 54 6f 20 69 6e  |.2....<O. "To in|
00000fa0  73 74 61 6c 6c 20 74 68  65 20 61 70 70 6c 69 63  |stall the applic|
00000fb0  61 74 69 6f 6e 20 66 6f  72 20 75 73 65 72 73 20  |ation for users |
00000fc0  52 61 63 68 65 6c 2c 20  54 69 6d 20 61 6e 64 20  |Rachel, Tim and |
00000fd0  53 75 65 2c 20 66 6f 72  20 65 78 61 6d 70 6c 65  |Sue, for example|
00000fe0  2c 22 27 0d 05 46 4f f1  20 22 79 6f 75 20 6e 65  |,"'..FO. "you ne|
00000ff0  65 64 20 74 6f 20 65 64  69 74 20 74 68 69 73 20  |ed to edit this |
00001000  6c 61 73 74 20 6c 69 6e  65 20 73 6f 20 74 68 61  |last line so tha|
00001010  74 20 69 74 20 6e 6f 77  20 72 65 61 64 73 3a 20  |t it now reads: |
00001020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001030  22 27 0d 05 50 05 f1 0d  05 5a 4f f1 20 22 20 20  |"'..P....ZO. "  |
00001040  20 20 20 44 41 54 41 20  52 61 63 68 65 6c 2c 20  |   DATA Rachel, |
00001050  54 69 6d 2c 20 53 75 65  2c 20 65 6e 64 20 20 20  |Tim, Sue, end   |
00001060  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001080  20 20 20 20 22 27 0d 05  64 05 f1 0d 05 6e 4f f1  |    "'..d....nO.|
00001090  20 22 4e 6f 77 20 77 68  65 6e 20 79 6f 75 20 72  | "Now when you r|
000010a0  75 6e 20 74 68 65 20 70  72 6f 67 72 61 6d 2c 20  |un the program, |
000010b0  6c 6f 67 67 65 64 20 6f  6e 20 74 6f 20 74 68 65  |logged on to the|
000010c0  20 6e 65 74 77 6f 72 6b  20 77 69 74 68 20 73 79  | network with sy|
000010d0  73 74 65 6d 20 20 20 20  22 27 0d 05 78 4f f1 20  |stem    "'..xO. |
000010e0  22 73 74 61 74 75 73 2c  20 74 68 65 20 64 69 72  |"status, the dir|
000010f0  65 63 74 6f 72 69 65 73  20 24 2e 52 61 63 68 65  |ectories $.Rache|
00001100  6c 2c 20 24 2e 54 69 6d  20 61 6e 64 20 24 2e 53  |l, $.Tim and $.S|
00001110  75 65 20 77 69 6c 6c 20  62 65 20 63 72 65 61 74  |ue will be creat|
00001120  65 64 20 28 69 66 20 22  27 0d 05 82 4f f1 20 22  |ed (if "'...O. "|
00001130  6e 65 63 65 73 73 61 72  79 29 20 61 6e 64 20 74  |necessary) and t|
00001140  68 65 20 75 73 65 72 20  66 69 6c 65 73 20 69 6e  |he user files in|
00001150  73 74 61 6c 6c 65 64 20  74 68 65 72 65 2e 20 20  |stalled there.  |
00001160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001170  20 20 20 20 20 20 22 27  0d 05 8c 05 f1 0d 05 96  |      "'........|
00001180  4f f1 20 22 4e 2e 42 2e  20 74 68 65 20 70 72 6f  |O. "N.B. the pro|
00001190  67 72 61 6d 20 77 69 6c  6c 20 6f 6e 6c 79 20 63  |gram will only c|
000011a0  6f 70 65 20 77 69 74 68  20 75 73 65 72 20 6e 61  |ope with user na|
000011b0  6d 65 73 20 6e 65 73 74  65 64 20 74 77 6f 20 64  |mes nested two d|
000011c0  65 65 70 20 3a 2d 20 20  20 20 22 27 0d 05 a0 4f  |eep :-    "'...O|
000011d0  f1 20 22 69 2e 65 2e 20  27 4a 69 6d 27 20 61 6e  |. "i.e. 'Jim' an|
000011e0  64 20 27 43 6c 61 73 73  34 2e 4a 69 6d 27 20 61  |d 'Class4.Jim' a|
000011f0  72 65 20 61 63 63 65 70  74 61 62 6c 65 2c 20 62  |re acceptable, b|
00001200  75 74 20 6e 6f 74 20 27  41 72 74 2e 43 6c 61 73  |ut not 'Art.Clas|
00001210  73 34 2e 4a 69 6d 27 20  20 22 27 0d 05 aa 05 f1  |s4.Jim'  "'.....|
00001220  0d 05 b4 4f f1 20 22 43  6f 6e 73 75 6c 74 20 74  |...O. "Consult t|
00001230  68 65 20 75 73 65 72 20  6d 61 6e 75 61 6c 20 66  |he user manual f|
00001240  6f 72 20 66 75 72 74 68  65 72 20 69 6e 66 6f 72  |or further infor|
00001250  6d 61 74 69 6f 6e 20 72  65 71 75 69 72 65 64 20  |mation required |
00001260  74 6f 20 65 6e 61 62 6c  65 20 20 20 20 22 27 0d  |to enable    "'.|
00001270  05 be 4f f1 20 22 52 61  63 68 65 6c 2c 20 54 69  |..O. "Rachel, Ti|
00001280  6d 20 61 6e 64 20 53 75  65 20 74 6f 20 6c 6f 67  |m and Sue to log|
00001290  20 6f 6e 20 61 6e 64 20  72 75 6e 20 74 68 65 20  | on and run the |
000012a0  61 70 70 6c 69 63 61 74  69 6f 6e 2e 20 20 20 20  |application.    |
000012b0  20 20 20 20 20 20 20 20  20 20 20 20 22 27 0d 05  |            "'..|
000012c0  c8 05 f1 0d 05 d2 0e f2  73 70 61 63 65 5f 62 61  |........space_ba|
000012d0  72 0d 05 dc 05 f1 0d 05  e6 05 f1 0d 05 f0 4f f1  |r.............O.|
000012e0  20 22 4c 69 62 72 61 72  79 20 6e 61 6d 65 73 3a  | "Library names:|
000012f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001320  20 20 20 20 20 20 20 20  22 27 0d 05 fa 05 f1 0d  |        "'......|
00001330  06 04 4f f1 20 22 54 6f  20 61 6c 74 65 72 20 74  |..O. "To alter t|
00001340  68 65 20 6e 61 6d 65 20  6f 66 20 74 68 65 20 6c  |he name of the l|
00001350  69 62 72 61 72 79 20 75  73 65 64 20 66 6f 72 20  |ibrary used for |
00001360  69 6e 73 74 61 6c 6c 61  74 69 6f 6e 2c 20 79 6f  |installation, yo|
00001370  75 20 6e 65 65 64 20 74  6f 20 20 20 22 27 0d 06  |u need to   "'..|
00001380  0e 4f f1 20 22 65 64 69  74 20 61 6e 6f 74 68 65  |.O. "edit anothe|
00001390  72 20 6c 69 6e 65 20 6f  66 20 64 61 74 61 2e 20  |r line of data. |
000013a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000013c0  20 20 20 20 20 20 20 20  20 20 20 22 27 0d 06 18  |           "'...|
000013d0  05 f1 0d 06 22 4f f1 20  22 41 6c 6c 20 74 68 65  |...."O. "All the|
000013e0  20 64 61 74 61 20 66 6f  72 20 74 68 65 20 70 72  | data for the pr|
000013f0  6f 67 72 61 6d 20 69 73  20 61 74 20 74 68 65 20  |ogram is at the |
00001400  65 6e 64 20 6f 66 20 74  68 65 20 6c 69 73 74 69  |end of the listi|
00001410  6e 67 2c 20 61 6e 64 20  69 73 20 20 20 20 20 22  |ng, and is     "|
00001420  27 0d 06 2c 4f f1 20 22  61 72 72 61 6e 67 65 64  |'..,O. "arranged|
00001430  20 69 6e 20 62 6c 6f 63  6b 73 2e 20 20 20 20 20  | in blocks.     |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001460  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 27  |              "'|
00001470  0d 06 36 05 f1 0d 06 40  4f f1 20 22 54 68 65 20  |..6....@O. "The |
00001480  73 74 61 72 74 20 6f 66  20 74 68 65 20 64 61 74  |start of the dat|
00001490  61 20 69 73 20 69 6e 64  69 63 61 74 65 64 20 62  |a is indicated b|
000014a0  79 20 27 3a 52 45 4d 20  3c 3c 3c 20 44 41 54 41  |y ':REM <<< DATA|
000014b0  20 3e 3e 3e 27 2c 20 61  6e 64 20 74 68 65 20 20  | >>>', and the  |
000014c0  20 20 22 27 0d 06 4a 4f  f1 20 22 62 6c 6f 63 6b  |  "'..JO. "block|
000014d0  20 79 6f 75 20 72 65 71  75 69 72 65 20 69 73 20  | you require is |
000014e0  74 68 65 20 74 68 69 72  64 20 69 6e 20 6f 72 64  |the third in ord|
000014f0  65 72 2c 20 63 61 6c 6c  65 64 20 27 52 45 4d 20  |er, called 'REM |
00001500  4c 49 42 52 41 52 59 27  2e 20 20 20 20 20 20 20  |LIBRARY'.       |
00001510  20 22 27 0d 06 54 05 f1  0d 06 5e 0e f2 73 70 61  | "'..T....^..spa|
00001520  63 65 5f 62 61 72 0d 06  68 05 f1 0d 06 72 05 f1  |ce_bar..h....r..|
00001530  0d 06 7c 4f f1 20 22 41  73 20 69 6e 64 69 63 61  |..|O. "As indica|
00001540  74 65 64 20 62 79 20 74  68 65 20 52 45 4d 61 72  |ted by the REMar|
00001550  6b 20 61 62 6f 76 65 20  69 74 2c 20 74 68 65 20  |k above it, the |
00001560  66 69 72 73 74 20 44 41  54 41 20 73 74 61 74 65  |first DATA state|
00001570  6d 65 6e 74 20 70 72 6f  76 69 64 65 73 22 27 0d  |ment provides"'.|
00001580  06 86 4f f1 20 22 74 68  65 20 64 69 72 65 63 74  |..O. "the direct|
00001590  6f 72 79 20 6e 61 6d 65  73 20 6f 66 20 74 68 65  |ory names of the|
000015a0  20 6c 69 62 72 61 72 79  20 6f 6e 20 74 68 65 20  | library on the |
000015b0  73 6f 75 72 63 65 20 66  6c 6f 70 70 79 2c 20 74  |source floppy, t|
000015c0  68 65 20 6e 65 74 77 6f  72 6b 20 20 22 27 0d 06  |he network  "'..|
000015d0  90 4f f1 20 22 61 6e 64  20 74 68 65 20 68 61 72  |.O. "and the har|
000015e0  64 20 64 69 73 63 2c 20  61 6e 64 20 77 69 6c 6c  |d disc, and will|
000015f0  20 70 72 6f 62 61 62 6c  79 20 72 65 61 64 3a 20  | probably read: |
00001600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001610  20 20 20 20 20 20 20 20  20 20 20 22 27 0d 06 9a  |           "'...|
00001620  05 f1 0d 06 a4 4f f1 20  22 20 20 20 20 44 41 54  |.....O. "    DAT|
00001630  41 20 4c 69 62 72 61 72  79 2c 20 41 72 74 68 75  |A Library, Arthu|
00001640  72 6c 69 62 2c 20 4c 69  62 72 61 72 79 20 20 20  |rlib, Library   |
00001650  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001660  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00001670  27 0d 06 ae 05 f1 0d 06  b8 4f f1 20 22 49 66 2c  |'........O. "If,|
00001680  20 66 6f 72 20 65 78 61  6d 70 6c 65 2c 20 74 68  | for example, th|
00001690  65 20 6e 61 6d 65 20 6f  66 20 74 68 65 20 6c 69  |e name of the li|
000016a0  62 72 61 72 79 20 6f 6e  20 79 6f 75 72 20 6e 65  |brary on your ne|
000016b0  74 77 6f 72 6b 20 69 73  20 27 24 2e 55 74 69 6c  |twork is '$.Util|
000016c0  73 27 20 22 27 0d 06 c2  4f f1 20 22 74 68 65 6e  |s' "'...O. "then|
000016d0  20 79 6f 75 20 77 69 6c  6c 20 6e 65 65 64 20 74  | you will need t|
000016e0  6f 20 65 64 69 74 20 74  68 69 73 20 6c 69 6e 65  |o edit this line|
000016f0  20 73 6f 20 74 68 61 74  20 69 74 20 6e 6f 77 20  | so that it now |
00001700  72 65 61 64 73 3a 20 20  20 20 20 20 20 20 20 20  |reads:          |
00001710  20 20 22 27 0d 06 cc 05  f1 0d 06 d6 4f f1 20 22  |  "'........O. "|
00001720  20 20 20 20 44 41 54 41  20 4c 69 62 72 61 72 79  |    DATA Library|
00001730  2c 20 55 74 69 6c 73 2c  20 4c 69 62 72 61 72 79  |, Utils, Library|
00001740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001760  20 20 20 20 20 20 22 27  0d 06 e0 05 f1 0d 06 ea  |      "'........|
00001770  0e f2 73 70 61 63 65 5f  62 61 72 0d 06 f4 16 e7  |..space_bar.....|
00001780  20 6e 65 74 25 20 8c 20  f2 6e 65 74 5f 69 6e 66  | net% . .net_inf|
00001790  6f 0d 06 fe 05 e1 0d 07  08 05 3a 0d 07 12 0f dd  |o.........:.....|
000017a0  20 f2 6e 65 74 5f 69 6e  66 6f 0d 07 1c 05 f1 0d  | .net_info......|
000017b0  07 26 1c f1 20 22 4e 65  74 77 6f 72 6b 20 49 6e  |.&.. "Network In|
000017c0  73 74 61 6c 6c 61 74 69  6f 6e 22 0d 07 30 1c f1  |stallation"..0..|
000017d0  20 22 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  | "______________|
000017e0  5f 5f 5f 5f 5f 5f 22 0d  07 3a 05 f1 0d 07 44 05  |______"..:....D.|
000017f0  f1 0d 07 4e 4e f1 20 22  53 69 74 65 20 6c 69 63  |...NN. "Site lic|
00001800  65 6e 63 65 3a 20 20 20  20 20 20 20 20 20 20 20  |ence:           |
00001810  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001830  20 20 20 20 20 20 20 20  20 20 20 20 20 22 27 0d  |             "'.|
00001840  07 58 05 f1 0d 07 62 4e  f1 20 22 59 6f 75 20 6e  |.X....bN. "You n|
00001850  65 65 64 20 61 20 73 69  74 65 20 6c 69 63 65 6e  |eed a site licen|
00001860  63 65 20 74 6f 20 69 6e  73 74 61 6c 6c 20 61 6e  |ce to install an|
00001870  64 20 72 75 6e 20 74 68  69 73 20 61 70 70 6c 69  |d run this appli|
00001880  63 61 74 69 6f 6e 20 6f  6e 20 61 6e 20 20 20 20  |cation on an    |
00001890  22 27 0d 07 6c 4e f1 20  22 45 63 6f 6e 65 74 20  |"'..lN. "Econet |
000018a0  6e 65 74 77 6f 72 6b 2e  20 20 20 20 20 20 20 20  |network.        |
000018b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000018d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 27  |              "'|
000018e0  0d 07 76 05 f1 0d 07 80  4e f1 20 22 45 63 6f 6e  |..v.....N. "Econ|
000018f0  65 74 20 6d 6f 64 75 6c  65 20 75 70 64 61 74 65  |et module update|
00001900  73 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |s:              |
00001910  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001930  20 22 27 0d 07 8a 05 f1  0d 07 94 4e f1 20 22 49  | "'........N. "I|
00001940  66 20 79 6f 75 20 68 61  76 65 20 41 72 74 68 75  |f you have Arthu|
00001950  72 20 31 2e 32 2c 20 79  6f 75 20 61 72 65 20 61  |r 1.2, you are a|
00001960  64 76 69 73 65 64 20 74  6f 20 75 73 65 20 74 68  |dvised to use th|
00001970  65 20 41 72 63 68 69 6d  65 64 65 73 20 45 63 6f  |e Archimedes Eco|
00001980  6e 65 74 20 22 27 0d 07  9e 4e f1 20 22 73 6f 66  |net "'...N. "sof|
00001990  74 77 61 72 65 20 6d 6f  64 75 6c 65 20 75 70 64  |tware module upd|
000019a0  61 74 65 73 3b 20 63 6f  6e 74 61 63 74 20 79 6f  |ates; contact yo|
000019b0  75 72 20 4c 45 41 20 61  64 76 69 73 6f 72 20 6f  |ur LEA advisor o|
000019c0  72 20 41 63 6f 72 6e 20  64 65 61 6c 65 72 20 66  |r Acorn dealer f|
000019d0  6f 72 22 27 0d 07 a8 4e  f1 20 22 66 75 72 74 68  |or"'...N. "furth|
000019e0  65 72 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 2e 20  |er information. |
000019f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001a20  22 27 0d 07 b2 05 f1 0d  07 bc 0e f2 73 70 61 63  |"'..........spac|
00001a30  65 5f 62 61 72 0d 07 c6  05 e1 0d 07 d0 05 3a 0d  |e_bar.........:.|
00001a40  07 da 14 dd 20 f2 62 6c  6f 63 6b 28 62 6c 6f 63  |.... .block(bloc|
00001a50  6b 24 29 0d 07 e4 0e f1  20 27 62 6c 6f 63 6b 24  |k$)..... 'block$|
00001a60  27 0d 07 ee 1f f3 20 53  70 61 74 68 24 2c 20 4e  |'..... Spath$, N|
00001a70  45 54 70 61 74 68 24 2c  20 48 44 70 61 74 68 24  |ETpath$, HDpath$|
00001a80  0d 07 f8 31 e7 20 6e 65  74 25 20 8c 20 44 70 61  |...1. net% . Dpa|
00001a90  74 68 24 20 3d 20 4e 45  54 70 61 74 68 24 20 8b  |th$ = NETpath$ .|
00001aa0  20 44 70 61 74 68 24 20  3d 20 48 44 70 61 74 68  | Dpath$ = HDpath|
00001ab0  24 0d 08 02 09 f2 70 61  74 68 0d 08 0c 20 f3 20  |$.....path... . |
00001ac0  66 6c 61 67 25 2c 6e 61  6d 65 24 2c 4e 45 54 61  |flag%,name$,NETa|
00001ad0  63 63 24 2c 48 44 61 63  63 24 0d 08 16 0f c8 95  |cc$,HDacc$......|
00001ae0  20 66 6c 61 67 25 3c 3e  30 0d 08 20 2b e7 20 6e  | flag%<>0.. +. n|
00001af0  65 74 25 20 8c 20 61 63  63 24 20 3d 20 4e 45 54  |et% . acc$ = NET|
00001b00  61 63 63 24 20 8b 20 61  63 63 24 20 3d 20 48 44  |acc$ . acc$ = HD|
00001b10  61 63 63 24 0d 08 2a 1d  f2 6f 62 6a 65 63 74 28  |acc$..*..object(|
00001b20  66 6c 61 67 25 2c 6e 61  6d 65 24 2c 61 63 63 24  |flag%,name$,acc$|
00001b30  29 0d 08 34 20 f3 20 66  6c 61 67 25 2c 6e 61 6d  |)..4 . flag%,nam|
00001b40  65 24 2c 4e 45 54 61 63  63 24 2c 48 44 61 63 63  |e$,NETacc$,HDacc|
00001b50  24 0d 08 3e 05 ce 0d 08  48 05 e1 0d 08 52 05 3a  |$..>....H....R.:|
00001b60  0d 08 5c 18 dd 20 f2 72  65 61 64 5f 75 73 65 72  |..\.. .read_user|
00001b70  5f 6f 62 6a 65 63 74 73  0d 08 66 0a f3 20 6f 62  |_objects..f.. ob|
00001b80  6a 25 0d 08 70 38 de 20  66 6c 61 67 25 28 6f 62  |j%..p8. flag%(ob|
00001b90  6a 25 29 2c 6e 61 6d 65  24 28 6f 62 6a 25 29 2c  |j%),name$(obj%),|
00001ba0  4e 45 54 61 63 63 24 28  6f 62 6a 25 29 2c 48 44  |NETacc$(obj%),HD|
00001bb0  61 63 63 24 28 6f 62 6a  25 29 0d 08 7a 11 e3 20  |acc$(obj%)..z.. |
00001bc0  49 25 3d 31 20 b8 20 6f  62 6a 25 0d 08 84 30 f3  |I%=1 . obj%...0.|
00001bd0  20 66 6c 61 67 25 28 49  25 29 2c 6e 61 6d 65 24  | flag%(I%),name$|
00001be0  28 49 25 29 2c 4e 45 54  61 63 63 24 28 49 25 29  |(I%),NETacc$(I%)|
00001bf0  2c 48 44 61 63 63 24 28  49 25 29 0d 08 8e 08 ed  |,HDacc$(I%).....|
00001c00  20 49 25 0d 08 98 05 e1  0d 08 a2 05 3a 0d 08 ac  | I%.........:...|
00001c10  0b dd 20 f2 70 61 74 68  0d 08 b6 29 74 65 6d 70  |.. .path...)temp|
00001c20  24 20 3d 20 44 70 61 74  68 24 3a 64 6f 75 62 6c  |$ = Dpath$:doubl|
00001c30  65 25 20 3d 20 a7 44 70  61 74 68 24 2c 22 2e 22  |e% = .Dpath$,"."|
00001c40  29 0d 08 c0 3d e7 20 64  6f 75 62 6c 65 25 20 8c  |)...=. double% .|
00001c50  20 44 70 61 74 68 24 20  3d 20 c0 44 70 61 74 68  | Dpath$ = .Dpath|
00001c60  24 2c 64 6f 75 62 6c 65  25 2d 31 29 3a f2 6f 62  |$,double%-1):.ob|
00001c70  6a 65 63 74 28 32 2c 22  22 2c 22 4c 22 29 0d 08  |ject(2,"","L")..|
00001c80  ca 2e 44 70 61 74 68 24  20 3d 20 74 65 6d 70 24  |..Dpath$ = temp$|
00001c90  3a f2 6f 62 6a 65 63 74  28 32 2c 22 22 2c 22 4c  |:.object(2,"","L|
00001ca0  22 29 3a 64 6f 75 62 6c  65 25 3d 30 0d 08 d4 05  |"):double%=0....|
00001cb0  e1 0d 08 de 05 3a 0d 08  e8 1f dd 20 f2 6f 62 6a  |.....:..... .obj|
00001cc0  65 63 74 28 66 6c 61 67  25 2c 6e 61 6d 65 24 2c  |ect(flag%,name$,|
00001cd0  61 63 63 24 29 0d 08 f2  19 f2 73 65 74 5f 6f 62  |acc$).....set_ob|
00001ce0  6a 65 63 74 5f 76 61 72  69 61 62 6c 65 73 0d 08  |ject_variables..|
00001cf0  fc 11 f2 63 68 65 63 6b  5f 73 6f 75 72 63 65 0d  |...check_source.|
00001d00  09 06 26 e7 20 64 65 73  74 24 20 3c 3e 20 44 24  |..&. dest$ <> D$|
00001d10  20 8c 20 f2 77 72 69 74  65 5f 64 65 73 74 69 6e  | . .write_destin|
00001d20  61 74 69 6f 6e 0d 09 10  05 e1 0d 09 1a 05 3a 0d  |ation.........:.|
00001d30  09 24 1b dd 20 f2 73 65  74 5f 6f 62 6a 65 63 74  |.$.. .set_object|
00001d40  5f 76 61 72 69 61 62 6c  65 73 0d 09 2e 2d 73 6f  |_variables...-so|
00001d50  75 72 63 65 24 20 3d 20  a4 6f 62 6a 65 63 74 5f  |urce$ = .object_|
00001d60  6e 61 6d 65 28 53 24 2c  20 53 70 61 74 68 24 2c  |name(S$, Spath$,|
00001d70  20 6e 61 6d 65 24 29 0d  09 38 2d 64 65 73 74 24  | name$)..8-dest$|
00001d80  20 20 20 3d 20 a4 6f 62  6a 65 63 74 5f 6e 61 6d  |   = .object_nam|
00001d90  65 28 44 24 2c 20 44 70  61 74 68 24 2c 20 6e 61  |e(D$, Dpath$, na|
00001da0  6d 65 24 29 0d 09 42 0e  c8 8e 20 66 6c 61 67 25  |me$)..B... flag%|
00001db0  20 ca 0d 09 4c 32 c9 20  31 3a 20 6f 62 6a 65 63  | ...L2. 1: objec|
00001dc0  74 24 20 3d 20 22 66 69  6c 65 22 3a 6d 69 73 5f  |t$ = "file":mis_|
00001dd0  6d 61 74 63 68 24 20 3d  20 22 64 69 72 65 63 74  |match$ = "direct|
00001de0  6f 72 79 22 0d 09 56 33  c9 20 32 3a 20 6f 62 6a  |ory"..V3. 2: obj|
00001df0  65 63 74 24 20 3d 20 22  64 69 72 65 63 74 6f 72  |ect$ = "director|
00001e00  79 22 3a 6d 69 73 5f 6d  61 74 63 68 24 20 20 3d  |y":mis_match$  =|
00001e10  20 22 66 69 6c 65 22 0d  09 60 05 cb 0d 09 6a 05  | "file"..`....j.|
00001e20  e1 0d 09 74 05 3a 0d 09  7e 13 dd 20 f2 63 68 65  |...t.:..~.. .che|
00001e30  63 6b 5f 73 6f 75 72 63  65 0d 09 88 33 63 61 73  |ck_source...3cas|
00001e40  65 30 24 20 3d 20 6f 62  6a 65 63 74 24 20 2b 20  |e0$ = object$ + |
00001e50  22 20 22 20 2b 20 73 6f  75 72 63 65 24 20 2b 20  |" " + source$ + |
00001e60  22 20 6e 6f 74 20 66 6f  75 6e 64 22 0d 09 92 4a  |" not found"...J|
00001e70  63 61 73 65 31 24 20 3d  20 73 6f 75 72 63 65 24  |case1$ = source$|
00001e80  20 2b 20 22 20 73 68 6f  75 6c 64 20 62 65 20 61  | + " should be a|
00001e90  20 22 20 2b 20 6f 62 6a  65 63 74 24 20 2b 20 22  | " + object$ + "|
00001ea0  2c 20 6e 6f 74 20 61 20  22 20 2b 20 6d 69 73 5f  |, not a " + mis_|
00001eb0  6d 61 74 63 68 24 0d 09  9c 32 63 61 73 65 32 24  |match$...2case2$|
00001ec0  20 3d 20 6f 62 6a 65 63  74 24 20 2b 20 c4 31 30  | = object$ + .10|
00001ed0  2d a9 6f 62 6a 65 63 74  24 2c 22 20 22 29 20 2b  |-.object$," ") +|
00001ee0  20 73 6f 75 72 63 65 24  0d 09 a6 24 73 6f 75 72  | source$...$sour|
00001ef0  63 65 25 3d a4 6f 73 66  69 6c 65 5f 35 28 73 6f  |ce%=.osfile_5(so|
00001f00  75 72 63 65 24 2c 66 6c  61 67 25 29 0d 09 b0 10  |urce$,flag%)....|
00001f10  c8 8e 20 73 6f 75 72 63  65 25 20 ca 0d 09 ba 3b  |.. source% ....;|
00001f20  c9 20 30 3a f1 20 22 4f  6d 69 73 73 69 6f 6e 20  |. 0:. "Omission |
00001f30  6f 6e 20 72 65 6c 65 61  73 65 20 64 69 73 63 21  |on release disc!|
00001f40  20 2d 20 22 27 27 20 2b  20 63 61 73 65 30 24 27  | - "'' + case0$'|
00001f50  3a f2 61 62 6f 72 74 0d  09 c4 3b c9 20 31 3a f1  |:.abort...;. 1:.|
00001f60  20 22 4d 69 73 6d 61 74  63 68 20 6f 6e 20 72 65  | "Mismatch on re|
00001f70  6c 65 61 73 65 20 64 69  73 63 21 20 2d 20 22 27  |lease disc! - "'|
00001f80  27 20 2b 20 63 61 73 65  31 24 27 3a f2 61 62 6f  |' + case1$':.abo|
00001f90  72 74 0d 09 ce 3f c9 20  32 3a f4 20 63 61 73 65  |rt...?. 2:. case|
00001fa0  32 24 20 28 63 6f 72 72  65 63 74 20 74 79 70 65  |2$ (correct type|
00001fb0  20 6f 66 20 6f 62 6a 65  63 74 20 66 6f 75 6e 64  | of object found|
00001fc0  20 6f 6e 20 72 65 6c 65  61 73 65 20 64 69 73 63  | on release disc|
00001fd0  29 0d 09 d8 05 cb 0d 09  e2 05 e1 0d 09 ec 05 3a  |)..............:|
00001fe0  0d 09 f6 18 dd 20 f2 77  72 69 74 65 5f 64 65 73  |..... .write_des|
00001ff0  74 69 6e 61 74 69 6f 6e  0d 0a 00 22 64 65 73 74  |tination..."dest|
00002000  25 20 3d 20 a4 6f 73 66  69 6c 65 5f 35 28 64 65  |% = .osfile_5(de|
00002010  73 74 24 2c 66 6c 61 67  25 29 0d 0a 0a 22 e7 20  |st$,flag%)...". |
00002020  66 6c 61 67 25 3d 31 20  8c 20 f2 66 69 6c 65 20  |flag%=1 . .file |
00002030  8b 20 f2 64 69 72 65 63  74 6f 72 79 0d 0a 14 28  |. .directory...(|
00002040  f2 63 6c 69 28 22 41 43  43 45 53 53 20 22 20 2b  |.cli("ACCESS " +|
00002050  20 64 65 73 74 24 20 2b  20 22 20 22 20 2b 20 61  | dest$ + " " + a|
00002060  63 63 24 29 0d 0a 1e 13  f4 20 50 52 4f 43 70 72  |cc$)..... PROCpr|
00002070  65 73 73 5f 6b 65 79 0d  0a 28 05 e1 0d 0a 32 05  |ess_key..(....2.|
00002080  3a 0d 0a 3c 0b dd 20 f2  66 69 6c 65 0d 0a 46 0e  |:..<.. .file..F.|
00002090  c8 8e 20 64 65 73 74 25  20 ca 0d 0a 50 12 c9 20  |.. dest% ...P.. |
000020a0  30 3a f2 63 6f 70 79 5f  66 69 6c 65 0d 0a 5a 34  |0:.copy_file..Z4|
000020b0  c9 20 31 3a e7 20 a4 6f  76 65 72 77 72 69 74 65  |. 1:. .overwrite|
000020c0  20 8c 20 f2 77 69 70 65  5f 64 69 72 3a f2 63 6f  | . .wipe_dir:.co|
000020d0  70 79 5f 66 69 6c 65 20  8b 20 f2 61 62 6f 72 74  |py_file . .abort|
000020e0  0d 0a 64 34 c9 20 32 3a  e7 20 a4 6f 76 65 72 77  |..d4. 2:. .overw|
000020f0  72 69 74 65 20 8c 20 f2  64 65 6c 5f 66 69 6c 65  |rite . .del_file|
00002100  3a f2 63 6f 70 79 5f 66  69 6c 65 20 8b 20 f2 61  |:.copy_file . .a|
00002110  62 6f 72 74 0d 0a 6e 05  cb 0d 0a 78 05 e1 0d 0a  |bort..n....x....|
00002120  82 05 3a 0d 0a 8c 10 dd  20 f2 64 69 72 65 63 74  |..:..... .direct|
00002130  6f 72 79 0d 0a 96 0e c8  8e 20 64 65 73 74 25 20  |ory...... dest% |
00002140  ca 0d 0a a0 0d c9 20 30  3a f2 63 64 69 72 0d 0a  |...... 0:.cdir..|
00002150  aa 2f c9 20 31 3a e7 20  a4 6f 76 65 72 77 72 69  |./. 1:. .overwri|
00002160  74 65 20 8c 20 f2 64 65  6c 5f 66 69 6c 65 3a f2  |te . .del_file:.|
00002170  63 64 69 72 20 8b 20 f2  61 62 6f 72 74 0d 0a b4  |cdir . .abort...|
00002180  32 c9 20 32 3a f1 20 22  64 69 72 65 63 74 6f 72  |2. 2:. "director|
00002190  79 20 22 20 2b 20 64 65  73 74 24 20 2b 20 22 20  |y " + dest$ + " |
000021a0  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 22 0d  |already exists".|
000021b0  0a be 05 cb 0d 0a c8 05  e1 0d 0a d2 05 3a 0d 0a  |.............:..|
000021c0  dc 10 dd 20 a4 6f 76 65  72 77 72 69 74 65 0d 0a  |... .overwrite..|
000021d0  e6 0b ea 20 74 79 70 65  24 0d 0a f0 0e c8 8e 20  |... type$...... |
000021e0  64 65 73 74 25 20 ca 0d  0a fa 1a c9 20 31 3a 74  |dest% ...... 1:t|
000021f0  79 70 65 24 20 3d 20 6d  69 73 5f 6d 61 74 63 68  |ype$ = mis_match|
00002200  24 0d 0b 04 17 c9 20 32  3a 74 79 70 65 24 20 3d  |$..... 2:type$ =|
00002210  20 6f 62 6a 65 63 74 24  0d 0b 0e 05 cb 0d 0b 18  | object$........|
00002220  3d f1 20 27 22 57 61 72  6e 69 6e 67 21 20 20 22  |=. '"Warning!  "|
00002230  20 2b 20 64 65 73 74 24  20 2b 20 22 20 61 6c 72  | + dest$ + " alr|
00002240  65 61 64 79 20 65 78 69  73 74 73 20 61 73 20 61  |eady exists as a|
00002250  20 22 20 2b 20 74 79 70  65 24 0d 0b 22 1a f1 20  | " + type$..".. |
00002260  27 22 4f 76 65 72 77 72  69 74 65 3f 28 59 2f 4e  |'"Overwrite?(Y/N|
00002270  29 20 22 3b 0d 0b 2c 20  ea 20 47 24 2c 20 79 65  |) ";.., . G$, ye|
00002280  73 25 2c 20 6e 6f 25 3a  79 65 73 25 3d a3 3a 6e  |s%, no%:yes%=.:n|
00002290  6f 25 3d a3 0d 0b 36 05  f5 0d 0b 40 0c 2a 46 58  |o%=...6....@.*FX|
000022a0  20 31 35 2c 31 0d 0b 4a  08 47 24 3d be 0d 0b 54  | 15,1..J.G$=...T|
000022b0  30 79 65 73 25 3d 28 47  24 3d 22 59 22 20 84 20  |0yes%=(G$="Y" . |
000022c0  47 24 3d 22 79 22 29 3a  6e 6f 25 3d 28 47 24 3d  |G$="y"):no%=(G$=|
000022d0  22 4e 22 20 84 20 47 24  3d 22 6e 22 29 0d 0b 5e  |"N" . G$="n")..^|
000022e0  12 fd 20 28 79 65 73 25  20 84 20 6e 6f 25 29 0d  |.. (yes% . no%).|
000022f0  0b 68 09 f1 20 47 24 27  0d 0b 72 0a 3d 20 79 65  |.h.. G$'..r.= ye|
00002300  73 25 0d 0b 7c 05 3a 0d  0b 86 1b dd 20 a4 6f 73  |s%..|.:..... .os|
00002310  66 69 6c 65 5f 35 28 6f  62 6a 24 2c 66 6c 61 67  |file_5(obj$,flag|
00002320  25 29 0d 0b 90 13 ea 20  74 79 70 65 25 2c 72 65  |%)..... type%,re|
00002330  74 75 72 6e 25 0d 0b 9a  15 74 79 70 65 25 3d 30  |turn%....type%=0|
00002340  3a 72 65 74 75 72 6e 25  3d 30 0d 0b a4 1f c8 99  |:return%=0......|
00002350  20 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 6f 62 6a  | "OS_File",5,obj|
00002360  24 20 b8 20 74 79 70 65  25 0d 0b ae 3f e7 20 74  |$ . type%...?. t|
00002370  79 70 65 25 20 3d 20 30  20 8c 20 72 65 74 75 72  |ype% = 0 . retur|
00002380  6e 25 20 3d 20 30 20 20  20 20 20 20 20 20 20 20  |n% = 0          |
00002390  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 4e  |            :. N|
000023a0  6f 74 20 66 6f 75 6e 64  0d 0b b8 44 e7 20 28 74  |ot found...D. (t|
000023b0  79 70 65 25 20 3e 20 30  20 80 20 74 79 70 65 25  |ype% > 0 . type%|
000023c0  20 3c 3e 20 66 6c 61 67  25 29 20 8c 20 72 65 74  | <> flag%) . ret|
000023d0  75 72 6e 25 20 3d 20 31  20 3a f4 20 4f 62 6a 65  |urn% = 1 :. Obje|
000023e0  63 74 20 6d 69 73 2d 6d  61 74 63 68 0d 0b c2 40  |ct mis-match...@|
000023f0  e7 20 28 74 79 70 65 25  20 3e 20 30 20 80 20 74  |. (type% > 0 . t|
00002400  79 70 65 25 20 3d 20 66  6c 61 67 25 29 20 8c 20  |ype% = flag%) . |
00002410  72 65 74 75 72 6e 25 20  3d 20 32 20 20 3a f4 20  |return% = 2  :. |
00002420  4f 62 6a 65 63 74 20 6d  61 74 63 68 0d 0b cc 0d  |Object match....|
00002430  3d 20 72 65 74 75 72 6e  25 0d 0b d6 05 3a 0d 0b  |= return%....:..|
00002440  e0 1c dd 20 a4 6f 62 6a  65 63 74 5f 6e 61 6d 65  |... .object_name|
00002450  28 61 24 2c 62 24 2c 63  24 29 0d 0b ea 23 e7 20  |(a$,b$,c$)...#. |
00002460  62 24 20 3c 3e 20 22 22  20 8c 20 61 24 20 3d 20  |b$ <> "" . a$ = |
00002470  61 24 20 2b 20 22 2e 22  20 2b 20 62 24 0d 0b f4  |a$ + "." + b$...|
00002480  23 e7 20 63 24 20 3c 3e  20 22 22 20 8c 20 61 24  |#. c$ <> "" . a$|
00002490  20 3d 20 61 24 20 2b 20  22 2e 22 20 2b 20 63 24  | = a$ + "." + c$|
000024a0  0d 0b fe 08 3d 20 61 24  0d 0c 08 05 3a 0d 0c 12  |....= a$....:...|
000024b0  37 dd 20 f2 63 6f 70 79  5f 66 69 6c 65 3a ea 20  |7. .copy_file:. |
000024c0  63 6f 70 79 5f 6f 70 74  24 3a 63 6f 70 79 5f 6f  |copy_opt$:copy_o|
000024d0  70 74 24 3d 22 7e 43 7e  44 7e 46 7e 50 7e 51 7e  |pt$="~C~D~F~P~Q~|
000024e0  52 7e 56 22 0d 0c 1c 22  ea 20 74 79 70 65 2c 6c  |R~V"...". type,l|
000024f0  6f 61 64 2c 65 78 65 63  2c 6c 65 6e 67 74 68 2c  |oad,exec,length,|
00002500  68 6f 77 25 2c 58 0d 0c  26 37 58 3d ad 28 73 6f  |how%,X..&7X=.(so|
00002510  75 72 63 65 24 29 3a 6c  65 6e 67 74 68 3d a2 23  |urce$):length=.#|
00002520  58 3a d9 23 58 3a 68 6f  77 25 3d 28 6c 65 6e 67  |X:.#X:how%=(leng|
00002530  74 68 20 3c 3d 20 26 34  42 30 30 30 29 0d 0c 30  |th <= &4B000)..0|
00002540  0d c8 8e 20 68 6f 77 25  20 ca 0d 0c 3a 40 c9 20  |... how% ...:@. |
00002550  30 20 3a f2 63 6c 69 28  22 43 4f 50 59 20 22 20  |0 :.cli("COPY " |
00002560  2b 20 73 6f 75 72 63 65  24 20 2b 20 22 20 22 20  |+ source$ + " " |
00002570  2b 20 64 65 73 74 24 20  2b 20 22 20 22 20 2b 20  |+ dest$ + " " + |
00002580  63 6f 70 79 5f 6f 70 74  24 29 0d 0c 44 45 c9 20  |copy_opt$)..DE. |
00002590  2d 31 3a c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |-1:.. "OS_File",|
000025a0  26 46 46 2c 73 6f 75 72  63 65 24 2c 63 6f 70 79  |&FF,source$,copy|
000025b0  61 72 65 61 2c 30 20 b8  20 74 79 70 65 2c 2c 6c  |area,0 . type,,l|
000025c0  6f 61 64 2c 65 78 65 63  2c 6c 65 6e 67 74 68 0d  |oad,exec,length.|
000025d0  0c 4e 3f c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |.N?.. "OS_File",|
000025e0  30 2c 64 65 73 74 24 2c  6c 6f 61 64 2c 65 78 65  |0,dest$,load,exe|
000025f0  63 2c 63 6f 70 79 61 72  65 61 2c 28 63 6f 70 79  |c,copyarea,(copy|
00002600  61 72 65 61 20 2b 20 6c  65 6e 67 74 68 29 0d 0c  |area + length)..|
00002610  58 05 cb 0d 0c 62 24 f1  20 63 61 73 65 32 24 20  |X....b$. case2$ |
00002620  2b 20 22 20 63 6f 70 69  65 64 20 61 73 20 22 20  |+ " copied as " |
00002630  2b 20 64 65 73 74 24 0d  0c 6c 05 e1 0d 0c 76 05  |+ dest$..l....v.|
00002640  3a 0d 0c 80 2c dd 20 f2  61 62 6f 72 74 3a f1 20  |:...,. .abort:. |
00002650  27 22 49 6e 73 74 61 6c  6c 61 74 69 6f 6e 20 61  |'"Installation a|
00002660  62 6f 72 74 65 64 2e 22  27 3a e0 3a e1 0d 0c 8a  |borted."':.:....|
00002670  16 dd 20 f2 63 6c 69 28  73 24 29 3a ff 28 73 24  |.. .cli(s$):.(s$|
00002680  29 3a e1 0d 0c 94 21 dd  20 f2 63 64 69 72 3a f2  |):....!. .cdir:.|
00002690  63 6c 69 28 22 43 44 49  52 20 22 20 2b 20 64 65  |cli("CDIR " + de|
000026a0  73 74 24 29 0d 0c 9e 31  e7 20 64 6f 75 62 6c 65  |st$)...1. double|
000026b0  25 3d 30 20 8c 20 f1 20  63 61 73 65 32 24 2b 22  |%=0 . . case2$+"|
000026c0  20 63 72 65 61 74 65 64  20 61 73 20 22 20 2b 20  | created as " + |
000026d0  64 65 73 74 24 0d 0c a8  05 e1 0d 0c b2 3f dd 20  |dest$........?. |
000026e0  f2 64 65 6c 5f 66 69 6c  65 3a f2 63 6c 69 28 22  |.del_file:.cli("|
000026f0  41 43 43 45 53 53 20 22  20 2b 20 64 65 73 74 24  |ACCESS " + dest$|
00002700  29 3a f2 63 6c 69 28 22  44 45 4c 45 54 45 20 22  |):.cli("DELETE "|
00002710  2b 64 65 73 74 24 29 3a  e1 0d 0c bc 37 dd 20 f2  |+dest$):....7. .|
00002720  73 70 61 63 65 5f 62 61  72 3a f1 20 22 20 2a 20  |space_bar:. " * |
00002730  70 72 65 73 73 20 53 50  41 43 45 20 42 41 52 20  |press SPACE BAR |
00002740  74 6f 20 63 6f 6e 74 69  6e 75 65 22 3a ea 20 67  |to continue":. g|
00002750  0d 0c c6 0e f5 3a 2a 46  58 20 31 35 2c 31 0d 0c  |.....:*FX 15,1..|
00002760  d0 10 67 3d a5 3a fd 20  67 3d 33 32 3a db 0d 0c  |..g=.:. g=32:...|
00002770  da 05 e1 0d 0c e4 30 dd  20 f2 77 69 70 65 5f 64  |......0. .wipe_d|
00002780  69 72 3a f2 63 6c 69 28  22 57 49 50 45 20 22 20  |ir:.cli("WIPE " |
00002790  2b 20 64 65 73 74 24 20  2b 20 22 20 56 46 52 22  |+ dest$ + " VFR"|
000027a0  29 3a e1 0d 0c ee 05 3a  0d 0c f8 4f f4 20 41 50  |):.....:...O. AP|
000027b0  50 4c 49 43 41 54 49 4f  4e 20 20 20 20 20 20 20  |PLICATION       |
000027c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000027e0  20 20 20 20 20 20 3a 52  45 4d 20 3c 3c 3c 20 44  |      :REM <<< D|
000027f0  41 54 41 20 3e 3e 3e 0d  0d 02 18 dc 20 22 50 61  |ATA >>>..... "Pa|
00002800  73 63 61 6c 20 72 65 6c  65 61 73 65 20 32 22 0d  |scal release 2".|
00002810  0d 0c 05 3a 0d 0d 16 0b  f4 20 52 4f 4f 54 53 0d  |...:..... ROOTS.|
00002820  0d 20 2b f4 20 73 6f 75  72 63 65 2c 20 6e 65 74  |. +. source, net|
00002830  77 6f 72 6b 20 28 4e 45  54 29 2c 20 68 61 72 64  |work (NET), hard|
00002840  20 64 69 73 63 20 28 48  44 29 0d 0d 2a 27 dc 20  | disc (HD)..*'. |
00002850  22 41 44 46 53 3a 3a 30  2e 24 22 2c 20 22 4e 45  |"ADFS::0.$", "NE|
00002860  54 3a 24 22 2c 20 22 41  44 46 53 3a 3a 34 2e 24  |T:$", "ADFS::4.$|
00002870  22 0d 0d 34 05 3a 0d 0d  3e 0d f4 20 4c 49 42 52  |"..4.:..>.. LIBR|
00002880  41 52 59 0d 0d 48 2c f4  20 20 73 6f 75 72 63 65  |ARY..H,.  source|
00002890  2c 20 6e 65 74 77 6f 72  6b 20 28 4e 45 54 29 2c  |, network (NET),|
000028a0  20 68 61 72 64 20 64 69  73 63 20 28 48 44 29 0d  | hard disc (HD).|
000028b0  0d 52 27 dc 20 4c 69 62  72 61 72 79 2c 20 41 72  |.R'. Library, Ar|
000028c0  74 68 75 72 6c 69 62 2c  20 21 42 6f 6f 74 2e 4c  |thurlib, !Boot.L|
000028d0  69 62 72 61 72 79 0d 0d  5c 15 f4 20 4c 49 42 52  |ibrary..\.. LIBR|
000028e0  41 52 59 20 4f 42 4a 45  43 54 53 0d 0d 66 2e f4  |ARY OBJECTS..f..|
000028f0  20 74 79 70 65 2c 20 6f  62 6a 65 63 74 20 6e 61  | type, object na|
00002900  6d 65 2c 20 4e 45 54 20  61 63 63 65 73 73 2c 20  |me, NET access, |
00002910  48 44 20 61 63 63 65 73  73 0d 0d 70 1d dc 20 31  |HD access..p.. 1|
00002920  2c 20 66 70 65 2c 20 20  20 20 20 20 20 20 4c 52  |, fpe,        LR|
00002930  2f 52 2c 20 4c 52 0d 0d  7a 1c dc 20 32 2c 20 6c  |/R, LR..z.. 2, l|
00002940  69 62 2c 20 20 20 20 20  20 20 20 4c 2c 20 20 20  |ib,        L,   |
00002950  20 4c 0d 0d 84 1d dc 20  31 2c 20 6c 69 62 2e 70  | L..... 1, lib.p|
00002960  61 73 6c 69 62 2c 20 4c  52 2f 52 2c 20 4c 52 0d  |aslib, LR/R, LR.|
00002970  0d 8e 1d dc 20 31 2c 20  6c 69 6e 6b 2c 20 20 20  |.... 1, link,   |
00002980  20 20 20 20 4c 52 2f 52  2c 20 4c 52 0d 0d 98 1d  |    LR/R, LR....|
00002990  dc 20 31 2c 20 70 61 73  63 61 6c 2c 20 20 20 20  |. 1, pascal,    |
000029a0  20 4c 52 2f 52 2c 20 4c  52 0d 0d a2 1e dc 20 30  | LR/R, LR..... 0|
000029b0  2c 20 65 6e 64 2c 20 20  20 20 20 20 20 20 65 6e  |, end,        en|
000029c0  64 2c 20 20 65 6e 64 0d  0d ac 05 3a 0d 0d b6 0f  |d,  end....:....|
000029d0  f4 20 52 45 53 4f 55 52  43 45 53 0d 0d c0 2b f4  |. RESOURCES...+.|
000029e0  20 73 6f 75 72 63 65 2c  20 6e 65 74 77 6f 72 6b  | source, network|
000029f0  20 28 4e 45 54 29 2c 20  68 61 72 64 20 64 69 73  | (NET), hard dis|
00002a00  63 20 28 48 44 29 0d 0d  ca 10 dc 20 22 22 2c 20  |c (HD)..... "", |
00002a10  22 22 2c 20 22 22 0d 0d  d4 16 f4 20 52 45 53 4f  |"", ""..... RESO|
00002a20  55 52 43 45 20 4f 42 4a  45 43 54 53 0d 0d de 2e  |URCE OBJECTS....|
00002a30  f4 20 74 79 70 65 2c 20  6f 62 6a 65 63 74 20 6e  |. type, object n|
00002a40  61 6d 65 2c 20 4e 45 54  20 61 63 63 65 73 73 2c  |ame, NET access,|
00002a50  20 48 44 20 61 63 63 65  73 73 0d 0d e8 20 dc 20  | HD access... . |
00002a60  30 2c 20 65 6e 64 2c 20  20 20 20 20 20 20 20 20  |0, end,         |
00002a70  65 6e 64 2c 20 20 20 65  6e 64 0d 0d f2 05 3a 0d  |end,   end....:.|
00002a80  0d fc 12 f4 20 55 53 45  52 20 4f 42 4a 45 43 54  |.... USER OBJECT|
00002a90  53 0d 0e 06 17 f4 20 6e  75 6d 62 65 72 20 6f 66  |S..... number of|
00002aa0  20 6f 62 6a 65 63 74 73  0d 0e 10 07 dc 20 35 0d  | objects..... 5.|
00002ab0  0e 1a 2e f4 20 74 79 70  65 2c 20 6f 62 6a 65 63  |.... type, objec|
00002ac0  74 20 6e 61 6d 65 2c 20  4e 45 54 20 61 63 63 65  |t name, NET acce|
00002ad0  73 73 2c 20 48 44 20 61  63 63 65 73 73 0d 0e 24  |ss, HD access..$|
00002ae0  1e dc 20 32 2c 20 61 6f  66 2c 20 20 20 20 20 20  |.. 2, aof,      |
00002af0  20 20 20 20 20 4c 2c 20  20 20 4c 0d 0e 2e 1e dc  |     L,   L.....|
00002b00  20 32 2c 20 6c 69 73 2c  20 20 20 20 20 20 20 20  | 2, lis,        |
00002b10  20 20 20 4c 2c 20 20 20  4c 0d 0e 38 1e dc 20 32  |   L,   L..8.. 2|
00002b20  2c 20 70 61 73 2c 20 20  20 20 20 20 20 20 20 20  |, pas,          |
00002b30  20 4c 2c 20 20 20 4c 0d  0e 42 1f dc 20 31 2c 20  | L,   L..B.. 1, |
00002b40  70 61 73 2e 48 65 6c 6c  6f 57 2c 20 20 20 20 57  |pas.HelloW,    W|
00002b50  52 2f 2c 20 57 52 0d 0e  4c 1e dc 20 32 2c 20 74  |R/, WR..L.. 2, t|
00002b60  6d 70 2c 20 20 20 20 20  20 20 20 20 20 20 4c 2c  |mp,           L,|
00002b70  20 20 20 4c 0d 0e 56 05  3a 0d 0e 60 0c f4 20 20  |   L..V.:..`..  |
00002b80  55 53 45 52 53 0d 0e 6a  0d f4 20 20 73 6f 75 72  |USERS..j..  sour|
00002b90  63 65 0d 0e 74 08 dc 20  22 22 0d 0e 7e 1a f4 20  |ce..t.. ""..~.. |
00002ba0  20 75 73 65 72 31 2c 20  75 73 65 72 32 2c 20 65  | user1, user2, e|
00002bb0  74 63 2e 2e 0d 0e 88 11  dc 20 50 61 73 63 61 6c  |tc....... Pascal|
00002bc0  2c 20 65 6e 64 0d 0e 92  04 0d ff                 |, end......|
00002bcb