modular exponentiation?

[Paul Dale]

The WP 34S makes this easy, it has a modular exponentiation function in integer mode.
Unfortunately, the summation function doesn't work in integer mode. Regardless, the program is fairly short:

Code:

01: LBL A
02: BASE 10
03: STO I
04: Clx
05: LBL 00
06: RCL I
07: RCL I
08: # 10
09: 10^x
10: ^MOD
11: RCL+ Y
12: # 10
13: 10^x
14: MOD
15: DSZ I
16: GTO 00
17: END

1000 XEQ A -> 9110846700


Pauli