01 LBL "WIZARD" 02 FRC 03 1/X 04 LASTX 05 STO 63 06 FIX 00 07 " CAP-PINBALL" 08 AVIEW 09 LBL a 10 .021 11 LBL 10 12 CF IND X 13 ISG X 14 GTO 10 15 SF 01 16 RTN 17 LBL E 18 FIX 02 19 "$ " 20 ARCL 52 21 FIX 00 22 AVIEW 23 RTN 24 LBL C 25 39 26 RCL 53 27 X>Y? 28 GTO D 29 .25 30 ST+ 52 31 TONE 04 32 ISG 53 33 LBL D 34 CLA 35 ARCL 53 36 >" " 37 ARCL 28 38 RCL 53 39 1 40 X#Y? 41 >"S" 42 AVIEW 43 RTN 44 LBL B 45 RCL 53 46 X=0? 47 GTO D 48 0 49 FS?C 01 50 STO 45 51 RCL 45 52 4 53 X=Y? 54 GTO 11 55 1 56 ST+ 45 57 ST- 53 58 TONE 05 59 XEQ D 60 PSE 61 LBL 11 62 CLA 63 ARCL 30 64 >"S =" 65 ARCL 45 66 AVIEW 67 RTN 68 LBL A 69 RCL 45 70 X=0? 71 RTN 72 40 73 + 74 RCL 40 75 / 76 41 77 STO 58 78 + 79 0 80 LBL 12 81 STO IND Y 82 ISG Y 83 GTO 12 84 1 85 STO 48 86 STO 50 87 TONE 09 88 TONE 08 89 TONE 08 90 TONE 08 91 TONE 07 92 TONE 07 93 BEEP 94 TONE 08 95 TONE 08 96 TONE 08 97 TONE 09 98 LBL 13 99 41 100 STO 58 101 1 102 STO 48 103 LBL 14 104 1 105 STO 46 106 1.003 107 STO 51 108 0 109 STO 47 110 25 111 STO 49 112 XEQ a 113 SF 01 114 CF 02 115 CLA 116 ARCL 30 117 >" NO. " 118 ARCL 48 119 AVIEW 120 PSE 121 CLA 122 ARCL 15 123 ARCL 50 124 CF 22 125 LBL 15 126 AVIEW 127 PSE 128 FC?C 22 129 GTO 15 130 LBL 16 131 12 132 XEQ 09 133 4 134 - 135 X>0? 136 GTO 17 137 FS? 02 138 GTO 18 139 "NO " 140 ARCL 25 141 ARCL 21 142 ARCL 22 143 AVIEW 144 PSE 145 GTO 14 146 LBL 17 147 SF 02 148 CLA 149 ARCL IND X 150 GTO IND X 151 LBL 18 152 -2 153 X<>Y 154 X=Y? 155 0 156 X<0? 157 GTO 19 158 RCL 00 159 CLD 160 PSE 161 FC?C 22 162 GTO 20 163 2 164 X#Y? 165 GTO 20 166 5 167 XEQ 09 168 1 169 X=Y? 170 GTO 21 171 GTO 16 172 LBL 20 173 CLA 174 ARCL 20 175 ARCL IND 49 176 AVIEW 177 PSE 178 RCL 46 179 29 180 X" " 205 ARCL 48 206 >"-" 207 ARCL 25 208 ARCL IND 58 209 AVIEW 210 FS? 03 211 GTO 14 212 RCL 45 213 RCL 48 214 X=Y? 215 GTO 25 216 1 217 ST+ 48 218 ST+ 58 219 GTO 14 220 LBL 25 221 5 222 RCL 50 223 X=Y? 224 GTO 26 225 1 226 ST+ 50 227 GTO 13 228 LBL 26 229 10 230 XEQ 09 231 1 232 - 233 10 234 * 235 STO 35 236 RCL 45 237 40 238 + 239 RCL 40 240 / 241 41 242 + 243 STO 57 244 LBL 27 245 RCL 36 246 RCL IND 57 247 X>Y? 248 STO 36 249 X>Y? 250 SF 00 251 RCL 39 252 / 253 FRC 254 RCL 39 255 * 256 RCL 35 257 X=Y? 258 XEQ 24 259 ISG 57 260 GTO 27 261 CLA 262 ARCL 23 263 ARCL 35 264 AVIEW 265 PSE 266 CLA 267 ARCL 24 268 ARCL 36 269 AVIEW 270 FS?C 00 271 XEQ 24 272 PSE 273 RCL 45 274 40 275 + 276 RCL 40 277 / 278 41 279 + 280 STO 57 281 LBL 28 282 CLA 283 ARCL 30 284 >" " 285 RCL 57 286 INT 287 40 288 - 289 ARCL X 290 >" - " 291 ARCL IND 57 292 AVIEW 293 54.056 294 RCL IND 57 295 ENTER 296 LBL 23 297 CLX 298 RCL IND Z 299 X<=Y? 300 XEQ 24 301 ISG Z 302 GTO 23 303 ISG 57 304 GTO 28 305 CLA 306 ARCL 18 307 ARCL 19 308 AVIEW 309 0 310 STO 45 311 BEEP 312 RTN 313 LBL 09 314 RCL 63 315 9821 316 * 317 .211327 318 + 319 FRC 320 STO 63 321 * 322 1 323 + 324 INT 325 RTN 326 LBL 21 327 CF 03 328 CLA 329 ARCL 31 330 AVIEW 331 TONE 04 332 TONE 03 333 TONE 02 334 TONE 01 335 TONE 00 336 PSE 337 GTO b 338 LBL 19 339 ENTER 340 ABS 341 X<>Y 342 17 343 + 344 X<>Y 345 CLA 346 ARCL IND Y 347 AVIEW 348 PSE 349 FC?C 22 350 GTO 29 351 X=Y? 352 GTO 16 353 LBL 29 354 0 355 GTO 18 356 LBL 24 357 CLX 358 1 359 ST+ 53 360 CLX 361 RCL 53 362 40 363 X<=Y? 364 STO 53 365 RDN 366 TONE 09 367 RTN 368 LBL 01 369 1 370 ST+ 46 371 RCL 38 372 ST+ IND 58 373 ARCL X 374 AVIEW 375 TONE 05 376 TONE 05 377 TONE 05 378 TONE 05 379 TONE 05 380 GTO 16 381 LBL 02 382 1 383 ST+ 46 384 300 385 ST+ IND 58 386 ARCL X 387 AVIEW 388 TONE 06 389 TONE 06 390 TONE 06 391 GTO 16 392 LBL 03 393 RCL 39 394 STO 62 395 6 396 ENTER 397 10 398 LBL 30 399 XEQ 09 400 X<> 62 401 RCL 62 402 STO 61 403 * 404 ST+ IND 58 405 ARCL X 406 AVIEW 407 LBL 31 408 TONE IND Z 409 DSE 62 410 GTO 31 411 FS?C 04 412 RTN 413 GTO 16 414 LBL 04 415 RCL 37 416 STO 62 417 5 418 ENTER 419 25 420 SF 04 421 XEQ 30 422 RCL 61 423 5 424 / 425 INT 426 ST+ 46 427 GTO 16 428 LBL 05 429 8 430 RCL 47 431 X>Y? 432 X<>Y 433 2 434 + 435 STO 47 436 ENTER 437 ENTER 438 RCL 40 439 * 440 ST+ IND 58 441 ARCL X 442 AVIEW 443 LBL 32 444 TONE 07 445 DSE Y 446 GTO 32 447 GTO 16 448 LBL 06 449 10 450 ST+ IND 58 451 ARCL X 452 AVIEW 453 TONE 05 454 GTO 16 455 LBL 07 456 ISG 51 457 GTO 33 458 1.003 459 STO 51 460 SF 03 461 RCL 39 462 ST+ IND 58 463 CLA 464 ARCL 21 465 ARCL 22 466 AVIEW 467 TONE 08 468 TONE 08 469 GTO 16 470 LBL 33 471 RCL 51 472 1 473 - 474 ARCL X 475 AVIEW 476 TONE 05 477 10 478 ST+ IND 58 479 GTO 16 480 LBL 08 481 1 482 ST+ 46 483 6 484 XEQ 09 485 ENTER 486 ENTER 487 4 488 + 489 X<>Y 490 7 491 + 492 CLA 493 ARCL IND X 494 SF IND Y 495 500 496 ST+ IND 58 497 ARCL X 498 AVIEW 499 TONE 06 500 TONE 06 501 TONE 06 502 TONE 06 503 TONE 06 504 FC? 05 505 GTO 34 506 FC? 06 507 GTO 34 508 SF 20 509 26 510 STO 49 511 FC? 07 512 GTO 34 513 FC? 08 514 GTO 34 515 27 516 STO 49 517 FC? 09 518 GTO 34 519 FC? 10 520 GTO 34 521 TONE 09 522 TONE 09 523 29 524 STO 49 525 LBL 34 526 FC? 20 527 GTO 16 528 CLA 529 ARCL 20 530 ARCL IND 49 531 AVIEW 532 PSE 533 GTO 16 534 END