(* ------------------- 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;