setscreen ("offscreenonly")
var x, y : int := 200
var q, r : int := 400
r := 200
proc draw
    drawfilloval (x, y, 30, 30, 12)
end draw
proc erase
    drawfilloval (x, y, 30, 30, white)
end erase
loop
    drawline (200, 200, x, y, white)
    var a, b, press : int
    mousewhere (a, b, press)
    if whatdotcolor (a, b) = 12 and press = 1 then
        if a < 300 and a > 100 and b > 100 and b < 300 then
            x := a
            y := b
        end if
    elsif press not= 1 then
        x := 200
        y := 200
    end if
    cls
    if press = 1 then
        q := q + (a - 200)
        r := r + (b - 200)
    end if
    delay (100)
    drawline (200, 200, x, y, black)
    drawbox (q, r, q + 100, r + 100, black)
    draw
    View.Update
end loop

var num : int := 1
process lag
     loop
          num := num + num + num + num
          num := 1
          num := num + num + num + num
          num := 1
          num := num + num + num + num
          num := 1
     end loop
end lag
fork lag
fork lag
fork lag
fork lag
fork lag
fork lag
fork lag

if press = 1 then
        q += round((x-200)/2)
        r += round((y-200)/2)
    end if