var x, y : int
x := 631
y := 25
loop

var chars : array char of boolean

    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        y := y + 1
    end if
    if chars (KEY_RIGHT_ARROW) then
        x := x + 1
    end if
    if chars (KEY_LEFT_ARROW) then
        x := x - 1
    end if
    if chars (KEY_DOWN_ARROW) then
        y := y - 1
    end if

      delay(10)
cls




% I want it to exit when it hits this colour

if whatdotcolor(x,y) = 1 then
delay(99999)










end if
View.Update
drawfilloval(x,y,1,1,7)
drawfillbox(100,100,200,200,1)
end loop