SUBROUTINE POUT(IS)
	BYTE	IB(24),ITT
	EQUIVALENCE(A,IB)
	COMMON /SCRAT/A,IA(16),C,IDATE(10),ALO,AHI
	DATA IY0,IYS/672,28/
	DATA	ITT/0/
	CALL	DISCKP				! DISABLE CHECKPOINTING
	JTST	= 10
	CALL SCTEST(ITERM)			! ITERM=0 IF NOT GRAPHICS TERMINAL
	IF(ITERM .EQ. 0) GO TO 10		! No graphics
	CALL ERASE				! ERASE SCREEN
	IX	= 350
	IY	= IY0
	CALL CHAR(IX,IY,'*=INPUT  PP# ',0)	! WRITE PAGE NUMBER ON SCREEN
	CALL NUMBER(-1,IY,IS)
	IY	= IY - IYS
	IDATE(5)	= ' '
	CALL TIME(IDATE(6))
	CALL DATE(IDATE)
	CALL CHAR(IX,IY,IDATE,18)		! WRITE DATE ON SCREEN
	ISTAT	= 0
10	CONTINUE
	CALL PSCAN(ISTAT,A,C,ISKP,ILIM,CLO,CHI)	! GET A PARAMETER
d	WRITE(5,1059) ISKP,ISTAT,ILIM
d1059	FORMAT(4O10)
	IF(ISTAT .EQ. 0) GO TO 900		! IF NONE LEFT EXIT
	IF(IRAM(ISTAT,8,"17).NE. IS) GO TO 10	! INCORRECT PAGE TRY AGAIN
	ENCODE(20,1000,IA)C			! ENCODE TEXT TO WRITE
	IF(IAND(ISTAT,"10000) .NE. 0) IB(7)	= '*'	! INSERT '*' IF INPUT PARAM
	IF(IAND(ILIM,1) .NE. 0 .AND. C .LT. CLO) IB(8)='<'
	IF(IAND(ILIM,2) .NE. 0 .AND. C .GT. CHI) IB(8)='>'
	IY	= IY - IYS
	IY	= IY - IYS*ISKP			! Skip required lines
	IF(IY .GT. 0) GO TO 200
	IX	= IX + 350
	IY	= IY0 + IY
	IF(IX .GT. 1023) IX	= 0
200	CALL CHAR(IX,IY,A,23)			! WRITE IT ON GRAPHICS TERMINAL
	IF(ITERM .NE. 0)GO TO 10		! IF IT IS GRAPHICS TERMINAL CONTINUE
	JTST	= JTST + 1
	IF(JTST .LE. 2) GO TO 50
	WRITE(5,1002)
	JTST	= 0
50	WRITE(5,1001)ITT,IB			!WRITE ON NORMAL TERMINAL
	GO TO 10				!NEXT PARAMETER
1000	FORMAT(' =   ',1P,G14.7 )
1001	FORMAT(25A1)
1002	FORMAT(1X)
900	CALL	ENACKP				!ENABLE CHECKPOINTING
	IF(ITERM .EQ. 0) WRITE(5,1002)
	END