PROGRAM TWO_FRAME
      DIMENSION X(100),Y(100)
      DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/
      CALL GMENU
!	Frame one
      CALL PAGE(11.0,8.5)          ! Specify page size
      CALL AREA2D(9.0,6.5)         ! Define Subplot area
	CALL FONT('TIMES','NORMAL')
      CALL XNAME('X LABEL$',100)   ! Define X Axis label
      CALL YNAME(8HY LABEL$,100)   ! Define Y Axis label
      CALL HEADIN('Two Frame Example$',100,2.,2)
      CALL HEADIN('Frame 1$',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 ENDPL(0)     ! If argument = 0, no plot summary is written on plot

!	Frame two
      CALL NOBRDR		   ! Eliminate border around page
      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('Two Frame Example$',100,1.5,2)
      CALL HEADIN('Frame 2$',100,1.5,2)
      CALL XREVTK	! Reverse X Axis tick marks
      CALL YINTAX	! Use Integer numbers to label Y Axis
      CALL YAXANG(0.0)	! Use horizontal Y Axis labels
      CALL XTICKS(2)	! Put intermediate tick marks
      CALL YTICKS(4)	! Two per x division 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')
C      CALL ENDPL(0)     ! If argument = 0, no plot summary is written on plot
C	CALL ENDPL(0,.TRUE.,.FALSE.)

      CALL GSTOP
 
      CALL EXIT
      END