01 LBL "DG" 02 1.045 03 CLRGX 04 CF 05 05 "DG" 06 0 07 SEEKPTA 08 4.009 09 STO 10 10 LBL 00 11 RANDOM 12 STO IND 10 13 ISG 10 14 GTO 00 15 1 16 STO 26 17 STO 11 18 STO 21 19 STO 18 20 GTO 09 21 LBL 02 22 RCL 26 23 RCL 13 24 + 25 RCL IND X 26 RCL 15 27 10^X 28 * 29 FRC 30 10 31 * 32 INT 33 STO 22 34 LBL 03 35 RCL 22 36 2 37 / 38 INT 39 RCL 26 40 5 41 * 42 4 43 - 44 + 45 STO 27 46 RTN 47 LBL 04 48 >". T=" 49 RCL 20 50 XROM 24,49 51 AVIEW 52 LBL 05 53 RCL 26 54 RCL 13 55 + 56 STO 10 57 RCL IND X 58 RCL 22 59 RCL 15 60 1 61 + 62 10^X 63 / 64 - 65 STO IND 10 66 RTN 67 LBL 06 68 RCL 20 69 99 70 / 71 1 72 + 73 INT 74 ST+ 18 75 "CURSE. HP=" 76 AVIEW 77 LBL 07 78 RCL 32 79 X>0? 80 RTN 81 "DEAD" 82 AVIEW 83 TONE 00 84 TONE 00 85 TONE 00 86 TONE 00 87 GTO 08 88 LBL 09 89 XEQ 01 90 XEQ 73 91 CF 01 92 CF 02 93 CF 03 94 SF IND 26 95 RCL 28 96 99 97 X=Y? 98 GTO 99 99 96 100 RCL 28 101 X<=Y? 102 GTO 14 103 XEQ IND 28 104 RCL 23 105 2 106 / 107 STO 28 108 LBL 14 109 15 110 RCL 28 111 X<=Y? 112 GTO 15 113 RCL 28 114 16 115 - 116 9 117 / 118 INT 119 STO 15 120 RCL 28 121 15 122 - 123 RCL 15 124 9 125 * 126 - 127 RCL 15 128 + 129 STO 28 130 GTO 40 131 LBL 15 132 RCL 26 133 RCL 18 134 * 135 RCL 21 136 / 137 INT 138 STO 14 139 15 140 RCL 28 141 X<=Y? 142 GTO 16 143 15 144 ST- 28 145 15 146 RCL 28 147 X>Y? 148 15 149 STO 28 150 LBL 16 151 CLA 152 RCL 28 153 2 154 * 155 2 156 - 157 1000 158 / 159 FRC 160 SEEKPT 161 ARCLREC 162 ATOX 163 ATOX 164 X<>Y 165 CLA 166 XTOA 167 RDN 168 XTOA 169 >" HP=" 170 RCL 32 171 XROM 24,49 172 >"?" 173 AVIEW 174 STOP 175 STO 27 176 2 177 X=Y? 178 GTO 72 179 RDN 180 4 181 X=Y? 182 GTO 74 183 RDN 184 6 185 X=Y? 186 GTO 76 187 RDN 188 8 189 X=Y? 190 GTO 78 191 RDN 192 10 193 X=Y? 194 GTO 71 195 RDN 196 12 197 X=Y? 198 GTO 79 199 GTO 95 200 LBL 72 201 RCL 28 202 1 203 X=Y? 204 GTO 96 205 RDN 206 6 207 X=Y? 208 GTO 96 209 RDN 210 7 211 X=Y? 212 GTO 96 213 RDN 214 10 215 X=Y? 216 GTO 96 217 RDN 218 11 219 X=Y? 220 GTO 96 221 RDN 222 12 223 X=Y? 224 GTO 96 225 RDN 226 13 227 X=Y? 228 GTO 96 229 RDN 230 15 231 X=Y? 232 GTO 96 233 GTO 95 234 LBL 74 235 RCL 28 236 2 237 X=Y? 238 GTO 96 239 RDN 240 5 241 X=Y? 242 GTO 96 243 RDN 244 7 245 X=Y? 246 GTO 96 247 RDN 248 8 249 X=Y? 250 GTO 96 251 RDN 252 11 253 X=Y? 254 GTO 96 255 RDN 256 12 257 X=Y? 258 GTO 96 259 RDN 260 14 261 X=Y? 262 GTO 96 263 RDN 264 15 265 X=Y? 266 GTO 96 267 GTO 95 268 LBL 76 269 RCL 28 270 3 271 X=Y? 272 GTO 96 273 RDN 274 5 275 X=Y? 276 GTO 96 277 RDN 278 9 279 X=Y? 280 GTO 96 281 RDN 282 10 283 X=Y? 284 GTO 96 285 RDN 286 11 287 X=Y? 288 GTO 96 289 RDN 290 13 291 X=Y? 292 GTO 96 293 RDN 294 14 295 X=Y? 296 GTO 96 297 RDN 298 15 299 X=Y? 300 GTO 96 301 GTO 95 302 LBL 78 303 RCL 28 304 4 305 X=Y? 306 GTO 96 307 RDN 308 6 309 X=Y? 310 GTO 96 311 RDN 312 8 313 X=Y? 314 GTO 96 315 RDN 316 9 317 X=Y? 318 GTO 96 319 RDN 320 12 321 X=Y? 322 GTO 96 323 RDN 324 13 325 X=Y? 326 GTO 96 327 RDN 328 14 329 X=Y? 330 GTO 96 331 RDN 332 15 333 X=Y? 334 GTO 96 335 GTO 95 336 LBL 71 337 XEQ 73 338 97 339 X=Y? 340 GTO 96 341 GTO 95 342 LBL 79 343 XEQ 73 344 98 345 X=Y? 346 GTO 96 347 LBL 95 348 "CAN'T GO" 349 AVIEW 350 GTO 16 351 LBL 96 352 0 353 STO 12 354 LBL 19 355 CLA 356 "GO" 357 XEQ 20 358 GTO 09 359 LBL 20 360 RCL 27 361 2 362 X=Y? 363 >" SOUTH" 364 RDN 365 8 366 X=Y? 367 >" NORTH" 368 RDN 369 6 370 X=Y? 371 >" EAST" 372 RDN 373 4 374 X=Y? 375 >" WEST" 376 RDN 377 12 378 X=Y? 379 >" UP" 380 RDN 381 10 382 X=Y? 383 >" DOWN" 384 RCL 14 385 ST- 32 386 AVIEW 387 XEQ 07 388 RCL 27 389 10 390 X<=Y? 391 GTO 22 392 - 393 CHS 394 STO 23 395 LBL 22 396 RCL 27 397 22 398 + 399 1 400 GTO IND Y 401 LBL 24 402 ST+ 25 403 RTN 404 LBL 26 405 ST+ 24 406 RTN 407 LBL 28 408 ST- 24 409 RTN 410 LBL 30 411 ST- 25 412 RTN 413 LBL 32 414 ST+ 26 415 RTN 416 LBL 34 417 ST- 26 418 RCL 26 419 X!=0? 420 RTN 421 "*SUN" 422 XEQ 04 423 STOP 424 1 425 STO 26 426 STO 18 427 0 428 STO 20 429 RCL 33 430 STO 32 431 GTO 09 432 LBL 40 433 "(CHAMBER)" 434 AVIEW 435 3 436 STO 13 437 XEQ 02 438 RCL 22 439 X=0? 440 GTO 44 441 XEQ 50 442 RCL 22 443 X!=0? 444 GTO 09 445 LBL 44 446 6 447 STO 13 448 XEQ 02 449 RCL 22 450 X!=0? 451 GTO 46 452 "EMPTY." 453 AVIEW 454 RCL 20 455 RCL 33 456 / 457 RCL 26 458 * 459 4 460 / 461 STO 40 462 RANDOM 463 RCL 40 464 X>Y? 465 XEQ 06 466 LBL 46 467 RCL 22 468 X=0? 469 GTO 48 470 15 471 STO 31 472 XEQ 60 473 0 474 STO 31 475 RCL 30 476 XROM 24,49 477 AVIEW 478 ST+ 20 479 XEQ 04 480 LBL 48 481 "EXIT" 482 AVIEW 483 GTO 15 484 LBL 50 485 XEQ 70 486 RCL 30 487 XROM 24,49 488 >":" 489 RCL 11 490 XROM 24,49 491 >"*" 492 RCL 16 493 XROM 24,49 494 >":" 495 RCL 32 496 XROM 24,49 497 >"?" 498 AVIEW 499 STOP 500 STO 34 501 X=0? 502 GTO 57 503 RCL 16 504 XY 507 ABS 508 ST- 32 509 XEQ 07 510 RCL 30 511 RANDOM 512 / 513 STO 10 514 RCL 11 515 RCL 34 516 * 517 RANDOM 518 / 519 RCL 10 520 X>Y? 521 GTO 56 522 "WIN. HP=" 523 RCL 32 524 XROM 24,49 525 AVIEW 526 RCL 28 527 99 528 X!=Y? 529 GTO 54 530 0 531 STO 17 532 RTN 533 LBL 54 534 99 535 RCL 30 536 X<=Y? 537 GTO 55 538 4 539 ST+ 16 540 "DRG.SLAYER " 541 AVIEW 542 LBL 55 543 RCL 26 544 ST+ 16 545 3 546 STO 13 547 XEQ 05 548 0 549 STO 22 550 RTN 551 LBL 56 552 "LOST. HP=" 553 RCL 30 554 RCL 16 555 / 556 INT 557 ST- 32 558 XEQ 07 559 RCL 32 560 XROM 24,49 561 AVIEW 562 LBL 57 563 "ESCAPE" 564 1 565 RCL 12 566 X=Y? 567 GTO 15 568 RCL 23 569 STO 27 570 GTO 20 571 LBL 60 572 RCL 45 573 RCL 27 574 + 575 5 576 X!=Y? 577 GTO 61 578 "M.BOOTS " 579 AVIEW 580 RCL 33 581 STO 45 582 3 583 STO 21 584 30 585 STO 30 586 RTN 587 LBL 61 588 RCL 19 589 RCL 27 590 + 591 10 592 X!=Y? 593 GTO 62 594 "M.SWORD " 595 AVIEW 596 RCL 33 597 STO 19 598 3 599 STO 11 600 50 601 STO 30 602 RTN 603 LBL 62 604 RCL 41 605 RCL 27 606 + 607 15 608 X!=Y? 609 GTO 70 610 "HE.BALM " 611 AVIEW 612 RCL 33 613 STO 41 614 RCL 33 615 STO 32 616 RCL 27 617 STO 30 618 RTN 619 LBL 70 620 RCL 27 621 RCL 31 622 + 623 1 624 - 625 1000 626 / 627 FRC 628 STO 10 629 1 630 + 631 SEEKPT 632 CLA 633 ARCLREC 634 ATOX 635 STO 42 636 RCL 10 637 2 638 + 639 SEEKPT 640 CLA 641 ARCLREC 642 ATOX 643 STO 43 644 RCL 10 645 3 646 + 647 SEEKPT 648 CLA 649 ARCLREC 650 ATOX 651 CLA 652 RCL 43 653 RCL 42 654 XTOA 655 RDN 656 XTOA 657 RDN 658 XTOA 659 >" " 660 AVIEW 661 RCL 27 662 15 663 X!=Y? 664 GTO 75 665 100 666 ENTER 667 3 668 / 669 STO 27 670 LBL 75 671 RCL 27 672 RCL 26 673 * 674 STO 30 675 RTN 676 LBL 97 677 "DW" 678 AVIEW 679 RTN 680 LBL 98 681 "UP" 682 AVIEW 683 RTN 684 LBL 99 685 "(HALL)" 686 AVIEW 687 LBL 80 688 RCL 17 689 X!=0? 690 GTO 81 691 RANDOM 692 9 693 * 694 INT 695 STO 17 696 X=0? 697 GTO 83 698 LBL 81 699 RCL 17 700 STO 22 701 XEQ 03 702 XEQ 50 703 RCL 17 704 X!=0? 705 GTO 09 706 GTO 48 707 LBL 83 708 RCL 26 709 3 710 X=Y? 711 GTO 84 712 "TRAP." 713 AVIEW 714 1 715 STO 12 716 10 717 STO 27 718 GTO 19 719 LBL 84 720 GTO 80 721 LBL 01 722 FS? 05 723 GTO 90 724 "DUNGEON-41CX" 725 AVIEW 726 TONE 02 727 TONE 01 728 TONE 00 729 TONE 00 730 1 731 STO 16 732 "DUNGEON ?" 733 AVIEW 734 STOP 735 48 736 + 737 "D" 738 XTOA 739 ASTO 44 740 LBL 90 741 XEQ IND 44 742 SF 05 743 RTN 744 LBL 73 745 RCL IND 26 746 RCL 24 747 2 748 * 749 10^X 750 / 751 FRC 752 100 753 * 754 INT 755 STO 28 756 RTN 757 LBL 08 758 STOP 759 END