<var q, w, q1, w1, x, y : int
var fullName, answer : string

q := 200
w := 0
q1 := 310
w1 := 20
x := 10
y := 360

View.Set ("graphics:800;500")

put " Hello welcome to the brick breaker game! "

delay (1000)

put " Please Enter your full name in brackets: " ..
get fullName

cls

put " Hello ", fullName, " Welcome! Would you now like to play? (y/n)" ..
get answer

if answer = "y" then
    cls
    put " Loading..."
    delay (2000)

else
   
    put " Program Complete!"
    delay (5000)
end if


cls
for a : 1 .. 5
    for b : 1 .. 9
        drawfillbox (x, y, x + 60, y + 15, 7)
        x := x + 70
    end for
    x := 10
    y := y - 30
end for

drawfillbox (q, w, q1, w1, green)
>