01 LBL "CPI" 02 0 03 SETSW 04 RUNSW 05 X<>Y 06 CLRG 07 FIX 00 08 9 09 + 10 10 11 / 12 INT 13 2 14 * 15 5 16 + 17 ARCL IND X 18 5 19 + 20 2 21 / 22 STO 02 23 1.07 24 * 25 5 26 - 27 RND 28 4 29 * 30 1 31 - 32 4 E-5 33 + 34 STO 01 35 LBL 00 36 RCL 01 37 INT 38 ENTER 39 ENTER 40 ENTER 41 4.3 42 / 43 INT 44 1 45 X>Y? 46 X<>Y 47 RDN 48 CHS 49 RCL 02 50 + 51 1 E3 52 / 53 4 54 + 55 STO 00 56 STO 03 57 RDN 58 239 59 X^2 60 * 61 X<>Y 62 2 63 - 64 ST* Z 65 - 66 0 67 X<>Y 68 4 69 * 70 XEQ 03 71 239 72 X^2 73 X^2 74 ENTER 75 ENTER 76 RCL 03 77 STO 00 78 CLX 79 DSE 01 80 GTO 04 81 X<>Y 82 239 83 / 84 X<>Y 85 XEQ 06 86 GTO 08 87 LBL 04 88 XEQ 06 89 GTO 00 90 LBL 02 91 1 E5 92 * 93 ENTER 94 R^ 95 ST/ Z 96 MOD 97 X<>Y 98 INT 99 1 E5 100 ST* Z 101 * 102 X<>Y 103 LBL 03 104 ENTER 105 R^ 106 ST/ Z 107 MOD 108 LASTX 109 X<>Y 110 R^ 111 R^ 112 INT 113 + 114 1 E10 115 - 116 RCL IND 00 117 + 118 X<0? 119 GTO 04 120 1 121 ST- 00 122 ST+ IND 00 123 ST+ 00 124 CLX 125 + 126 GTO 05 127 LBL 04 128 1 E10 129 + 130 LBL 05 131 STO IND 00 132 CLX 133 + 134 ISG 00 135 GTO 02 136 RTN 137 LBL 06 138 1 E5 139 * 140 ENTER 141 R^ 142 ST/ Z 143 MOD 144 X<>Y 145 INT 146 1 E5 147 X>Y? 148 GTO 07 149 / 150 INT 151 1 152 ST- 00 153 X<>Y 154 ST+ IND 00 155 RDN 156 ST+ 00 157 CLX 158 LASTX 159 FRC 160 1 E5 161 * 162 LASTX 163 LBL 07 164 * 165 X<> IND 00 166 LASTX 167 / 168 INT 169 ST+ Y 170 X<> L 171 FRC 172 X<>Y 173 1 E5 174 ST* Z 175 * 176 ENTER 177 R^ 178 ST/ Z 179 MOD 180 LASTX 181 RDN 182 X<>Y 183 INT 184 ST+ IND 00 185 CLX 186 + 187 + 188 ISG 00 189 GTO 06 190 RTN 191 LBL 08 192 RCL 02 193 RCL 03 194 INT 195 - 196 ST+ 02 197 1.2 198 * 199 .9 200 - 201 RND 202 12 203 * 204 1 205 - 206 6 E-5 207 + 208 STO 01 209 LBL 09 210 RCL 01 211 INT 212 14.3 213 / 214 INT 215 1 216 X>Y? 217 X<>Y 218 RDN 219 CHS 220 RCL 02 221 + 222 LASTX 223 2 224 ST/ Y 225 + 226 X<>Y 227 1 E3 228 / 229 + 230 STO 00 231 STO 03 232 SF 00 233 LBL 10 234 RCL 01 235 INT 236 ENTER 237 ENTER 238 ENTER 239 2 240 - 241 ST* Z 242 25 243 ST* Z 244 X<>Y 245 * 246 2 247 ST- L 248 CLX 249 LASTX 250 ST* T 251 ST- Y 252 RDN 253 * 254 R^ 255 ST+ T 256 X^2 257 R^ 258 + 259 + 260 FS? 00 261 GTO 04 262 5 E6 263 * 264 .75 265 GTO 05 266 LBL 04 267 DSE 01 268 40 269 * 270 6 271 LBL 05 272 ST/ Z 273 CLX 274 X<>Y 275 XEQ 12 276 RCL 03 277 STO 00 278 FS?C 00 279 GTO 10 280 125 281 X^2 282 X^2 283 ENTER 284 ENTER 285 0 286 DSE 01 287 GTO 07 288 3 289 ST* Z 290 ST* T 291 RDN 292 XEQ 06 293 GTO 13 294 LBL 07 295 XEQ 06 296 GTO 09 297 LBL 11 298 ENTER 299 R^ 300 ST/ Z 301 MOD 302 X<>Y 303 INT 304 X<>Y 305 1 E5 306 ST* Z 307 * 308 LBL 12 309 ENTER 310 R^ 311 ST/ Z 312 MOD 313 X<>Y 314 LASTX 315 RDN 316 INT 317 ST+ Z 318 CLX 319 + 320 1 E5 321 * 322 X<>Y 323 RCL IND 00 324 - 325 X<0? 326 X>0? 327 GTO 04 328 1 329 ST- 00 330 ST- IND 00 331 ST+ 00 332 CLX 333 1 E10 334 + 335 LBL 04 336 STO IND 00 337 RDN 338 ISG 00 339 GTO 11 340 RTN 341 LBL 13 342 RCL 03 343 FRC 344 LASTX 345 INT 346 1 347 - 348 STO 00 349 1 E3 350 ST* Z 351 / 352 STO 01 353 + 354 STO 03 355 CLX 356 LBL 14 357 RCL IND 03 358 X<>Y 359 - 360 RCL IND 00 361 - 362 0 363 X<>Y 364 X<0? 365 X>0? 366 GTO 05 367 1 E10 368 + 369 1 370 X<>Y 371 LBL 05 372 STO IND 00 373 RDN 374 DSE 00 375 DSE 03 376 GTO 14 377 STOPSW 378 CLA 379 >"Time: " 380 FIX 06 381 RCLSW 382 ATIME24 383 ADV 384 XROM 29,01 385 ADV 386 LBL 01 387 RCL 01 388 4 389 + 390 STO 00 391 ADV 392 1 393 STO 02 394 CLA 395 >"3." 396 XROM 29,01 397 CF 29 398 FIX 00 399 ISG 00 400 LBL 15 401 RCL IND 00 402 CLA 403 1 E9 404 XY 412 - 413 STO 01 414 LBL 21 415 48 416 XTOA 417 RDN 418 DSE 01 419 GTO 21 420 LBL 19 421 RDN 422 ARCL X 423 XROM 29,01 424 RCL 02 425 INT 426 2 427 MOD 428 X=0? 429 ADV 430 ENTER 431 1 432 ST+ 02 433 ISG 00 434 GTO 15 435 RCL 02 436 INT 437 2 438 MOD 439 X#0? 440 GTO 20 441 CLA 442 10 443 XROM 29,22 444 ADV 445 LBL 20 446 ADV 447 ADV 448 SF 29 449 FIX 09 450 RTN 451 GTO 01 452 END