you mean something like this?
sync on
sync rate 60
autocam off
make object cube 1,1
position object 1,0,0,0
position camera 0,15,0
point camera 0,0,0
ang=90
do
position object 1,0,0,0
if leftkey() and ang>0
turn object left 1,1
dec ang
endif
if rightkey() and ang<180
turn object right 1,1
inc ang
endif
move object 1,-5
text 0,0,str$(ang)
sync
loop
it moves the cube around in an arc controled by the arrow keys, all you have to do inside the main loop is to place the cube in the center of the arc, turn it left or right by a small angle, then move it backwards the distance of the radius, then just keep doing this over and over, placing it in the middle, turning it a small amount and then moving back to the radius again, simple.
Windows: 32 bit extension/graphical shell for a 16bit patch to an 8bit OS originally coded for a 4bit CPU, written by a 2bit company that can't stand 1bit of competition, now available in 64bits.