「DIMの後ろに置いて…」の所のループ内と 「READを置いて…」の所のループ内を見ると REPEAT:READ M$ が、増えているようです。 ここでは、(前のプログラムの)126行目の REPEATのすぐ下に READ S$,C,A を、追加すればいいかと思います。