FTN4,L C C C C C C CC************************************************************ C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * CC************************************************************ C C C C NAME: GSOFT C SOURCE: 92840 - 18156 C RELOC: 92840 - 16021 C C C CC*********************************************************** LOGICAL FUNCTION GSOFT(IGCB) +,92840-16021 REV.2013 790904 C*************************************************************** C GSOFT IS SET TO .TRUE. IF SOFTWARE TEXT IS CURRENTLY ENABLED, C OTHERWISE GSOFT IS SET TO .FALSE. C*************************************************************** INTEGER IGCB(1) C*************************************************************** C ESTABLISH A LINK TO THE GRAPHICS PACKAGE. C (THIS STORES THE ADDRESS OF THE GCB INTO AN INTERNAL LOCATION C INSIDE ABSAD.) C ISUSP=0 CALL GCBIM(99,1,IGCB,ISUSP) IF (ISUSP .NE. 0) RETURN C*************************************************************** C CALL GRSTS TO LOOK AT BIT 5 IN THE GCB. C NMASK RETURNS WITH BIT 5=0 IF SOFTWARE TEXT IS OFF, C =1 IF SOFTWARE TEXT IS ON. C CALL GRSTS(1,40B,NMASK) GSOFT=.TRUE. IF (NMASK .EQ. 0) GSOFT=.FALSE. RETURN END