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

drawline (0, 500, maxx, 500, red)
loop
    delay (10)
    randint (die, 1, 6)
    rollcount (die) := rollcount (die) + 1
    drawfillbox (die * 80, 0, die * 80 + 50, rollcount (die), die)
    exit when rollcount (die) = 500
end loop