First issue

originals/fctr.hp42s

@@ -0,0 +1,203 @@
+00 { 463-Byte Prgm }
+01 LBL "FCTR"
+02 STO "X_FCTR"
+03 R↓
+04 STO "Y_FCTR"
+05 R↓
+06 STO "Z_FCTR"
+07 R↓
+08 STO "T_FCTR"
+09 LASTX
+10 STO "L_FCTR"
+11 RCL "REGS"
+12 STO "R_FCTR"
+13 SIZE 02
+14 CLA
+15 R↑
+16 1
+17 X<>Y
+18 0
+19 FS?C 00
+20 X<> ST Z
+21 STO 01
+22 R↓
+23 REAL?
+24 GTO 05
+25 LBL 06
+26 "Invalid type"
+27 GTO 04
+28 LBL 05
+29 FP
+30 X≠0?
+31 GTO 06
+32 LASTX
+33 X<0?
+34 "-"
+35 ABS
+36 X=0?
+37 GTO 06
+38 1ᴇ8
+39 X>Y?
+40 GTO 00
+41 "Out of range"
+42 GTO 04
+43 LBL 01
+44 STO 00
+45 X<>Y
+46 STO ST Y
+47 LASTX
+48 FS? 00
+49 ⊢"*"
+50 SF 00
+51 AIP
+52 ÷
+53 STO ST Y
+54 LASTX
+55 MOD
+56 X≠0?
+57 RTN
+58 ⊢"↑"
+59 LBL 02
+60 X<>Y
+61 STO ST Y
+62 LASTX
+63 ÷
+64 ISG 00
+65 RTN
+66 STO ST Y
+67 LASTX
+68 MOD
+69 X=0?
+70 GTO 02
+71 X<>Y
+72 RCL 00
+73 ISG ST X
+74 RTN
+75 AIP
+76 RTN
+77 LBL 00
+78 R↓
+79 STO ST Y
+80 1
+81 X=Y?
+82 AIP
+83 R↓
+84 2
+85 MOD
+86 X=0?
+87 XEQ 01
+88 X<>Y
+89 STO ST Y
+90 3
+91 MOD
+92 X=0?
+93 XEQ 01
+94 X<>Y
+95 STO ST Y
+96 5
+97 MOD
+98 X=0?
+99 XEQ 01
+100 X<>Y
+101 STO ST Y
+102 7
+103 MOD
+104 X=0?
+105 XEQ 01
+106 LBL 03
+107 X<>Y
+108 STO ST Y
+109 LASTX
+110 4
+111 +
+112 MOD
+113 X=0?
+114 XEQ 01
+115 X<>Y
+116 STO ST Y
+117 LASTX
+118 2
+119 +
+120 MOD
+121 X=0?
+122 XEQ 01
+123 X<>Y
+124 STO ST Y
+125 LASTX
+126 4
+127 +
+128 MOD
+129 X=0?
+130 XEQ 01
+131 X<>Y
+132 STO ST Y
+133 LASTX
+134 2
+135 +
+136 MOD
+137 X=0?
+138 XEQ 01
+139 X<>Y
+140 STO ST Y
+141 LASTX
+142 4
+143 +
+144 MOD
+145 X=0?
+146 XEQ 01
+147 X<>Y
+148 STO ST Y
+149 LASTX
+150 6
+151 +
+152 MOD
+153 X=0?
+154 XEQ 01
+155 X<>Y
+156 STO ST Y
+157 LASTX
+158 2
+159 +
+160 MOD
+161 X=0?
+162 XEQ 01
+163 X<>Y
+164 STO ST Y
+165 LASTX
+166 6
+167 +
+168 MOD
+169 X=0?
+170 XEQ 01
+171 X<>Y
+172 LASTX
+173 X↑2
+174 X≤Y?
+175 GTO 03
+176 1
+177 RCL ST Z
+178 X=Y?
+179 GTO 04
+180 FS? 00
+181 ⊢"*"
+182 AIP
+183 LBL 04
+184 AVIEW
+185 CF 00
+186 RCL 01
+187 X>0?
+188 SF 00
+189 RCL "R_FCTR"
+190 STO "REGS"
+191 RCL "L_FCTR"
+192 STO ST L
+193 RCL "T_FCTR"
+194 RCL "Z_FCTR"
+195 RCL "Y_FCTR"
+196 RCL "X_FCTR"
+197 CLV "R_FCTR"
+198 CLV "L_FCTR"
+199 CLV "T_FCTR"
+200 CLV "Z_FCTR"
+201 CLV "Y_FCTR"
+202 CLV "X_FCTR"