diff options
Diffstat (limited to 'dialog/ls-DIALOG MENUKARTEN MANAGER')
| -rw-r--r-- | dialog/ls-DIALOG MENUKARTEN MANAGER | 66 | 
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; - - | 
