	PROGRAM BARTST
	DIMENSION Y(100), IBUF(30)
	CALL VTCLR
	WRITE (5,1)
1	FORMAT ( ' Bar graph demo.  Enter decimal data.')
	WRITE (5,2)
2	FORMAT ( ' CONTROL Z will end the data entry.')
	DO 5 I = 1,100
	READ (5,100, END=6) Y(I)
100	FORMAT(F)
5	CONTINUE
6	CALL BAR(IBUF,Y,I-1)
	CALL EXIT
	END

