blob: a1fa2b5bbdc6bac8ebc996a22a44aa2f4044b7e3 (
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
|
PACKET setup eumel mini eumel dummies (* Stand : 08.04.88 *)
DEFINES FILE,
sequentialfile,
output,
putline,
:=,
run :
TYPE FILE = INT;
INT CONST output :: 0;
OP := (FILE VAR a, FILE CONST b):
END OP :=;
FILE PROC sequentialfile (INT CONST a, TEXT CONST b) :
FILE : (0).
END PROC sequentialfile;
PROC putline (FILE CONST a, TEXT CONST b):
END PROC putline;
PROC run (TEXT CONST a):
END PROC run;
END PACKET setup eumel mini eumel dummies;
|
