var playerx, playery : int
playerx := 20
playery := 380
var key : string (1) := ""
var num, counter : int := 0
var bombx, bomby : array 1 .. 200 of int
for i : 1 .. 200
    bombx (i) := -20
    bomby (i) := -20
end for

loop
    setscreen ("offscreenonly")
    View.Update
    delay (5)
    num := num + 1
    Draw.FillBox (0, 0, maxx, maxy, 255)
    Draw.FillBox (playerx - 20, playery - 20, playerx + 20, playery + 20, 1)
    if hasch then
        getch (key)
    end if
    if key = (KEY_RIGHT_ARROW) and playerx < maxx - 10 then
        playerx := playerx + 6
    elsif key = (KEY_LEFT_ARROW) and playerx > 10 then
        playerx := playerx - 6
    end if
    for i : 1 .. 200
        if bomby (i) < 0 then
            bombx (i) := -20
            bomby (i) := -20
        end if
        if bombx (i) not= -20 and bomby (i) not= -20 then
            Draw.FillOval (bombx (i), bomby (i), 15, 15, 12)
            bomby (i) := bomby (i) - 18
        end if
    end for
    if counter >= 5 then
        if bombx (num) = -20 and bomby (num) = -20 then
            bombx (num) := playerx
            bomby (num) := playery - 15
            counter := 0
        end if
    end if
    counter := counter + 1
    if num = 199 then
        num := 0
    end if

end loop