blob: 50a833080b64a40be7bb7f2982b7a897208bd153 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
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;
|
