01 LBL "LSQ"
 02 CLRG
 03 37.9
 04 STO 02
 05 "X ENT Y, A"
 06 AVIEW
 07 STOP
 08 LBL A
 09 X<>Y
 10 STO IND 02
 11 X<>Y
 12 ISG 02
 13 STO IND 02
 14 ISG 02
 15 RCL 02
 16 37
 17 -
 18 2
 19 /
 20 INT
 21 STO 04
 22 XEQ 00
 23 RCL 04
 24 STOP
 25 GTO A
 26 LBL a
 27 STO 13
 28 X<>Y
 29 STO 12
 30 XEQ 15
 31 LBL 17
 32 RCL IND 01
 33 ISG 01
 34 RCL 12
 35 X#Y?
 36 GTO 16
 37 RCL IND 01
 38 RCL 13
 39 X#Y?
 40 GTO 16
 41 1
 42 ST- 02
 43 RCL IND 02
 44 STO IND 01
 45 X<>Y
 46 ST- 02
 47 ST- 01
 48 ST- 04
 49 RCL IND 02
 50 STO IND 01
 51 XEQ 00
 52 RCL 04
 53 RTN
 54 LBL 16
 55 ISG 01
 56 GTO 17
 57 0
 58 1/X
 59 LBL b
 60 STO 03
 61 GTO 02
 62 LBL B
 63 STO 03
 64 0
 65 STO 05
 66 STO 11
 67 1
 68 STO 24
 69 GTO 06
 70 LBL 02
 71 RCL 08
 72 RCL 09
 73 /
 74 CHS
 75 STO 11
 76 LBL 03
 77 RCL 06
 78 RCL 08
 79 /
 80 CHS
 81 STO 10
 82 RCL 08
 83 STO 09
 84 1
 85 ST+ 05
 86 RCL 05
 87 30
 88 +
 89 0
 90 STO IND Y
 91 6
 92 ST- Z
 93 RDN
 94 STO IND Y
 95 RCL 05
 96 XEQ 14
 97 LBL 04
 98 RCL 01
 99 23
100 +
101 RCL IND X
102 STO 13
103 RCL 10
104 *
105 7
106 ST+ Z
107 RDN
108 RCL IND Y
109 RCL 11
110 *
111 +
112 RCL 13
113 STO IND Z
114 RDN
115 7
116 ST- Z
117 X<>Y
118 STO IND Z
119 ISG 01
120 GTO 04
121 RCL 05
122 XEQ 14
123 LBL 05
124 RCL 01
125 30
126 +
127 RCL IND X
128 6
129 ST- Z
130 RDN
131 ST+ IND Y
132 ISG 01
133 GTO 05
134 LBL 06
135 0
136 STO 06
137 STO 07
138 STO 08
139 XEQ 15
140 LBL 11
141 1
142 STO 12
143 RCL 05
144 LBL 08
145 X=0?
146 GTO 10
147 23
148 +
149 RCL IND X
150 RCL IND 01
151 RCL 12
152 *
153 +
154 STO 12
155 RDN
156 24
157 -
158 GTO 08
159 LBL 10
160 RCL IND 01
161 RCL 12
162 X^2
163 ST+ 08
164 *
165 ST+ 06
166 1
167 ST+ 01
168 RCL IND 01
169 RCL 12
170 *
171 ST+ 07
172 ISG 01
173 GTO 11
174 RCL 07
175 RCL 08
176 /
177 RCL 05
178 17
179 +
180 X<>Y
181 STO IND Y
182 STO 13
183 RCL 05
184 X=0?
185 GTO 03
186 XEQ 14
187 LBL 13
188 RCL 01
189 23
190 +
191 RCL IND X
192 RCL 13
193 *
194 7
195 ST- Z
196 RDN
197 ST+ IND Y
198 ISG 01
199 GTO 13
200 RCL 05
201 RCL 03
202 X>Y?
203 GTO 02
204 LBL d
205 RCL 03
206 1
207 +
208 XEQ 14
209 TONE 05
210 LBL 09
211 RCL 01
212 FIX 00
213 1
214 -
215 INT
216 "A"
217 ARCL X
218 >"="
219 17
220 +
221 RCL IND X
222 SCI 04
223 ARCL X
224 AVIEW
225 FC? 21
226 STOP
227 ISG 01
228 GTO 09
229 STOP
230 LBL C
231 0
232 STO 16
233 STO 11
234 STO 12
235 STO 13
236 XEQ 15
237 LBL 07
238 1
239 ST+ 01
240 RCL IND 01
241 ST+ 11
242 ISG 01
243 GTO 07
244 RCL 04
245 ST/ 11
246 XEQ 15
247 LBL 12
248 RCL IND 01
249 XEQ D
250 STO 10
251 RCL 11
252 -
253 X^2
254 ST+ 13
255 1
256 ST+ 01
257 RCL IND 01
258 RCL 11
259 -
260 X^2
261 ST+ 12
262 RCL IND 01
263 RCL 10
264 -
265 ABS
266 ST+ 16
267 ISG 01
268 GTO 12
269 RCL 13
270 RCL 12
271 /
272 "R^2="
273 ARCL X
274 TONE 05
275 AVIEW
276 FC? 21
277 STOP
278 RCL 16
279 RCL 04
280 /
281 "YMD="
282 ARCL X
283 AVIEW
284 RTN
285 STOP
286 LBL 14
287 1 E3
288 /
289 1
290 +
291 STO 01
292 RTN
293 LBL 00
294 RCL 04
295 2
296 *
297 36
298 +
299 1 E3
300 /
301 37
302 +
303 STO 15
304 RTN
305 LBL 15
306 RCL 15
307 STO 01
308 RTN
309 LBL D
310 STO 00
311 0
312 STO 07
313 RCL 03
314 STO 14
315 LBL 01
316 RCL 14
317 17
318 +
319 RCL IND X
320 ST+ 07
321 RCL 00
322 ST* 07
323 DSE 14
324 GTO 01
325 RCL 07
326 RCL 17
327 +
328 RTN
329 LBL "L"
330 XEQ 15
331 CLX
332 LBL 18
333 FIX 00
334 "X"
335 1
336 +
337 ARCL X
338 >"="
339 RCL IND 01
340 SCI 04
341 ARCL X
342 AVIEW
343 FC? 21
344 STOP
345 RDN
346 ISG 01
347 FIX 00
348 "Y"
349 ARCL X
350 >"="
351 RCL IND 01
352 SCI 04
353 ARCL X
354 AVIEW
355 FC? 21
356 STOP
357 RDN
358 ISG 01
359 GTO 18
360 RTN
361 END