SPSET 0,0 X=0:Y=0 WHILE 1 STICK OUT SX,SY INC X,SX DEC Y,SY SPOFS 0,X,Y WAIT WEND