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: TRANSMIT 
C      SOURCE: 92840 - 18042
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XXMIT(IN,IGCB), 92840-16001 REV.1819 780515
      DATA IXMIT/2000B/ 
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     THIS IS THE AGL COMMAND PROCESSOR FOR THE BUFFER FLUSH
C COMMAND (XMIT). 
C 
C     FIRST SEE IF I/O BUFFER WAS DECLARED (PLOTR(4)), AND
C IF NOT SET A SOFT ERROR INDICATION AND RETURN.
C 
      ISTAT = 0 
      CALL GRSTS(1,1000B,ISTAT) 
      IF(ISTAT.EQ.0)CALL PLTER(33)
      CALL OUTPT(1,IXMIT,2) 
      RETURN
      END 
      END$
                        