01 LBL "ROOT N"
 02 "N=?"
 03 PROMPT
 04 STO 22
 05 1 E3
 06 /
 07 STO 21
 08 LBL 13
 09 CF 29
 10 "a"
 11 RCL 21
 12 INT
 13 FIX 00
 14 ARCL X
 15 >"=?"
 16 AVIEW
 17 STOP
 18 STO IND 21
 19 FIX 03
 20 VIEW X
 21 ISG 21
 22 GTO 13
 23 SF 29
 24 0
 25 STO 31
 26 STO 32
 27 ADV
 28 LBL B
 29 CLD
 30 XEQ 02
 31 RCL 22
 32 *
 33 STO 25
 34 X<>Y
 35 RCL 22
 36 *
 37 STO 26
 38 R-P
 39 RCL 22
 40 /
 41 TONE 09
 42 PSE
 43 1 E-7
 44 X>Y?
 45 GTO 07
 46 XEQ 01
 47 RCL 26
 48 RCL 25
 49 XEQ 08
 50 STO 23
 51 X<>Y
 52 STO 24
 53 XEQ 03
 54 STO 27
 55 X<>Y
 56 STO 28
 57 X<>Y
 58 RCL 28
 59 RCL 27
 60 XEQ 08
 61 RCL 22
 62 1
 63 -
 64 STO 29
 65 *
 66 RCL 23
 67 -
 68 STO 23
 69 X<>Y
 70 RCL 29
 71 *
 72 RCL 24
 73 -
 74 STO 24
 75 X<>Y
 76 R-P
 77 RCL 29
 78 *
 79 SQRT
 80 STO 23
 81 X<>Y
 82 2
 83 /
 84 STO 24
 85 RCL 28
 86 RCL 27
 87 R-P
 88 RDN
 89 -
 90 ABS
 91 90
 92 X<=Y?
 93 SF 00
 94 RCL 24
 95 RCL 23
 96 FS?C 00
 97 CHS
 98 P-R
 99 ST+ 27
100 X<>Y
101 ST+ 28
102 RCL 25
103 RCL 27
104 *
105 RCL 26
106 RCL 28
107 *
108 +
109 RCL 27
110 X^2
111 RCL 28
112 X^2
113 +
114 STO 29
115 /
116 ST- 31
117 RCL 26
118 RCL 27
119 *
120 RCL 25
121 RCL 28
122 *
123 -
124 RCL 29
125 /
126 ST- 32
127 GTO B
128 LBL 01
129 SF 01
130 LBL 03
131 XEQ 06
132 FS? 01
133 DSE 30
134 LBL 04
135 FS? 01
136 ISG 30
137 CLA
138 RCL 30
139 RCL IND 30
140 *
141 FS? 01
142 XEQ 05
143 +
144 DSE 30
145 XEQ 09
146 ISG 30
147 CLA
148 DSE 30
149 GTO 04
150 CF 01
151 RTN
152 LBL 05
153 DSE 30
154 RCL 30
155 *
156 RTN
157 LBL 02
158 XEQ 06
159 LBL 14
160 RCL IND 30
161 +
162 XEQ 09
163 DSE 30
164 GTO 14
165 RCL IND 30
166 +
167 RTN
168 LBL 06
169 RCL 22
170 STO 30
171 0
172 ENTER
173 0
174 RTN
175 LBL 07
176 RCL 22
177 STO 30
178 0
179 STO 29
180 RCL 32
181 ABS
182 STO 32
183 1 E-9
184 X<=Y?
185 GTO 10
186 BEEP
187 "ROOT ="
188 ARCL 31
189 AVIEW
190 PSE
191 CLA
192 RCL 31
193 CHS
194 STO 28
195 GTO 12
196 LBL 09
197 RCL 32
198 RCL 31
199 LBL 08
200 STO 35
201 RDN
202 STO 36
203 RDN
204 STO 33
205 RDN
206 STO 34
207 *
208 RDN
209 *
210 R^
211 +
212 RCL 33
213 RCL 35
214 *
215 RCL 34
216 RCL 36
217 *
218 -
219 RTN
220 LBL 10
221 BEEP
222 "COMPLEX ROOTS"
223 AVIEW
224 CLA
225 SF 13
226 ARCL 31
227 >" I"
228 ARCL 32
229 AVIEW
230 PSE
231 CF 13
232 CLA
233 RCL 31
234 2
235 *
236 CHS
237 STO 27
238 RCL 32
239 X^2
240 RCL 31
241 X^2
242 +
243 STO 28
244 LBL 11
245 RCL 28
246 RCL IND 30
247 *
248 LASTX
249 RCL 27
250 *
251 DSE 30
252 ST- IND 30
253 RDN
254 DSE 30
255 ST- IND 30
256 1
257 ST+ 30
258 RCL 29
259 +
260 RCL 30
261 X#Y?
262 GTO 11
263 SF 02
264 GTO 00
265 LBL 12
266 RCL IND 30
267 RCL 28
268 *
269 DSE 30
270 ST- IND 30
271 RCL 30
272 RCL 29
273 X#Y?
274 GTO 12
275 LBL 00
276 1
277 ST+ 30
278 RCL IND 30
279 FS? 02
280 DSE 30
281 DSE 30
282 CLA
283 STO IND 30
284 RCL 30
285 RCL 22
286 1
287 ST+ 30
288 FS? 02
289 ST+ 30
290 RDN
291 X#Y?
292 GTO 00
293 1
294 FS?C 02
295 2
296 ST- 22
297 RCL 22
298 X#0?
299 GTO B
300 END