７１行目と７２行目のIF文で、HGMIPX[LOOP]とHGMIMX[LOOP]に値を代入していますが、前回のループで代入した値が残っていので、IF文の直前で0を入れて初期化しておくとよいと思います(*´▽｀*)