First issue

originals/qpi.hp42s

@@ -0,0 +1,390 @@
+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