「Input #」文でアクセス違反[ver4.22]

[卓漏]

次のようなプログラムを実行したところ････、

コード: 全て選択

Open "data52.txt" For Input As 1
Dim I, Str$
While Eof(1) = 0
I++
Input #1,Str$
Print I
Wend
Close(1)

「data52.txt」(約30KB)のファイルデータは下のような感じで「0」と「,」が、ず～っとつながっているのですが、

コード: 全て選択

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

なぜか、(毎回バラバラですが、)約6000回くらい読み込んだころにエラーがでます。
「string.sbp」に「_System_HeapStringAlloc」という関数がありますが、

[ここをクリックすると内容が表示されます]

その「SetDWord(_System_HeapStringAlloc-4,length)」でエラーが発生しているみたいです。