import GUI in "%oot/lib/GUI"
setscreen("graphics:800;600")
procedure boxblue(x,y:int)
    drawfillbox(x,y,x+50,y+50,9)
    drawbox(x,y,x+50,y+50,black)
    drawbox(x+1,y+1,x+49,y+49,55)
    drawbox(x+2,y+2,x+48,y+48,55)
    drawbox(x+3,y+3,x+47,y+47,55)
end boxblue

procedure boxorange(x,y:int)
    drawfillbox(x,y,x+50,y+50,42)
    drawbox(x,y,x+50,y+50,black)
    drawbox(x+1,y+1,x+49,y+49,43)
    drawbox(x+2,y+2,x+48,y+48,43)
    drawbox(x+3,y+3,x+47,y+47,43)
end boxorange

procedure boxerase(x,y:int)
    drawfillbox(x,y,x+50,y+50,white)
end boxerase

var xposition:int:=0
var difficulty:int:=1
var boxcolour:int

for z:1..12
    if difficulty=1 then
        randint(boxcolour,1,2)
        if boxcolour=1 then
            boxblue(xposition,50)
        elsif boxcolour=2 then
            boxorange(xposition,50)
        end if
        xposition:=xposition+50
    elsif difficulty=2 then
    elsif difficulty=3 then
    end if
end for

var x,y,c:int
loop
Mouse.Where(x,y,c)
    if whatdotcolour(x,y)=9 then
        locatexy(0,500)
        put "it is blue"
    elsif whatdotcolour(x,y)=42 then
        locatexy(0,500)
        put "it is orange"
    end if
end loop

loop
    exit when GUI.ProcessEvent
end loop 

var x,y,c:int
loop
Mouse.Where(x,y,c)
    if whatdotcolour(x,y)=9 then
        locatexy(0,500)
        put "it is blue"
    elsif whatdotcolour(x,y)=42 then
        locatexy(0,500)
        put "it is orange"
    end if
end loop

if x >= 10 and x <= 30 and y >= 10 and y <= 30 then
    % some code
end if

...etc