home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / bronashai (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  67 lines
  1. 0 poke53280,0:poke53281,0
  2. 1 print"[147][196]ie drei [212]ore von [194]ronashai"
  3. 2 print"[197]in [193]benteuer der [215][197][204][212][160][210][200][207][206]"
  4. 3 print"von [205]aik [200]olstein 1990"
  5. 4 print"[197]in [198]antasy-[210]ollenspiel![145]"
  6. 5 geta$:ifa$=""then5
  7. 10 print"[147][211]tell dir vor, du waerst in der [211]tadt"
  8. 20 print"[194]ronashai und wuerdest vor drei"
  9. 30 print"[212]oren deiner [215]ahl stehen."
  10. 41 print"[145][201]n welche [212]uer wuerdest du gehen?"
  11. 50 print"[201]n der mit dem"
  12. 60 print"[154][211]atanswappen  (1),"
  13. 70 print"[212]odeswappen   (2) oder mit dem":
  14. 80 print"[199]oetterwappen (3)?"
  15. 90 input"[145]";a$
  16. 100 ifa$="1"then300
  17. 110 ifa$="2"then500
  18. 120 ifa$="3"then700
  19. 122 goto90
  20. 300 print"[193]ls du eintrittst, stuerzen sich"
  21. 310 print"[196]aemonen auf dich und bringen dich auf"
  22. 320 print"der [211]telle um!":goto830
  23. 500 print"[158][196]ie [212]uer ist leider verschlossen."
  24. 510 print"[199]eh woanders hin!"
  25. 520 geta$:ifa$=""then520
  26. 530 print"[147]":goto41
  27. 700 print"[203]leriker treten dir entgegen und fragen"
  28. 710 print"dich, ob du in ihrem [199]oetterbund"
  29. 720 print"[205]itglied werden willst."
  30. 730 input"[145][215]illst du";b$
  31. 740 ifb$="j"orb$="ja"orb$="[202]a"then800
  32. 750 ifb$="n"orb$="nein"orb$="[206]ein"then760
  33. 755 goto730
  34. 760 print"[211]ie schauen dich entaeuscht an und"
  35. 770 print"zeigen dir die [212]uer. [196]u gehst hinaus"
  36. 780 print"und ueberlegst dir, wo du jetzt"
  37. 790 print"eintreten willst."
  38. 791 getc$:ifc$=""then791
  39. 792 print"[147]":goto41
  40. 800 print"[158][211]ie umarmen dich, und du wirst ein"
  41. 810 print"[203]leriker, der vieleicht irgendwann mal"
  42. 820 print"sehr beruehmt wird..."
  43. 830 getk$:ifk$=""then830
  44. 840 print"[147]"
  45. 850 print"[200]at's dir gefallen (j/n)?"
  46. 855 gets$:ifs$=""then855
  47. 860 ifs$="j"thenprint"[198]reut mich."
  48. 870 ifs$="n"thenprint"[193]lte [211]ocke!":end
  49. 880 print"[206]ochmal (j/n)?"
  50. 885 geth$:ifh$=""then885
  51. 890 ifh$="n"thenprint"[212]schuessi!":end
  52. 900 ifh$="j"thengoto10
  53. 901 goto885
  54. 1000 rem *****************************
  55. 1010 rem *****************************
  56. 1020 rem **       written by        **
  57. 1030 rem **      maik holstein      **
  58. 1040 rem *****************************
  59. 1050 rem *****************************
  60. 1060 rem ************1990*************
  61. 1065 rem *****************************
  62. 1070 rem ************1992*************
  63. 1080 rem *****************************
  64. 1090 rem
  65. 1100 rem ich hoffe,dass es dir
  66. 1120 rem gefallen hat.
  67.