 01 LBL "RW"
 02 "RW FROM SP"
 03 28
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 SF 27
 08 25
 09 STO 00
 10 "OHM*M"
 11 ASTO 01
 12 CLA
 13 ASTO 02
 14 "RMF"
 15 XEQ 07
 16 XEQ 06
 17 "TMF"
 18 XROM 16,41
 19 7
 20 +
 21 82
 22 /
 23 RCL 26
 24 *
 25 STO 03
 26 ADV
 27 LBL 15
 28 " T DEPTH PPM"
 29 PROMPT
 30 GTO 15
 31 LBL A
 32 XROM 16,17
 33 GTO 16
 34 LBL E
 35 3.562
 36 RCL 16
 37 7
 38 +
 39 RCL 09
 40 *
 41 82
 42 /
 43 .0123
 44 -
 45 LOG
 46 -
 47 .955
 48 /
 49 10^X
 50 "PPM"
 51 XROM 16,39
 52 ADV
 53 GTO 15
 54 LBL B
 55 LBL C
 56 FC?C 08
 57 GTO 00
 58 5
 59 STO 00
 60 XEQ 06
 61 "SURF T"
 62 XROM 16,41
 63 "F/100 FT"
 64 ASTO 01
 65 ASHF
 66 ASTO 02
 67 "T GRAD"
 68 XEQ 07
 69 LBL 00
 70 7
 71 STO 00
 72 "FT"
 73 ASTO 01
 74 "M"
 75 ASTO Y
 76 CLA
 77 ASTO 02
 78 ASTO Z
 79 "DEPTH"
 80 XROM 16,41
 81 RCL 07
 82 *
 83 1
 84 %
 85 RCL 06
 86 +
 87 STO 16
 88 XEQ 06
 89 "T"
 90 XROM 16,38
 91 LBL 16
 92 3
 93 STO 00
 94 "MV"
 95 ASTO 01
 96 CLA
 97 ASTO 02
 98 "SP"
 99 XEQ 07
100 RCL 16
101 7.5
102 /
103 60
104 +
105 /
106 10^X
107 .1
108 RCL 03
109 X>Y?
110 GTO 02
111 146
112 *
113 5
114 -
115 R^
116 /
117 337
118 RCL 03
119 *
120 77
121 +
122 GTO 03
123 LBL 02
124 85
125 %
126 R^
127 LBL 03
128 /
129 .12
130 X<=Y?
131 GTO 04
132 RCL Y
133 77
134 *
135 5
136 +
137 146
138 R^
139 337
140 *
141 -
142 /
143 GTO 05
144 LBL 04
145 X<>Y
146 69
147 %
148 .24
149 -
150 10^X
151 .58
152 -
153 LBL 05
154 82
155 *
156 RCL 16
157 7
158 +
159 /
160 STO 09
161 "OHM*M"
162 ASTO 01
163 CLA
164 ASTO 02
165 "RW"
166 XEQ 08
167 ADV
168 GTO 15
169 LBL 06
170 "F"
171 ASTO 01
172 "C"
173 ASTO Y
174 CLA
175 ASTO 02
176 ASTO Z
177 RTN
178 LBL 07
179 AOFF
180 ASTO 05
181 CF 22
182 ISG 00
183 CLD
184 RCL IND 00
185 "=?"
186 CF 21
187 AVIEW
188 CLA
189 FS? 55
190 SF 21
191 STOP
192 AOFF
193 RCL IND 00
194 FC? 22
195 GTO 09
196 X<>Y
197 STO IND 00
198 CF 21
199 FC? 55
200 RTN
201 CLA
202 ARCL 05
203 "="
204 ARCL X
205 GTO 10
206 LBL 08
207 AOFF
208 STO 00
209 "="
210 ARCL X
211 FS? 55
212 GTO 10
213 CF 21
214 AVIEW
215 CLA
216 ARCL 01
217 ARCL 02
218 FS? 55
219 SF 21
220 STOP
221 AOFF
222 RCL 00
223 LBL 09
224 CF 21
225 FS? 55
226 SF 21
227 RTN
228 LBL 10
229 " "
230 ARCL 01
231 ARCL 02
232 SF 21
233 XROM 29,08
234 END
