'
' コマンドの入力
'
Option Register Dirty
Option Variable Uninitialize

Extern Sub LOWER With
    ByRef s As String To GR1,GR2
End Sub

Sub CMD
    Argument
        ByRef cmd As Integer From GR1
    End Argument

    Dim s As String

    cmd = -1
    Do
        Print "command? (up,right,down,left,end)"
        Input s
        Call LOWER(s)
        Select Case s
            Case "end"
                Exit Do
            Case "up", "u"
                cmd = 0
                Exit Do
            Case "right", "r"
                cmd = 1
                Exit Do
            Case "down", "d"
                cmd = 2
                Exit Do
            Case "left", "l"
                cmd = 3
                Exit Do
        End Select
    Loop Until EOF()

End Sub