Hey guys: Anyone have an idea on how to translate the following program into TI-86 ASM? :{1}-->L :For(z,2,D) :If mod(D,z)==0 :z-->L(dimL L+1) :End John 3:16 William Deich bevd@bellsouth.net