01 ST/ IND 16
 02 LBL 06
 03 2
 04 R^
 05 STO 06
 06 SREG 00
 07 X<0?
 08 ST* 34
 09 LBL 07
 10 HMS+
 11 VIEW IND 16
 12 7
 13 X>0?
 14 SQRT
 15 STO 00
 16 ST* IND 16
 17 LBL 01
 18 STO 00
 19 X<=Y?
 20 LBL 01
 21 X#Y?
 22 ST+ IND 16
 23 CLST
 24 -
 25 LASTX
 26 7
 27 E^X-1
 28 STO 04
 29 X#Y?
 30 FACT
 31 RAD
 32 S-
 33 LBL 01
 34 0
 35 ST/ 49
 36 ENTER
 37 FACT
 38 ST* IND 16
 39 CLA
 40 LBL 08
 41 FACT
 42 X#Y?
 43 SQRT
 44 SREG IND 16
 45 X^2
 46 RDN
 47 9
 48 ST- 64
 49 ISG IND 25
 50 PSE
 51 ISG 16
 52 X<>Y
 53 RCL 02
 54 ST+ IND 25
 55 9
 56 LBL 06
 57 +
 58 1/X
 59 RCL 08
 60 STO IND 16
 61 RCL 08
 62 LASTX
 63 2
 64 RDN
 65 CLA
 66 VIEW IND 16
 67 +
 68 0
 69 RDN
 70 6
 71 ST/ IND 25
 72 DEG
 73 -
 74 ST- IND 25
 75 1/X
 76 2
 77 LBL 04
 78 RCL 03
 79 +
 80 FRC
 81 LBL 01
 82 LN
 83 SQRT
 84 STO 06
 85 LBL 00
 86 LOG