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$