始めの公開キーは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
とすれば、流れ的には動作するようになると思います。他の部分はちゃんとみてないのでわからないですが、たぶんそんな感じだと感じだと思います。