Dim HandNameStr[2] = ["ぐう", "ちょき", "ぱあ"] As *Byte Dim JudgeNameStr[2] = ["あいこ", "勝ち", "負け"] As *Byte
Function NumbarToHandName(nu As Long) As String NumbarToHandName = HandNameStr[nu] End Function
Function NumbarToJudgeName(nu As Long) As String NumbarToJudgeName = JudgeNameStr[nu] End Function
Function Judge(a As DWord, b As DWord) As DWord If a = b Then Judge = 0 If (a = GU And b = TYOKI) Or (a = TYOKI And b = PAA) Or (a = PAA And b = GU) Then Judge = 1 If (a = GU And b = PAA) Or (a = TYOKI And b = GU) Or (a = PAA And b = TYOKI) Then Judge = 2 End Function
Dim pc As DWord'コンピュータの手 Dim usr As DWord'ユーザーの手
sxor128() Print "じゃんけんゲーム" *LABEL1 Input "ぐう=0, ちょき=1, ぱあ=2を入力。";usr If usr <> GU And usr <> TYOKI And usr <> PAA Then *LABEL1 pc = xor128() Mod 3 As DWord