001 LBL "KG/KO"
002 "KG/KO"
003 41
004 XROM 16,11
005 FC?C 25
006 PROMPT
007 CF 00
008 CF 03
009 SF 27
010 "SCM/M3"
011 ASTO 03
012 CLA
013 ASTO 04
014 LBL 00
015 "P,RP      %SO"
016 PROMPT
017 GTO 00
018 LBL A
019 LBL B
020 "CORR"
021 1
022 XROM 16,13
023 FC? 01
024 GTO 15
025 "SKIP"
026 2
027 XROM 16,13
028 FC? 02
029 XROM 16,25
030 XROM 15,34
031 STO 06
032 ADV
033 LBL 01
034 XROM 16,18
035 RND
036 RCL 14
037 RND
038 X>Y?
039 GTO 10
040 TONE 03
041 "P >= PBP"
042 PROMPT
043 GTO 01
044 LBL 10
045 R^
046 STO 07
047 R^
048 STO 08
049 XEQ 02
050 RCL 17
051 XROM 16,01
052 XROM 16,36
053 RCL 26
054 X<>Y
055 -
056 STO 09
057 RCL 06
058 XROM 15,35
059 ST/ 09
060 RCL 07
061 RCL 08
062 XROM 15,07
063 ST* 09
064 RCL 17
065 XROM 15,30
066 ST/ 09
067 RCL 07
068 RCL 08
069 XROM 15,05
070 RCL 09
071 XEQ 11
072 GTO 01
073 LBL 15
074 26
075 STO 00
076 "BOb"
077 XROM 15,15
078 28
079 STO 00
080 "FT3/SCF"
081 ASTO 01
082 ASHF
083 ASTO 02
084 "M3/SCM"
085 ASTO Y
086 CLA
087 ASTO Z
088 "BG"
089 XROM 16,41
090 5
091 STO 00
092 "CP"
093 ASTO 01
094 CLA
095 ASTO 02
096 ASTO Z
097 "PA*S"
098 ASTO Y
099 "UOb"
100 XROM 16,41
101 "PA*S"
102 ASTO Y
103 CLA
104 ASTO Z
105 "UG"
106 XROM 16,41
107 29
108 STO 00
109 "SCF/BBL"
110 ASTO 01
111 ASHF
112 ASTO 02
113 "SCM/M3"
114 ASTO Y
115 CLA
116 ASTO Z
117 "RSb"
118 XROM 16,41
119 XEQ 02
120 RCL 30
121 -
122 RCL 07
123 *
124 RCL 06
125 /
126 RCL 27
127 /
128 RCL 29
129 XEQ 11
130 GTO 15
131 LBL 11
132 "FT3-BBL"
133 XROM 16,44
134 *
135 "KGKO"
136 XROM 16,39
137 ADV
138 RTN
139 LBL 02
140 "SCF/BBL"
141 ASTO 01
142 ASHF
143 ASTO 02
144 RCL 04
145 RCL 03
146 25
147 STO 00
148 "RP"
149 XROM 16,40
150 RDN
151 STO 03
152 X<>Y
153 STO 04
154 R^
155 CF 08
156 RTN
157 LBL D
158 LBL E
159 20
160 STO 00
161 "%SWC"
162 XROM 15,15
163 30
164 STO 27
165 LBL 16
166 29
167 STO 00
168 LBL 04
169 "%SO"
170 XEQ 09
171 XROM 15,15
172 FC? 03
173 GTO 05
174 ISG 27
175 GTO 04
176 GTO 17
177 LBL 05
178 ISG 27
179 CLD
180 FS? 22
181 GTO 04
182 RCL 00
183 1
184 -
185 1 E3
186 /
187 30
188 +
189 STO 09
190 LBL 17
191 ADV
192 27
193 STO 00
194 "a"
195 FS? 00
196 "%SGc"
197 XROM 15,15
198 "b"
199 FS? 00
200 "c"
201 XROM 15,15
202 RCL 09
203 STO 27
204 ADV
205 LBL 18
206 RCL IND 27
207 "%SO"
208 XEQ 09
209 XROM 16,39
210 RCL 21
211 +
212 "%SL"
213 XEQ 09
214 XROM 16,39
215 FC? 00
216 GTO 07
217 RCL 28
218 +
219 100
220 -
221 X>0?
222 0
223 RCL 29
224 RCL IND 27
225 -
226 X=0?
227 GTO 06
228 /
229 X<0?
230 GTO 06
231 .4556
232 RCL Y
233 *
234 .04335
235 +
236 *
237 GTO 08
238 LBL 06
239 TONE 03
240 "c >= %SO"
241 PROMPT
242 GTO 06
243 LBL 07
244 RCL IND 27
245 100
246 RCL 21
247 -
248 /
249 1
250 RCL Y
251 RCL 29
252 Y^X
253 -
254 1
255 RCL Z
256 -
257 RCL 28
258 Y^X
259 *
260 R^
261 RCL 28
262 RCL 29
263 +
264 Y^X
265 /
266 LBL 08
267 "KGKO"
268 XEQ 09
269 XROM 16,39
270 ADV
271 ISG 27
272 GTO 18
273 "EDIT"
274 3
275 XROM 16,13
276 FC? 03
277 GTO 17
278 ADV
279 RCL 09
280 STO 27
281 GTO 16
282 LBL 09
283 STO 05
284 CLST
285 FS? 41
286 1
287 +
288 FS? 40
289 2
290 +
291 5
292 /
293 FS? 39
294 1
295 +
296 FS? 38
297 2
298 +
299 FS? 37
300 4
301 +
302 FS? 36
303 8
304 +
305 FS? 29
306 CHS
307 RCL 27
308 29
309 -
310 FIX 00
311 CF 29
312 ARCL X
313 X<>Y
314 X<0?
315 SF 29
316 ENTER
317 FRC
318 5
319 *
320 FIX IND Y
321 X=0?
322 SCI IND Y
323 1
324 X=Y?
325 ENG IND Z
326 RCL 05
327 END
