% THIS PROGRAM CREATES THE RUN TIME ERROR MESSAGE FILE % FROM THE ASCII SOURCE ERROR MESSAGE FILE. BEGIN FILE SOURCE(KIND=DISK,TITLE="RTSERR"), OBJECT(KIND=BINARY,MAXRECSIZE=28,MAXRECNO=18); ARRAY BUFFER[0:27]; POINTER P; REPLACE BUFFER BY "ALGRTS.ERR$<40>" FOR 10+5*REAL(@0 NEQ 3"40000"); REPLACE OBJECT.TITLE BY BUFFER; OBJECT.PRESENT:=FALSE; % PURGE PREVIOUS ERROR MESSAGE FILE! WHILE NOT READ(SOURCE,28,BUFFER) DO BEGIN P:=BUFFER+55; % POINT TO LAST CHAR READ. WHILE REAL(P,1) EQL " " % FIND THE LAST NON-SPACE IN RECORD. DO P:=*-1; REPLACE P+1 BY 0 FOR 1; % TERMINATE RECORD WITH A NULL. WRITE(OBJECT,28,BUFFER) % WRITE THIS RECORD OUT. END END. % IT IS DONE.