sayさんの指摘を細かく解説しますと、 D$[100]と「D$を配列変数として登録」していますので、その後にREAD D$と同じ変数を違う用途で使う事が出来ないのです。 直すにはD$[100]を違う変数に代えるか、READ D$を違う変数に代えるか、READ D$[I]としてしまうか、のどれかです(3番がオススメ)。 そして6行目、やりたいと思ってる事は「D$[n]を1文字ずつ読んでそれぞれCに変数を指定したい」という事だと見受けられます。 が、読みこんだデータは「文字『列』」として扱われる為このままでは全てCが0になってしまいます。 どうしたらいいか?答えは「更に1文字ずつ分解する」という事です。