setscreen ("graphics:max,max")

for x : 0 .. maxx by 20
    drawfillbox (x, 0, x, 768, 084)

    delay (100)

end for