PROGRAM GPE1
      DIMENSION X(100),Y(100)
      DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/

      CALL GSTART	! Nominate Device
      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 HEADIN('Example Plot 1$',100,2.,1)
      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 ENDPL(0)
      CALL GSTOP

      CALL EXIT
      END