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