01 LBL 00
 02 ABS
 03 LBL 08
 04 0
 05 0
 06 LBL 00
 07 0
 08 LBL 00
 09 LBL 08
 10 0
 11 LBL 00
 12 LBL 08
 13 1
 14 LBL 00
 15 1
 16 LBL 08
 17 RCL 00
 18 RCL IND 25
 19 RCL 00
 20 ENTER
 21 81
 22 ASHF
 23 RAD
 24 SREG IND 16
 25 STO 08
 26 STO 01
 27 INT
 28 ABS
 29 BEEP
 30 SREG IND 16
 31 STO 03
 32 X<0?
 33 X#0?
 34 63
 35 SREG IND 16
 36 E^X-1
 37 X^2
 38 RTN
 39 STOP
 40 STO 06
 41 SREG IND 16
 42 X>0?
 43 54
 44 S-
 45 -
 46 SREG IND 16
 47 X<=Y?
 48 /
 49 LOG
 50 Y^X
 51 LN1+X
 52 SREG IND 16
 53 SQRT
 54 RDN
 55 R^
 56 STO 05
 57 STO 04
 58 SREG IND 16
 59 RCL 05
 60 RCL 04
 61 S+
 62 *
 63 10^X
 64 SREG IND 16
 65 STO 02
 66 X=0?
 67 FACT
 68 LASTX
 69 CLST
 70 SREG IND 16
 71 CLA
 72 GRAD
 73 RCL 06
 74 RCL 03
 75 STO 07
 76 SREG IND 16
 77 2
 78 RCL 08
 79 RCL 01
 80 X=Y?
 81 X<>Y
 82 SREG IND 16
 83 RCL 07
 84 RCL 02
 85 CLX
 86 PI
 87 7
 88 RCL 00
 89 LBL 00
 90 XEQ P
 91 LBL 07
 92 LBL 07
 93 0
 94 RAD
 95 XEQ 56
 96 LBL 07
 97 LBL 07
 98 RCL 00
 99 END