var x, y, a, b, r, t, bnum, updown, font, font2, font3 : int
font := Font.New ("Arial Black:20:bold")
font2 := Font.New ("Arial Black:20:bold")
font3 := Font.New ("Arial Black:20:bold")
assert font > 0
locate (2, 30)
put "Choose your favourite"
drawfillbox (0, 0, 200, 200, 9)
drawfillbox (200, 0, 400, 200, 10)
drawfillbox (400, 0, 1000, 200, 12)
Font.Draw ("That one", 18, 85, font, purple)
Font.Draw ("This one", 225, 80, font2, purple)
Font.Draw ("Other one", 450, 80, font3, purple)
buttonwait ("down", x, y, bnum, updown)
if x >= 200 then
elsif y <= 200 then
    put "ok"
end if
if x >= 0 then
elsif y >= 0 then
    put "ok"
end if
%green
if x >= 400 then
elsif y <= 200 and x >= 400 then
    put "yes"
end if
if x >= 400 then
elsif y >= 0 then
    put "yes"
end if
if x >= 640 then
elsif y <= 200 then
    put "yeeees"
end if
put x
put y