"############## # JOBPREFIX # ##############" CONST NL = '(:10:)'; FF = '(:12:)'; EM = '(:25:)'; CONST LINELENGTH = 132; TYPE LINE = ARRAY (.1..LINELENGTH.) OF CHAR; PROCEDURE READ(VAR C: CHAR); PROCEDURE WRITE(C: CHAR); PROCEDURE READINT(VAR VALUE: INTEGER); PROCEDURE WRITEINT(VALUE, LENGTH: INTEGER); PROCEDURE WRITETEXT(TEXT: LINE); PROGRAM JOB;