補足します。 １４１行目の条件「HSY<-100」は一度成立すると、それを解除する処理が無いため、必ず「HSF=0:HST=FLOOR」実行されるように見えます。 条件を追加するか、HSYを初期化するか、その他何らかの対処が必要と思われます。