system/setup/3.1/src/neu

Raw file
Back to index

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);