1 files changed, 0 insertions, 178 deletions
diff --git a/system/std.zusatz/1.8.7/src/spool cmd b/system/std.zusatz/1.8.7/src/spool cmd
deleted file mode 100644
index 9b43d36..0000000
--- a/system/std.zusatz/1.8.7/src/spool cmd
+++ /dev/null
@@ -1,178 +0,0 @@
-PACKET spool cmd                                    (* Autor : R. Ruland  *)
-                                                    (* Stand : 13.08.87   *)
-       DEFINES
-               spool control password,
- 
-               kill  spool,
-               first spool,
-               start spool,
-               stop  spool,
-               halt  spool,
-               wait for halt :
- 
-LET error nak          = 2 ,
- 
-    entry line code    = 23 ,
-    killer code        = 24 , 
-    first code         = 25 ,
-    start code         = 26 , 
-    stop code          = 27 ,
-    halt code          = 28 ,
-    wait for halt code = 29 ;
- 
-DATASPACE VAR ds;
- 
-BOUND STRUCT (TEXT entry line, INT index, TEXT actual entries, password) VAR control msg;
-BOUND TEXT VAR error msg;
-INT VAR reply;
- 
-INITFLAG VAR in this task := FALSE;
-BOOL VAR dialogue;
-TEXT VAR control password, password;
- 
-control password := "";
- 
-PROC spool control password (TEXT CONST new password):
- 
-  IF on line THEN say (""3""13""5"") FI;
-  disable stop;
-  do ("enter spool control password (""" + new password + """)");
-  clear error;
-  no do again;
-  cover tracks;
-  cover tracks (control password);
-  control password := new password;
- 
-END PROC spool control password;
- 
- 
-PROC call spool (INT CONST op code, TEXT CONST name, TASK CONST spool) :
- 
-  dialogue :=  command dialogue;
-  password :=  write password;
-  password CAT "/";
-  password CAT read password;
-  disable stop;
-  command dialogue (FALSE);
-  enter password (control password);
-  command dialogue (dialogue);
-  call (op code, name, spool);
-  command dialogue (FALSE);
-  enter password (password);
-  command dialogue (dialogue);
- 
-END PROC call spool;
- 
- 
-PROC start spool (TASK CONST spool) :
- 
-  enable stop;
-  call spool (halt  code, "", spool);
-  call spool (start code, "", spool);
- 
-END PROC start spool;
- 
- 
-PROC start spool (TASK CONST spool, INT CONST new channel) :
- 
-  enable stop;
-  call spool (halt  code, "", spool);
-  call spool (start code, text (new channel), spool);
- 
-END PROC start spool;
- 
- 
-PROC stop spool (TASK CONST spool) :
- 
-  call spool (stop code, "", spool);
- 
-END PROC stop spool;
- 
-PROC stop spool (TASK CONST spool, TEXT CONST deactive msg) :
- 
-  call spool (stop code, deactive msg, spool);
- 
-END PROC stop spool;
- 
- 
-PROC halt spool (TASK CONST spool) :
- 
-  call spool (halt code, "", spool);
- 
-END PROC halt spool;
- 
-PROC halt spool (TASK CONST spool, TEXT CONST deactive msg) :
- 
-  call spool (halt code, deactive msg, spool);
- 
-END PROC halt spool;
- 
- 
-PROC wait for halt (TASK CONST spool) :
- 
-  call spool (wait for halt code, "", spool);
- 
-END PROC wait for halt;
- 
-PROC wait for halt (TASK CONST spool, TEXT CONST deactive msg) :
- 
-  call spool (wait for halt code, deactive msg, spool);
- 
-END PROC wait for halt;
- 
- 
-PROC control spool (TASK CONST spool, INT CONST control code,
-                    TEXT CONST question, BOOL CONST leave) :
- 
-  enable stop;
-  initialize control msg;
-  WHILE valid spool entry
-    REP IF control question THEN control spool entry FI PER;
- 
-  . initialize control msg :
-      IF NOT initialized (in this task) THEN ds := nilspace FI;
-      forget (ds); ds := nilspace; control msg := ds;
-      control msg. entry line := "";
-      control msg. password   := control password;
-      control msg. index      := 0;
-      say (""13""10"");
- 
-  . valid spool entry :
-      call (spool, entry line code, ds, reply);
-      IF reply = error nak
-         THEN error msg := ds;
-              errorstop (error msg);
-      FI;
-      control msg. index <> 0
- 
-   . control question :
-       say (control msg. entry line);
-       yes (question) 
- 
-  . control spool entry :
-      call (spool, control code, ds, reply);
-      IF reply = error nak
-         THEN error msg := ds;
-              errorstop (error msg);
-      FI;
-      IF leave THEN LEAVE control spool FI;
- 
-END PROC control spool;
- 
- 
-PROC kill spool (TASK CONST spool) :
- 
-  control spool (spool, killer code, "   loeschen", FALSE)
- 
-END PROC kill spool;
- 
- 
-PROC first spool (TASK CONST spool) :
- 
-  control spool (spool, first code, "   als erstes", TRUE)
- 
-END PROC first spool;
- 
- 
-END PACKET spool cmd;             
-