DECLARE SUB RAND (x!)
'candidato generatore numeri casuali
'vedi Prob.Stat. scheda 8 õ6
p = ATN(1) * 4: x0 = 1 / 2
n = 0: x = x0
10
n = n + 1
RAND x
IF x <> x0 THEN GOTO 10
PRINT n
INPUT "premi 'a capo'", aa$

SUB RAND (x) STATIC: SHARED p
x = (x + p) ^ 5: x = x - INT(x)
END SUB