LBL "PP11" 9 STO 09 LBL 09 8 STO 08 RCL 09 X=Y? GTO 10 7 RCL 09 X=Y? GTO 10 3 RCL 09 X=Y? GTO 10 2 RCL 09 X=Y? GTO 10 6 RCL 09 X!=Y? GTO 11 1 STO+ 08 LBL 11 XEQ A LBL 10 DSE 09 GTO 09 STOP LBL A 5 STO 12 LBL 12 10 RCLx 09 RCL+ 08 STO 03 10 / IP RCL 03 10 MOD 10 x + STO 13 0 STO 04 XEQ B 1 STO 04 XEQ B 2 STO- 08 DSE 12 GTO 12 RTN LBL B RCL 03 1 + 10 10^X x 1 - SQRT IP X^2 STO 05 LASTX 1 - X^2 - STO 06 LBL 00 RCL 05 100 MOD RCL 13 X=Y? GTO 21 GTO 22 LBL 21 RCL 05 11 MOD X=0? GTO 01 LBL 22 RCL 06 STO- 05 2 STO- 06 GTO 00 LBL 01 RCL 04 X=0? GTO 02 0 STO 04 RCL 06 STO- 05 2 STO- 06 GTO 00 LBL 02 10 10^X RCLx 03 STO 07 GTO 04 LBL 03 110 RCLx 06 11990 - STO- 05 220 STO- 06 LBL 04 RCL 07 RCL 05 XY IP X!=Y? GTO 03 DSE 15 GTO 15 RCL 05 ENTER SQRT STOP