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:  GCLR COMMAND
C      SOURCE: 92840 - 18008
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XGCLR(IND,IGCB,IP1), 92840-16001 REV.1819 780515 
      INTEGER GRIFX 
      DIMENSION IBUFR(5),VAR(4) 
      EQUIVALENCE(IBUFR(2),IB2) 
      DATA IGCLR/1401B/ 
      DATA IHARD/26404B/
      DATA IHOME/1400B/ 
      DATA ICLR/27401B/ 
      DATA IPNUP/20400B/
C 
C     THIS IS THE MODULE FOR THE AGL COMMAND GCLR(DISTANCE) 
C     WHERE DISTANCE = PAGE ADVANCE OR FORM FEED FOR LINE PRINTERS
C A NOP FOR GRPHIC DISPLAYS AND PEN UP FOR PLOTTERS.
CV
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
      IBUFR =IHOME
C 
C     SEE IF DEVICE CAN CLEAR 
C 
      CALL OUTPT(1,ICLR,1)
      CALL GCBIM(16,1,IB2  ,1,1)
      IF(IB2  .EQ.0)GO TO 10
      IBUFR = IGCLR 
      IB2 = IP1 
10    CALL OUTPT(1,IBUFR,2) 
      CALL GCBIM(8,1,VAR,0,1) 
      DO 20 I =2,5
      IBUFR(I) = GRIFX(VAR(I-1))
20    CONTINUE
      IBUFR = IHARD 
      CALL OUTPT(1,IBUFR,2) 
      RETURN
      END 
      END$
                                                                                      