var mousex, mousey, click, boxx, boxy, col, score, timevar, font : int

View.Set ("graphics:1000;600,offscreenonly")
font := Font.New ("Comic Sans MS:30")

timevar := 0
score := 0
loop
    randint (col, 1, 15)
    randint (boxx, 20, maxx - 20)
    randint (boxy, 20, maxy - 120)

    loop
        cls
        mousewhere (mousex, mousey, click)
        drawfilloval (mousex, mousey, 50, 50, 0)
        drawfillbox (boxx - 10, boxy - 10, boxx + 10, boxy + 10, col)
        drawfillbox (0, 500, maxx, maxy, 0)
        drawline (0, 500, maxx, 500, 7)
        colourback (0)
        put "score: ", score
        locate (1, 50)
        put timevar
        colourback (col)
        View.Update
        if timevar = 5000 then
            exit
        end if
        timevar := timevar + 1
        if mousex >= boxx - 10 and mousex <= boxx + 10 and mousey >= boxy - 10 and mousey <= boxy + 10 and click = 1 then
            score := score + 1
            exit
        end if
    end loop
    if timevar = 5000 then
        exit
    end if
end loop
colourback (0)
cls

Font.Draw (score,100,100,font,7)