 01 LBL "H2OSAT"
 02 "WATER SAT"
 03 29
 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 24
 13 STO 00
 14 .62
 15 STO 25
 16 2.15
 17 STO 26
 18 2
 19 STO 27
 20 "a"
 21 XROM 15,15
 22 "M"
 23 XROM 15,15
 24 "N"
 25 XROM 15,15
 26 8
 27 STO 00
 28 "OHM*M"
 29 ASTO 01
 30 CLA
 31 ASTO 02
 32 "RW"
 33 XEQ 03
 34 "SHALY"
 35 4
 36 XROM 16,13
 37 27
 38 STO 00
 39 "RSH"
 40 FS? 04
 41 XEQ 03
 42 LBL 15
 43 ADV
 44 XROM 16,24
 45 "OHM*M"
 46 ASTO 01
 47 CLA
 48 ASTO 02
 49 "RT"
 50 XEQ 03
 51 1.9
 52 RCL 18
 53 /
 54 1.87
 55 +
 56 RCL 26
 57 X<=0?
 58 X<>Y
 59 STO 26
 60 FS? 04
 61 GTO 00
 62 RCL 25
 63 RCL 09
 64 *
 65 RCL 18
 66 100
 67 /
 68 RCL 26
 69 Y^X
 70 RCL 19
 71 *
 72 /
 73 1
 74 GTO 18
 75 LBL 00
 76 5
 77 STO 00
 78 "D.N SP R G G.D"
 79 PROMPT
 80 19
 81 STO 00
 82 "%VSH"
 83 XROM 15,15
 84 GTO 17
 85 LBL D
 86 XEQ 01
 87 RCL 06
 88 -
 89 RCL 07
 90 RCL 06
 91 -
 92 /
 93 GTO 16
 94 LBL E
 95 XEQ 01
 96 21
 97 STO 00
 98 "G/CM3"
 99 ASTO 01
100 CLA
101 ASTO 02
102 RCL 04
103 RCL 03
104 RCL Z
105 "RHOMIN"
106 XEQ 02
107 CF 08
108 "RHOMAX"
109 XEQ 02
110 13
111 STO 00
112 RDN
113 "RHO b"
114 XEQ 02
115 RCL 08
116 *
117 RCL 22
118 RCL 06
119 *
120 -
121 LASTX
122 RCL 07
123 RCL 23
124 *
125 X<>Y
126 -
127 /
128 GTO 16
129 LBL 01
130 "GR MIN"
131 XROM 15,15
132 "GR MAX"
133 XROM 15,15
134 "GR"
135 XROM 15,15
136 RTN
137 LBL 02
138 XROM 16,40
139 RDN
140 STO 03
141 X<>Y
142 STO 04
143 X<>Y
144 R^
145 RTN
146 LBL C
147 RCL 28
148 RCL 19
149 /
150 ST+ X
151 ENTER
152 SQRT
153 SQRT
154 2
155 X<>Y
156 -
157 1/X
158 X<>Y
159 1
160 X<Y?
161 STO Z
162 RDN
163 2
164 /
165 X<>Y
166 Y^X
167 GTO 16
168 LBL B
169 "MV"
170 ASTO 01
171 CLA
172 ASTO 02
173 "PSP"
174 XEQ 03
175 "SSP"
176 XEQ 03
177 1
178 RCL 06
179 RCL 07
180 /
181 -
182 GTO 16
183 LBL A
184 "D/NMAX"
185 XROM 15,15
186 11
187 STO 00
188 "%POR-N"
189 XROM 15,15
190 14
191 STO 00
192 "%POR-D"
193 XROM 15,15
194 6
195 STO 00
196 "%P-NSH"
197 XROM 15,15
198 "%P-DSH"
199 XROM 15,15
200 RCL 12
201 RCL 06
202 *
203 RCL 15
204 -
205 RCL 07
206 RCL 06
207 *
208 RCL 08
209 -
210 /
211 LBL 16
212 1
213 X>Y?
214 *
215 X<0?
216 0
217 ENTER
218 100
219 *
220 STO 20
221 "%VSH"
222 XROM 16,39
223 LBL 17
224 RCL 20
225 1
226 %
227 1
228 RCL Y
229 2
230 /
231 -
232 Y^X
233 RCL 28
234 SQRT
235 /
236 RCL 18
237 100
238 /
239 RCL 26
240 Y^X
241 RCL 25
242 /
243 RCL 09
244 /
245 SQRT
246 +
247 RCL 19
248 SQRT
249 *
250 -2
251 LBL 18
252 RCL 27
253 /
254 Y^X
255 100
256 *
257 LASTX
258 X>Y?
259 X<>Y
260 STO 21
261 "%SW"
262 XROM 16,39
263 GTO 15
264 LBL 03
265 AOFF
266 ASTO 05
267 CF 22
268 ISG 00
269 CLD
270 RCL IND 00
271 "=?"
272 CF 21
273 AVIEW
274 CLA
275 FS? 55
276 SF 21
277 STOP
278 AOFF
279 RCL IND 00
280 FC? 22
281 GTO 04
282 X<>Y
283 STO IND 00
284 CF 21
285 FC? 55
286 RTN
287 CLA
288 ARCL 05
289 "="
290 ARCL X
291 " "
292 ARCL 01
293 ARCL 02
294 SF 21
295 XROM 29,08
296 RTN
297 LBL 04
298 CF 21
299 FS? 55
300 SF 21
301 END
