blob: a89779c4c2132d63a515c326bd2506d070359b9f (
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
|
TEXT VAR t1 :: "SHardmodul Floppy", t2 :: "FLOPPY.EXE";
reserve ("ds", /"DOS");
IF yes("init",FALSE)
THEN init modules list;
FI;
THESAURUS VAR th1 :: all modules, th2 :: empty thesaurus;
WHILE yes ("noch Module holen", TRUE) REP
t2 := ONE /"DOS";
t1 := ONE (th1);
editget (t1); line;
forget (t1);
fetch (t2, /"DOS");
copy (t2, t1); last param (t1);
th2 := th2 + t1
PER;
WHILE yes ("jetzt noch andere holen", FALSE) REP
t2 := ONE /"DOS";
t1 := ONE all;
editget (t1); line;
forget (t1);
fetch (t2, /"DOS");
copy (t2, t1); last param (t1);
PER;
release (/"DOS");
linkshard module (th2);
|
