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: GWC C SOURCE: 92840 - XXXXX C RELOC: 92840 - 16021 C C C CC*********************************************************** LOGICAL FUNCTION GWC(IGCB) +,92840-16021 REV.2013 790926 C*************************************************************** C GWC IS SET TO .TRUE. IF WC CHARACTERS ARE TO BE PLOTTED, C OTHERWISE GWC 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 14 IN THE GCB. C NMASK RETURNS WITH BIT 15=0 IF CHARACTERS ARE PLOTTED IN WC, C =1 IF CHARACTERS ARE PLOTTED IN NDC. C CALL GRSTS(1,40000B,NMASK) GWC=.TRUE. IF (NMASK .EQ. 0) GWC=.FALSE. RETURN END