home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 128c.arc / PRINT.C < prev    next >
Text File  |  1993-03-04  |  1KB  |  69 lines
  1. #INCLUDE <STDIO.H>
  2.  
  3. #DEFINE  ╬┴═┼╙╔┌┼  20
  4. #DEFINE  ┼╥╥        1
  5. #DEFINE  ═┴╪╠╔╬┼   81
  6. #DEFINE  ═┴╥╟╔╬1    3
  7. #DEFINE  ═┴╥╟╔╬2    3
  8. #DEFINE  ╨┴╟┼╠┼╬   66
  9. #DEFINE  ┬╧╘╘╧═    63
  10.  
  11. MAIN (ARGC, ARGV)
  12. UNSIGNED ARGC;
  13. CHAR **ARGV;
  14. █
  15.    ╞╔╠┼ FIN;
  16.  
  17.    IF (ARGC == 1)
  18.       FPRINT ("STDIN", STDIN);
  19.    ELSE
  20.       WHILE (--ARGC) █
  21.          IF ((FIN = FOPEN(*++ARGV, "R")) == ╬╒╠╠ ▀▀ FERROR()) █
  22.             PRINTF ("CANT'T OPEN %S\N", *ARGV);
  23.             EXIT();
  24.          ▌
  25.          FPRINT (*ARGV, FIN);
  26.          FCLOSE (FIN);
  27.       ▌
  28. ▌
  29.  
  30. FPRINT (NAME, FIN)
  31. CHAR *NAME;
  32. ╞╔╠┼ FIN;
  33. █
  34.    CHAR LINE[═┴╪╠╔╬┼];
  35.    UNSIGNED PAGENO, LINENO;
  36.  
  37.    PAGENO = 0;
  38.    LINENO = 0;
  39.    WHILE (FGETS (LINE, ═┴╪╠╔╬┼, FIN) != ╬╒╠╠) █
  40.       IF (LINENO == 0) █
  41.          SKIP (═┴╥╟╔╬1);
  42.          PAGENO++;
  43.          HEAD (NAME, PAGENO);
  44.          SKIP (═┴╥╟╔╬2);
  45.          LINENO = ═┴╥╟╔╬1 + ═┴╥╟╔╬2 + 1;
  46.       ▌
  47.       FPUTS (LINE, STDOUT);
  48.       LINENO++;
  49.       IF (LINENO >= ┬╧╘╘╧═) █
  50.          SKIP (╨┴╟┼╠┼╬ - LINENO);
  51.          LINENO = 0;
  52.       ▌
  53.    ▌
  54.    IF (LINENO > 0)
  55.       SKIP (╨┴╟┼╠┼╬ - LINENO);
  56. ▌
  57.  
  58. SKIP (N)
  59. █
  60.    WHILE (N--)
  61.       PUTCHAR ('\N');
  62. ▌
  63.  
  64. HEAD (NAME, PAGENO)
  65. CHAR *NAME;
  66. █
  67.    PRINTF ("%-30S╨AGE %D\N", NAME, PAGENO);
  68. ▌
  69.