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