'ProgramMode:RUN
ClrText
"PRIME FACTORS OF N"
Lbl 1
"N"?->N
N->P
If N<=0 Or Frac N<>0
Then 
"N MUST BE ++ INTEGER"
Goto 1
IfEnd
"PRIME FACTORS:"
2->D
Do
While Frac (N/D)=0
DDispsIf D=P
Then 
"N IS A PRIME NUMBER"
IfEnd
N/D->N
WhileEnd
If D=2
Then 3->D
Else D+2->D
IfEnd
LpWhile D<=N
"END"