DataOut=falseにするとプログラムが終了しないんだが･･･
あと条件分岐で飛んだ先でステータスフラグが変更された時に
条件分岐をスルーした場合でもフラグが変更されてる
サブルーチン呼び出しと同じ扱いになってるぽい？