blob: 24be82bbfd4595742c88fe01945c1eebe60e9e0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
IF NOT single user
THEN do ("IF name (myself) <> ""DOS HD"" THEN error stop (""Bitte der Task den Namen 'DOS HD' geben und neu starten"") FI");
FI;
archive ("austausch");
check off;
command dialogue (FALSE);
fetch ("insert.dos", archive);
fetch ("bpb ds", archive);
IF single user
THEN do (PROC (TEXT CONST) gen s, ALL "insert.dos");
gen s ("manager/S.dos")
ELSE fetch (ALL "insert.dos", archive);
fetch ("manager/M.dos", archive);
release (archive);
do (PROC (TEXT CONST) gen m, ALL "insert.dos");
gen m ("manager/M.dos");
FI;
do ("hd version (TRUE)");
forget ("insert.dos", quiet);
forget ("dos hd inserter", quiet);
IF NOT single user
THEN do ("dos manager (29)")
FI.
single user:
(pcb (9) AND 255) = 1.
PROC gen m (TEXT CONST name):
insert (name);
forget (name, quiet)
END PROC gen m;
PROC gen s (TEXT CONST t):
fetch (t, archive);
insert (t);
forget (t, quiet)
END PROC gen s;
|
