' file da utilizzare come sub PROVA in PROBSPER per studiare la probabilita`
' di avere un full di mano giocando con 32 carte
DIM c(3, 8), n(8)         ' pongo c(sem,val)=1 quando esce la carta sem,val
tris = 0: coppia = 0
FOR i = 1 TO 5
    ripeti = 1
    WHILE ripeti = 1                ' cerco una carta che non sia gia` uscita
        seme = INT(RND * 4): valore = INT(RND * 8) + 1
        IF c(seme, valore) = 0 THEN ripeti = 0
    WEND
    c(seme, valore) = 1: n(valore) = n(valore) + 1
NEXT
FOR valore = 1 TO 8
    IF n(valore) = 3 THEN
        tris = 1
    ELSEIF n(valore) = 2 THEN
        coppia = 1
    ELSEIF n(valore) <> 0 OR (tris = 1 AND coppia = 1) THEN
        valore = 8                   ' esco dal ciclo
    END IF
NEXT
IF tris = 1 AND coppia = 1 THEN V = 1 ELSE V = 0
ERASE c, n