とりあえず ・READ M$に変更 ・意味のないUNTILを削除 ・READ S$,C,Aを追加 そしてBGPUTがエラー