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

for maxvar : 1 .. maxx by 1
delay (15)
drawfillbox (1,maxvar,maxx,maxvar,Rand.Int(199,maxcolour))
end for