Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0125/opton.for
There is 1 other file named opton.for in the archive. Click here to see a list.
	SUBROUTINE OPTON
C************************************************************
C
C  THIS SUBROUTINE IS USED TO ENABLE THE OPTION DISPLAY
C  FILES. NORMALLY IT WOULD BE USED AFTER A CALL TO
C  OPTOFF
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	ENABLE - ENABLES A DISPLAY FILE
C
C************************************************************
	IMPLICIT INTEGER(A - Z)
	COMMON /OPTBLK/ OPTION(10, 3), OPMSG, OPPTR, OPLIST

	CALL ENABLE(OPPTR)
	IF(OPLIST .NE. 0) CALL ENABLE(OPLIST)
	RETURN
	END