00 { 485-Byte Prgm }
01 LBL "A-SIM"
02 MVAR "U_IN"
03 MVAR "W"
04 MVAR "GAIN"
05 VARMENU "A-SIM"
06 STOP
07 EXITALL
08 RCL "REGS"
09 STO "RSAVE"
10 -2
11 10↑X
12 LBL 06
13 CF IND ST X
14 ISG ST X
15 GTO 06
16 INDEX "CIR"
17 J+
18 J+
19 [MAX]
20 J+
21 [MAX]
22 X<>Y
23 R↓
24 X<Y?
25 X<>Y
26 0
27 5
28 INDEX "CIR"
29 LBL 10
30 RCLEL
31 X=Y?
32 ISG ST Z
33 CLA
34 R↓
35 I+
36 FC? 76
37 GTO 10
38 J-
39 R↓
40 STO "D"
41 +
42 STO "C"
43 STO "E"
44 ENTER
45 DIM "REGS"
46 CLRG
47 LBL 18
48 RCLIJ
49 VIEW ST Y
50 CF 01
51 CF 03
52 CF 05
53 RCLEL
54 SF IND ST X
55 J+
56 GTO IND ST X
57 LBL 02
58 LBL 03
59 FS? 00
60 GTO 17
61 SF 00
62 CLST
63 COMPLEX
64 STO+ "REGS"
65 LBL 17
66 RCLEL
67 RCL× "W"
68 -1
69 SQRT
70 ×
71 LBL 01
72 FS? 01
73 RCLEL
74 FC? 03
75 1/X
76 STO "X"
77 J+
78 RCLEL
79 STO "A"
80 J+
81 RCLEL
82 STO "B"
83 J+
84 I-
85 X<>Y
86 X=0?
87 GTO 12
88 ENTER
89 XEQ 09
90 RCL "A"
91 RCL "B"
92 X=0?
93 GTO 00
94 XEQ 09
95 RCL "B"
96 RCL "A"
97 XEQ 09
98 LBL 12
99 RCL "B"
100 ENTER
101 XEQ 09
102 GTO 00
103 LBL 04
104 RCLEL
105 1
106 -
107 RCL× "C"
108 ENTER
109 RCL+ "C"
110 XEQ 19
111 RCL "GAIN"
112 1/X
113 STO "X"
114 RCLEL
115 ENTER
116 ENTER
117 XEQ 09
118 LBL 15
119 1
120 FS? 06
121 +/-
122 STO "X"
123 RCL ST T
124 ENTER
125 J+
126 RCLEL
127 X≠0?
128 XEQ 09
129 FS?C 06
130 GTO 16
131 SF 06
132 GTO 15
133 LBL 05
134 RCLEL
135 1/X
136 STO "X"
137 J+
138 XEQ 14
139 J-
140 CF 07
141 1
142 STO "X"
143 SF 09
144 XEQ 14
145 CF 07
146 CF 09
147 DSE "E"
148 LBL 16
149 J+
150 I-
151 CF 04
152 LBL 00
153 I+
154 FC? 76
155 GTO 18
156 GTO 07
157 LBL 14
158 RCL "E"
159 RCLEL
160 XEQ 09
161 FS? 07
162 RTN
163 J+
164 SF 07
165 GTO 14
166 LBL 09
167 FC? 09
168 X<>Y
169 X=Y?
170 SF 08
171 1
172 -
173 RCL× "C"
174 +
175 1
176 -
177 RCL "X"
178 FC? 07
179 FS?C 08
180 +/-
181 STO+ IND ST Y
182 RTN
183 LBL 07
184 CLD
185 1
186 RCL "C"
187 LBL 19
188 DSE ST X
189 3
190 10↑X
191 ÷
192 +
193 0
194 LBL 11
195 STO IND ST Y
196 ISG ST Y
197 GTO 11
198 FS? 04
199 RTN
200 1
201 STO 00
202 RCL "C"
203 1
204 NEWMAT
205 EDIT
206 LBL 08
207 ↑
208 FS? 05
209 1
210 DSE "D"
211 GTO 08
212 EDIT
213 RCL "U_IN"
214 EXITALL
215 RCL "RSAVE"
216 CLV "RSAVE"
217 X<> "REGS"
218 ÷
219 EDIT
220 END