diff options
Diffstat (limited to 'dialog/ls-DIALOG-gen')
| -rw-r--r-- | dialog/ls-DIALOG-gen | 130 |
1 files changed, 0 insertions, 130 deletions
diff --git a/dialog/ls-DIALOG-gen b/dialog/ls-DIALOG-gen deleted file mode 100644 index b5c7867..0000000 --- a/dialog/ls-DIALOG-gen +++ /dev/null @@ -1,130 +0,0 @@ -(* - - ********************************************************* - ********************************************************* - ** ** - ** ls-DIALOG ** - ** GENERATORPROGRAMM ** - ** Version 1.2 ** - ** ** - ** (Stand: 04.11.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 = "ls-DIALOG 1", - datei 2 = "ls-DIALOG 2", - datei 3 = "ls-DIALOG 3", - datei 4 = "ls-DIALOG 4", - datei 5 = "ls-DIALOG 5", - datei 6 = "ls-DIALOG 6", - datei 7 = "ls-DIALOG 7", - menukarte = "ls-MENUKARTE:Archiv"; -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-DIALOG/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-DIALOG - 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) - COR NOT exists (datei 5) COR NOT exists (datei 6) - COR NOT exists (datei 7) COR NOT exists (menukarte) - THEN hole dateien vom archiv - FI. -hole dateien vom archiv: - cursor (1,3); - IF yes ("Ist das Archiv angemeldet und die 'ls-DIALOG' - 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); - hole (datei 5); - hole (datei 6); - hole (datei 7); - hole (menukarte); - cursor (1, 3); out(""4""); - - out (" "15"Die Diskette wird nicht mehr benötigt! "14""); - release (archive) - FI. -insertiere die dateien: - check off; - in (datei 1); - in (datei 2); - in (datei 3); - in (datei 4); - in (datei 5); - in (datei 6); - in (datei 7); - schicke (menukarte); - IF einzeln THEN release (archive) FI; - check on. -mache global manager aus der task: - global manager. - - - - - |