Un altro bel listato
PHP:
' si gioca dalla 1°x GE-PA
Sub main()
Dim ruote(10)
Dim a(10)
Dim poste(5)
poste(1)=1
ruote(1)=4
ruote(3)=7
For n=8422 To EstrazioneFin
If IndiceMensile (n+1)=1 Then
a(1)=Fuori90(Estratto(n,3,2)+88)
a(2)=Fuori90(Estratto(n,8,5)+79)
a(3)=Fuori90(Estratto(n,9,4)+88)
ImpostaGiocata 1,a,ruote,poste,3
Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1
End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2: SCRIVI"flapis flapis",1
End Sub