HP==100の下に、 WHILE 1を追加して、 最後に WENDを追加すれば、無限ループになります。