FACTOR for the TI-81

Enter a number when prompted and the program will give you all of that 
number's factors.

/->/ is the store sign
/<>/ is the not equals to sign
\/ os the square root sign

Prgm:FACTOR
:ClrHome
:Disp "NUMBER?"
:Input N
:1/->/A
:Lbl 1
:N/A/->/B
:If 0/<>/FPart B
:Goto 2
:Disp A
:If A/<>/B
:Disp B
:Pause
:Lbl 2
:A+1/->/A
:If A>Int \/N
:End
:Goto 1

Vicken Aghazarian
vicken_a@hotmail.com