始めの公開キーはDL出来なかったのでとりあえず2つめのやつだけちょっとコメント。 IFが多いので全部ちゃんとみてませんが、例えば32〜34行目のIFでは、TIMEが500とか小さいときでも必ずYUGAは0になりますよね。たぶんそれは正しい意図じゃないと思いますが、そのようなIFの判定漏れが多いんじゃないかと推測されますね。 この場合はちゃんと条件を厳密に〜以上〜以下と＆＆（アンド）条件をつけて判断させるか、IFの順番を入れ替えて IF TIME<36000 THEN YUGA=0 IF TIME<25200 THEN YUGA=2 IF TIME<18000 THEN YUGA=1 とすれば、流れ的には動作するようになると思います。他の部分はちゃんとみてないのでわからないですが、たぶんそんな感じだと感じだと思います。