' Sottoprogrammi usabili come sub PROVA in PROBSPER per studiare la probabi-
' lita` che ci vogliano 4 lanci per ottenere Testa (con una moneta equa)

'V=1 se nei primi 3 lanci esce sempre croce
    L=1 : V=1
    WHILE L<4 AND V=1   'ripeti il ciclo al piu` 3 volte, esci appena esce testa
        V=INT(RND*2)    ' U=1 se croce, U=0 se testa
        L=L+1
    WEND

'V=1 se nei primi 3 lanci esce sempre croce
    FOR L=1 TO 3
        F=INT(RND*2)    ' F=1 se la faccia uscita e' testa, =0 altrimenti
        IF F=1 THEN L=3 ' se esce testa esci dal ciclo  (potevo usare EXIT FOR)
    NEXT
    IF F=1 THEN V=0 ELSE V=1