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;