\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=FACTOR
\file=FACTOR.TXT
ClrHome
Disp "DECOMPOSE PDFP"
0\->\dim(L\1\
Fix 0
Prompt N
1\->\S
2\->\F
0\->\E
\root\(N\->\M
While F\<=\M
While fPart(N/F)=0
E+1\->\E
N/F\->\N
End
If E>0:Then
F\->\L\1\(S)
E\->\L\1\(S+1)
S+2\->\S
0\->\E
\root\(N\->\M
End
If F=2
Then:3\->\F
Else:F+2\->\F
End
End
If N\!=\1:Then
N\->\L\1\(S)
1\->\L\1\(S+1)
End
Disp L\1\
Float

\stop83\

