Ultra-SiMPLE
size = 150
x = xpixels()/2
y = ypixels()/2
dx = 5; dy = 5
Do
   cls
   circle (x, y, size)
   delay (25)
   x = x + dx
   y = y + dy
   If (x < size) dx = -dx
   If (x > xpixels()-size) dx = -dx
   If (y < size) dy = -dy
   If (y > ypixels()-size) dy = -dy
   read quitkey (27)
Loop