COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "PSEG"
 00003 ENDMK
⊗;
BEGIN "PSEG"
  INTEGER I,EOF,SIZE; EXTERNAL INTEGER $I;
  SAFE INTEGER ARRAY INF[1:6];
  EXTERNAL PROCEDURE ARRYIN(INTEGER CHAN,WHERE,HOWMANY);
  EOF←0;
  WHILE ¬EOF DO BEGIN
	OPEN(1,"DSK",'17,0,0,0,I,EOF);
	OUTSTR("INPUT FILE "); LOOKUP(1,INCHWL,I);
	IF I THEN CONTINUE;
	FILEINFO(INF);
	I←-(INF[4] ROT 18);
	CALL(I,"CORE2");
	ARRYIN(1,'400000,I); RELEASE(1);
	START_CODE JSR $I END;
	OPEN(1,"DSK",'17,0,0,0,EOF,EOF);
	EOF←0;
	OUTSTR("OUTPUT FILE "); ENTER(1,INCHWL,I);
	IF I THEN CONTINUE; EOF←-1;
	ARRYOUT(1,'400000,I); RELEASE(1)
  END
END "PSEG";