ACLS SPSET 0,1 X=100:Y=100 @LOOP STICK OUT TX,TY X=X+TX*2:Y=Y-TY*2 SPOFS 0,X,Y VSYNC 1:CLS GOTO @LOOP