SUBROUTINE PRO350(X,Y,IND)
      CHARACTER*1 ESC, ASCII
      COMMON/ OUTPUT/ IPAPER,IPAGE
      COMMON /ASCIIC/ ASCII( 0: 255)
      INTEGER PIXROW, PIXCOL, PIXEL
      COMMON /TERM/ IMAXR, IMAXC, PIXROW, PIXCOL, PIXEL, LCOUNT, INGRAF,
     .              IXL, IXR, IYT, IYB, NCOLOR, MCOLOR( 64 ), ITTRM,
     .              MARGX, MARGY
** VARIABLES IN COMMON TERM:
**  IMAXR = MAX NUMBER OF ROWS
**  IMAXC = MAX NUMBER OF COLUMNS
**  PIXROW = NUMBER OF PIXELS PER ROW
**  PIXCOL = NUMBER OF PIXELS PER COLUMN
**  PIXEL  = LESSER OF PIXROW OR PIXCOL
**  LCOUNT = NUMBER OF LINES CURRENTLY WRITTEN TO DIALOG AREA
**  INGRAF = 0=> HOST TEXT GOES TO MONITOR SPACE\\ 1=> TEXT TO GRAPHICS
**  IXL    = LEFT MOST VALUE OF X
**  IXR    = RIGHT MOST VALUE OF X
**  IYT    = VALUE OF Y AT TOP OF SCREEN
**  IYB    = VALUE OF Y AT BOTTOM OF SCREEN
**  NCOLOR = NUMBER OF COLORS IN MCOLOR MAP
**  MCOLOR = MAP OF COLORS
**  ITTRM  = UNIQUE MODEL NUMBER OF GENERAL TERMINAL TYPE
**  MARGX  = NUMBER OF PIXELS PADDED TO X-COORDINATE
**  MARGY  = NUMBER OF PIXELS PADDED TO Y-COORDINATE
**
**
      EQUIVALENCE ( ESC, ASCII(27) )
CC
CC   CODES FOR IND:
CC
CC     IND = 0   =>  REMOVE ALL GRAPHICS TO QUIT
CC     IND = 1   =>  ANY ONE TIME ONLY INITIALIZATION
CC     IND = 2   =>  MOVE GRAPHICS TO POINT (X,Y) -- DO NOT DRAW LINE
CC     IND = 3   =>  DRAW LINE FROM LAST POINT TO NEW (X,Y)
CC     IND = 4   =>  DRAW DARK LINE
CC     IND = 5   =>  DRAW BRIGHT SOLID LINE
CC     IND = 6   =>  INITIALIZE & SET-UP FOR NEXT PICTURE
CC     IND = 8   =>  TEMPORARY RELEASE FROM GRAPHICS
CC     IND = 9   =>  RETURN TO GRAPHICS FROM TEMP RELEASE
CC     IND =10   =>  DONE DRAWING PICTURE
CC     IND =99   =>  CHANGE COLOR TO VALUE IN X
CC

      PIXEL = 479. * IPAGE / 100.

      IF (IND.EQ.0) THEN
CC  ALL DONE -- CLEAR TERMINAL AND WE WILL QUIT
        WRITE (*,*) 'S(E)'//ESC//'H'//ESC//'J'
      ELSEIF (IND.EQ.1) THEN
CC  ONE TIME ONLY INITIALIZATION OF TRMINAL  (IF NEEDED)
        WRITE (*,*) ESC//'PpS(EI(D))W(I(W))'
      ELSEIF (IND.EQ.2 ) THEN
**  MOVE TO POINT ( NO DRAW )
        IXLX = X * PIXEL
        IYLY = (1.0 - Y ) * PIXEL
        WRITE ( *, '('' P['',I3,'','',I3,'']'')') IXLX, IYLY
        IXLAST = IXLX
        IYLAST = IYLY
      ELSEIF (IND.EQ.3) THEN
CC DRAW LINE FROM LAST POINT TO NEW POINT
        IXLX = X * PIXEL
        IYLY = (1.0 - Y ) * PIXEL
        WRITE ( *, '('' V['',I3,'','',I3,'']'')') IXLX, IYLY
        IXLAST = IXLX
        IYLAST = IYLY
      ELSEIF (IND.EQ.4) THEN
** DRAW DARK LINE ( ERASES PREVIOUS LINES )
        WRITE ( *, '('' W(I(D))'')')
      ELSEIF (IND.EQ.5) THEN
** DRAW BRIGHT (I.E. WHITE LINE)
        WRITE ( *, '('' W(I(W))'')')
      ELSEIF (IND.EQ.6) THEN
CC  INITIALIZE FOR DRAWING NEXT PICTURE
        WRITE (*,*) ESC//'PpS(EI(D))W(I(W))'
CC?         WRITE ( *, *) ESC//'PpS(E)'
      ELSEIF (IND.EQ.8) THEN
CC TEMPORARY RELEASE FROM GRPHICS  (USUALLY FOR TEXT)
CC?         WRITE ( *, * ) ESC//'\'
CC?         WRITE ( *, *) 'T"'
      ELSEIF (IND.EQ.9) THEN
CC RETURN TO GRAPHICS FROM TEMPORARY RELEASE
CC?         WRITE ( *, *) ESC//'Pp'
CC?         WRITE ( *, *) '"'
      ELSEIF (IND.EQ.10) THEN
CC DONE DRAWING PICTURE
        WRITE ( *, *) ESC//'\\'
      ELSEIF (IND.EQ.99) THEN
CC REQUEST CHANGE COLOR
**  NOT SUPPORTED HERE
        CONTINUE
      ELSE
CC WE HAVE AN ERROR IN IND
        WRITE ( *, *) ' ERROR IN PLOT, IND=',IND
      ENDIF
      RETURN
      END