home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / disk9.d64 / ab5 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  4KB  |  110 lines
  1. 1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 2 POKE808,230
  3. 5 GOTO100
  4. 10 PRINT"[147]":POKE53280,0:POKE53281,0
  5. 11 PRINT"[154]       DAS GEHEIMNIS DER PYRAMIDEN     "
  6. 12 PRINT"[154]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]     ":RETURN
  7. 13 PRINT"[158]ABENTEUER * SEITE ";S"":RETURN
  8. 20 PRINT""
  9. 21 PRINT"[129]WEITER SPACE[129]    ZURUECK F 1[129]   LADEN F 7"
  10. 22 POKE198,0:WAIT198,1:GETE$
  11. 23 IFE$=CHR$(32)THENZ=1:RETURN
  12. 24 IFE$=CHR$(133)THENZ=0:RETURN
  13. 25 IFE$=CHR$(136)THEN30
  14. 26 GOTO22
  15. 30 GOSUB50:PRINT""
  16. 31 PRINT"WENN ONKEL BRUCE BEGLEITEN WILLST,"
  17. 32 PRINT"DANN WAEHLE ZIFFER [158] 1 [146]"
  18. 33 PRINT"WENN DU LIEBER NEIN SAGST,"
  19. 34 PRINT"DANN WAEHLE ZIFFER [158] 2 [146]"
  20. 35 PRINT"WENN DU DEN TEXT NOCHMALS LESEN WILLST,"
  21. 36 PRINT"DANN WAEHLE ZIFFER [158] 0 [146]"
  22. 37 POKE198,0:WAIT198,1:GETE$
  23. 38 IFE$="1"THENGOSUB70:LOAD"AB1",8,1
  24. 39 IFE$="2"THENGOSUB70:LOAD"AB10",8,1
  25. 40 IFE$="0"THENGOSUB50:S=1:GOTO101
  26. 41 GOTO37
  27. 50 FORI=4TO24:POKE781,I:SYS59903:NEXT:RETURN
  28. 60 FORI=5TO22:POKE781,I:SYS59903:NEXT:RETURN
  29. 70 PRINT"[147][155]"
  30. 71 PRINT"          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  31. 72 PRINT"          [194]                   [194]"
  32. 73 PRINT"          [194] [154]DAS GEHEIMNIS DER[155] [194]"
  33. 74 PRINT"          [194]     [154]PYRAMIDE.[155]     [194]"
  34. 75 PRINT"          [194][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][194]"
  35. 76 PRINT"          [194]                   [194]"
  36. 77 PRINT"          [194]   [158]BITTE WARTEN ![155]  [194]"
  37. 78 PRINT"          [194]                   [194]"
  38. 79 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":RETURN
  39. 90 PRINT"":PRINT"[129]              DRUECK SPACE[129]             "
  40. 91 POKE198,0:WAIT198,1:GETE$
  41. 92 IFE$=CHR$(32)THENRETURN
  42. 93 GOTO91
  43. 100 GOSUB10
  44. 101 GOSUB60:S=1:GOSUB13
  45. 102 PRINT"DU REISST DIE TUER AUF UND STUERMST"
  46. 103 PRINT"EINEN GANG HINUNTER,DER INS CAFE FUEHRT"
  47. 104 PRINT"HASTIG RENNST DU NACH DRAUSSEN,ZWEI   "
  48. 105 PRINT"MAENNER AUS DEM CAFE STUERZEN DIR NACH"
  49. 106 PRINT"UND SCHREIEN ETWAS AUF ARABISCH.DU    "
  50. 107 PRINT"BAHNST DIR DEINEN WEG DURCH DIE MENGE "
  51. 108 PRINT"UND LAEUFST GEBUECKT WEITER.WOHIN     "
  52. 109 PRINT"SOLLST DU DICH WENDEN ? RECHTS VON DIR"
  53. 110 PRINT"ENTDECKST DU EINE OFFENE TUER MIT     "
  54. 111 PRINT"EINEM KLEINEN INNENHOF DAHINTER.DU    "
  55. 112 PRINT"BESCHLIESST,ES DARAUF ANKOMMEN ZU     "
  56. 113 PRINT"LASSEN,FLITZT DURCH DIE TUER UND      "
  57. 114 PRINT"SCHLAEGST SIE HINTER DIR ZU."
  58. 115 PRINT"ATEMLOS LEHNST DU DICH GEGEN DIE TUER"
  59. 116 PRINT"UND SCHNAPPST NACH LUFT.":GOSUB20
  60. 117 IFZ=0THENGOSUB60:GOTO101
  61. 118 GOSUB60:S=2:GOSUB13
  62. 119 PRINT"PLOETZLICH TRITT EIN RIESE VON EINEM"
  63. 120 PRINT"MANN AUF DICH ZU.ER HAT EINEN DICHTEN"
  64. 121 PRINT"DUNKLEN BART UND STECHENDE AUGEN.[129]"
  65. 122 PRINTCHR$(34)"WILLKOMMEN IN MEINEM HAUS"CHR$(34)",BEGRUESST"
  66. 123 PRINT"ER DICH.[129]"CHR$(34)"BIST DU GEKOMMEN,UM EINEN"
  67. 124 PRINT"ZAUBER ZU KAUFEN ODER VIELLEICHT ETWAS"
  68. 125 PRINT"DASS DICH VOR DEM BOESEN BLICK SCHUETZT"CHR$(34):PRINT"[145]"CHR$(34)"ICH BRAUCHE";
  69. 126 PRINT" HILFE"CHR$(34)" SAGST DU "CHR$(34)"ICH WERDE VERFOLGT!"CHR$(34)
  70. 127 PRINT"[129]"CHR$(34)"IN DIESEM FALL NIMM MIT MEINEM"
  71. 128 PRINT"BESCHEIDENEN HAUS VORLIEB.DU BIST HIER"
  72. 129 PRINT"SICHER.ICH BIN AL-DIN,DER ZAUBERER.   "
  73. 130 PRINT"MEINE MAGIE WIRD DICH SCHUETZEN."CHR$(34):GOSUB20
  74. 131 IFZ=0THENGOSUB60:GOTO101
  75. 132 GOSUB60:S=3:GOSUB13
  76. 133 PRINT"DU FOLGST AL-DIN EINE TREPPE HINAUF IN"
  77. 134 PRINT"EINEN RAUM MIT EINEM NIEDRIGEN TISCH,"
  78. 135 PRINT"UM DEN RUNDE KISSEN GRUPPIERT SIND.ER"
  79. 136 PRINT"SERVIERT DIR TEE UND ERZAEHLT VON DER"
  80. 137 PRINT"URALTEN MAGIE,DIE ER AUSUEBT.[129]"
  81. 138 PRINTCHR$(34)"ALLES IST ILLUSION.HIER,ICH WERDE"
  82. 139 PRINT"ES DIR BEWEISEN.SCHLIESS DIE AUGEN";
  83. 140 PRINT" UND  SAGE DREIMAL DIESE MAGISCHE FORMEL:"CHR$(34):PRINT:FORI=1TO3000:NEXT
  84. 141 FORI=1TO3
  85. 142 PRINT"         [156]ABAH ARAH ARAH ABAH AH"
  86. 143 FORJ=1TO500:NEXT:NEXT:GOSUB20
  87. 144 IFZ=0THENGOSUB60:GOTO118
  88. 145 GOSUB60:S=4:GOSUB13
  89. 146 PRINT"DU WIEDERHOLST DEN ZAUBERSPRUCH UND"
  90. 147 PRINT"PLOETZLICH DREHT SICH DAS ZIMMER.AL- "
  91. 148 PRINT"DIN IST VERSCHWUNDEN.DU SCHEINST IN  "
  92. 149 PRINT"EINEM NICHTS ZU TREIBEN. SCHLAEFST DU"
  93. 150 PRINT"ODER TRAEUMST DU ?"
  94. 151 PRINT"DU ERWACHST ZU HAUSE IN DEINEM ZIMMER."
  95. 152 PRINT"DAS TELEFON KLINGELT;ES IST DEIN ONKEL[129]"
  96. 153 PRINT""CHR$(34)"ICH BIN GERADE AUS AEGYPTEN ZURUECK"CHR$(34)
  97. 154 PRINT"SAGT ER[129]: "CHR$(34)"ICH BRAUCHE EIN PAAR"
  98. 155 PRINT"NEUE GERAETE,UM MEINE UNTERSUCHUNGEN"
  99. 156 PRINT"AN DEN PYRAMIDEN FORTZUSETZEN.WIE"
  100. 157 PRINT"WAER'S,HAETTEST DU LUST,MICH FUER EIN"
  101. 158 PRINT"PAAR WOCHEN ZU BEGLEITEN?"CHR$(34):GOSUB20
  102. 159 IFZ=0THENGOSUB60:GOTO132
  103. 160 GOSUB60:S=5:GOSUB13
  104. 161 PRINT"DAS IST WIRKLICH SELTSAM.HAST DU ALLES,"
  105. 162 PRINT"WAS PASSIERT IST,NUR GETRAEUMT,ODER   "
  106. 163 PRINT"HAT DICH JENER ZAUBERER WIRKLICH WIE-"
  107. 164 PRINT"DER HIERHER ZURUECKGESCHICKT,UM NOCH "
  108. 165 PRINT"EINMAL VON VORN ANZUFANGEN?"
  109. 166 PRINT"DU MUSST DICH NUN ENTSCHEIDEN !":GOSUB90:GOTO30
  110.