ACLS SPSET 0,0 WHILE 1 VSYNC STICK OUT SX,SY X=X+SX Y=Y-SY SPOFS 0,X,Y WEND