3 PRINT
4 PRINT "THIS PROGRAM TEST THE RANDOM GENERATOR"
5 PRINT "IT ROLLS A DIE 6000 TIMES"
6 PRINT "EACH FACE SHOULD BE NEARLY 1000"
7 PRINT
10 RANDOMIZE TIMER
20 FOR I = 1 TO 6000
30 LET N = 1 + (INT (RND * 6))
35 ON N GOSUB 1100,1200,1300,1400,1500,1600
40 NEXT I
50 PRINT "face1",A
60 PRINT "face2",B
70 PRINT "face3",C
80 PRINT "face4",D
90 PRINT "face5",E
100 PRINT "face6",F
110 PRINT
120 END
1100 LET A = A + 1
1110 RETURN
1200 LET B = B + 1
1210 RETURN
1300 LET C = C + 1
1310 RETURN
1400 LET D = D + 1
1410 RETURN
1500 LET E = E + 1
1510 RETURN
1600 LET F  = F  + 1
1610 RETURN