View.Set ("offscreenonly:600;600")
var x,y : int := 1
var keys : array char of boolean
var bike : boolean := true

procedure BIKE
if bike then
        Draw.FillOval (x, y, 5, 5, green)
        delay (10)
        end if   
end BIKE
loop
Input.KeyDown (keys)
if keys (KEY_UP_ARROW)then
y := y +1
cls
end if
if keys (KEY_DOWN_ARROW)then
y := y -1
cls
end if
if keys (KEY_LEFT_ARROW)then
x := x -1
cls
end if
if keys (KEY_RIGHT_ARROW)then
x := x +1
cls
end if
if (x = 600) then
x := x-1
cls
end if
if (x = 0) then
x := x+1
end if
if y = 600 then
y:= y-1
end if
if y = 0 then
y := y+1
end if
BIKE
View.Update
end loop