**TI Randomness Test**

Richard Mansfield's article "Zones Of Unpredictability, Part 2" ("The Beginner's Page," COMPUTE!, December 1983) included a program called "Randomness Test." Since it wouldn't work on my TI-99/4A, I wrote a similar program. It takes several thousand cycles to get close to even distribution for each number, but it's fun to let it run.

Gaston Porterie

100 CALL CLEAR 110 PRINT "TEST OF THE RANDOM NUMBER", "FUNCTION ON THE TI-99" ;;;;;;;; 120 PRINT "PLEASE WAIT..." 130 T = T + 1 140 RANDOMIZE 150 X = INT (10*RND) + 1 160 A(X) = A(X) + 1 170 FOR I = 1 TO 10 180 P(I) = INT (A(I) / T*100) 190 NEXT I 200 IF T/100<>INT(T/100) THEN 130 210 CALL CLEAR 220 PRINT "AFTER";T; "CYCLES"; "OF RANDOMIZATION" 230 PRINT 240 PRINT "RANDOM", "%", "NUMBERS", "OCCURRENCE" 250 S = 0 260 FOR I = 1 TO 10 270 PRINT I, P(I) 280 S = S + P (I) 290 NEXT I 300 PRINT "","-----" 310 PRINT "TOTAL", S; "%" 320 GOTO 130