Microsoft Small Basic

Program Listing: GXP440-0
' Rock Paper Scissors GXP440-0
Init()
While "True"
CPU()
You()
Judge()
EndWhile
Sub Init
hand = "1=Rock;2=Paper;3=Scissors;"
judge["Rock"] = "Rock=Draw;Paper=Win;Scissors=Lose;"
judge["Paper"] = "Rock=Lose;Paper=Draw;Scissors=Win;"
judge["Scissors"] = "Rock=Win;Paper=Lose;Scissors=Draw;"
EndSub
Sub CPU
n = Math.GetRandomNumber(3)
cpu = hand[n]
EndSub
Sub You
error = "True"
While error
TextWindow.Write("1(Rock), 2(Paper), 3(Scissors)? ")
n = TextWindow.ReadNumber()
you = hand[n]
If you <> "" Then
error = "False"
EndIf
EndWhile
EndSub
Sub Judge
' param you - your hand
' param cpu - CPU's hand
TextWindow.WriteLine("CPU:" + cpu)
TextWindow.WriteLine("You:" + you)
TextWindow.WriteLine(judge[cpu][you])
EndSub