!	Program to plot age bar graph
	REAL*4 NAGE(10),AGE(10)
	DATA NAGE/0.,1.,2.,3.,5.,6.,3.,3.,0.,0./
	DATA AGE/20.,25.,30.,35.,40.,45.,50.,55.,60.,65./
	CALL GSTART
	CALL PAGE(11.0,8.5)
	CALL AREA2D(9.,6.5)
	CALL HEADIN('GPLOT Example 4$',100,1.5,1)
	CALL DUPLX
	CALL HEIGHT(0.21)
	CALL YAXEND('NOFIRST')
	CALL XAXEND('NOENDS')
	CALL XNAME('AGE$',100)
	CALL YNAME('NUMBER$',100)
	CALL YAXANG(0.0)
	CALL YINTAX
	CALL XINTAX
	CALL GRAF(20.,5.,70.,0.0,1.,10.)
	CALL BARWID(-1.0)
	DO I=1,10
	    AGE(I) = AGE(I) + 2.5
	END DO
	CALL VBARS(AGE,'BASE',NAGE,10)
	CALL HEIGHT(0.35)
	CALL MESSAG('IPNS STAFF$',100,3.5,5.0)
	CALL ENDPL(0)
	CALL GSTOP

	CALL EXIT
	END