/*****  ÍODIFIED ÐÒÉÎÔ.Ã ÐROGRAM  *****

ÏRIGINAL FROM Ã-ÐOWER ÓOURCE DISK
 
ÍODIFIED TO CORRECT SPECIAL CHARACTERS
BY: ÕNIDENTIFIED(?) ÑÌÉÎË UPLOADER                     

ÍODIFIED TO OUTPUT TO A STANDARD ÁÓÃÉÉ
PRINTER BY: Í. ÔUCKER ÂRAWNER (03-14-88)

*************************************/
#INCLUDE <STDIO.H>

#DEFINE  ÎÁÍÅÓÉÚÅ  20
#DEFINE  ÅÒÒ        1
#DEFINE  ÍÁØÌÉÎÅ   81
#DEFINE  ÍÁÒÇÉÎ1    3
#DEFINE  ÍÁÒÇÉÎ2    3
#DEFINE  ÐÁÇÅÌÅÎ   66
#DEFINE  ÂÏÔÔÏÍ    66

MAIN (ARGC, ARGV)
UNSIGNED ARGC;
CHAR **ARGV;
Û
   ÆÉÌÅ FIN;
 
   IF (ARGC == 1)
      Û
      PRINTF ("ÃORRECT SYNTAX: ÐÒÉÎÔ FILENAME FILENAME...\N");
      EXIT();
      Ý

   ELSE
      FCLOSE(STDOUT);
      IF (OPEN(6,4,7," ") == ÎÕÌÌ  FERROR())
         Û
         PRINTF("ÃHECK ÐRINTER...UNABLE TO OPEN FILE\N");
         EXIT();
         Ý
      WHILE (--ARGC) 
         Û
         IF ((FIN = FOPEN(*++ARGV, "R")) == ÎÕÌÌ  FERROR())
            Û
            PRINTF ("ÃANT'T OPEN %S\N", *ARGV);
            EXIT();
            Ý
         ELSE
            Û
            FPRINT (*ARGV, FIN);
            FCLOSE (FIN);
            Ý
         Ý
         FCLOSE (6);
Ý

FPRINT (NAME, FIN)
CHAR *NAME,C;
ÆÉÌÅ FIN;
Û
   CHAR LINE[ÍÁØÌÉÎÅ];
   UNSIGNED PAGENO, LINENO, COUNTER;
   PAGENO = 0;
   LINENO = 0;
   WHILE (FGETS (LINE, ÍÁØÌÉÎÅ, FIN) != ÎÕÌÌ)
      Û
      IF (LINENO == 0)
         Û
         SKIP (ÍÁÒÇÉÎ1);
         PAGENO++;
         HEAD (NAME, PAGENO);      
         SKIP (ÍÁÒÇÉÎ2);
         LINENO = ÍÁÒÇÉÎ1 + ÍÁÒÇÉÎ2 + 1;
         Ý
      
      COUNTER=0;
      WHILE (LINE[COUNTER]!=0)
         Û
         SWITCH(LINE[COUNTER])
             Û
             CASE 175:
                Û
                FPUTC('\176',6);
                BREAK;
                Ý
             CASE 219:
                Û
                FPUTC('\173',6);
                BREAK;
                Ý
             CASE 221:
                Û
                FPUTC('\175',6);
                BREAK;
                Ý
             CASE 223:
                Û
                FPUTC('\174',6);
                BREAK;
                Ý
             CASE 164:
                Û
                FPUTC('\137',6);
                BREAK;
                Ý
             DEFAULT:
                Û
                C = LINE[COUNTER];
                IF (ISUPPER(C))
                   Û
                   C = UPASCII(C);
                   GOTO PRINT;
                   Ý  
                IF (ISLOWER(C))
                   Û
                   C = LOASCII(C);
                   GOTO PRINT;
                   Ý
                PRINT:
                FPUTC(C,6);
                Ý
             Ý
          COUNTER++;
        Ý
        LINENO++;
        IF (LINENO >= ÂÏÔÔÏÍ)
           Û
           SKIP (ÐÁÇÅÌÅÎ - LINENO);
           LINENO = 0;
           Ý
        Ý
        IF (LINENO > 0)
           SKIP (ÐÁÇÅÌÅÎ - LINENO);
Ý 

SKIP (N)
Û
   WHILE (N--)
      Û
      FPUTC ('\N',6);
      Ý
Ý

HEAD (NAME, PAGENO)
CHAR *NAME;
INT PAGENO;
Û
     FPRINTF (6,"%-60S\120\141\147\145  # %U\N",NAME, PAGENO);
Ý

UPASCII(C)

CHAR C;
Û
    C=(C-128);
    RETURN(C);
Ý

LOASCII(C)

CHAR C;
Û
    C=(C+32);
    RETURN(C);
Ý