BEGIN "DUMP"
   REQUIRE "STD.HDR[170,161]" SOURCE!FILE;
   INTEGER INCHAN, OUTCHAN, EOF, COUNT;

   SETFORMAT(-12,0);
   PRINT ("TYPE IN NAME OF FILE - ");
   INCHAN := OPENIN(INCHWL,EOF,11);
   PRINT ("TYPE IN NAME OF OUTPUT FILE - ");
   OUTCHAN := OPENOUT(INCHWL);

   COUNT := 0;
   WHILE TRUE DO
   BEGIN
       INTEGER TEMP;
       TEMP := WORDIN(INCHAN);
       IF EOF THEN DONE;
       CPRINT(OUTCHAN,CVOS(TEMP),"     ");
       COUNT := COUNT + 1;
       IF COUNT = 4 THEN
          CPRINT(OUTCHAN,CRLF)
       ELSE IF COUNT = 8 THEN
          BEGIN
             COUNT := 0;
             CPRINT(OUTCHAN,CRLF,CRLF);
          END;
   END;
   CPRINT(OUTCHAN,CRLF);
END;