var x, y : int
x := 20
y := 60
var chars : array char of boolean
drawfillbox(0,0,560,350,black)
loop
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
if y <= 348 then
y := y + 1
end if
end if
if chars (KEY_RIGHT_ARROW) then
if x <= 559 then
x := x + 1
end if
end if
if chars (KEY_LEFT_ARROW) then
if x >= 1 then
x := x - 1
end if
end if
if chars (KEY_DOWN_ARROW) then
if y >= 45 then
y := y - 1
end if
end if
drawfilloval (x, y, 1, 1, white)
delay (5)
drawfilloval (x, y, 1, 1, black)
end loop |