Code: [Local Link Removed for Guests]

```
DIM frecuency(7)
timer0 100, random
wait
random:
r = rnd(7) ' Returns a random number in the range from 0 to 7
frecuency(r) = frecuency(r) + 1
iteration = iteration + 1
if iteration = 100 then
for i = 0 to 7
result$ = result$ + str$(frecuency(i)) + " "
next i
wlog result$
iteration = 0
result$ = ""
end if
return
```