見た感じ、ラベルを文字配列にしてIF文を丸ごと全部なくせそう GOTO LABELS$[A] みたいな感じで