Could you refer to the following program? ACLS X=20:Y=10 @LOOP LOCATE X,Y:PRINT"(space)" STICK OUT SX,SY X=X+SGN(SX)*(ABS(SX)>=0.25) Y=Y-SGN(SY)*(ABS(SY)>=0.25) LOCATE X,Y:PRINT"(stick man)" VSYNC 5 GOTO @LOOP