for i=0to 255?mod(mod(val(bin$(i)),9),2),"";next