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

var kolour : int

randint (kolour,1,maxcolour)

for col:1 .. maxx

drawfillbox (col,1,1,maxy,kolour)
delay(1)

end for