データ文が要素を「,」で区切らず1行まとめて書いてあるので 直す箇所としては、縦軸を管理する最初のFORと横軸を管理するFORループの間にREAD命令を移動してやるのと、 IF文で使う判定用の変数を別に、例えばM1$と設定してM1$=MID$(M$,J,1)としてやる必要があります。