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: PLOT ABSOLUTE
C      SOURCE: 92840 - 18023
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE PLOTA(IND,IGCB,X,Y,        
     1PCNTL), 92840-16001 REV.1819 780515 
      INTEGER PCNTL,READ,WRITE,ICODE(2) 
C 
C 
C     THIS IS THE FUNCTIONAL FOR THE AGL COMMANDS PLOT AND CPLOT
C 
      DATA READ/1/
      DATA WRITE/2/ 
      DATA ICHR/7/
      DATA LDIR/22/ 
C 
      IFLG = 0
      ISTAT = 0 
      IST1 = 0
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 
C     INITIALIZE CODES FOR GCBIM
C 
C     WHERE 11 = TRANSFORMATION CONSTANTS 
C           9 = MAPPING ENDPOINTS V1,V2 
C           18 = PREVIOUS X,Y 
C 
      CALL GRSTS(1,200B,ISTAT)
      XNEW = X
      YNEW = Y
C 
C 
C     NOW ASCERTAIN FROM THE PEN-CONTROL PARAMETER (PCNTL) WHAT 
C  ACTIONS TO TAKE.  THE FOLLOWING MODES ARE DEFINED FOR THE
C  PEN CONTROL PARAMETER: 
C 
C     EVEN = PEN UP 
C     ODD = PEN DOWN
C     + = PEN CHANGE AFTER MOTION 
C     - = PEN CHANGE BEFORE MOTION
C 
10    IPC = IAND( IABS(PCNTL),1) + 1
      IF(PCNTL.LT.0)GO TO 100 
C 
C     GO TO BRANCH  FOR < 0 OR > = 0
C 
      GO TO(70,75),IPC
C 
C     EVEN
C 
70    IF(ISTAT.NE.0)GO TO 85
C 
C 
80    CALL MOVE(IGCB,XNEW,YNEW) 
      IF(PCNTL.GT.0.AND.IPC.EQ.2)CALL PENDN(IGCB) 
C 
      RETURN
C 
C     ODD 
C 
75    IF(ISTAT.EQ.0)GO TO 80
85    CALL DRAW(IGCB,XNEW,YNEW) 
      IF(PCNTL.GE.0.AND.ISTAT.NE.0.AND.IPC.EQ.1)CALL PENUP(IGCB)
      RETURN
C 
C     PCNT LT 0 
C 
100   GO TO(80,85),IPC
C 
      END 
                                                                                                