1 LET L = 1000
2 DIM C(9)
3 FOR I = 0 TO 9
4 C(I) = 0
5 NEXT I
10 LET N=0
20 LET X=INT(RND(N)*10.)
30 LET C(X)=C(X)+1.
40 LET N=N+1
50 IF N < L THEN 20
60 FOR N=0TO9
70 PRINT "C(";N;")=";C(N)
80 NEXT N
90 STOP
100 END
                                                                                                                                                                                                                                                                                                                                                                                                                       