var x, y : int
var x1, y1 : int
var move : string (1)
var isball : boolean := false
var numball : int := 0
var yball : int := 1
var col, row : int := 0
var bricklist : array 1 .. 5, 1 .. 9 of int
const movement := 22
const dist := 5
var xx := 100
var yy := 15
x := 200
y := 0
x1 := 310
y1 := 20
var ballx, bally, xmod, ymod : int := 200
xmod := 1
ymod := 1
var drawx : int := 10
var drawy : int := 363


for a : 1 .. 5
    for b : 1 .. 9
        bricklist (a, b) := 1
    end for
end for




loop


    drawx := 10
    drawy := 363
    for a : 1 .. 5
        for b : 1 .. 9
            if bricklist (a, b) = 1 then
                drawfillbox (drawx, drawy, drawx + 60, drawy + 17, red)
                drawx := drawx + 70
            end if
        end for
        drawx := 10
        drawy := drawy - 30
    end for

    if hasch then
        getch (move); %Get Input
        if move = chr (203) and x > 5 then
            drawfillbox (x, y, x1, y1, 0)
            x := x - 7
            x1 := x1 - 7
        elsif move = chr (205) and x < 520 then
            drawfilloval (x, y, x1, y1, 0)
            x := x + 7
            x1 := x1 + 7
        end if
    end if
    ballx += xmod
    bally += ymod
    if ballx + 10 >= maxx then
        xmod := -1
    elsif ballx - 10 <= 0 then
        xmod := 1
    end if
    if bally + 10 >= maxy then
        ymod := -1
    elsif bally - 10 <= 0 then
        ymod := 1
    end if
    drawfillbox (x, y, x1, y1, black)
    drawfilloval (ballx, bally, 10, 10, 12)
    delay (7)
    drawfilloval (ballx, bally, 10, 10, 0)

    if whatdotcolour (ballx, bally - 11) = black then
        ymod := 1
    end if

    if bally + 10 >= maxy then
        ymod := -1
    elsif bally - 10 <= 0 then
        ymod := 1
    end if
    if whatdotcolour (ballx, bally + 11) = red then
        ymod := -1
        if ballx >= 10 and ballx <= 70 then

            bricklist (5, 1) := 0

        elsif ballx >= 80 and ballx <= 140 then
            bricklist (5, 2) := 0
        end if
    end if

end loop