01 LBL "DATA"
 02 "N?"
 03 PROMPT
 04 2
 05 *
 06 1
 07 -
 08 1 E3
 09 /
 10 STO 84
 11 LBL 00
 12 "X?"
 13 PROMPT
 14 STO IND 84
 15 ISG 84
 16 "Y?"
 17 PROMPT
 18 STO IND 84
 19 ISG 84
 20 GTO 00
 21 RTN
 22 LBL "CALC"
 23 "K?"
 24 PROMPT
 25 STO 86
 26 LBL 01
 27 RCL 86
 28 X<0?
 29 ABS
 30 STO 86
 31 PSE
 32 SREG 90
 33 CLS
 34 SREG 94
 35 CLS
 36 RCL 84
 37 FRC
 38 STO 84
 39 LBL 02
 40 RCL IND 84
 41 RCL 86
 42 CHS
 43 *
 44 E^X
 45 STO 89
 46 RCL IND 84
 47 CHS
 48 *
 49 STO 88
 50 RCL 89
 51 S+
 52 X<>Y
 53 ISG 84
 54 RCL IND 84
 55 ST+ 93
 56 X^2
 57 ST+ 92
 58 SQRT
 59 *
 60 ST+ 90
 61 RCL IND 84
 62 RCL 89
 63 *
 64 ST+ 91
 65 ISG 84
 66 GTO 02
 67 RCL 99
 68 RCL 95
 69 *
 70 RCL 94
 71 X^2
 72 -
 73 STO 83
 74 RCL 99
 75 RCL 90
 76 *
 77 RCL 96
 78 RCL 93
 79 *
 80 -
 81 *
 82 STO 87
 83 RCL 99
 84 RCL 98
 85 *
 86 RCL 94
 87 RCL 96
 88 *
 89 -
 90 STO 82
 91 RCL 99
 92 RCL 91
 93 *
 94 RCL 94
 95 RCL 93
 96 *
 97 -
 98 STO 81
 99 *
100 ST- 87
101 RCL 99
102 RCL 97
103 *
104 RCL 96
105 X^2
106 -
107 RCL 83
108 *
109 RCL 82
110 X^2
111 -
112 ST/ 87
113 RCL 87
114 RCL 82
115 *
116 CHS
117 RCL 81
118 +
119 STO 88
120 RCL 99
121 RCL 95
122 *
123 RCL 94
124 X^2
125 -
126 ST/ 88
127 RCL 88
128 RCL 94
129 *
130 RCL 87
131 RCL 96
132 *
133 +
134 CHS
135 RCL 93
136 +
137 RCL 99
138 /
139 STO 89
140 RCL 87
141 RCL 88
142 /
143 RCL 86
144 +
145 STO 85
146 RCL 86
147 -
148 ABS
149 RND
150 X=0?
151 GTO 03
152 RCL 85
153 STO 86
154 GTO 01
155 LBL 03
156 BEEP
157 "a="
158 ARCL 89
159 PROMPT
160 "b="
161 ARCL 88
162 PROMPT
163 "K="
164 ARCL 85
165 PROMPT
166 RCL 89
167 RCL 93
168 *
169 RCL 88
170 RCL 91
171 *
172 +
173 RCL 87
174 RCL 90
175 *
176 +
177 RCL 93
178 X^2
179 RCL 99
180 /
181 -
182 RCL 92
183 RCL 93
184 X^2
185 RCL 99
186 /
187 -
188 /
189 "R2="
190 ARCL X
191 AVIEW
192 BEEP
193 RTN
194 END