COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "UNPACK"
C00003 ENDMK
C⊗;
BEGIN "UNPACK"
STRING FN; INTEGER ARRAY HD[0:10]; INTEGER IC,OC,I;
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
WHILE TRUE DO
  BEGIN "mloop"
    DO PRINT("File:") UNTIL (IC←OPNPFL(FN←INCHWL,HD[0]))≥0;
    OC←CREPFL(HD[0],FN);
    PRINT("working..");
       BEGIN
       INTEGER ARRAY LIN[0:HD[LNWD]];
       FOR I←1 STEP 1 UNTIL HD[PCLN] DO
	  BEGIN
	  PFLIN(IC,LIN[0],HD[LNWD]);
	  PFLOUT(OC,LIN[0],HD[LNWD]);
	  END;
       PFLCLS(OC);
       PFLCLS(IC);
       END;
    PRINT("..done.
");
  END "mloop";
END "UNPACK";