Initial import

1 files changed, 40 insertions, 0 deletions

diff --git a/system/multiuser/1.7.5/src/ur start b/system/multiuser/1.7.5/src/ur start
new file mode 100644
index 0000000..efbf8c1
--- /dev/null
+++ b/system/multiuser/1.7.5/src/ur start
@@ -0,0 +1,40 @@
+(* ------------------- VERSION 2     06.03.86 ------------------- *)
+PROC begin process (TASK CONST father, son, INT CONST priv, PROCA CONST start) :
+  EXTERNAL 95
+ENDPROC begin process ;
+
+PROC ur :
+  TASK VAR dummy ;
+  begin ("PUBLIC", PROC public manager, dummy) ;
+  global manager (PROC ur manager)
+ENDPROC ur ;
+
+PROC public manager :
+
+  page ;
+  REP UNTIL yes("Archiv 'help' eingelegt") PER;
+  archive ("help") ;
+  fetch ("help", archive) ;
+  release (archive) ;
+  free global manager
+
+ENDPROC public manager ;
+
+PROC ur manager (DATASPACE VAR ds, INT CONST order, phase,
+                 TASK CONST order task) :
+
+  LET begin code = 4 ;
+  enable stop ;
+  IF order = begin code
+    THEN std manager (ds, order, phase, order task)
+    ELSE errorstop ("falscher Auftrag fuer Task ""UR""")
+  FI
+
+ENDPROC ur manager ;
+ 
+check on ;
+command dialogue (TRUE) ;
+begin process (supervisor, task ("UR"), 0, proca (PROC ur)) ;
+command dialogue (FALSE) ;
+check off;
+