process lasers
    for i : 1 .. 20
        rightlaserx (i) := playerx + 35
    end for
    for j : 1 .. 20
        rightlasery (j) := playery + 80
    end for
    for k : 1 .. 20
        leftlaserx (k) := playerx + 90
    end for
    for l : 1 .. 20
        leftlasery (l) := playery + 80
    end for
    if lasercharge >= 1 then
        lasercharge := lasercharge - 1
        fork lasersound
        loop
            for b : 1 .. 20
                for c : 1 .. 20
                    if rightlasery (lasercount (b)) > 500 then
                        exit
                    end if
                    if leftlasery (lasercount2 (c)) > 500 then
                        exit
                    end if
                    Draw.ThickLine (rightlaserx (lasercount (b)), rightlasery (lasercount (b)), rightlaserx (lasercount (b)), rightlasery (lasercount (b)) + 20, 3, brightred)
                    Draw.ThickLine (leftlaserx (lasercount2 (c)), leftlasery (lasercount2 (c)), leftlaserx (lasercount2 (c)), leftlasery (lasercount2 (c)) + 20, 3, brightred)
                    rightlasery (lasercount (b)) := rightlasery (lasercount (b)) + 10
                    leftlasery (lasercount2 (c)) := leftlasery (lasercount2 (c)) + 10
                end for
            end for
        end loop
    end if
end lasers