SUBROUTINE PAGEBK (I) C This subroutine counts the lines written to LUN LOUT and C inserts a page break after 60 lines have been written C Revision History: C 19-JAN-81 Character variables changed to type BYTE C 19-JAN-81 IFTCOM common rearranged C 20-JAN-81 Header information and common inserted IMPLICIT INTEGER (A - Z) BYTE LABEL, LHEAD, LIST, CONLBL ; IFTCOM common string varbs BYTE DATBUF, TIMBUF ; HEADER common string varbs LOGICAL*1 LISTNG, PASCOM ; Listing, pass comments flags COMMON /IFTCOM/ DONE, INFILE, IP, KIND, L, LNUM, LOUT, OUTFIL, + ERRCNT, LISTNG, PASCOM, CONLBL(6), LABEL(66), LHEAD(6), LIST(1320) COMMON /HEADER/ ISYS, PPN1, PPN2, DATBUF(9), TIMBUF(8) DIMENSION OPSYS(7, 4) DATA LINE /61/, PAGE /0/ DATA OPSYS /'RS', 'RS', 'RS', 'IA', 'RS', 'VA', 'RS', 'X-', 'X-', + 'X-', 'S ', 'TS', 'X/', 'X-', '11', '11', '11', ' ', ' ', 'VM', + '11', 'D ', 'M ', 'S ', ' ', ' ', 'S ', 'M+'/ 99 FORMAT (1H1, /, ' UW IFTRAN V02.01 ', 4A2, ' USER [', + O3, ',', O3, '] ', 8A1, 2X, 9A1, ' PAGE ', I3, // ) IF (.NOT.(LISTNG)) RETURN ; If listing is off, return LINE = LINE + I IF (LINE .GE. 60) PAGE = PAGE + 1 WRITE (LOUT, 99) (OPSYS(ISYS,Z), Z=1,4), PPN1, PPN2, TIMBUF, DATBUF, + PAGE LINE = 1 END IF RETURN END