要らない所という質問に合うかは分かりませんが、 32~39行目は、 IF B2 AND 1 THEN 　IF SELECT!=1 THEN DEC SELECT 　IF SELECT<=1 THEN SELECT=2 ELSEIF B2 AND 2 THEN 　IF　～ みたいにまとめる（入れ子、ネスト）方が効率的かつ見やすいですし、40~42行目もIFじゃなくてELSEIFにした方が無駄な判別処理が走らなくて済みますね。