All'ultima di napoli, per 4 estrazioni

Sub main()

Dim Ruote(10)
Dim Num_in_gioco (5)
Dim Poste(5)

'Imposta gli importi delle giocate

Poste(2)=1 'Posta per ambo

'Imposta le ruote di gioco

Ruote(1)=6
Ruote(2)=11
'Ruote(4)=11 ' Ruota nazionale

' Imposta i colpi da giocare
NumColpi=4

Estr_ini=EstrazioneFin -500 'Imposta controllo per estrazione iniziale
Estr_Fine=EstrazioneFin

' inizio del ciclo di controllo

For estr_in_gioco=Estr_ini To Estr_Fine
' Scegliere la condizione temporale

If IndiceMensile (estr_in_gioco+1)= 1 Then ' Condizione l'ultima estrazione del mese

' inizio condizioni

Num_in_gioco(1)=Fuori90 (Estratto (estr_in_gioco,NZ_,2)+81)

Num_in_gioco(2)=Fuori90 (Estratto (estr_in_gioco,PA_,3)+34)

' impostazione giocata
ImpostaGiocata 1,Num_in_gioco,Ruote,Poste,NumColpi,5

Num_in_gioco(1)=Fuori90 (Estratto (estr_in_gioco,NZ_,2)+15)

Num_in_gioco(2)=Fuori90 (Estratto (estr_in_gioco,NA_,2)+84)


ImpostaGiocata 2,Num_in_gioco,Ruote,Poste,NumColpi,5
Num_in_gioco(1)=Fuori90 (Estratto (estr_in_gioco,NZ_,2)+41)

Num_in_gioco(2)=Fuori90 (Estratto (estr_in_gioco,NZ_,4)*14)


ImpostaGiocata 3,Num_in_gioco,Ruote,Poste,NumColpi,5
Gioca estr_in_gioco

End If
Next
ScriviResoconto
End Sub