summaryrefslogtreecommitdiff
path: root/app/eudas/4.3/src/pos.173
blob: a9706a31352b96cd38e3835bba05c38c452c9c2a (plain)
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;