spdef 0,16,0,16*3,16 spset 0,0 repeat stick out sx,sy x=x+sx:y=y-sy spofs 0,x,y vsync until 0