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: GFON3
C      SOURCE: 92840 - 18141
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      SUBROUTINE GFON3(IGCB,NUMB) 
     +,92840-16021 REV.2013 790904
C***************************************************************
C IF NUMB = 0, GFON3 SETS THE SOFTWARE TEXT BIT IN THE STATUS WORD TO 0.
C IF NUMB = ANYTHING ELSE, GFON3 SETS THE SOFTWARE TEXT BIT TO 1. 
C***************************************************************
      INTEGER IGCB(1),NUMB
C***************************************************************
C SET UP THE VALUE TO IOR INTO THE STATUS WORD. 
C 
      IOR=40B 
      IF (NUMB .EQ. 0) IOR=0
C**************************************************************** 
C 177737B EFFECTIVELY TURNS OFF BIT 5 OF THE STATUS WORD. 
C THE 2 INDICATES TO WRITE INTO THE STATUS WORD.
C 
      CALL GRSTS(2,177737B,IOR) 
      RETURN
      END 
                                                                                                                                                                          