エラーが　out of range　で、BGPUTの行に出て居ます。後、FORのループ変数をJに変えときました。