View.Set ("graphics:max;max;offscreenonly;nocursor")
     
loop

    for x : 1 .. 200
        var b := Rand.Int (1,999)
        var fnt2 := Font.New ("Ariel:600x200")
        for i : 1 .. 100
        drawfillbox (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), x div 2)
        Draw.Box (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), white)
        Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)
            end for       
        drawfillbox (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), x)
        Draw.Box (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), white)
        Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)
        delay (50)
        View.Update
            end for

end loop