６，１０，１４，１８，２２行目の末尾のGOTO文はどれも 不要です。そのまま次の行に進んでくれますよ！ですから @2から@6のラベルも不要になります。ずいぶんすっきりするね！