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