'HEAD'  PRINT ROUTINES
C     EDIT DATE   12DEC78  13:10
C     SOURCE FILE PRINTFTM.FS
C     AUTHOR      F. T. MICKEY
C     CLUSTER     24
      'OUTFILE'   SGLPRTFTM.FR
C
C     PRINT THE CONTENTS OF LBUF TO THE PRINTER, SINGLE-SPACED
C
      SUBROUTINE  SGLPRT
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   CTRLAJH.IN,
      'INCLUDE'   PRTCOMFTM.IN,
      INTEGER     II, MAXLIN
      DATA        MAXLIN   /58/
      'IF' (PRINTF .NE. 0)
         'FOR' (II = 66; II .GT. 1; II = II - 1)
            'IF' (LBUF (II) .EQ. XBBL)    // STRIP OFF TRAILING SPACES
               'END'
            'ENDIF'
         CALL WRLIN (LO, LBUF, 2*II)
         LCOUNT = LCOUNT + 1
         'IF' (LCOUNT .GE. MAXLIN)
            CALL NPAGE
            'ENDIF'
         'ENDIF'
      CALL SET (XBBL, LBUF, 66)
      RETURN
      END
      'OUTFILE'   NPAGEFTM.FR
C
C     STARTS NEW PAGE AND PRINTS HEADER
C
      SUBROUTINE  NPAGE
      'INCLUDE'   CTRLAJH.IN,
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   PRTCOMFTM.IN,
      INTEGER     FORM, BLINE, PAGE (2)
      DATA     FORM  /3072/   // '<FF><0>'
      DATA     BLINE /'  '/
      DATA     PAGE  /'PAGE'/
      'IF' (PRINTF .NE. 0)
         PGECNT = PGECNT + 1
         CALL SET (XBBL, LBUF, 66)
         CALL WRLIN (LO, FORM, 2)
         CALL EST (PAGE, LBUF, 1, 4)
         CALL ESP (PGECNT, LBUF, 1, 9)
         CALL EST (UHEAD, LBUF, 19, 48)
         CALL EST (CHEAD, LBUF, 72, 87)
         CALL DATE (LBUF (45))
         CALL TIME (LBUF (53))
         CALL WRLIN (LO, LBUF, 114)
         CALL WRLIN (LO, BLINE, 2)        // BLANK LINE
         LCOUNT = 1
         CALL SET (XBBL, LBUF, 66)
         'ENDIF'
      RETURN
      END