COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "⊂⊃⊂⊃" DELIMITERS
C00006 ENDMK
C⊗;
REQUIRE "⊂⊃⊂⊃" DELIMITERS;

EXTERNAL STRING SIMPLE PROCEDURE REQSTR(STRING REQ);

EXTERNAL BOOLEAN SIMPLE PROCEDURE ASK(STRING S);

EXTERNAL INTEGER SIMPLE PROCEDURE REQINT(STRING S);


EXTERNAL PROCEDURE OPEN_FILE(REFERENCE INTEGER CH;
	VALUE STRING FIDREQ;INTEGER  M,IB,OB;REFERENCE INTEGER EOFF);

EXTERNAL INTEGER OUCH,OEOF;
EXTERNAL SIMPLE PROCEDURE WRITEON(STRING S;INTEGER OPF(0));

EXTERNAL SIMPLE PROCEDURE WRITE(STRING S;INTEGER OPF(0));

IFCR ¬DECLARATION(BITDEF) THENC
DEFINE BITDEF(BITID,V,XX)"[]" = [
	DEFINE BITID "<>" = <V>;
	ASSIGNC XX "⊂⊃" = CVPS(BITID)&⊂_ON⊃;
	DEFINE XX (I) "⊂⊃" = ⊂((I) LAND (⊃&CVPS(V)&⊂))⊃
];
ENDC

BITDEF(UROUTB,(1 LSH 35));
BITDEF(RTNSTR,'200000000000);
BITDEF(TTYYES,'100000000000);
BITDEF(TTYNOT,'040000000000);
BITDEF(CHNSPC,'020000000000);
BITDEF(CHNNOT,'010000000000);

DEFINE TTYONLY "<>" = <CHNNOT>;
DEFINE TTYALWAYS "<>" = <TTYYES>;
DEFINE TTYNOFILE "<>" = <TTYYES+CHNNOT>;
DEFINE FILEONLY "<>" = <TTYNOT>;


EXTERNAL SIMPLE PROCEDURE INI_OUTPUT(INTEGER CTL(0);STRING FID(NULL));
DEFINE INITIALIZE_OUTPUT"⊂⊃"=⊂INI_OUTPUT⊃;

EXTERNAL SIMPLE PROCEDURE CL_OUTPUT;
DEFINE CLOSE_OUTPUT "<>" =<CL_OUTPUT>;

REQUIRE "IOMOD.REL[S,RHT]" LOAD_MODULE;
REQUIRE UNSTACK_DELIMITERS;