150行目のFOR文が0 TO XPになっているせいで、
一戦目は6万回、二戦目は12万回……みたいに処理回数が倍増しているのが原因です。
150,151,159行目を丸ごと削除し、
LV=LV+1の1行上に「WHILE XP>=100*LV*LV*LV」、
BONUS=BONUS+RND(5)の1行下に「WEND」を加えることで、
「経験値が不足した状態になるまでレベルアップを続ける」という処理になります。
WHILE〜WEND文は「条件式が成立している間、WHILE〜WENDまでの処理をループし続ける」という命令で、いろいろ応用が利くので覚えておくと便利です!
また、REPEAT〜UNTIL文というのがあって、これは「条件式が成立していない間、REPEAT〜UNTILまでの処理をループし続ける」という真逆の処理になります。こちらも覚えておくと便利です。