100→DimZ:1→I↵
"N"?→N↵
↵
While Frac(N÷2)=0↵
N÷2→N↵
2→Z[I]↵
Isz I↵
WhileEnd↵
↵
While Frac(N÷3)=0↵
N÷3→N↵
3→Z[I]↵
Isz I↵
WhileEnd↵
↵
5→F↵
While F≦√(N)↵
While Frac(N÷F)=0↵
N÷F→N↵
F→Z[I]↵
Isz I↵
WhileEnd↵
↵
F+2→F↵
While Frac(N÷F)=0↵
N÷F→N↵
F→Z[I]↵
Isz I↵
WhileEnd↵
↵
F+4→F↵
WhileEnd↵
↵
Locate 1,4,"[EXE]:SEE□RESULT"◢↵
N≠1⇒N→Z[I]↵
N=1⇒I-1→I↵
↵
Cls↵
{0}→ListX:1→C↵
{0}→ListFreq:0→K↵
For 1→J To I↵
Isz K↵
Z[J]→ListX[K]↵
C→ListFreq[K]↵
If Z[J]=Z[J+1]↵
Then Isz C↵
K-1→K↵
Else 1→C↵
IfEnd↵
Next↵
↵
1→L↵
For 1→I To K↵
If L=1:Then ""↵
Else "ｘ":IfEnd↵
Locate 2,L,ListX[I]↵
1+Int(log(ListX[I]))→D↵
If ListFreq[I]>1↵
Then ↵
Locate D+2,L,"^("↵
Locate D+3,L,ListFreq[I]↵
IfEnd↵
Locate 12,1,"[EXE]"◢L<4⇒Isz L↵
Next↵
↵
0→DimZ↵
Locate 12,1,"□□□□□"↵
If KListFreq[1]=1↵
Then ↵
"":Locate 1,L,"PRIME"↵
Else ↵
"":Locate 1,L,"SEE□MODE□3:SD"↵
IfEnd↵