Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
10 REM HORIZONTAL BAR GRAPH 20 PRINT "ENTER STARTING YEAR" 30 INPUT D 40 PRINT 50 PRINT "ENTER NR BARS DESIRED" 60 INPUT N 70 PRINT 80 PRINT "ENTER TIME BETWEEN YEARS" 90 INPUT A 110 SCROLL 120 PRINT TAB 5;"HORIZONTAL BAR GRAPH" 130 FOR I=1 TO N 140 SCROLL 150 INPUT Z 160 PRINT D 170 FOR X=8 TO Z+8 180 PLOT X,0 190 NEXT X 200 PRINT Z 210 LET D=D+A 220 NEXT I 230 STOP 240 SAVE "1014%0" 250 RUN