%Sorry for that but here is the code.

%Ilan Portman
%Grade 11 Final Project
%Brick Breaker vs AI
%December 7th, 2011
import GUI
procedure TheGame
    setscreen ("graphics:1024;950, nobuttonbar")
    %---------------------------
    %Player Co-ords            %
    var x1, y1, x2, y2 : int   %
    x1 := 250                  %
    y1 := 25                   %
    x2 := 350                  %
    y2 := 50                   %
    %---------------------------

    %---------------------------
    %Ball Co-ords              %
    var ballx, bally : int     %
    ballx := 512               %
    bally := 200               %
    %---------------------------

    %----------------------------------------
    %Game Basics                            %
    var lives : int := 3                    %
    var score : int := 0                    %
    var timePlaying : int := Time.Elapsed   %
    %----------------------------------------

    var arrowKeys : array char of boolean

    loop
        Input.KeyDown (arrowKeys)

        if arrowKeys (KEY_RIGHT_ARROW) then
            x1 += 5
            x2 += 5
        end if
        if arrowKeys (KEY_LEFT_ARROW) then
            x2 -= 5
            x1 -= 5
        end if

        drawfillbox (x1, y1, x2, y2, red)
        delay (10)
        cls
        drawfillbox (250, 900, 350, 925, 101)
        drawfillbox (0, 457, 1050, 462, 51)
        drawfilloval (ballx, bally, 15, 15, 48)
        if arrowKeys (KEY_ESC) then
            cls
            exit
        end if
    end loop

    if x1 > 925 then
        x1 -= 50
    elsif x2 < 25 then
        x2 += 50
    end if
    View.UpdateArea (0, 0, maxx, maxy)
end TheGame

procedure Options

end Options

procedure Game
    TheGame
end Game

procedure Instructions
    colorback (16)
    color (48)
    cls
    drawfillbox (0, 0, maxx, maxy, 51)
    locate (4, 1)
    put "The objective of the game is..."
    locate (7, 1)
    color (58)
    put "to destroy all of the blocks on your side of the screen (bottom)"
    locate (10, 1)
    color (73)
    put "Before the computer destroys all of his blocks on his side of the screen (top)"
    locate (13, 1)
    color (81)
    put "You will use the 'Left' and 'Right' Arrow keys to move left and right"
    locate (16, 1)
    color (96)
    put "Good Luck and go smash some blocks!"
    var mainMenu : int := GUI.CreateButton (maxx, 0, 0, "Back To Main Menu", TheTitleScreen)
end Instructions

procedure TheTitleScreen

    var game_Button : int := GUI.CreateButton (300, 300, 0, "Click To Play!", Game)
    var optionMenu_Button : int := GUI.CreateButton (300, 200, 0, "Options Menu", Options)
    var instructions_Button : int := GUI.CreateButton (300, 100, 0, "Learn How To Play", Instructions)
end TheTitleScreen

TheTitleScreen

loop
    exit when GUI.ProcessEvent
end loop