そのエラーが438行目で出るのですか？ FROKICSの数値が分かりませんが例えば100なら DIM FROKIC［100,6］と配列を定義してREAD FROKIC［LOOP,INSLOAD］とした方がシンプルになりますよ。