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