View.Set ("graphics:max,max")

for I : 0 .. maxx by 53
    delay (1337)
    drawfillbox (I,800,I+50,50,175)
end for