IPROCEDURE COPSEGS(VAR Z:AR;VAR F:ISF;SEGADR,WORDS,WORDADR,INOUT:INTEGER);IFORWARD;?PROCEDURE READTABLE(VAR ZO:ISFHEAD;VAR F:ISF;BUTENTRY:INTEGER);?FORWARD;IPROCEDURE READBLOCK(VAR ZO:ISFHEAD;VAR F:ISF;BLTENTRY,STARTPOST:INTEGER);IFORWARD;ROCEDURE ERROR(VAR FIL:FILNAVN);!FORWARD;!PROCEDURE OFEJL(VAR FIL:FILNAVN);!FORWARD;N);)FORWARD;