00 { 681-Byte Prgm }
01▸LBL "MINE"
02 CLLCD
03 CF 34
04 SF 35
05 5
06 32
07 XEQ 05
08 7
09 14
10 NEWMAT
11 STO "A"
12 8
13 16
14 NEWMAT
15 STO "C"
16 1
17 LASTX
18 NEWMAT
19 ENTER
20 COMPLEX
21 STO "B"
22 1.016
23 STO 00
24▸LBL 00
25 RAN
26 7
27 ×
28 1
29 +
30 IP
31 RAN
32 14
33 ×
34 1
35 +
36 IP
37 ENTER
38 RCL× ST Z
39 1
40 X=Y?
41 GTO 00
42 CLX
43 98
44 X=Y?
45 GTO 00
46 R↓
47 R↓
48 INDEX "A"
49 STOIJ
50 RCLEL
51 X≠0?
52 GTO 00
53 -1
54 STOEL
55 RCLIJ
56 COMPLEX
57 INDEX "B"
58 1
59 RCL 00
60 STOIJ
61 RCL ST Z
62 STOEL
63 COMPLEX
64 INDEX "C"
65 STOIJ
66 J+
67 XEQ 01
68 J+
69 XEQ 01
70 I+
71 XEQ 01
72 I+
73 XEQ 01
74 J-
75 XEQ 01
76 J-
77 XEQ 01
78 I-
79 XEQ 01
80 I-
81 XEQ 01
82 9
83 4
84 RCL× 00
85 38
86 +
87 PIXEL
88 ISG 00
89 GTO 00
90 2
91 ENTER
92 STOIJ
93 7
94 14
95 GETM
96 CLV "C"
97 RCL "A"
98 COMPLEX
99 STO "A"
100 CLLCD
101 "__BDB__@__@__A_"
102 ├"↑@__UQ÷"
103 127
104 XTOA
105 XTOA
106 4
107 XTOA
108 ├"__@O_P_O@__A_"
109 ├"↑AA__A"
110 10
111 131.086
112▸LBL 03
113 AGRAPH
114 DSE ST X
115 GTO 03
116 1
117 69
118 XEQ 05
119 CLA
120 255
121 XTOA
122 170
123 XTOA
124 XTOA
125 XTOA
126 X<>Y
127 XTOA
128 1.05304
129 STO 00
130▸LBL 04
131 0
132 RCL 00
133 AGRAPH
134 8
135 X<>Y
136 AGRAPH
137 ISG 00
138 GTO 04
139 "#×√×√"
140 14
141 X<>Y
142 AGRAPH
143 INDEX "A"
144 J-
145 0
146 STO 01
147 -2
148 COMPLEX
149 STOEL
150 J+
151▸LBL 06
152 RCLEL
153 COMPLEX
154 2
155 77
156 RCL ST T
157 SF 35
158 XEQ "UFL"
159 SF 34
160 CF 35
161 "÷×"
162 R↓
163 R↓
164 X≤0?
165 XEQ 07
166 RCLIJ
167 STO 02
168 4
169 ×
170 2
171 -
172 X<>Y
173 STO 03
174 LASTX
175 ×
176 X<>Y
177 AGRAPH
178 "÷×"
179 CF 34
180▸LBL 99
181 SF 11
182 GETKEY
183 FS?C 11
184 GTO 98
185 R↓
186 GTO 99
187▸LBL 98
188 9
189 +
190 R↓
191 AGRAPH
192 SF 25
193 XEQ IND ST T
194 FC? 76
195 GTO 06
196▸LBL 11
197 RCL 03
198 RCL 02
199 STOIJ
200 GTO 06
201▸LBL 07
202 X≠0?
203 GTO 09
204 R↓
205 1
206 STO+ 01
207 COMPLEX
208 STOEL
209 CF 34
210 "×÷×"
211 RTN
212▸LBL 28
213 I-
214 FS? 76
215 GTO 11
216 J-
217 RTN
218▸LBL 29
219 I-
220 RTN
221▸LBL 30
222 I-
223 FS? 76
224 GTO 11
225 J+
226 RTN
227▸LBL 33
228 J-
229 RTN
230▸LBL 35
231 J+
232 RTN
233▸LBL 38
234 I+
235 FS? 76
236 GTO 11
237 J-
238 RTN
239▸LBL 39
240 I+
241 RTN
242▸LBL 40
243 I+
244 FS? 76
245 GTO 11
246 J+
247 RTN
248▸LBL 01
249 RCLEL
250 1
251 +
252 STOEL
253 RTN
254▸LBL 05
255 "0HLj2÷("
256 AGRAPH
257 RTN
258▸LBL 09
259 -1
260 X=Y?
261 GTO 10
262 TONE 1
263 TONE 5
264 TONE 4
265 TONE 2
266 "↑↑"
267 GTO 08
268▸LBL 10
269 TONE 5
270 TONE 2
271 TONE 0
272 "cw>Ö>wc"
273▸LBL 08
274 9
275 68
276 CF 34
277 AGRAPH
278 8
279 -
280 0.1
281 RCL× 01
282 IP
283 STO 02
284 XEQ "UFL"
285 9
286 64
287 RCL 01
288 10
289 RCL× 02
290 -
291 XEQ "UFL"
292 INDEX "B"
293▸LBL 02
294 RCLEL
295 COMPLEX
296 4
297 ×
298 1
299 -
300 X<>Y
301 2
302 ×
303 X<>Y
304 PIXEL
305 J+
306 FC? 76
307 GTO 02
308 STOP
309 END

00 { 72-Byte Prgm }
01▸LBL "UFL"
02 XEQ IND ST X
03 R↓
04 AGRAPH
05 RTN
06▸LBL 00
07 ">">"
08 RTN
09▸LBL 01
10 "$> "
11 RTN
12▸LBL 02
13 ":*."
14 RTN
15▸LBL 03
16 ""*>"
17 RTN
18▸LBL 04
19 "↓¿>"
20 RTN
21▸LBL 05
22 ".*:"
23 RTN
24▸LBL 06
25 ">*:"
26 RTN
27▸LBL 07
28 "√√>"
29 RTN
30▸LBL 08
31 ">*>"
32 RTN
33▸LBL 09
34 ".*>"
35 END