PROGRAM GPE2	! GPLOT Example Plot 2
      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 NOBRDR		   ! Eliminate border around page
      CALL AREA2D(9.0,6.5)         ! Define Subplot area
      CALL FONT('TIMES','NORMAL')		   ! Choose new font
      CALL XNAME('X LABEL$',100)   ! Define X Axis label
      CALL YNAME('Y LABEL$',100)   ! Define Y Axis label
      CALL HEADIN('Example Plot 2$',100,1.5,2)
      CALL HEADIN('Modify tics, labeling$',100,1.5,2)
	CALL XNMADJ('ENDS')
      CALL XREVTK	! Reverse X Axis tick marks
      CALL XTICKS(2)	! Put intermediate tick marks
	CALL YNMADJ('NONE')
      CALL YAXANG(0.0)	! Use horizontal Y Axis labels
      CALL YINTAX	! Use Integers to label Y Axis
      CALL YTICKS(4)	! Two per x and four per y division
      CALL THKFRM(0.04)
      CALL FRAME
      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 ANGLE(45.0)
      CALL CHRMSG(0.5,1.0,'Message written at an angle')
      CALL ENDPL(0)     ! If argument = 0, no plot summary is written on plot
      CALL GSTOP
 
      CALL EXIT
      END