Horizontal Bar Graph

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Horizontal Bar Graph

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 

People

No people associated with this content.

Scroll to Top