試してはいませんが見ただけの感想。 DIM TMAX[10]とTMAXを配列変数として定義したのにDIM TX[TMAX]とTMAXを変数としても扱うとエラーとなります。違う名前を使って下さい。 あとIF B AND 4はIF B==4　でいいと思います。