[MegaX5]

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

(0_о)_) тут есть команды из Mobile Basic