パッと見た感じ DIM A0[H] の宣言で使える範囲は A0[0]～A0[H-1] FOR I=1 TO H の中でA0[H] を参考にしているようにみえます。 配列の上限を確認して1つ多く確保するなりすれば良いと思います。