DECLARE SUB RAND (x&)
'candidato generatore numeri casuali
'vedi Prob.Stat. scheda 8 õ6
DEFLNG A, M-N, X   'o:  DEFDBL a,m,x,n
a = 7: m = 100: c = 70: x0 = 60
n = 0: x = x0
10
n = n + 1
RAND x
PRINT x
IF x <> x0 THEN GOTO 10
PRINT n
INPUT "premi 'a capo'", aa$

SUB RAND (x) STATIC: SHARED a, m, c
x = (a * x + c) MOD m
END SUB