View.Set ("graphics:max,max")
var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var die : int

for i : 1 .. 10000
    randint (die, 1, 6)
    rollcount (die) := rollcount (die) +1
    drawfillbox (0,die*80,rollcount(die), die *80 +50,die)
    drawline (950, 0,950, maxy, red)
    locate(2,110)
    put "FINISH LINE"
    delay (5)
    exit when rollcount (die) = 950
end for