ECCO IL PROGRAMMA DELLA MORRA IN SMALL BASIC

'Programma MORRA 2
'Inizializza l'array (V) a 0
N=16
For i=1 to N
Array.SetValue("V",i,0)
EndFor
TextWindow.Write("Gioca 0.., Q per finire:")
G=TextWindow.read()
i=1
While G<>"Q"
x=0
if (Array.GetValue("V",i)<=Array.GetValue("V",i+1)) then
x=-1
EndIf
y=Math.Remainder(G,2)
TextWindow.Write(-x+","+y+" HA VINTO ")
T=0
IF x=-y Then
T=-1
EndIf
TextWindow.Write(text.GetSubText("UC",-t,1))
tc=tc-t
tu=tu+t+1
i=i+y
TextWindow.Write(" ! Vittorie: "+tc+">C "+tu+">U .. RiGioca :")
Array.SetValue("V",i,Array.GetValue("V",i)+1)
i=2*Math.Remainder(i,8)
G=TextWindow.read()
EndWhile