[Coco] Tandy Color Computer 3 RND Function

[Melanie and John Mark Mobley]

10 MAX=0:MIN=1
20 FOR X=1 TO 1000
30 R=RND(0)
40 IF R>MAX THEN MAX=R
50 IF R<MIN THEN MIN=R
60 NEXT X
70 PRINT MIN,MAX
80 GOTO 20

R is a number between 0 and 1 but never 0 or 1.

After about 6 days this is what I found.
R=9.38416633E-09 to 0.999999862.

R=RND(-TIMER):REM RANDOMIZE THE PSEUDO NUMBER GENERATOR
R=RND(-2):REM FIX THE PSEUDO NUMBER GENERATOR TO PATERN 2
R=RND(-1.1):REM FIX THE PSEUDO NUMBER GENERATOR TO PATERN 1.1
R=RND(-1):REM FIX THE PSEUDO NUMBER GENERATOR TO PATERN 1
R=RND(0):REM R=0.000000001 TO 0.999999999
R=RND(1):REM R=1
R=RND(2):REM R=1 OR 2
R=RND(3):REM R=1 TO 3

John Mark Mobley