free42/originals/qpi.hp42s

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