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"