perm filename IOMODS.HDR[NEW,AIL] blob
sn#248609 filedate 1979-01-08 generic text, type T, neo UTF8
REQUIRE NULL!DELIMITERS;
DEFINE CRLF = "('15&'12)",
CR = '15,
LF = '12,
TAB = '11,
FF = '14,
VT = '13;
EXTERNAL PROCEDURE INITIN(STRING FNAME;BOOLEAN NOCHK(FALSE));
EXTERNAL STRING PROCEDURE !INTTY;
EXTERNAL PROCEDURE ENDIN;
EXTERNAL PROCEDURE INITOUT(STRING FNAME;BOOLEAN VERIFY(FALSE));
EXTERNAL PROCEDURE OUTTTY(STRING S);
EXTERNAL PROCEDURE ENDOUT;
REQUIRE UNSTACK!DELIMITERS;
REQUIRE "IOMODS.REL" LOAD!MODULE;
EXTERNAL INTEGER !INEOF;