loops_inclusive

cls(1)

colqty=32
colwidth = 128/colqty
rowheight=11

for x=0,colqty-1 do
 myx = x * colwidth
 myy = 5 * rowheight
 myx2 = myx+colwidth-1
 myy2 = myy+rowheight-1
 myc=flr(rnd(1)*15)+1
 rect(myx,myy,myx2,myy2,myc)
end