PDP-10 Archive: decus/20-0125/seta.for from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/seta.for

There is 1 other file named seta.for in the archive. Click here to see a list.

	SUBROUTINE SETA(ITALP, LPP)
C************************************************************
C
C  THIS ROUTINE IS USED TO ALTER CHARACTERISTICS
C  OF THE GRAPHIC DATA FOLLOWING. PARAMETERS ARE:
C
C	ITALP  - .TRUE.  - FOLLOWING TEXT WILL BE ITALICS
C	       - .FALSE. - FOLLOWING TEXT WILL BE NORMAL FONT
C
C	LPP    - .TRUE.  - L.P. HITS BRIGHTENED
C	       - .FALSE. - L.P. HITS NOT BRIGHTENED
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	NONE
C
C************************************************************
	IMPLICIT LOGICAL (A - Z)
	INTEGER OLDSTA
	COMMON /STABLK/ ITALA, LPA, OLDSTA

	ITALA = .FALSE.
	LPA = .FALSE.
	IF(ITALP) ITALA = .TRUE.
	IF(LPP) LPA = .TRUE.
	RETURN
	END