14 lines
301 B
Plaintext
14 lines
301 B
Plaintext
9040 PF(0) = 0 : SC = 0
|
|
9050 FOR CA = 2 TO INT( SQR(I))
|
|
9060 IF I = 1 THEN RETURN
|
|
9070 IF INT(I / CA) * CA = I THEN GOSUB 9200 : GOTO 9060
|
|
9080 CA = CA + SC : SC = 1
|
|
9090 NEXT CA
|
|
9100 IF I = 1 THEN RETURN
|
|
9110 CA = I
|
|
|
|
9200 PF(0) = PF(0) + 1
|
|
9210 PF(PF(0)) = CA
|
|
9220 I = I / CA
|
|
9230 RETURN
|