01 CHS
 02 X^2
 03 "-"  ;"\04\00\00\00-"
 04 RCL 01
 05 5
 06 X<Y?
 07 STO 05
 08 XROM 20,02
 09 RCL 13
 10 X^2
 11 XEQ 68
 12 XROM 16,02
 13 RCL 13
 14 LBL 00
 15 GTO 05
 16 X<Y?
 17 LBL 04
 18 RCL 13
 19 XEQ 20
 20 LBL 03
 21 STO 05
 22 LBL 04
 23 RCL 13
 24 GTO 00
 25 STO 04
 26 ST* IND 52
 27 LBL 03
 28 RCL 13
 29 X<>Y
 30 XEQ 68
 31 STO 04
 32 LBL 04
 33 RCL 13
 34 LBL 00
 35 "$E-"  ;"$E\04\00-"
 36 1
 37 XROM 16,02
 38 LBL 01
 39 RCL 13
 40 RCL 01
 41 XROM 16,02
 42 LBL 01
 43 RCL 13
 44 STO 01
 45 XROM 16,02
 46 LBL 01
 47 RCL 13
 48 -
 49 XROM 16,02
 50 LBL 01
 51 RCL 13
 52 X^2
 53 XROM 16,02
 54 LBL 01
 55 RCL 13
 56 ABS
 57 XROM 16,02
 58 LBL 01
 59 STO 03
 60 GTO 66
 61 RTN
 62 R^
 63 RCL 04
 64 LBL 04
 65 RCL 00
 66 END