00 { 715-Byte Prgm }
01▸LBL "TRIANG"
02 CLMENU
03▸LBL 15
04 "TRIANGLE"
05 AVIEW
06 CLST
07 STO 00
08 CF 01
09 CF 02
10 CF 03
11 CF 04
12 CF 05
13 CF 06
14▸LBL G
15 "A"
16 FS? 01
17 ├"•"
18 KEY 1 GTO A
19 "B"
20 FS? 02
21 ├"•"
22 KEY 2 GTO B
23 "C"
24 FS? 03
25 ├"•"
26 KEY 3 GTO C
27 "∡A"
28 FS? 04
29 ├"•"
30 KEY 4 GTO D
31 "∡B"
32 FS? 05
33 ├"•"
34 KEY 5 GTO E
35 "∡C"
36 FS? 06
37 ├"•"
38 KEY 6 GTO F
39 KEY 7 GTO 15
40 KEY 9 GTO 23
41 MENU
42 STOP
43▸LBL H
44 SF 25
45 GTO IND ST X
46 CF 25
47 GTO G
48▸LBL A
49 INPUT "A"
50 1
51 GTO J
52▸LBL B
53 INPUT "B"
54 2
55 GTO J
56▸LBL C
57 INPUT "C"
58 3
59 GTO J
60▸LBL D
61 INPUT "∡A"
62 4
63 GTO J
64▸LBL E
65 INPUT "∡B"
66 5
67 GTO J
68▸LBL F
69 INPUT "∡C"
70 6
71▸LBL J
72 X<>Y
73 STO IND ST Y
74 X<>Y
75 SF IND ST X
76 2
77 X<>Y
78 1
79 -
80 Y↑X
81 RCL 00
82 OR
83 STO 00
84 GTO H
85▸LBL 91
86 ENTER
87 RCL× ST Z
88 R↑
89 COS
90 ×
91 -2
92 ×
93 X<>Y
94 X↑2
95 +
96 X<>Y
97 X↑2
98 +
99 SQRT
100 RTN
101▸LBL 92
102 SIN
103 ×
104 X<>Y
105 SIN
106 ÷
107 RTN
108▸LBL 93
109 +
110 180
111 X<>Y
112 -
113 RTN
114▸LBL 94
115 SIN
116 ×
117 X<>Y
118 ÷
119 ASIN
120 RTN
121▸LBL 71
122 RCL 05
123 RCL 06
124 XEQ 93
125 STO 04
126 RTN
127▸LBL 72
128 RCL 04
129 RCL 06
130 XEQ 93
131 STO 05
132 RTN
133▸LBL 73
134 RCL 04
135 RCL 05
136 XEQ 93
137 STO 06
138 RTN
139▸LBL 07
140 RCL 02
141 RCL 03
142 +
143 RCL 01
144 X>Y?
145 GTO 99
146 RCL 02
147 +
148 RCL 03
149 X>Y?
150 GTO 99
151 RCL 01
152 +
153 RCL 02
154 X>Y?
155 GTO 99
156 X↑2
157 RCL 03
158 X↑2
159 +
160 RCL 01
161 X↑2
162 -
163 RCL 02
164 RCL× 03
165 2
166 ×
167 ÷
168 ACOS
169 STO 04
170▸LBL 82
171 RCL 01
172 RCL 02
173 RCL 04
174 XEQ 94
175 STO 05
176 XEQ 73
177 GTO I
178▸LBL 11
179 RCL 01
180 RCL 02
181 RCL 04
182 XEQ 94
183 STO 05
184▸LBL 87
185 XEQ 73
186 GTO 88
187▸LBL 13
188 RCL 01
189 RCL 03
190 RCL 04
191 XEQ 94
192 STO 06
193▸LBL 84
194 XEQ 72
195 RCL 04
196 RCL 01
197 RCL 05
198 XEQ 92
199 STO 02
200 GTO I
201▸LBL 14
202 RCL 04
203 RCL 02
204 RCL 03
205 XEQ 91
206 STO 01
207 GTO 82
208▸LBL 19
209 RCL 02
210 RCL 01
211 RCL 05
212 XEQ 94
213 STO 04
214 GTO 87
215▸LBL 21
216 RCL 05
217 RCL 01
218 RCL 03
219 XEQ 91
220 STO 02
221 RCL 02
222 RCL 01
223 RCL 05
224 XEQ 94
225 STO 04
226 XEQ 73
227 GTO I
228▸LBL 22
229 RCL 02
230 RCL 03
231 RCL 05
232 XEQ 94
233 STO 06
234▸LBL 85
235 XEQ 71
236 GTO 89
237▸LBL 25
238 XEQ 73
239▸LBL 81
240 RCL 04
241 RCL 01
242 RCL 05
243 XEQ 92
244 STO 02
245▸LBL 88
246 RCL 04
247 RCL 01
248 RCL 06
249 XEQ 92
250 STO 03
251 GTO I
252▸LBL 26
253 XEQ 73
254▸LBL 83
255 RCL 05
256 RCL 02
257 RCL 06
258 XEQ 92
259 STO 03
260 GTO 89
261▸LBL 28
262 XEQ 73
263▸LBL 86
264 RCL 06
265 RCL 03
266 RCL 05
267 XEQ 92
268 STO 02
269▸LBL 89
270 RCL 06
271 RCL 03
272 RCL 04
273 XEQ 92
274 STO 01
275 GTO I
276▸LBL 35
277 RCL 06
278 RCL 01
279 RCL 02
280 XEQ 91
281 STO 03
282 RCL 03
283 RCL 01
284 RCL 06
285 XEQ 94
286 STO 04
287 XEQ 72
288 GTO I
289▸LBL 37
290 RCL 03
291 RCL 01
292 RCL 06
293 XEQ 94
294 STO 04
295 GTO 84
296▸LBL 38
297 RCL 03
298 RCL 02
299 RCL 06
300 XEQ 94
301 STO 05
302 GTO 85
303▸LBL 41
304 XEQ 72
305 GTO 81
306▸LBL 42
307 XEQ 72
308 GTO 83
309▸LBL 44
310 XEQ 72
311 GTO 86
312▸LBL 49
313 XEQ 71
314 GTO 81
315▸LBL 50
316 XEQ 71
317 GTO 83
318▸LBL 52
319 XEQ 71
320 GTO 86
321▸LBL 56
322 RCL 04
323 RCL 05
324 +
325 RCL 06
326 +
327 RND
328 180
329 X≠Y?
330 GTO 99
331 100
332 STO 01
333 GTO 81
334▸LBL 99
335 "WRONG VALUES"
336 AVIEW
337 GTO 15
338▸LBL I
339 FC?C 25
340 GTO 99
341 RCL 01
342 STO "A"
343 VIEW "A"
344 STOP
345 RCL 02
346 STO "B"
347 VIEW "B"
348 STOP
349 RCL 03
350 STO "C"
351 VIEW "C"
352 STOP
353 RCL 04
354 STO "∡A"
355 VIEW "∡A"
356 STOP
357 RCL 05
358 STO "∡B"
359 VIEW "∡B"
360 STOP
361 RCL 06
362 STO "∡C"
363 VIEW "∡C"
364 STOP
365 GTO 15
366▸LBL 23
367 END