ちょっと間違えてた　あとつけたし @LOOP STIYC SX,SY X=X+SX:Y=Y-SY X=100:Y=100:SPOFS 0,X,Y C=BGGET(0,X,Y,1) IF C==1 THEN GOTO @A IF C==2 THEN GOTO @B GOTO @LOOP @A GOTO @LOOP @B GOTO @LOOP