 01 LBL "XPLOT"
 02 "CROSSPLOT"
 03 22
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 SF 27
 08 "G/CM3"
 09 ASTO 03
 10 CLA
 11 ASTO 04
 12 LBL 15
 13 "D.N S.N RT M N"
 14 PROMPT
 15 GTO 15
 16 LBL A
 17 XEQ 05
 18 XEQ 09
 19 RCL 15
 20 RCL 12
 21 X#Y?
 22 X>Y?
 23 GTO 00
 24 16
 25 %
 26 .4
 27 +
 28 CHS
 29 10^X
 30 .0206
 31 RCL 12
 32 *
 33 1.17
 34 +
 35 -
 36 1
 37 GTO 01
 38 LBL 00
 39 5
 40 %
 41 .16
 42 +
 43 CHS
 44 10^X
 45 .7
 46 X<>Y
 47 -
 48 1.29
 49 RCL 13
 50 2.71
 51 -
 52 /
 53 LBL 01
 54 15
 55 XEQ 04
 56 RCL 13
 57 *
 58 RCL 14
 59 -
 60 X<>Y
 61 /
 62 XEQ 08
 63 "RHOMAa"
 64 XROM 16,37
 65 XEQ 07
 66 ADV
 67 GTO 15
 68 LBL B
 69 XEQ 09
 70 XEQ 10
 71 RCL 21
 72 RCL 12
 73 X#Y?
 74 X>Y?
 75 GTO 02
 76 18
 77 %
 78 .92
 79 +
 80 CHS
 81 10^X
 82 RCL 12
 83 62 E-4
 84 *
 85 .36
 86 +
 87 -
 88 .5
 89 GTO 03
 90 LBL 02
 91 5
 92 %
 93 .3
 94 +
 95 CHS
 96 10^X
 97 CHS
 98 .5
 99 +
100 -.146
101 LBL 03
102 21
103 XEQ 04
104 189
105 *
106 RCL 20
107 -
108 X<>Y
109 /
110 "US/FT"
111 ASTO 01
112 CLA
113 ASTO 02
114 "DTMAa"
115 XEQ 13
116 ADV
117 GTO 15
118 LBL 04
119 RDN
120 RCL IND T
121 RCL Z
122 *
123 X<>Y
124 RCL 12
125 X<>Y
126 *
127 LASTX
128 ST- T
129 RDN
130 -
131 X<>Y
132 /
133 STO 18
134 "%POR-X"
135 XROM 16,39
136 1
137 %
138 ABS
139 STO Y
140 1
141 -
142 X<>Y
143 RTN
144 LBL C
145 17
146 STO 00
147 "%POR-X"
148 XROM 15,15
149 "OHM*M"
150 ASTO 01
151 CLA
152 ASTO 02
153 "RT"
154 XEQ 12
155 RCL 18
156 100
157 /
158 X^2
159 *
160 STO 09
161 "RWa"
162 XEQ 13
163 ADV
164 GTO 15
165 LBL D
166 XEQ 05
167 XEQ 10
168 189
169 RCL 20
170 -
171 RCL 14
172 RCL 13
173 -
174 /
175 1
176 %
177 "M"
178 XROM 16,39
179 ADV
180 GTO 15
181 LBL E
182 XEQ 05
183 XEQ 09
184 RCL 12
185 1
186 %
187 1
188 -
189 RCL 13
190 RCL 14
191 -
192 /
193 "N"
194 XROM 16,39
195 ADV
196 GTO 15
197 LBL 05
198 12
199 XEQ 08
200 "RHO MF"
201 XROM 16,40
202 XEQ 07
203 "RHO b"
204 XROM 16,40
205 XEQ 07
206 FS? 22
207 GTO 06
208 "%POR-D"
209 XROM 15,15
210 FC? 22
211 RTN
212 1
213 %
214 2.71
215 RCL 13
216 -
217 *
218 2.71
219 -
220 CHS
221 STO 14
222 XEQ 08
223 "RHO b"
224 XEQ 07
225 RTN
226 LBL 06
227 2.71
228 -
229 RCL 13
230 2.71
231 -
232 /
233 100
234 *
235 STO 15
236 "%POR-D"
237 XROM 16,39
238 RTN
239 LBL 07
240 RDN
241 STO 03
242 X<>Y
243 STO 04
244 X<>Y
245 R^
246 CF 08
247 RTN
248 LBL 08
249 STO 00
250 "G/CM3"
251 ASTO 01
252 CLA
253 ASTO 02
254 RCL 04
255 RCL 03
256 RCL Z
257 RTN
258 LBL 09
259 11
260 STO 00
261 "%POR-N"
262 XROM 15,15
263 RTN
264 LBL 10
265 19
266 STO 00
267 "US/FT"
268 ASTO 01
269 CLA
270 ASTO 02
271 "DT"
272 XEQ 12
273 FS? 22
274 GTO 11
275 "%POR-S"
276 XROM 15,15
277 FC? 22
278 RTN
279 1.414
280 *
281 47.6
282 +
283 STO 20
284 "DT"
285 XEQ 13
286 RTN
287 LBL 11
288 47.6
289 -
290 1.414
291 /
292 STO 21
293 "%POR-S"
294 XROM 16,39
295 RTN
296 LBL 12
297 AOFF
298 ASTO 05
299 CF 22
300 ISG 00
301 CLD
302 RCL IND 00
303 "=?"
304 CF 21
305 AVIEW
306 CLA
307 FS? 55
308 SF 21
309 STOP
310 AOFF
311 RCL IND 00
312 FC? 22
313 GTO 14
314 X<>Y
315 STO IND 00
316 CF 21
317 FC? 55
318 RTN
319 CLA
320 ARCL 05
321 "="
322 ARCL X
323 GTO 00
324 LBL 13
325 AOFF
326 STO 00
327 "="
328 ARCL X
329 FS? 55
330 GTO 00
331 CF 21
332 AVIEW
333 CLA
334 ARCL 01
335 ARCL 02
336 FS? 55
337 SF 21
338 STOP
339 AOFF
340 RCL 00
341 LBL 14
342 CF 21
343 FS? 55
344 SF 21
345 RTN
346 LBL 00
347 " "
348 ARCL 01
349 ARCL 02
350 SF 21
351 XROM 29,08
352 END
