Appears on
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.
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