Dim Shared As Byte ganador = 1, accion = 2, perdedor = 3, wp, wc
Dim Shared As String word(10, 3)
For n As Byte = 0 To 9
    Read word(n, ganador), word(n, accion), word(n, perdedor)
Next n

Sub SimonSay(n As Byte)
    Print Using "\       \  \        \  "; word(n, ganador); word(n, accion); word(n, perdedor)
End Sub

Sub Puntuacion()
    Print !"\nPlayer = "; wp; !"\tComputer = "; wc; !"\n"
End Sub

Dim As Byte n
Dim As String*1 k
Dim As String eleccionCPU, eleccionJUG
Randomize Timer
Do
    Cls
    eleccionCPU = word(Rnd *10, ganador)

    Print !"'Rock, Paper, Scissors, Lizard, Spock!' rules are:\n"
    For n = 0 To 9
        SimonSay(n)
    Next n

    Print !"\nType your choice letter:"
    Input !"(R)ock, (P)aper, (S)cissors, (L)izard, Spoc(K), (Q)uit  ", k

    k = Ucase(k)
    Select Case k
    Case "Q"
        Exit Do
    Case "R"
        eleccionJUG = "Rock"
    Case "P"
        eleccionJUG = "Paper"
    Case "S"
        eleccionJUG = "Scissors"
    Case "L"
        eleccionJUG = "Lizard"
    Case "K"
        eleccionJUG = "Spock"
    End Select

    Print !"\nPlayer chose "; eleccionJUG; " and Computer chose "; eleccionCPU
    For n = 0 To 9
        If word(n, ganador) = eleccionJUG And word(n, perdedor) = eleccionCPU Then
            SimonSay(n)
            Print !"\nWinner was Player"
            wp += 1
            Exit For
        Elseif word(n, ganador) = eleccionCPU And word(n, perdedor) = eleccionJUG Then
            SimonSay(n)
            Print !"\nWinner was Computer"
            wc += 1
            Exit For
        End If
    Next n
    If n = 10 Then Print !"\nOuch!"

    Puntuacion()
    Print "Press <SPACE> to continue"
    Sleep
Loop Until(k = "Q")

Cls
Puntuacion()
If wp > wc Then
    Print "Player win"
Elseif wc > wp Then
    Print "Computer win"
Else
    Print "Tie"
End If
Sleep
End

Data "Scissors","cuts","Paper"
Data "Paper","covers","Rock"
Data "Rock","crushes","Lizard"
Data "Lizard","poisons","Spock"
Data "Spock","smashes","Scissors"
Data "Scissors","decapites","Lizard"
Data "Lizard","eats","Paper"
Data "Paper","disproves","Spock"
Data "Spock","vaporizes","Rock"
Data "Rock","blunts","Scissors"