1 files changed, 0 insertions, 112 deletions
diff --git a/menugenerator/ls-Menu-Generator-gen b/menugenerator/ls-Menu-Generator-gen
deleted file mode 100644
index ca26366..0000000
--- a/menugenerator/ls-Menu-Generator-gen
+++ /dev/null
@@ -1,112 +0,0 @@
-(* 
-        
-          ********************************************************* 
-          ********************************************************* 
-          **                                                     ** 
-          **                  ls-Menu-Generator                  ** 
-          **                  GENERATORPROGRAMM                  ** 
-          **                     Version 1.0                     ** 
-          **                                                     ** 
-          **                  (Stand: 30.03.88)                  ** 
-          **                                                     ** 
-          **                                                     ** 
-          **         Autor: Wolfgang Weber, Bielefeld            ** 
-          **                                                     ** 
-          **                                                     ** 
-          ** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld ** 
-          **                                                     ** 
-          ** Copyright (C) 1988 ERGOS GmbH, Siegburg             ** 
-          **                                                     ** 
-          ********************************************************* 
-          ********************************************************* 
- 
-                                                                           *) 
- 
-LET mm taskname =  "ls-MENUKARTEN",
-    datei 1     =  "Generatordatei: Archivmenu",
-    datei 2     =  "ls-MENUBASISTEXTE",
-    datei 3     =  "ls-Menu-Generator 1",
-    datei 4     =  "ls-Menu-Generator 2";
-PROC stelle existenz des mm sicher:
-  cursor (1, 5); out (""4"");
-  IF NOT exists (task (mm taskname))
-     THEN errorstop ("Unbedingt erst den 'MENUKARTEN-MANAGER' generieren!");
-  FI
-END PROC stelle existenz des mm sicher;
-PROC vom archiv (TEXT CONST datei):
-  cursor (1,5); out (""4"");
-
-  out ("  """); out (datei); putline (""" wird geholt.");
-  fetch (datei, archive)
-END PROC vom archiv;
-PROC hole (TEXT CONST datei):
-  IF NOT exists (datei) THEN vom archiv (datei) FI
-END PROC hole;
-PROC in (TEXT CONST datei):
-  hole (datei);
-  cursor (1, 5); out (""4"");
-  out ("  """); out (datei); out (""" wird übersetzt: ");
-  insert (datei);
-  forget (datei, quiet);
-END PROC in;
-PROC schicke (TEXT CONST datei):
-  cursor (1, 5); out (""4"");
-  out ("  """); out(datei);
-  out (""" wird zum MENUKARTEN-MANAGER geschickt!");
-
-  command dialogue (FALSE);
-  save (datei, task (mm taskname));
-  command dialogue (TRUE);
-  forget (datei, quiet)
-END PROC schicke;
-INT VAR size, used;
-BOOL VAR einzeln;
-storage (size, used);
-einzeln := size - used < 500;
-forget ("ls-Menu-Generator/gen", quiet);
-wirf kopfzeile aus;
-stelle existenz des mm sicher;
-hole die dateien;
-insertiere die dateien;
-mache global manager aus der task.
-wirf kopfzeile aus:
-  page;
-  putline ("                  "15"ls-Menu-Generator - Automatische Generierung "14"").
-
-hole die dateien:
-  IF     NOT exists (datei 1) COR NOT exists (datei 2)
-     COR NOT exists (datei 3) COR NOT exists (datei 4)
-     THEN hole dateien vom archiv
-  FI.
-hole dateien vom archiv:
-  cursor (1,3);
-  say ("Ist das Archiv angemeldet und die "); line;
-  IF yes ("'ls-Menu-Generator'-Diskette eingelegt")
-     THEN lese ein
-     ELSE line (2);
-          errorstop ("Ohne die Diskette kann ich das System nicht generieren!")
-  FI.
-lese ein:
-  cursor (1, 3); out (""4"");
-  out ("                      "15"Bitte die Diskette eingelegt lassen! "14"");
-
-  IF NOT einzeln
-     THEN hole (datei 1);
-          hole (datei 2);
-          hole (datei 3);
-          hole (datei 4);
-          cursor (1, 3); out(""4"");
-          out ("                     "15"Die Diskette wird nicht mehr benötigt! "14"");
-          release (archive)
-  FI.
-insertiere die dateien:
-  check off;
-  schicke (datei 2);
-  in (datei 3);
-  in (datei 4);
-  IF einzeln THEN release (archive) FI;
-  check on.
-mache global manager aus der task:
-  global manager.
-
-