FTN,L 
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: LABEL,LABON,LABOF
C      SOURCE: 92840 - 18054
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XLABL(IND,IGCB,IP1), 92840-16001 REV.1819 780515 
      DATA LABL/23000B/ 
C 
C     THIS IS THE FUNCTIONAL MODULE FOR THE AGL COMMAND  LABEL(MODE), 
C                   THE PARAMETER IP1 = MODE. 
C 
C 
C     LABEL 
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPGHICS 
C  PACKAGE AND THE CURRENT GCB AND ALSO CHECKS FOR A SUSPENDED GCB. 
C 
      ISUSP= 0
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
C 
10    IF(IP1.LT.0.OR.IP1.GT.2)GO TO 810 
      IP =IABS(IP1)+ 1
      GO TO (300,100,200),IP
100   CALL LABON(IGCB)
      RETURN
200   CALL LABOF(IGCB)
      RETURN
C 
C     SHORT LABEL 
C 
300   CALL OUTPT(1,LABL,2)
C 
C     SET BIT 4 TO INDICATE SHORT LABEL 
C 
      CALL GRSTS(2, 77757B,20B) 
800   RETURN
810   CALL PLTER(31,IGCB) 
      GO TO 300 
      END 
      SUBROUTINE LABON(IGCB), 92840-16001 REV.1819 780515 
      INTEGER STLAB 
C 
C     THIS ROUTINE IS RESPONSIBLE FOR PROCESSING THE AGL COMMANDS 
C  LABON (LABEL ON) AND LABOF(LABLE OFF). 
C 
      DATA STLAB/23400B/
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPGHICS 
C  PACKAGE AND THE CURRENT GCB AND ALSO CHECKS FOR A SUSPENDED GCB. 
C 
      ISUSP= 0
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
      CALL OUTPT(1,STLAB,2) 
C 
C     SET BIT INDICATING LABEL MODE 
C 
      CALL GRSTS(2,77677B,100B) 
      RETURN
      END 
      SUBROUTINE LABOF(IGCB), 92840-16001 REV.1819 780515 
      INTEGER STPLB 
      DATA STPLB/24000B/
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPGHICS 
C  PACKAGE AND THE CURRENT GCB AND ALSO CHECKS FOR A SUSPENDED GCB. 
C 
      ISUSP= 0
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
      CALL GRSTS(2,77677B,0)
      CALL OUTPT(1,STPLB,2) 
      RETURN
      END 
      END$
                                                                              