%NOLIST
3600	READ #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
	RETURN


3650	PRINT #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
	RETURN
%LIST
E ADDFILE
	CLOSE 5								REMARK	CLOSE WORKFILE BEFORE RENAMING IT
	A=RENAME("G/L0F110.DAT","WORKFILE.DAT")				REMARK	WORKFILE%NOLIST
3600	READ #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
	RETURN


3650	PRINT #FILE.NO%,RECORD.NO%;P1,P2,P3,P4,P5
	RETURN
%L