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