procedure l1
    title
    level := 1
    qolor (1) := 150
    qolor (2) := 50
    qolor (3) := 50
    qolor (4) := 150
    next := 0
    counter := 0
    drawfillbox (50, 320, 100, 370, grey)
    drawfillbox (150, 320, 200, 370, grey)
    drawfillbox (250, 320, 300, 370, grey)
    drawfillbox (350, 320, 400, 370, grey)
    drawfillbox (540, 320, 640, 370, red)
    Draw.Text ("GUESS", 560, 340, lhfont, white)
    GUI.Show (menuButton)
    GUI.Enable (menuButton)
    loop
        mousewhere (x, y, button)
        if button = 1 and x > 540 and x < 640 and y > 320 and y < 370 then
            counter := counter + 1
            next := next + 55
            checker
            locate (24, 1)
            if number = 4 then
                put "You got it!"
                pauseProgram
                exit
            else
                put number, " pegs are in the right place.         You have ", 5 - counter, " more tries left!"
            end if
            if counter = 5 and number not= 4 then
                locate (24, 1)
                put "Nope. Let's hope you do better in the next level."
                pauseProgram
                exit
            end if
            pauseProgram
            drawfillbox (0, 0, 540, 34, white)
            number := 0
        end if
        if button = 1 and y > 35 + next and y < 85 + next then
            if x > 50 and x < 100 then
                which := 1
                change
            elsif x > 150 and x < 200 then
                which := 2
                change
            elsif x > 250 and x < 300 then
                which := 3
                change
            elsif x > 350 and x < 400 then
                which := 4
                change
            end if
        end if
        drawfillbox (50, 35 + next, 100, 85 + next, kolor (1))
        drawfillbox (150, 35 + next, 200, 85 + next, kolor (2))
        drawfillbox (250, 35 + next, 300, 85 + next, kolor (3))
        drawfillbox (350, 35 + next, 400, 85 + next, kolor (4))
        delay (100)
    end loop
    next := 0
    counter := 0
    number := 0
    for z : 1 .. 8
        kolor (z) := 50
    end for
    l2
end l1

    GUI.Show (menuButton)
    GUI.Enable (menuButton)
    loop
        exit when GUI.ProcessEvent
    end loop

loop
     .........
     if GUI.ProcessEvent then
          exit
     end if
end loop