二つ目の引数の文字パターンのデータは256文字である必要があります。 一見して9、10、11今日目は短か過ぎるのでエラーとなると思います。 データが256文字になるように修正して下さい。 ちなみに、フォントのデータは後で使いますか？ ただ設定する時に使うだけで、後で使う必要がないなら、配列に読み込む必要はないかと。 VAR A,C$ : READ A,C$ FONTDEF A,C$ : で良いです。