これでどうでしょう。 そんなに命令も多くないのでGOTOは無くして、横移動もできるようにしてみました。