Script su Metodi Cabalistici, Ciclometrici & C.

[Matematico]

Ciao salvo50 , potresti cortesemente correggere questo script sul Byron creato da Robbe ?
Mi dà il seguente errore :
Errore script!
1024-Prevista istruzione
Linea : 81
Colonna : 0
Source: Errore di compilazione di Microsoft VBScript


Scrivi "==================== il BYRON di ROBBE ================================================================="
Dim ruota(1),ruote(1),numeri(2),posta(10),poste(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : colpiambate=18 : colpiambo=18 : poste(1)=0 : poste(2)=1
numero=CInt(InputBox("Numero dell'estrazione che si vuole analizzare ?","ESTRAZIONE",8500))
ruotascelta=CInt(InputBox("La ruota che si vuole analizzare [01..11] ?","RUOTA",11))
EQ1=CInt(InputBox("Introduci il 1°estr.della 1^cinquina [1..90] ?","",90))
EQ2=CInt(InputBox("Introduci il 2°estr.della 1^cinquina [1..90] ?","",90))
EQ3=CInt(InputBox("Introduci il 3°estr.della 1^cinquina [1..90] ?","",90))
EQ4=CInt(InputBox("Introduci il 4°estr.della 1^cinquina [1..90] ?","",90))
EQ5=CInt(InputBox("Introduci il 5°estr.della 1^cinquina [1..90] ?","",90))
EQ6=CInt(InputBox("Introduci il 1°estr.della 2^cinquina[1..90] ?","",90))
EQ7=CInt(InputBox("Introduci il 2°estr.della 2^cinquina [1..90] ?","",90))
EQ8=CInt(InputBox("Introduci il 3°estr.della 2^cinquina [1..90] ?","",90))
EQ9=CInt(InputBox("Introduci il 4°estr.della 2^cinquina [1..90] ?","",90))
EQ10=CInt(InputBox("Introduci il 5°estr.della 2^cinquina [1..90] ?","",90))
estraz=numero
conta=0
Messaggio estraz
If ruotascelta=11 Then ruotascelta=12
r=ruotascelta
ruota(1)=ruotascelta
ruote(1)=11
a1=EQ1
a2=EQ2
a3=EQ3
a4=EQ4
a5=EQ5
b1=EQ6
b2=EQ7
b3=EQ8
b4=EQ9
b5=EQ10
ColoreTesto 0
Scrivi
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz,r)
Scrivi
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)
Scrivi Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)& Space(4)&_
Format2(b5)
conta=conta+1
s1=Fuori90(a1+a2+a3+a4+a5)
s2=Fuori90(a2+a3+a4+a5+b1)
s3=Fuori90(a3+a4+a5+b1+b2)
s4=Fuori90(a4+a5+b1+b2+b3)
s5=Fuori90(a5+b1+b2+b3+b4)
s6=Fuori90(b1+b2+b3+b4+b5)
sc=Fuori90(s1+s2+s3+s4+s5+s6)
nc=90-sc
xx=Fuori90(b1+nc)
numeri(1)=xx
n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
sp=Fuori90(s4+s5+s6)
st=Fuori90(s6+s7)
yy=sp-st
If sp<st Then yy=(sp+90)-st
If yy=0 Then yy=90
numeri(2)=yy
n2(1)=yy
ColoreTesto 1
Scrivi
Scrivi "Somma delle somme delle prime sei colonne = "& sc
ColoreTesto 2
Scrivi
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 2
Scrivi
Scrivi "Quinto Futuro Estratto = "& Format2(yy)
Scrivi
ImpostaGiocata 1,numeri,ruota,posta,colpiambate,2
ImpostaGiocata 2,numeri,ruote,poste,colpiambo,2
Gioca estraz
Scrivi
ColoreTesto 2
Scrivi "==================== il BYRON di ROBBE ==============================================================="
Scrivi
ColoreTesto 0
ScriviResoconto

End Sub

 

[DjNomade]

Manca la parte iniziale
Sub Main()
senno funziona
Ciauz

 

[Matematico]

Grazie di cuore DjNomade, ora funziona perfettamente