Random Bar Chart

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

Gallery

Random Bar Chart

Source Code

   1 PRINT "%R%A%N%D%O%M% %B%A%R% %C%H%A%R%T"
   5 LET T=0
  10 FOR J=0 TO 49
  20 LET R=INT (RND*40+1)
  30 LET T=T+R
  40 FOR K=0 TO R
  50 PLOT J,K
  60 NEXT K
  70 NEXT J
  80 PAUSE 100
  90 FOR J=0 TO 49
 100 PLOT J,T/50
 110 NEXT J
 120 PRINT TAB 5;"MEAN R = ";T/50
 130 STOP 
 200 SAVE "1003%8"
 210 RUN 

People

No people associated with this content.

Scroll to Top