	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

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 GSCOLR(1,IERR)
	CALL MAPSIZ(0.0,100.0,0.0,47.5,0.0)
	CALL MAPIT(XMIN,XMAX,YMIN,YMAX2,'X AXIS'//CHAR(0),
     1              'Y AXIS'//CHAR(0),'plot 3'//CHAR(0),2)
	CALL GSCOLR(5,IERR)
	CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)
	CALL GSCOLR(6,IERR)
	CALL CURVEY(XMIN,XMAX,Y2,101,2,0.3,5)
	CALL GSCOLR(1,IERR)
	CALL MAPSIZ(0.0,48.5,52.5,90.0,0.0)
	CALL MAPIT(XMIN,XMAX,YMIN,YMAX1,'x axis'//CHAR(0),
     1             'y axis'//CHAR(0),'plot 1'//CHAR(0),0)
	CALL GSCOLR(5,IERR)
	CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)

	CALL GSCOLR(1,IERR)
	CALL MAPSIZ(51.5,100.0,52.5,90.0,0.0)
	CALL MAPIT(XMIN,XMAX,YMIN,YMAX2,'X AXIS'//CHAR(0),
     1              'Y AXIS'//CHAR(0),'PLOT 2'//CHAR(0),0)
	CALL GSCOLR(6,IERR)
	CALL CURVEY(XMIN,XMAX,Y2,101,2,0.3,5)
	CALL ENDPLT
	CALL RLSDEV
	STOP
	END
