x:float = 1 y:float = 2 while not keyhit(KEY_ESCAPE) cls x = x + .1 y = y + .1 drawrect x,y,5,5 flip wend