00 { 584-Byte Prgm }
01▸LBL "RTEQNS"
02 2
03 STO "N"
04 ENTER
05 DIM "MA"
06 1
07 DIM "VB"
08 DIM "VX"
09 DIM "VDX"
10 INPUT "XTOL"
11 INPUT "FTOL"
12 INPUT "MAX"
13 RCL "N"
14 SQRT
15 STO 12
16 0
17 STO "ITR"
18 XEQ 17
19 XEQ 20
20▸LBL 19
21 "X"
22 FIX 00
23 CF 29
24 ARCL "I"
25 ├"?"
26 XEQ 18
27 SF 29
28 PROMPT
29 XEQ 30
30 ISG "I"
31 GTO 19
32▸LBL 00
33 1
34 STO+ "ITR"
35 RCL "ITR"
36 RCL "MAX"
37 X<Y?
38 GTO 16
39 XEQ 20
40▸LBL 11
41 XEQ IND "I"
42 STO "FF"
43 XEQ 34
44 XEQ 21
45 CF 02
46▸LBL 12
47 RCL "FF"
48 XEQ 32
49 ISG "J"
50 GTO 12
51 ISG "I"
52 GTO 11
53 XEQ 20
54▸LBL 13
55 XEQ 31
56 STO "XX"
57 ABS
58 1
59 +
60 0.01
61 ×
62 STO "H"
63 RCL "XX"
64 +
65 XEQ 30
66 XEQ 21
67 SF 02
68▸LBL 14
69 XEQ IND "J"
70 STO "FF"
71 XEQ 33
72 RCL "FF"
73 +/-
74 -
75 RCL "H"
76 ÷
77 XEQ 32
78 ISG "J"
79 GTO 14
80 CF 02
81 RCL "XX"
82 XEQ 30
83 ISG "I"
84 GTO 13
85 RCL "MA"
86 INVRT
87 RCL "VB"
88 ×
89 STO "VDX"
90 STO- "VX"
91 FNRM
92 RCL 12
93 ÷
94 RCL "XTOL"
95 X>Y?
96 GTO 15
97 RCL "VB"
98 FNRM
99 RCL 12
100 ÷
101 RCL "FTOL"
102 X>Y?
103 GTO 15
104 GTO 00
105▸LBL 16
106 "ITERS EXCEEDED"
107 PROMPT
108▸LBL 15
109 CLV "H"
110 CLV "XX"
111 CLV "FF"
112 CLV "I"
113 CLV "J"
114 PRV "VX"
115 RCL "VX"
116 EDIT
117 RTN
118▸LBL 20
119 1
120 RCL "N"
121 1ᴇ3
122 ÷
123 +
124 STO "I"
125 RTN
126▸LBL 21
127 1
128 RCL "N"
129 1ᴇ3
130 ÷
131 +
132 STO "J"
133 RTN
134▸LBL 30
135 INDEX "VX"
136 RCL "I"
137 1
138 STOIJ
139 RCL ST Z
140 STOEL
141 RTN
142▸LBL 31
143 INDEX "VX"
144 RCL "I"
145 1
146 STOIJ
147 RCLEL
148 RTN
149▸LBL 32
150 INDEX "MA"
151 RCL "I"
152 RCL "J"
153 FS? 02
154 X<>Y
155 STOIJ
156 RCL ST Z
157 STOEL
158 RTN
159▸LBL 33
160 INDEX "MA"
161 RCL "I"
162 RCL "J"
163 FS? 02
164 X<>Y
165 STOIJ
166 RCLEL
167 RTN
168▸LBL 34
169 INDEX "VB"
170 RCL "I"
171 1
172 STOIJ
173 RCL ST Z
174 STOEL
175 RTN
176▸LBL 35
177 INDEX "VB"
178 RCL "I"
179 1
180 STOIJ
181 RCLEL
182 RTN
183▸LBL 17
184 CF 00
185 CF 01
186 FS? 40
187 SF 00
188 FS? 41
189 SF 01
190 0
191 STO 11
192 1
193 FS? 39
194 STO+ 11
195 2
196 FS? 38
197 STO+ 11
198 4
199 FS? 37
200 STO+ 11
201 8
202 FS? 36
203 STO+ 11
204 RTN
205▸LBL 18
206 SF 29
207 SCI IND 11
208 FS? 00
209 FIX IND 11
210 FS? 01
211 ENG IND 11
212 RTN
213▸LBL 01
214 XEQ 36
215 RCL 01
216 X↑2
217 RCL 02
218 X↑2
219 +
220 1
221 -
222 RTN
223▸LBL 02
224 XEQ 36
225 RCL 01
226 X↑2
227 RCL 02
228 X↑2
229 -
230 0.5
231 +
232 RTN
233▸LBL 36
234 INDEX "VX"
235 RCLEL
236 STO 01
237 I+
238 RCLEL
239 STO 02
240 RTN
241 END