8) RND HISTOGRAM (230 B)
To use: LOAD 2, RUN 200
"\A" means: press SHIFT and A

210 REM
220 REM RND HISTOGRAM
230 REM
240 DIM A(20)
250 RANDOMISE
260 PRINT "CALCULATING..."
270 FOR K=1 TO 5000
280 LET N=RND(20)
290 LET A(N)=A(N)+1
300 NEXT K
310 CLS
320 FOR K=1 TO 20
330 LET A(K)=A(K)/20
340 IF K<10 THEN PRINT " ";
350 PRINT K;" ";
360 IF A(K)<1 THEN GOTO 410
370 IF A(K)>29 THEN LET A(K)=29
380 FOR P=1 TO A(K)
390 PRINT "\A";
400 NEXT P
410 PRINT
420 NEXT K
430 STOP