home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / disk9.d64 / ab42 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  4KB  |  105 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 DU ZUR PYRAMIDE WILLST,"
  17. 32 PRINT"DANN WAEHLE ZIFFER [158] 1 [146]"
  18. 33 PRINT"WENN DU LIEBER HILFE HOLEN WILLST,"
  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"AB43",8,1
  24. 39 IFE$="2"THENGOSUB70:LOAD"AB44",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""CHR$(34)"ES IST BESSER,ETWAS ZU TUN-EGAL WAS-"
  46. 103 PRINT"ALS HIER ZU SITZEN UND AUF DEN TOD ZU"
  47. 104 PRINT"WARTEN"CHR$(34)" SAGST DU."
  48. 105 PRINT"AHMED KRATZT DEN SAND VON SEINER UHR."
  49. 106 PRINT"[129]"CHR$(34)"ES IST JETZT 13 UHR,ALSO NACH MITTAG."
  50. 107 PRINT"WIR SOLLTEN NACH WESTEN GEHEN,AUF DIE"
  51. 108 PRINT"SONNE ZU.SPAETER KOENNEN WIR IHR FOL-"
  52. 109 PRINT"GEN,WENN SIE UNTERGEHT.MORGEN FRUEH  "
  53. 110 PRINT"WENDEN WIR UNS IN DIE ENTGEGENGESETZTE"
  54. 111 PRINT"RICHTUNG."CHR$(34)
  55. 112 PRINT"IHR MARSCHIERT LOS,ENDLOSE DUENEN"
  56. 113 PRINT"HINAUF UND HINUNTER.DANN SIEHST DU ES."
  57. 114 PRINT"EINE OASE SCHIMMERT IN DER FERNE -    "
  58. 115 PRINT"GLITZERNDE WASSERSTELLE MIT PALMEN.   ":GOSUB20
  59. 116 IFZ=0THENGOSUB60:GOTO101
  60. 117 GOSUB60:S=2:GOSUB13
  61. 118 PRINT"AHMED BLEIBT GANZ RUHIG.ER SPRICHT VON"
  62. 119 PRINT"EINER FATA MORGANA,EINER ILLUSION.    "
  63. 120 PRINT"WENIG SPAETER MUSST DU ERKENNEN,DASS  "
  64. 121 PRINT"AHMED RECHT BEHAELT."
  65. 122 PRINT"EIN PAAR STUNDEN SPAETER BLEIBST DU"
  66. 123 PRINT"STEHEN."
  67. 124 PRINT""CHR$(34)"AHMED,BIN ICH VERRUECKT ODER HOERE"
  68. 125 PRINT"ICH WIRKLICH DONNER IN DER FERNE?GIBT "
  69. 126 PRINT"ES AUCH EINE FATA MORGANA DER GERAEU- "
  70. 127 PRINT"SCHE IN DER WUESTE."CHR$(34)
  71. 128 PRINT"[129]"CHR$(34)"WENN JA,HABE ICH ZUMINDEST NOCH "
  72. 129 PRINT"NIE EINE GEHOERT,"CHR$(34)
  73. 130 PRINT"ERWIDERT AHMED.IHR SUCHT EUCH DIE"
  74. 131 PRINT"HOECHSTE DUENE AUS UND KLETTERT HINAUF."
  75. 132 PRINT"IHR BLICKT IN EIN RIESIGES TAL HINAB.":GOSUB20
  76. 133 IFZ=0THENGOSUB60:GOTO101
  77. 134 GOSUB60:S=3:GOSUB13
  78. 135 PRINT"DER SAND SCHIMMERT HELL,ABER IM TAL "
  79. 136 PRINT"IST ETWAS,DAS NOCH HELLER IST."
  80. 138 PRINT"[129]"CHR$(34)"WAS FUER EIN UNGLAUBLICHER ANBLICK"CHR$(34)
  81. 139 PRINT"SAGT AHMED. IN DER FERNE ERHEBT SICH"
  82. 140 PRINT"EINE PYRAMIDE AUS DEM SAND.SIE IST VON"
  83. 141 PRINT"KLEINEREN PYRAMIDEN UMGEBEN,DEREN OBER-"
  84. 142 PRINT"FLAECHEN IN DER SONNE GLAENZEN WIE    "
  85. 143 PRINT"POLIERTES GOLD.KUENSTLICHE BLITZE     "
  86. 144 PRINT"SPRINGEN VON DER SPITZE DER GROSSEN   "
  87. 145 PRINT"PYRAMIDE AUF DIE DER KLEINEREN UEBER  "
  88. 146 PRINT"UND VERURSACHEN DABEI DONNERNDE       "
  89. 147 PRINT"GERAEUSCHE,DIE UEBER DIE WUESTE HALLEN"
  90. 148 PRINT"[129]"CHR$(34)"DAS IST UNGLAUBLICH!"CHR$(34)" RUFT AHMED.":GOSUB20
  91. 149 IFZ=0THENGOSUB60:GOTO117
  92. 150 GOSUB60:S=4:GOSUB13
  93. 151 PRINT"[129]"CHR$(34)"ICH HABE GESCHICHTEN UEBER EINE"
  94. 152 PRINT"SELTSAME ERFINDUNG GEHOERT,DIE DIE   "
  95. 153 PRINT"SONNENENERGIE AUF EIN FAST UNVORSTELL-"
  96. 154 PRINT"BARES MASS KONZENTRIEREN KANN.ICH VER-"
  97. 155 PRINT"MUTE,SO ETWAS HABEN WIR VOR UNS."CHR$(34)
  98. 156 PRINT""CHR$(34)"DAS SIND SICHER ONKEL BRUCES "
  99. 157 PRINT"EXPERIMENTE.VIELLEICHT HALTEN SIE IHN"
  100. 158 PRINT"DORT UNTEN GEFANGEN?"CHR$(34)" MEINST DU."
  101. 159 PRINT"[129]"CHR$(34)"DIE SACHE GEFAELLT MIR  NICHT,"CHR$(34)
  102. 160 PRINT"MEINT AHMED,[129]"CHR$(34)"ICH GLAUBE,ES WAERE"
  103. 161 PRINT"BESSER,WENN WIR LIEBER HILFE HOLEN."CHR$(34)
  104. 162 PRINT"DU MUSST DICH NUN ENTSCHEIDEN !":GOSUB90:GOTO30
  105.