View.Set ("graphics:max,max")
 
 
 
delay (100)
for col : 1 .. maxx by 50
for col1 : 1 .. maxx by 3
delay (10)
drawbox (col1, 0, col1 + 50, 50, black)
end for
    end for