'Per Fa_Rnd - vedi Prob.Stat. scheda 6 õ5
w = .1                                 ' ampiezza porta
U = RND * 2                            ' passa mediamente 1 sec
WHILE RND > w: U = U + RND * 2: WEND   ' aspetto che venga generato RND <= w