var x, y : int
var top, bottom, left, right : boolean := false
x := 100
y := 100
var chars : array char of boolean
loop
    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) and (y < 375) then
        y := y + 5
        if y = 370 then
            top := true
        end if
    end if

    if chars (KEY_RIGHT_ARROW) and (x < 615) then
        x := x + 5
        if x = 610 then
            right := true
        end if
    end if

    if chars (KEY_LEFT_ARROW) and (x > 0) then
        x := x - 5
        if x = 0 then
            left := true
        end if
    end if

    if chars (KEY_DOWN_ARROW) and y > 0 then
        y := y - 5
        if y = 0 then
            bottom := true
        end if
    end if

    if top = true then
        drawline (0, maxy, maxx, maxy, red)
    end if

    if bottom = true then
        drawline (0, 0, maxx, 0, red)
    end if

    if left = true then
        drawline (0, 0, 0, maxy, red)
    end if

    if right = true then
        drawline (maxx, 0, maxx, maxy, red)
    end if

    drawbox (x, y, 20 + x, 20 + y, red)
    delay (10)
    cls
end loop