PROGRAM testinput
      DIMENSION X(100),Y(100)
	character*1 key
      DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/
      CALL GSTART	! Nominate Device
c      CALL DUPLX	! Choose font
      CALL PAGE(11.0,8.5)          ! Specify page size
      CALL AREA2D(9.0,6.5)         ! Define Subplot area
      CALL XNAME('X LABEL$',100)   ! Define X Axis label
      CALL YNAME('Y LABEL$',100)   ! Define Y Axis label
	call mx1alf('standard','\')
	call mx2alf('Greek','%')
      CALL HEADIN('Example to test input$',100,2.,2)
	CALL HEADIN('%Greek\ alphabet is included.$',100,2.,2)
      CALL GRAF (XORIG,DX,XMAX,YORIG,DY,YMAX)
!  Compute and plot a quadratic curve
      DO I=1,100
        X(I) = I*10.0
        Y(I) = 0.1*I*I
      END DO
      CALL CURVE(X,Y,100,5)
	call curson(key,x0,x1,y0,y1)
      CALL ENDPL(0)
      CALL GSTOP
	write(6,*) 'key=',key
	write(6,*) 'xo,y0,x1,y1=',x0,y0,x1,y1
      CALL EXIT
      END