01 LBL 67
 02 LBL 14
 03 LBL E
 04 RCL 20
 05 STO 25
 06 LBL 17
 07 LBL c
 08 RCL 24
 09 PI
 10 +
 11 X^2
 12 FRC
 13 STO 24
 14 RCL 23
 15 *
 16 1
 17 +
 18 INT
 19 STO IND 25
 20 RCL 25
 21 X=0?
 22 GTO 18
 23 2
 24 -
 25 STO 25
 26 GTO 17
 27 LBL 18
 28 LBL d
 29 CLX
 30 STO 07
 31 XROM 30,31
 32 RTN
 33 LBL 10
 34 LBL A
 35 RCL 20
 36 1
 37 +
 38 STO 25
 39 X<>Y
 40 LBL 15
 41 LBL a
 42 10
 43 /
 44 ENTER
 45 FRC
 46 X=0?
 47 GTO 16
 48 10
 49 *
 50 STO IND 25
 51 XROM 30,23
 52 XROM 30,23
 53 RDN
 54 INT
 55 GTO 15
 56 LBL 16
 57 LBL b
 58 XROM 30,31
 59 CLX
 60 STO 09
 61 1
 62 ST+ 07
 63 RCL 00
 64 STO 21
 65 RCL 02
 66 RCL 04
 67 RCL 06
 68 RCL 08
 69 XROM 30,31
 70 STO 08
 71 RDN
 72 STO 06
 73 RDN
 74 STO 04
 75 RDN
 76 STO 02
 77 RCL 21
 78 STO 00
 79 RCL 20
 80 1
 81 +
 82 STO 25
 83 LBL 00
 84 RCL IND 25
 85 RCL 25
 86 1
 87 -
 88 STO 25
 89 CLX
 90 RCL IND 25
 91 X#Y?
 92 GTO 01
 93 XROM 30,31
 94 1
 95 ST+ 09
 96 XROM 30,31
 97 CLX
 98 STO IND 25
 99 XROM 30,29
100 STO IND 25
101 XROM 30,23
102 LBL 01
103 RCL 25
104 X=0?
105 GTO 19
106 XROM 30,23
107 GTO 00
108 LBL 19
109 LBL e
110 RCL 20
111 1
112 +
113 STO 21
114 LBL 02
115 STO 25
116 RCL IND 25
117 STO 22
118 X=0?
119 GTO 05
120 RCL 20
121 STO 25
122 LBL 03
123 RCL 22
124 RCL IND 25
125 X#Y?
126 GTO 04
127 XROM 30,31
128 .1
129 ST+ 09
130 XROM 30,31
131 CLX
132 STO IND 25
133 LBL 05
134 RCL 21
135 2
136 -
137 STO 21
138 X<0?
139 GTO 06
140 GTO 02
141 LBL 04
142 RCL 25
143 2
144 -
145 X<0?
146 GTO 05
147 STO 25
148 GTO 03
149 LBL 06
150 RCL 20
151 2
152 /
153 1
154 +
155 XROM 30,31
156 RCL 09
157 XROM 30,31
158 X#Y?
159 RTN
160 PSE
161 PSE
162 XROM 30,31
163 RCL 07
164 RTN
165 STOP
166 END