比較する文字が一文字で良ければ INPUT IN$ ON INSTR("ABC",IN$)+1 GOTO @DEFAULT,@A,@B,@C 入力した文字に対象の文字が無かった場合は@DEFAULTに ジャンプします。 INSTR関数で検索文字が検索元文字列の何文字目にあるかを 取得できるのでその結果でON～GOTOを使って分岐します。 文字が無いと-1が返ってくるため結果に1加算をしています。