setscreen ("offscreenonly")

var char1_bulletx : int := 50
var char1_bullety : int := 50
var keys : array char of boolean
var char1_bulletalive : boolean := false

loop
    char1_bulletx := char1_bulletx + 1
    Input.KeyDown (keys)
    if keys (' ') and char1_bulletalive = false then
        char1_bulletalive := true
        char1_bulletx := 50
        char1_bullety := 50
    end if
    if char1_bulletalive = true then
        delay (1)
        cls
        drawfilloval (char1_bulletx, char1_bullety, 2, 2, black)
        View.Update
    end if
    if char1_bulletx >= maxx + 10 then
        char1_bulletalive := false
    end if
end loop