42行目からの IF R==0 THEN GOTO @A IF R==1 THEN GOTO @B IF R==2 THEN GOTO @C IF R==3 THEN GOTO @D IF R==4 THEN GOTO @E IF R==5 THEN GOTO @F は ON R GOTO @A,@B,@C,@D,,@E,@F に短縮できます！