PROGRAM GPE11
      DIMENSION X(100),Y(100)
      INTEGER IPKRAY(500)
      CHARACTER LABEL*20
      DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/
      CALL GSTART
      CALL PAGE(11.0,8.5)          ! Specify page size
	CALL NOBRDR
      CALL AREA2D(9.0,6.5)         ! Define Subplot area
      CALL FONT('TIMES','NORMAL')
      CALL XNAME('X LABEL$',100)   ! Define X Axis label
      CALL YNAME('Y LABEL$',100)   ! Define Y Axis label
      CALL HEADIN('GPLOT Example 11$',100,1.5,2)
      CALL HEADIN('Many Curves with a Legend$',100,1.5,2)
      CALL GRAF (XORIG,DX,XMAX,YORIG,DY,YMAX)
      CALL MYLEGN('Legend Heading$',100)     ! Define legend heading
!  Compute and plot a quadratic curve
      NLINES=22
      DO IC = 1,NLINES
	  OFFSET = YMAX*0.04*(IC-1)
	  WRITE(LABEL,FMT='(''Curve'',I3,''$'')') IC
	  CALL LINES(LABEL,IPKRAY,IC)        ! Define curve label
	  DO I=1,100
	    X(I) = I*10.0
	    Y(I) = 0.1*I*I + OFFSET
	  END DO
	  IF(IC .EQ. 11) THEN
	    CALL DASH
	    CALL NEWCLR('RED')
	  ELSE IF (IC .EQ. 12) THEN
	    CALL SOLID
	    CALL NEWCLR('BLUE')
	  END IF
	  CALL CURVE(X,Y,100,5)
	END DO
	CALL LEGEND(IPKRAY,NLINES,2.5,0.75)
	CALL ENDPL(0)     ! If argument = 0, no plot summary is written on plot
	CALL GSTOP
 
	CALL EXIT
	END