	PROGRAM DEMO
	CHARACTER*1 BNAME(40)
	DIMENSION Y1(101), Y2(101)
	EXTERNAL LEN
	INCLUDE GRAPH.INC
	INCLUDE EXEC.INC
	INCLUDE INTUIT.INC
	INCLUDE GCBIG.PRM
C
	DO 100 I=1,101
	X = 9.0*(I-1)/10.0 + 1.0
	Y1(I) = X**2
	Y2(I) = X**3
100	CONTINUE
	XMIN = 1.0
	XMAX = X
	CALL MINMAX(Y1,101,YMIN,YMAX1)
	CALL MINMAX(Y2,101,YMIN,YMAX2)
C
	CALL SELDEV
10	CALL BGNPLT
C
	CALL MAPSIZ(0.0,100.0,0.0,100.0,0.0)
	CALL MAPIT(XMIN,XMAX,YMIN,YMAX1,'X TITLE'//CHAR(0)
     1             ,'Y TITLE'//CHAR(0),'PLOT TITLE'//CHAR(0),15)
	CALL GSCOLR(13,IERR)
	CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)
C
	CALL ENDPLT
	CALL RLSDEV
	STOP
	END
