PACKET setup eumel singleuserspecials      (* Copyright (C) 1985, 1988 *)
DEFINES terminal setup,                    (* Martin Schönbeck, Spenge *)
        break,                             (* Lutz Prechelt, Karlsruhe *)
        indirect list,                     (* Stand: 07.05.88   2.1    *)
        setup testing :

LET printer channel  = 15,
    screen  channel  =  1;

 
PROC break (QUIET CONST quiet): 
END PROC break; 
 
PROC terminal setup:
  setup
END PROC terminal setup;

PROC indirect list (BOOL CONST make indirection) :
  (* Man beachte, daß es nicht besonders sinnvoll ist, auf einem Drucker
     cout zu machen...
  *)
  IF make indirection
  THEN continue (printer channel)
  ELSE continue (screen channel)  FI.
END PROC indirect list;

PROC setup testing (BOOL CONST new):
END PROC setup testing;

BOOL PROC setup testing :
  FALSE.
END PROC setup testing;

END PACKET setup eumel singleuserspecials;