home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / bindump.c < prev    next >
Text File  |  2019-04-13  |  911b  |  54 lines
  1. /* BINDUMP.C 
  2. *  - DOES BINARY DUMP OF ANY FILE
  3. *    TO PRINTER
  4. *  ┬EN ╨EDERSEN   ═AY 1987
  5. */
  6.  
  7. #INCLUDE "STDIO.H"
  8.  
  9. #DEFINE  STDPRN  4
  10.  
  11. MAIN(ARGC,ARGV)
  12. INT ARGC;
  13. CHAR **ARGV;
  14. █
  15.   ╞╔╠┼ *INPUT;
  16.   CHAR BVAL[9];
  17.   INT LINE,I,J,K;
  18.   LINE=0;
  19.   OPEN(STDPRN,4,4);
  20.   IF (ARGC != 2) █
  21.     PRINTF("\N╒SAGE: BINDUMP FILENAME\N");
  22.     EXIT();
  23.   ▌
  24.   ELSE █
  25.     INPUT = FOPEN(*++ARGV,"R");
  26.     IF (FERROR() > 0) █
  27.       PRINTF("\NCAN'T OPEN %S\N", *ARGV);
  28.       EXIT();
  29.     ▌
  30.   ▌
  31.   FOR (I = 0; I < 10; I++)
  32.     BVAL[I] = 0X00;
  33.   FPRINTF(STDPRN, "\NBINDUMP: %S\N\N", *ARGV);
  34.   WHILE ((J = FGETC(INPUT)) != ┼╧╞) █
  35.     FOR (I = 7; I >= 0; I--) █
  36.       K = J & 0X01;
  37.       K += '0';
  38.       BVAL[I] = K;
  39.       J >>= 1;
  40.     ▌
  41.     FPRINTF(STDPRN, "%S", BVAL);
  42.     FPRINTF(STDPRN, "  ");
  43.     LINE++;
  44.     IF (LINE > 7) █
  45.       FPRINTF(STDPRN, "\N");
  46.       LINE = 0;
  47.     ▌
  48.   ▌
  49.   FPRINTF(STDPRN, "\N\NEND OF FILE\N");
  50.   CLOSE(STDPRN);
  51. ▌
  52.  
  53.  
  54.