summaryrefslogtreecommitdiff
path: root/dialog/ls-DIALOG MENUKARTEN MANAGER
diff options
context:
space:
mode:
Diffstat (limited to 'dialog/ls-DIALOG MENUKARTEN MANAGER')
-rw-r--r--dialog/ls-DIALOG MENUKARTEN MANAGER66
1 files changed, 0 insertions, 66 deletions
diff --git a/dialog/ls-DIALOG MENUKARTEN MANAGER b/dialog/ls-DIALOG MENUKARTEN MANAGER
deleted file mode 100644
index a6fcb1f..0000000
--- a/dialog/ls-DIALOG MENUKARTEN MANAGER
+++ /dev/null
@@ -1,66 +0,0 @@
-(*
-
- *********************************************************
- *********************************************************
- ** **
- ** ls-DIALOG **
- ** MENUKARTEN-MANAGER **
- ** 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 **
- ** **
- *********************************************************
- *********************************************************
-
- *)
-
-PACKET ls dialog manager DEFINES
- ls dialog manager:
-LET fetch code = 11,
- save code = 12,
- exists code = 13,
- list code = 15,
- continue code = 100;
-LET mm taskname = "ls-MENUKARTEN",
- gibt es schon = "Die Task 'ls-MENUKARTEN' existiert schon!",
- verweis = "Unzulässiger Zugriff auf die Task 'ls-MENUKARTEN'!";
-PROC ls dialog manager:
- stelle richtigen tasknamen ein;
- global manager
- (PROC (DATASPACE VAR, INT CONST, INT CONST, TASK CONST) ls dialog manager)
-
-END PROC ls dialog manager;
-PROC stelle richtigen tasknamen ein:
- IF name (myself) <> mm taskname
- THEN nimm umbenennung vor
- FI.
- nimm umbenennung vor:
- IF NOT exists task (mm taskname)
- THEN rename myself (mm taskname)
- ELSE errorstop (gibt es schon)
- FI.
-END PROC stelle richtigen tasknamen ein;
-PROC ls dialog manager (DATASPACE VAR ds, INT CONST order, phase,
- TASK CONST order task):
- IF order task = supervisor
- OR order = fetch code
-
- OR order = save code
- OR order = exists code
- OR order = list code
- OR order = continue code
- THEN free manager (ds, order, phase, order task)
- ELSE errorstop (verweis)
- FI
-END PROC ls dialog manager;
-END PACKET ls dialog manager;
-
-