Sub main()
Dim Ruote(10)
Dim Num_in_gioco (5), ambata_principale(1)
Dim Poste(5), posta_ambata(1)
Dim condizione(2)
'Imposta gli importi delle giocate
posta_ambata(1)=1 'Posta per ambata
Poste(2)=1 'Posta per ambo
Poste(3)=1 'Posta per terno
'Imposta le ruote di gioco
Ruote(1)=1
Ruote(2)=6
' Imposta i colpi da giocare
NumColpi=12
Estr_ini=EstrazioneFin -2000 'Imposta controllo per estrazione iniziale
Estr_Fine=EstrazioneFin
' inizio del ciclo di controllo
For estr_in_gioco=Estr_ini To Estr_Fine
' inizio condizioni
For ver_cond =1 To 5
If Estratto (estr_in_gioco,BA_,ver_cond)=70 Then condizione(1)=70
If Estratto (estr_in_gioco,NA_,ver_cond)=70 Then condizione(2)=70
Next
If condizione(1)=condizione(2) And condizione(1)>0 And condizione(2)>0 Then
AMBATA_principale(1)=Fuori90 (Estratto (estr_in_gioco,BA_,3)-4-Estratto (estr_in_gioco,NZ_,5))
If AMBATA_principale(1)< 0 Then AMBATA_principale(1)=AMBATA_principale(1)+90
Num_in_gioco(1)=AMBATA_principale(1)
Num_in_gioco(2)=Fuori90 (Estratto (estr_in_gioco,BA_,5)*80*28)
Num_in_gioco(3)=Fuori90 (Estratto (estr_in_gioco,MI_,1)*Estratto (estr_in_gioco,FI_,2)*Estratto (estr_in_gioco,FI_,3))
num01=(Estratto (estr_in_gioco,FI_,4)-86)
If num01<0 Then num01=num01+90
Num_in_gioco(4)=Fuori90 (num01*(Estratto (estr_in_gioco,TO_,5)+Estratto (estr_in_gioco,NZ_,5)))
Num_in_gioco(5)=Fuori90 (Estratto (estr_in_gioco,CA_,5)*86-Estratto (estr_in_gioco,NZ_,1))
Scrivi Num_in_gioco(1)&" - "& Num_in_gioco(2) & " - " & Num_in_gioco(3) &" - " & Num_in_gioco(4)&" - "& Num_in_gioco(5), True
' impostazione giocata
ImpostaGiocata 1,ambata_principale,Ruote,posta_ambata,NumColpi
Gioca estr_in_gioco
ImpostaGiocata 2,Num_in_gioco,ruote,Poste,NumColpi,5
ImpostaGiocata 3,Num_in_gioco,12,Poste,NumColpi,5
Gioca estr_in_gioco
End If
condizione(1)=0: condizione(2)=0
Next
ScriviResoconto
End Sub