drawbox (10, 10, maxx - 10, maxy - 10, black)
var x, y, xx, yy : int
x := 100
y := 100
xx := 200
yy := 100
Draw.ThickLine (x, y, xx, yy, 4, brightgreen)
var h, k : int
randint (h, 15, maxx-15)
randint (k, 15, maxy-15)
drawfilloval (h, k, 5, 5, brightred)
loop
    delay (10)
    var chars : array char of boolean
    var chars2 : array char of boolean
    Input.KeyDown (chars)
    if chars (KEY_RIGHT_ARROW) then
        loop
            delay (10)
            xx := xx + 1
            Draw.ThickLine (x, y, xx, yy, 4, brightgreen)
            if xx > maxx - 12 then
                delay (200)
                return
            end if
            Input.KeyDown (chars2)
            if Math.DistancePointLine (h, k, x, y, xx, yy) < 7 then
                drawfilloval (h, k, 5, 5, white)
                randint (h, 15, maxx-15)
                randint (k, 15, maxy-15)
                drawfilloval (h, k, 5, 5, brightred)
            end if
            if chars2 (KEY_UP_ARROW) or chars2 (KEY_DOWN_ARROW) then
                exit
            end if
        end loop
    elsif chars (KEY_UP_ARROW) then
        loop
            delay (10)
            x := xx
            yy := yy + 1
            y := yy
            Draw.ThickLine (x, y, xx, yy, 4, brightgreen)
            if yy > maxy - 12 then
                delay (200)
                return
            end if
            Input.KeyDown (chars2)
            if Math.DistancePointLine (h, k, x, y, xx, yy) < 7 then
                drawfilloval (h, k, 5, 5, white)
                randint (h, 15, maxx-15)
                randint (k, 15, maxy-15)
                drawfilloval (h, k, 5, 5, brightred)
            end if
            if chars2 (KEY_RIGHT_ARROW) or chars2 (KEY_LEFT_ARROW) then
                exit
            end if
        end loop
    elsif chars (KEY_LEFT_ARROW) then
        loop
            delay (10)
            xx := xx - 1
            Draw.ThickLine (x, y, xx, yy, 4, brightgreen)
            if xx < 12 then
                delay (200)
                return
            end if
            Input.KeyDown (chars2)
            if Math.DistancePointLine (h, k, x, y, xx, yy) < 7 then
                drawfilloval (h, k, 5, 5, white)
                randint (h, 15, maxx-15)
                randint (k, 15, maxy-15)
                drawfilloval (h, k, 5, 5, brightred)
            end if
            if chars2 (KEY_UP_ARROW) or chars2 (KEY_DOWN_ARROW) then
                exit
            end if
        end loop
    elsif chars (KEY_DOWN_ARROW) then
        loop
            delay (10)
            x := xx
            yy := yy - 1
            y := yy
            Draw.ThickLine (x, y, xx, yy, 4, brightgreen)
            if yy < 12 then
                delay (200)
                return
            end if
            Input.KeyDown (chars2)
            if Math.DistancePointLine (h, k, x, y, xx, yy) < 7 then
                drawfilloval (h, k, 5, 5, white)
                randint (h, 15, maxx-15)
                randint (k, 15, maxy-15)
                drawfilloval (h, k, 5, 5, brightred)
            end if
            if chars2 (KEY_RIGHT_ARROW) or chars2 (KEY_LEFT_ARROW) then
                exit
            end if
        end loop
    end if
end loop