home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / disk9.d64 / ab32 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  3KB  |  72 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 MIT TELEFONIEREN WILLST,"
  17. 32 PRINT"DANN WAEHLE ZIFFER [158] 1 [146]"
  18. 33 PRINT"WENN DU LIEBER ZUM AUTO 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"AB35",8,1
  24. 39 IFE$="2"THENGOSUB70:LOAD"AB36",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)"LIEBER NICHT.ICH HABE GENUG DAVON,"
  46. 103 PRINT"IN ENGEN GAENGEN HERUMZULAUFEN."CHR$(34)
  47. 104 PRINT"[129]"CHR$(34)"WIE DU MEINST,"CHR$(34)" ERWIDERT MOHAMMED."
  48. 105 PRINT"[129]"CHR$(34)"VIELLEICHT KANN ICH DIR DANN KAIRO"
  49. 106 PRINT"ZEIGEN."CHR$(34)
  50. 107 PRINT"DU BIST EINVERSTANDEN.NACHDEM IHR"
  51. 108 PRINT"MEHRERE STUNDEN DURCH DIE STADT GE-"
  52. 109 PRINT"LAUFEN SEID,BIST DU SEHR MUEDE.MOHAMMED"
  53. 110 PRINT"FUEHRT DICH ZU EINEM CAFE AN EINEM DER"
  54. 111 PRINT"BREITEN BOULEVARDS IM MODERNEN TEIL  "
  55. 112 PRINT"KAIROS,WO DU SITZEN UND DIE LEUTE    "
  56. 113 PRINT"BEOBACHTEN KANNST.IHR SITZT SCHON EINE"
  57. 114 PRINT"GANZE WEILE DA,ALS DU BEMERKST,DASS   "
  58. 115 PRINT"MOHAMMED UNRUHIG WIRD.":GOSUB20
  59. 116 IFZ=0THENGOSUB60:GOTO101
  60. 117 GOSUB60:S=2:GOSUB13
  61. 118 PRINT""CHR$(34)"STIMMT ETWAS NICHT?"CHR$(34)" FRAGST DU."
  62. 119 PRINT"[129]"CHR$(34)"BEWEG DICH NICHT UND SCHAU DICH NICHT"
  63. 120 PRINT"UM.EIN PAAR MAENNER,DIE ICH FUER TER-"
  64. 121 PRINT"RORISTEN HALTE,HABEN UNS EINGEKREIST."
  65. 122 PRINT"ICH HABE KEINE AHNUNG,WIE SIE UNS GE-"
  66. 123 PRINT"FUNDEN HABEN.ICH KANN VERSUCHEN,EIN  "
  67. 124 PRINT"TELEFON ZU ERREICHEN ODER WIR KOENNEN"
  68. 125 PRINT"ZUM WAGEN LAUFEN.DA UNSERE CHANCE UNGE-"
  69. 126 PRINT"FAEHR GLEICH SIND,UEBERLASSE ICH DIR "
  70. 127 PRINT"DIE ENTSCHEIDUNG."CHR$(34)
  71. 128 PRINT"DU MUSST DICH NUN ENTSCHEIDEN !":GOSUB90:GOTO30
  72.