\START85\
\COMMENT=Program file dated 12/22/98, 16:35
\NAME=FCTRS
\FILE=C:\TI85LINK\PROGRAMS\FCTRS.85P
:0\->\A9:(0)\->\dimL LST1
:ClLCD
:Disp "Enter a number"
:Input K
:ClLCD
:Disp "Factors of"
:Outpt(1,12,K)
:For(x,1,K/2)
:If mod(K,x)==0
:Then
:A9+1\->\A9
:dimL LST1+1\->\dimL LST1
:x\->\LST1(A9)
:Outpt(2,1,LST1)
:End
:End
:A9+1\->\A9
:dimL LST1+1\->\dimL LST1
:K\->\LST1(A9)
:Outpt(2,1,LST1)
:Outpt(8,1,"That's all of 'em yo!"
\STOP85\