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



delay (100)

for col : 1 .. maxx by 50

    drawfillbox (col, 0, 50, 50, black)

    end for

    for col1 : 1 .. maxx by 50
        drawbox (col1, 0, 50, 50, white)

    end for