setscreen ("graphic: 500,500")
var move : array char of boolean
var change, change2 : int := 0
var fire : int := 0
var rock : int := 0
var fall : int := 1

procedure rockfall
randint (rock, 1, 1)
if rock = 1 then
fall := fall - 1
drawfilloval (10, 400 + fall, 10, 10, brown)
end if
end rockfall

procedure movement
Input.KeyDown (move)
if move (KEY_RIGHT_ARROW) then
change := change + 1
if change = maxx - 20 then
change := change - 1
end if
end if
if move (KEY_LEFT_ARROW) then
change := change - 1
if change = 0 then
change := change + 1
end if
end if
if move (KEY_UP_ARROW) then
change2 := change2 + 1
if change2 = maxy - 20 then
change2 := change2 - 1
end if
end if
if move (KEY_DOWN_ARROW) then
change2 := change2 - 1
if change2 = 0 then
change2 := change2 + 1
end if
end if
if move (KEY_CTRL) then
delay (10)
fire := fire + 1
drawline (10 + change, change + (change2 + fire), 10 + change, 10 + change2, red)
if fire = rock then
cls
end if
end if
drawfilloval (10 + change, 10 + change2, 10, 10, blue)
end movement

loop
View.Update
cls
setscreen ("offscreenonly")
movement
rockfall
end loop