REM -------------------------------------------------------------------------
REM REGOLE:                                                                 |
REM Si scommette che esca un numero > 0.5                                   |
REM Se esce si torna a scommettere la sola prima puntata                    |
REM Se non esce si raddoppia la puntata fino a che non esce (max k raddoppi |
REM  dopodiche' si torna a scommettere la sola prima puntata)           |
REM ________________________________________________________________________|

CLS
INPUT "Puntata "; pnt
INPUT "Lunghezza serie "; k
CLS
10 partita = partita + 1
FOR j = 1 TO k
IF RND > .5 THEN ptr = ptr + pnt: pv = pv + 1: j = k + 1 ELSE ptr = ptr - pnt: pnt = 2 * pnt
IF j = k THEN pp = pp + 1
NEXT j
pnt = 10
LOCATE 1: PRINT "Lunghezza serie="; k; "  "
LOCATE 3: PRINT "Partite giocate:"; partita
LOCATE 4: PRINT "Partite vinte:"; pv; "("; pv / partita * 100; "%)      "
LOCATE 5: PRINT "Partite perse:"; pp; "("; pp / partita * 100; "%)      "
LOCATE 7: PRINT "In questo istante stai complessivamente vincendo:"; ptr; "lire   "
LOCATE 23: PRINT "S per interrompere"
IF INKEY$ <> "s" THEN 10