06-04-2014, 09:36 AM
The programme tests whether an input positive integer is prime or the power of a prime. If input is composite "0" is returned, if not the prime of which the input is an integral power.
1 LBL 'PPT'
2 STO 07
3 SIGN
4 STO 06
5 RCL 07
6 STO 08
7 SIGN
8 STO+ 06
9 RCL 06
10 RCL 07
11 ENTER
12 BASE 10
13 ^MOD
14 DECM
15 RCL- 06
16 RCL 07
17 GCD
18 STO 07
19 DEC X
20 x=0?
21 RTN
22 RCL 07
23 PRIME?
24 SKIP 001
25 BACK 020
26 RCL 08
27 ENTER
28 R↓
29 RCL/ Y
30 1
31 x<? Y
32 BACK 004
33 x≠? Y
34 CLx
35 RCL* Z
36 END
1 LBL 'PPT'
2 STO 07
3 SIGN
4 STO 06
5 RCL 07
6 STO 08
7 SIGN
8 STO+ 06
9 RCL 06
10 RCL 07
11 ENTER
12 BASE 10
13 ^MOD
14 DECM
15 RCL- 06
16 RCL 07
17 GCD
18 STO 07
19 DEC X
20 x=0?
21 RTN
22 RCL 07
23 PRIME?
24 SKIP 001
25 BACK 020
26 RCL 08
27 ENTER
28 R↓
29 RCL/ Y
30 1
31 x<? Y
32 BACK 004
33 x≠? Y
34 CLx
35 RCL* Z
36 END