1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
PACKET xpos DEFINES x pos :
INT PROC x pos (TEXT CONST a, b, INT CONST c, d) :
pos (a, b, c, d)
END PROC x pos;
END PACKET x pos;
PACKET pos 173 DEFINES pos:
INT PROC pos (TEXT CONST a, b, INT CONST c, d) :
x pos (a, b, c, d+1)
END PROC pos;
END PACKET pos 173;
PACKET add 173 DEFINES split line, reserve :
PROC split line (FILE VAR f, INT CONST spalte, BOOL CONST dummy) :
split line (f, spalte)
END PROC split line;
PROC reserve (TEXT CONST modus, TASK CONST task) :
call (19, modus, task)
END PROC reserve;
END PACKET add 173;
|
