% sample17.t
% a simple animation example
%
const timeInterval := 100
colorback(5)
cls
color(4)
setscreen("no cursor")
for i: 1..75            
	locate(5,i+1)                   % draw the car
	put "***"
	locate(6,i)
	put "*   **"
	locate(7,i+1)
	put "o   o"
	delay(timeInterval)             % waste some time
	locate(5,i+1)                   % erase the car
	put "   "
	locate(6,i)
	put "      "
	locate(7,i+1)
	put "     "
end for