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