Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0152/bartes.for
There are 2 other files named bartes.for in the archive. Click here to see a list.
	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