1 files changed, 34 insertions, 0 deletions
diff --git a/system/setup/3.1/src/neu b/system/setup/3.1/src/neu
new file mode 100644
index 0000000..a89779c
--- /dev/null
+++ b/system/setup/3.1/src/neu
@@ -0,0 +1,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);
+ 
+
+
+
+
+
+
+