CLS
PRINT "IL RADDOPPIO"
PRINT "x il Decio"
PRINT "Probabilita' del 50% a tentativo"
PRINT
INPUT "Capitale iniziale: "; C
INPUT "Tentativi x partita: "; d
INPUT "Partite: "; e
INPUT "Pausa dopo ogni tentativo (s/n)"; k$
vv = 0: C1 = C
v = 0: tt = 0: ss = 0

FOR p = 1 TO e
FOR t = 1 TO d
LOCATE 10
PRINT "                            "
PRINT "                            "
PRINT "                            "
PRINT "                            "
PRINT "                            "
LOCATE 10
PRINT "Partita n."; p
PRINT "Tentativo n."; t
PRINT "Posta puntata: "; C
C = C * 2
r = INT(RND(1) * 2)
tt = tt + 1
PRINT "Risultato: "; r
IF r = 1 THEN PRINT "Ho vinto la partita!": v = v + 1: t = d + 1: C = C1: vv = vv + 1:  ELSE ss = ss + 1
20 a$ = INKEY$: IF a$ = "" AND k$ = "s" THEN 20
NEXT t
NEXT p
PRINT
PRINT "PERCENTUALE DI VINCITA: "; v / e * 100; " %"
PRINT
PRINT "PERCENTUALE DI ROSSO (VITTORIA): "; vv / tt * 100; " %"
PRINT "PERCENTUALE DI NERO  (SCONFITTA):"; ss / tt * 100; " %"
PRINT "GIOCATE TOTALI: "; tt