setscreen ("offscreenonly")

const baseshift := 150
var shift := baseshift

proc DrawBackground
    drawfillbox (0, 0, maxx, maxy, blue)
end DrawBackground
proc DrawObject (xshift, yshift : int)
    var x := (maxx div 2) + xshift
    var y := (maxy div 2) + yshift
    var r := 50
    drawfilloval (x, y, r, r, red)
end DrawObject

var speed := 1
var deg := 0
var speed2 := 5
var deg2 := 0
var xs, ys : int

loop
    deg2 += speed2
    shift := round(cosd(deg2) * baseshift)
    deg += speed
    xs := round (cosd (deg) * shift)
    ys := round (sind (deg) * shift)
    DrawBackground
    DrawObject(xs, ys)
    View.Update ()
    Time.DelaySinceLast(20)
end loop