var last, now, count : int := 1
var x, y : int := 100
var chars : array char of boolean

last := Time.Elapsed
View.Set ("offscreenonly")
put count
loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        y := y + 5
    end if
    if chars (KEY_RIGHT_ARROW) then
        x := x + 5
    end if
    if chars (KEY_LEFT_ARROW) then
        x := x - 5
    end if
    if chars (KEY_DOWN_ARROW) then
        y := y - 5
    end if
   
    now := Time.Elapsed
    if (now - last >= 1000) then
        count += 1
        locate (1, 1)
        put count
        last := now
    end if
   
    drawoval (x, y, 4, 4, red)
    View.UpdateArea (0, 0, maxx, maxy)
    delay (10)
    cls %Comment this to see object trail
end loop