READで文字列（２文字以上）を読み込んだ場合、当然ですがIFで判定できるのはその文字列（固まり）になっちゃうのはプログラムを見た感じわかったのかなと思います。 ということは、あとはこの文字列を１文字ずつ分解して、その文字に対して数値に変換してあげれば望みの動作になると思いますよ。 文字列を分解するにはMID$命令を使います。また１文字ずつ処理する都合上、文字列の長さがわからないと困りますが、それはLEN命令で調べられます。 また１文字だけ抜き出すならMID＄じゃなくて文字列を配列的に処理する事でも可能ですし、その方が記述がシンプルですが、まずはMID$でやってみるのがいいじゃないかなと思います。MID$の方が様々な用途に使えますしね。