13行目を X=X+XX:Y=Y+YY 23行目を IF (SPCHK(0) AND 1)!=0 THEN @MACHI 24行目を GOTO @NYUROKU に変えた方がいいです。