app/eudas/4.3/src/pos.173

Raw file
Back to index

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;