' file da utilizzare come sub PROVA in PROBSPER per studiare la probabilita`
' di avere doppia coppia di mano giocando con 32 carte
DIM c(3,8), n(8)
coppia1=0 : coppia2=0
FOR i=1 TO 5
    ripeti=1
    WHILE ripeti=1
        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)=2 AND coppia1<>1 THEN
        coppia1=1
    ELSEIF n(valore)=2 THEN
        coppia2=1
    ELSEIF n(valore)=3 THEN
        valore=8  'esco dal ciclo
    END IF
NEXT
IF coppia1=1 AND coppia2=1 THEN V=1 ELSE V=0
ERASE c,n