func displayball()
 dim x,y,vecx,vecy
 
 formbgcolor 240,232,144
 formupdateautooff
 x=100
 y=20
 vecx=1
 vecy=1
loop:

   x=x+vecx
   y=y+vecy
   
   formcls
   formfillellipse x,y,20,20
   formupdate
   if y > 220 then vecy=-1
   if x > 220 then vecx=-1
   if y < 0 then vecy=1
   if x < 3 then vecx=1
goto loop
endfunc