for i=1to 300a=instr(str$(i),"3")+!mod(i,3)
if a?"aho"
if!a?i
next