setscreen ("offscreenonly")
var a : real := 0
var x, y : real
var back : boolean := false
var forth : boolean := true
loop
    if a < 0 then
        forth := true
        back := false
    end if
    if a > 180 then
        a -= 1
        back := true
        forth := false
    end if
    if forth = true then
        a += 1
    end if
    if back = true then
        a -= 1
    end if
    x := 320 + (100 * cosd (a))
    y := 240 + (100 * sind (a))
    drawline (320, 240, round (x), round (y), black)
    View.Update
    drawline (320, 240, round (x), round (y), white)
end loop