setscreen ("offscreenonly;graphics:600;500;nobuttonbar;position:100;100")
var x, y, x2, y2 : real := 200
var angle : real := 0
var col : int
loop
    colorback (7)
    cls
    for i : 1 .. 12
        drawbox (round (x - cosd (angle) * i), round (y - sind (angle) * i), round (x + 10 + cosd (angle) * i), round (y + 10 + sind (angle) * i), i)
    end for

    angle -= 1
    View.Update
end loop