[SAMPLE32] ̔
100 RANDOMIZE
110 DIM SUM(6)
120 FOR I=1 TO 100
130 DA=INT(RND*6+1)
140 SUM(DA)=SUM(DA)+1
150 NEXT I
160 FOR I=1 TO 6
170 PRINT I;"-";SUM(I);"%"
180 NEXT I