Input.KeyDown (chars)
if chars (KEY_LEFT_ARROW)
        then
    loop
        steps += 1
        Pic.Draw (PicName (steps mod pic#))
        if chars (KEY_LEFT_ARROW = false)
            steps := 0
            exit
        end if
    end loop

var chars : array char of boolean
var x, y : array 0 .. 5 of int
var bullet, Posx, Posy : int := 0
var bullettrue : array 0 .. 5 of boolean := init (false, false, false, false, false, false)
var ball : int := Pic.FileNew ("fire.bmp")
process bulletshoot
    loop
        for z : 0 .. 5
            if bullettrue (z) then
                x (z) += 5
                Pic.Draw (ball, x (z), y (z), picMerge)
                if x (z) > maxx then
                    bullettrue (z) := false
                end if
            end if

        end for
        delay (10)
        cls
        View.Update
    end loop
end bulletshoot
fork bulletshoot
loop
    Input.KeyDown (chars)
    if chars ('s') and bullettrue ((bullet + 1) mod 6) = false
            then
        bullet += 1
        x (bullet mod 6) := Posx
        y (bullet mod 6) := Posy
        bullettrue (bullet mod 6) := true
        loop
            Input.KeyDown (chars)
            exit when chars ('s') = false
        end loop
    end if
end loop

View.Set ("graphics:500;500,offscreenonly,nobuttonbar,title:Shooting")
var ball1 : int := Pic.FileNew ("fire.bmp")
const NUM_BULLETS := 6


type bullet :
    record
        x : int
        y : int
        isAlive : boolean
    end record


function newBullet (newX, newY : int, newIsAlive : boolean) : bullet
    var b : bullet
    b.x := newX
    b.y := newY
    b.isAlive := newIsAlive
    result b
end newBullet


var bullets : array 0 .. NUM_BULLETS of bullet

var keys : array char of boolean
var preKeys : array char of boolean

for i : 1 .. NUM_BULLETS
    bullets (i) := newBullet (0, 0, false)
end for

procedure Update ()
    Input.KeyDown (keys)


    if (keys ('s') and ~preKeys ('s')) then

        for i : 1 .. NUM_BULLETS
            if ( ~bullets (i).isAlive) then
                bullets (i).x := 0
                bullets (i).y := 50
                bullets (i).isAlive := true
                exit
            end if
        end for
    end if


    for i : 1 .. NUM_BULLETS

        if (bullets (i).isAlive) then

            bullets (i).x += 10


            if (bullets (i).x > maxx) then
                bullets (i).isAlive := false
            end if
        end if
    end for


    preKeys := keys
end Update

procedure Draw_ ()
    cls

    for i : 1 .. NUM_BULLETS
        if (bullets (i).isAlive) then

            Pic.Draw (ball1, bullets (i).x, bullets (i).y, picMerge)
        end if
    end for

    View.Update ()
end Draw_

loop
    Update ()
    Draw_ ()

    Time.DelaySinceLast (33)
end loop