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