home *** CD-ROM | disk | FTP | other *** search
- 100 dv=peek(186):goto500
- 199 rem***basic + run****
- 200 c$=chr$(34):poke198,4
- 210 print"[147]load";c$;b$;c$;",dv";
- 230 poke631,13:poke632,82:poke633,117:poke634,13:end
- 298 rem
- 299 rem***m/c autorun***
- 300 c$=chr$(34)
- 302 print"[147]":fork=1to10:print:next:print" loading....":print""
- 304 fork=1to800:next:poke646,0
- 310 printchr$(147);"load";c$;b$;c$;",dv,1"
- 320 poke631,19:poke632,13:poke198,2:end
- 398 rem
- 399 rem******
- 400 c$=chr$(34):poke198,4
- 410 print"[147]load";c$;b$;c$;",dv,1";
- 430 poke631,13:poke632,82:poke633,117:poke634,13:end
- 500 print"[147]":poke53280,6:poke53281,6:poke646,14
- 510 poke646,7:print" telnyr ii - the golden chalice"
- 512 poke646,15:print" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
- 514 print:print:poke646,14:print"the land of telnyr has been overcome by"
- 515 print:print"monsters,footpads & restless spirits."
- 520 print:print:print"demons have stolen the golden chalice &"
- 522 print:print"hidden it in the darkest dungeon."
- 526 print:print:print"the locals applaud your willingness to"
- 528 print:print"take up the challenge, and have named"
- 530 print:print"you nova - the newcomer. the mage"
- 531 print:print"presents you with a book...":gosub660
- 540 print"[147]":poke646,3
- 542 print"press r to read the book":print:print"press l to load the game"
- 543 poke198,0:wait198,1:geta$
- 544 ifa$="r"then548
- 545 ifa$="l"thenb$="telnyr 2":goto547
- 546 goto543
- 547 print"[147]":print"please wait while loading...":fork=1to2000:next:goto200
- 548 print"[147]":poke53281,0:poke53280,0:poke646,8
- 550 print"[147]":print"the magic keyboard"
- 551 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
- 552 poke646,5:print:print"if, during travelling, thou shalt press"
- 554 print:print"the long bar called 'space' then a list"
- 556 print:print"of options & possessions will appear."
- 560 print:print"during nefarious combat if thou shalt"
- 562 print:print"in fact hold this long bar down for a"
- 564 print:print"period of time, combat options will"
- 566 print:print"wonderously manifest !"
- 568 print:print"in shoppes thou shouldst press the"
- 570 print:print"appropriate key as instructed.":gosub660
- 571 print"[147]":poke646,8:print"the magic stick":print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":poke646,5
- 572 print:print"this wondrous appliance should be"
- 574 print:print"placed in port 2."
- 576 print:print"push up, down, left, right to move."
- 578 print:print"to pick up objects or enter doors hit"
- 579 print:print"the button of fire.":gosub660:
- 580 print"[147]":poke646,3:print"spells":print"[175][175][175][175][175][175]"
- 581 print:poke646,8:print"strength";:poke646,5:print" adds strength in combat."
- 582 print"the more you cast the stronger you get."
- 583 print:poke646,8:print"confuse";:poke646,5:print" confuses the enemy. they"
- 584 print"will miss more often."
- 586 print:poke646,8:print"heal";:poke646,5:print" adds 50 hitpoints"
- 588 print:poke646,8:print"teleport";:poke646,5:print" teleports you to "
- 590 print"safety. handy for quick exits !"
- 592 print:poke646,8:print"kill";:poke646,5:print" kills one monster"
- 594 print:poke646,8:print"revive";:poke646,5:print" adds 100 hitpoints"
- 596 print:poke646,8:print"banish";:poke646,5:print" banish all foes ! you will"
- 597 print"probably appreciate a few of these in"
- 598 print"the darker dungeons.":gosub660
- 600 print"[147]":poke 646,8:print"all potions have positive effects."
- 604 print:print"some are more powerful than others.":poke646,5
- 606 print:print"to pass time without moving hold down "
- 608 print:print"the button of fire."
- 610 print:poke646,4:print"if you run out of food you will start"
- 612 print:print"losing hitpoints. food is only found"
- 614 print:print"in the general store or,if you are"
- 616 print:print"lucky, by the road (pick up object)"
- 618 print:print"or after battle."
- 620 poke646,3:print:print"if you run out of hitpoints you die.you"
- 622 print:print"can then resurrect or load a saved game":gosub660
- 624 print"[147]":poke646,8:print:print:print"some dungeons cannot be entered until"
- 625 print"you find the appropriate key."
- 627 print:print:poke646,3:print"leave the disk in the drive & leave"
- 628 print"the drive on while playing."
- 629 poke646,5:print: print:print"you can save your current position to"
- 630 print"disk at any time (from options screen)"
- 631 poke646,3
- 633 print:print:print"important!!! save games to this disk,"
- 634 print:print"or if you want to save to another disk"
- 635 print:print"use any copy utility to copy the file"
- 636 print:print"called 'telnyrsave' to that disk first"
- 643 poke198,0:wait198,1:print"[147]"
- 644 poke646,8: print:print"telnyr ii is public domain and may be"
- 645 print"freely copied and distributed "
- 648 print:print"programmed by - peter boothman 12/21 trafalgar st"
- 649 print"belmore nsw 2192 australia":gosub660:goto540
- 650 end
- 660 print:print" press a key [146]":poke198,0:wait198,1:geta$:return
-