Do↵
Cls↵
20→DimZ↵
"PRIME□DECOMP"↵
Locate 8,4,"<AC>:QUIT"↵
"INPUT□INTEGER"?→A↵
0→C:2→D:A→X:1→K↵
Do↵
X÷D→Y↵
If C=0 And Y<D↵
Then X→D:1→Y↵
IfEnd↵
If Frac(Y)=0↵
Then Y→X:Isz C↵
Else ↵
If C:Then ↵
D→Z[K]:C→Z[K+1]↵
Isz K:Isz K↵
0→C:IfEnd↵
If D=2↵
Then Isz D↵
Else Isz D:Isz D↵
IfEnd:IfEnd↵
LpWhile Y≧1↵
Cls↵
K-2→J:1→L:0→M↵
For 1→K To J Step 2↵
K-1⇒Locate 1,L,"ｘ"↵
If Z[K+1]=1↵
Then ↵
Locate 2,L,Z[K]◢Else ↵
Locate 2,L,Z[K]↵
3+Int(log(Z[K]))→M↵
Locate M,L,"^("↵
Locate M+1,L,Z[K+1]◢IfEnd↵
Isz L↵
If L=5:Then ↵
1→L:Cls:IfEnd↵
Next↵
0→DimZ↵
L=1⇒5→L↵
Locate 12,L-1,"<EXE>"◢LpWhile 1