	SUBROUTINE HEADER
C
	IMPLICIT INTEGER (A - Z)
	LOGICAL*1 BUFFR1, BUFFR2
	LOGICAL*1 LABEL, LHEAD, LIST, CONLBL
	COMMON /PAGING/ ISYS, PPN1, PPN2, BUFFR1(9), BUFFR2(8)
	COMMON /FORCOM/ ERRS, ITYPE, L, KIND, IP, INFILE, OUTFIL, LOUT,
     + LISTNG, PLINES, LPPAGE, LABEL(66), LHEAD(6), LIST(1320), CONLBL(6)
	DIMENSION OPSYS (7, 4)
	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+'/
	DATA PPAGES /1/
   99	FORMAT (1H1, /, '  UW IFTRAN  V01.1-01  ', 4A2, '     USER [',
     + O3, ',', O3, ']     ', 8A1, 2X, 9A1, '     PAGE ', I3, // )
C	  Print initial header
	WRITE (LOUT, 99) (OPSYS(ISYS, J4), J4 = 1, 4), PPN1, PPN2, BUFFR2,
     + BUFFR1, PPAGES
	PPAGES = PPAGES + 1
	PLINES = 8
	RETURN
	END
