home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis12.d64 / se73 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  1KB  |  48 lines
  1. 1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 10 GOTO100
  3. 50 POKE198,0:WAIT198,1:GETE$
  4. 51 IFE$="1"THENSYS64738
  5. 52 IFE$="2"THENGOSUB55:GOSUB60:LOAD"SE1",8
  6. 54 GOTO50
  7. 55 PRINT"[129]"
  8. 56 PRINT" ACHTUNG ! DISKETTE WECHSELN..."
  9. 57 PRINT" DRUECK SPACE":GOSUB90:RETURN
  10. 60 PRINT"[147]"
  11. 61 PRINTTAB(13)"BITTE WARTEN":RETURN
  12. 70 PRINT""
  13. 71 PRINT"WEITER F 1       ZUM ANFANG ZURUECK F 7"
  14. 75 POKE198,0:WAIT198,1:GETE$
  15. 76 IFE$=CHR$(133)THENRETURN
  16. 77 IFE$=CHR$(136)THEN100
  17. 78 GOTO75
  18. 90 POKE198,0:WAIT198,1:GETE$
  19. 91 IFE$=CHR$(32)THENRETURN
  20. 92 GOTO90
  21. 100 PRINT"[147][158]":POKE53280,0:POKE53281,0
  22. 101 PRINT"BILD-NUMMER   73"
  23. 102 PRINT" DIE BESEITIGUNG EINER GEGENSTAENDE,VON"
  24. 103 PRINT" DER MOLOTAWA GESPROCHEN HAT,BEDEUTET  "
  25. 104 PRINT" EINEN BANKUEBERFALL.DAS GEFALTETE     "
  26. 105 PRINT" BLATT PAPIER ZEIGT EINEN ABWASSERKANAL"
  27. 106 PRINT" DEN MAN BENUTZEN KANN,UM SICH ZUGANG  "
  28. 107 PRINT" ZU DEN TRESORRAEUMEN DER BANQUE DE   "
  29. 108 PRINT" FRANCE ZU VERSCHAFFEN.":PRINT
  30. 109 PRINT" MOLOTAWA GRINST UND KLOPFT DIR AUF DIE"
  31. 110 PRINT" SCHULTER.":PRINT
  32. 111 PRINT" [129]"CHR$(34)"GENAU,WIE ICH ES MIR GEDACHT HABE."
  33. 112 PRINT" IM GRUNDE DEINES HERZENS BIST DU EIN"
  34. 113 PRINT" GAUNER.WIR WERDEN UNS GUT VERSTEHEN."CHR$(34):PRINT""
  35. 114 PRINT" DU BIST DA ALLERDINGS ANDERER ANSICHT.":GOSUB70
  36. 400 FORI=1TO20
  37. 500 PRINT"[147]"
  38. 501 PRINTTAB(10)"           "
  39. 502 PRINTTAB(10)"      "
  40. 503 PRINTTAB(10)"          "
  41. 504 PRINTTAB(10)"[158]      "
  42. 505 PRINTTAB(10)"[156]          "
  43. 506 NEXT
  44. 510 PRINT" WILLST DU AUFGEBEN,"
  45. 511 PRINT" DANN DRUECK TASTE [158] 1 [146]"
  46. 512 PRINT" WILLST DU NOCHMALS VON VORN BEGINNEN,"
  47. 513 PRINT" DANN DRUECK TASTE [158] 2 [146]":GOTO50
  48.