FACTOR Description : analyse Ans variable into primes \START81\ \NAME=FACTOR\ \FILE=TI81_2.PRG\ Ans\->\A 2\->\B Lbl 1 If A/B <> Int (A/B) Goto 2 Disp B A/B\->\A Goto 1 Lbl 2 IS>(B,A) Goto 1 \STOP\ 50 bytes length, uses A,B