home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / disk9.d64 / ab10 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  2KB  |  53 lines
  1. 1 REM  POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 2 REM 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. 70 PRINT"[147][155]"
  9. 71 PRINT"          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  10. 72 PRINT"          [194]                   [194]"
  11. 73 PRINT"          [194] [154]DAS GEHEIMNIS DER[155] [194]"
  12. 74 PRINT"          [194]     [154]PYRAMIDE.[155]     [194]"
  13. 75 PRINT"          [194][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][194]"
  14. 76 PRINT"          [194]                   [194]"
  15. 77 PRINT"          [194]   [158]BITTE WARTEN ![155]  [194]"
  16. 78 PRINT"          [194]                   [194]"
  17. 79 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":RETURN
  18. 90 PRINT"":PRINT"[129]              DRUECK SPACE[129]             "
  19. 91 POKE198,0:WAIT198,1:GETE$
  20. 92 IFE$=CHR$(32)THENRETURN
  21. 93 GOTO91
  22. 100 GOSUB10
  23. 101 GOSUB60:S=1:GOSUB13
  24. 102 PRINT""CHR$(34)"ICH WUERDE WIRKLICH GERNE MITKOMMEN"CHR$(34)
  25. 103 PRINT"SAGST DU,"CHR$(34)"ABER ICH MUSS IM AUGENBLICK"
  26. 104 PRINT"EINE MENGE FUER DIE SCHULE TUN,UND"
  27. 105 PRINT"ICH HABE SCHON FUER ENDE DES MONATS"
  28. 106 PRINT"KARTEN FUERS THEATER.VIELEN DANK   "
  29. 107 PRINT"FUER DAS ANGEBOT - UND GUTE REISE."CHR$(34):PRINT""
  30. 108 PRINT"DEINE ENTSCHULDIGUNG KLINGT ETWAS  "
  31. 109 PRINT"DUENN.DU HAST GERADE EIN SCHRECKLI-"
  32. 110 PRINT"CHES ERLEBNIS HINTER DIR.SELBST WENN"
  33. 111 PRINT"ES NUR EIN TRAUM WAHR - NOCH EINMAL "
  34. 112 PRINT"WILLST DU DAS ALLES NICHT MEHR      "
  35. 113 PRINT"ERLEBEN.":GOSUB90
  36. 880 FORI=1TO8:PRINT"[147]"
  37. 881 PRINTTAB(12)"           "
  38. 882 PRINTTAB(12)"      "
  39. 883 PRINTTAB(12)"[158]          "
  40. 884 PRINTTAB(12)"[154]      "
  41. 885 PRINTTAB(12)"          "
  42. 886 NEXT
  43. 887 PRINT""
  44. 888 PRINT"   LEIDER HAST DU DIESES ABENTEUER"
  45. 889 PRINT"   NICHT LOESEN KOENNEN."
  46. 890 PRINT"   VERSUCH ES NOCHMALS !!"
  47. 891 PRINT""
  48. 892 PRINT"[129]ABENTEUER BEENDEN F 1[129]   NEUER START F 7"
  49. 900 POKE198,0:WAIT198,1:GETE$
  50. 901 IFE$=CHR$(133)THENSYS64738
  51. 902 IFE$=CHR$(136)THENGOSUB70:LOAD"AB1",8,1
  52. 903 GOTO900
  53.