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: PEN DOWN 
C      SOURCE: 92840 - 18038
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XPNDN(IN,IGCB), 92840-16001 REV.1819 780515
      INTEGER DRPPN 
      DIMENSION VAR(8)
      DIMENSION CLPTS(4)
      EQUIVALENCE ( P1,VAR),( P2,VAR(2)),( P3,VAR(3)),( P4,VAR(4))
      EQUIVALENCE (V1X,VAR(5))
C 
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
      DRPPN = 21000B
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
      CALL GCBIM(18,1,VAR,0,1)
      P3 = P1 
      P4 = P2 
      ICODE = IS1V1(D)
      CALL GCBIM(ICODE,1,V1X,0,1) 
      ICODE = 0 
      CALL CLPNG(P1,CLPTS,V1X,ICODE)
      IF(ICODE.NE.0)GO TO 10
      CALL OUTPT(1,DRPPN,2) 
10    CALL GRSTS(2,77577B,200B) 
      RETURN
      END 
      END$
                                                                                                                                                        