try SPSET 0,501 @LOOP STICK OUT SX,SY X=X+SX*2:Y=Y-SY*2 SPOFS 0,X,Y VSYNC GOTO @LOOP