\START82\
\COMMENT=Program file dated 02/19/99, 17:36
\NAME=FACTOR
\FILE=D:\WINLINK\SAV_JC~1\FACTOR.82P
:ClrHome
:Disp "DECOMPOSE PDFP"
:0\->\dim \L1\
:Fix 0
:Prompt N
:1\->\S
:2\->\F
:0\->\E
:\sqrt\N\->\M
:While F\<=\M
:While fPart (N/F)=0
:E+1\->\E
:N/F\->\N
:End
:If E>0:Then
:F\->\\L1\(S)
:E\->\\L1\(S+1)
:S+2\->\S
:0\->\E
:\sqrt\N\->\M
:End
:If F=2
:Then:3\->\F
:Else:F+2\->\F
:End
:End
:If N\<>\1:Then
:N\->\\L1\(S)
:1\->\\L1\(S+1)
:End
:Disp \L1\
:Float
:
\STOP82\
