/* BINDUMP.C 
*  - DOES BINARY DUMP OF ANY FILE
*    TO PRINTER
*  ÂEN ÐEDERSEN   ÍAY 1987
*/

#INCLUDE "STDIO.H"

#DEFINE  STDPRN  4

MAIN(ARGC,ARGV)
INT ARGC;
CHAR **ARGV;
Û
  ÆÉÌÅ *INPUT;
  CHAR BVAL[9];
  INT LINE,I,J,K;
  LINE=0;
  OPEN(STDPRN,4,4);
  IF (ARGC != 2) Û
    PRINTF("\NÕSAGE: BINDUMP FILENAME\N");
    EXIT();
  Ý
  ELSE Û
    INPUT = FOPEN(*++ARGV,"R");
    IF (FERROR() > 0) Û
      PRINTF("\NCAN'T OPEN %S\N", *ARGV);
      EXIT();
    Ý
  Ý
  FOR (I = 0; I < 10; I++)
    BVAL[I] = 0X00;
  FPRINTF(STDPRN, "\NBINDUMP: %S\N\N", *ARGV);
  WHILE ((J = FGETC(INPUT)) != ÅÏÆ) Û
    FOR (I = 7; I >= 0; I--) Û
      K = J & 0X01;
      K += '0';
      BVAL[I] = K;
      J >>= 1;
    Ý
    FPRINTF(STDPRN, "%S", BVAL);
    FPRINTF(STDPRN, "  ");
    LINE++;
    IF (LINE > 7) Û
      FPRINTF(STDPRN, "\N");
      LINE = 0;
    Ý
  Ý
  FPRINTF(STDPRN, "\N\NEND OF FILE\N");
  CLOSE(STDPRN);
Ý