import GUI
var font : int
var option : string
var movement : int := 0
var keys : array char of boolean
const centerx := maxx div 2
const centery := maxy div 2
colorback (black)

for i : 1 .. 25 %Counted loop makes the background stay black
    for j : 1 .. 80
        put " " ..
    end for
end for
setscreen ("nocursor")
font := Font.New ("Arial Black:18")
Font.Draw ("Pong", 280, 320, font, red)
procedure startGame
    cls
    Draw.FillBox (0, 600, maxx, 360, brightred)
    Draw.FillBox (0, 00, maxx, 45, brightred)
    Draw.FillBox (0, 175, 10, 225, red)
    Draw.FillBox (630, 175 + movement, maxx, 225 + movement, red)
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) then
        Draw.FillBox (630, 175 + movement, maxx, 225 + movement, black)
        movement := movement + 2
    end if
    for i : 1 .. 5
        drawfilloval (centerx, centery, i + 5, i + 5, brightblue)
    end for

end startGame
var startButton : int := GUI.CreateButton (maxx div 2 - 30, 60, 60,
    "Start Game", startGame)
procedure helpGame
    cls
    colorback (white)
    Font.Draw ("Refer to the instruction manual", 100, 320, font, red)
end helpGame
var helpButtom : int := GUI.CreateButton (maxx div 2 - 200, 60, 60, "Help", helpGame)

loop
    exit when GUI.ProcessEvent
end loop