PROGRAM animation
SET WINDOW 1,10,1,10
SET COLOR "red"
BOX AREA 1,2,1,2             ! draw shape
BOX KEEP 1,2,1,2 in box$     ! store shape in string variable box$
CLEAR
LET x = 1
DO while x < 10
   BOX CLEAR x,x+1,5,6       ! erase shape
   LET x = x + 0.1
   BOX SHOW box$ at x,5      ! redraw shape at different location
   PAUSE 0.01
LOOP
END