00 { 346-Byte Prgm }
01▸LBL "RTMIN"
02▸LBL A
03 AON
04 "FX NAME?"
05 PROMPT
06 ASTO 00
07 AOFF
08 RTN
09▸LBL C
10 CF 00
11 "MIN MAX?"
12 GTO 00
13▸LBL B
14 SF 00
15 "ROOT GUESS?"
16▸LBL 00
17 CF 22
18 PROMPT
19 FS?C 22
20 STO 01
21 "MAX ITER?"
22 PROMPT
23 FS?C 22
24 STO 06
25 0
26 STO 07
27 "TOLR?"
28 PROMPT
29 FS?C 22
30 STO 08
31 FS?C 00
32 GTO 01
33▸LBL 02
34 VIEW 01
35 1
36 STO+ 07
37 RCL 06
38 X≤Y?
39 GTO 99
40 RCL 01
41 XEQ 09
42 RCL 01
43 XEQ IND 00
44 STO 03
45 RCL 01
46 RCL 02
47 +
48 XEQ IND 00
49 STO 04
50 RCL 01
51 RCL 02
52 -
53 XEQ IND 00
54 STO 05
55 RCL 04
56 +
57 RCL 03
58 STO+ ST X
59 -
60 1/X
61 RCL 04
62 RCL 05
63 -
64 ×
65 2
66 ÷
67 RCL 02
68 ×
69 STO- 01
70 ABS
71 RCL 08
72 X≤Y?
73 GTO 02
74 BEEP
75 "MIN%MAX="
76 ARCL 01
77 PROMPT
78 "FX="
79 ARCL 03
80 PROMPT
81 "SLOPE="
82 RCL 04
83 RCL 05
84 -
85 RCL 02
86 ÷
87 2
88 ÷
89 ARCL ST X
90 PROMPT
91 RCL 04
92 RCL 05
93 +
94 RCL 03
95 STO+ ST X
96 -
97 RCL 02
98 X↑2
99 ÷
100 "2ND DERIV="
101 ARCL ST X
102 PROMPT
103 "ITERS="
104 ARCL 07
105 PROMPT
106 TONE 0
107 STOP
108 GTO C
109▸LBL 01
110 VIEW 01
111 1
112 STO+ 07
113 RCL 06
114 X≤Y?
115 GTO 99
116 XEQ 09
117 RCL 01
118 XEQ IND 00
119 STO 03
120 RCL 01
121 RCL 02
122 +
123 XEQ IND 00
124 RCL 03
125 -
126 1/X
127 RCL 02
128 ×
129 RCL 03
130 ×
131 STO- 01
132 ABS
133 RCL 08
134 X≤Y?
135 GTO 01
136 BEEP
137 "ROOT="
138 ARCL 01
139 PROMPT
140 "FX="
141 ARCL 03
142 PROMPT
143 "ITER="
144 ARCL 07
145 PROMPT
146 TONE 0
147 STOP
148 GTO B
149▸LBL 09
150 RCL 01
151 ABS
152 1
153 +
154 0.01
155 ×
156 STO 02
157 RTN
158▸LBL 99
159 "SOLN DIVERGED"
160 RCL 01
161 PROMPT
162 STOP
163 RTN
164▸LBL "AA"
165 E↑X
166 LASTX
167 X↑2
168 3
169 ×
170 -
171 RTN
172 END