PROGRAM ERCTRL; { V1B Edit #2 1-Mar-82 File: ERCTRL.PAS } {druckt das Direct-Access-File R65ERR.ASM} CONST VersionNumber = 'V1B-002/RT'; VersionDate = '1-Mar-82'; NOERR= 56; TYPE ERRMSG = ARRAY[1..70] OF CHAR; VAR N : INTEGER; ERRTAB : FILE OF ERRMSG; BEGIN WRITELN('ERCTRL: ',VERSIONNUMBER,' (',VERSIONDATE,')'); RESET(ERRTAB,'R65ERR.ASM/SEEK'); REWRITE(OUTPUT,'LST:R65ERR.LST'); N:=0; PAGE(OUTPUT); REPEAT N:=N+1; SEEK(ERRTAB,N); WRITELN(ERRTAB^); UNTIL N= NOERR END.