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