From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/multiuser/1.7.5/src/ur start | 40 +++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 system/multiuser/1.7.5/src/ur start

(limited to 'system/multiuser/1.7.5/src/ur start')

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;
+
-- 
cgit v1.2.3