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