home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1893.d64 / 246 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  2KB  |  53 lines
  1. 1 POKE50050,2:POKE50051,4:POKE50052,6
  2. 2 PRINT"[147][159][212]ATSAECHLICH BEISST [204]OTTE AN.[207]B AUS     "
  3. 3 PRINT"[213]EBERZEUGUNG ODER NUR, UM [196]ICH ZU       "
  4. 4 PRINT"AERGERN, KANNST [196]U NICHT SAGEN.[211]IE      "
  5. 5 PRINT"BEWUNDERT [200]ARALDS SCHLANKE [198]IGUR, SEINE "
  6. 6 PRINT"[211]PORTLICHKEIT, SEIN [200]OBBY, IN FERNE     "
  7. 7 PRINT"[204]AENDER ZU REISEN.[211]IE MACHT IHM         "
  8. 8 PRINT"[203]OMPLIMENTE WEGEN SEINES GUTEN          "
  9. 9 PRINT"[199]ESCHMACKS.                             "
  10. 10 PRINT"[211]EHR CHIC AUSGESUCHTER [193]NZUG, SAGT SIE. "
  11. 11 PRINT"[211]IE LEGT AUFFAELLIG-UNAUFFAELLIG IHRE   "
  12. 12 PRINT"[200]AND AUF SEINE [194]EINE.                   "
  13. 13 PRINT"            >[215]EITER MIT [212]ASTENDRUCK<"
  14. 14 POKE198,0:WAIT198,1
  15. 15 PRINT"[147][196]AS FUEHRT DAZU, DASS [200]ARALD SEIN [199]LAS  "
  16. 16 PRINT"SCHIEF HAELT UND [199]IN-[198]IZZ UEBERSCHWAPPT."
  17. 17 PRINT"[200]ARALD IST EINIGE [205]INUTEN AUF DER       "
  18. 18 PRINT"[212]OILETTE, UM SEINE [200]OSE ZU TROCKNEN.    "
  19. 19 PRINT"                                        "
  20. 20 PRINT"                                        "
  21. 21 PRINT"                                        "
  22. 22 PRINT"                                        "
  23. 23 PRINT"                                        "
  24. 24 PRINT"                                        "
  25. 25 PRINT"                                        "
  26. 26 PRINT"            >[215]EITER MIT [212]ASTENDRUCK<"
  27. 27 POKE198,0:WAIT198,1
  28. 28 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  29. 29 PRINT"[221][151]     [197]NTSCHEIDUNGSMOEGLICHKEIT  :     [221]";
  30. 30 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  31. 31 PRINT"[221][152]          [211]PIELSITUATION 182          [221]";
  32. 32 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  33. 33 PRINT"1.) [196]U ERKLAERST [204]OTTE : [201]CH FINDE ES   "
  34. 34 PRINT"    UNMOEGLICH, WIE [196]U [196]ICH VERHAELST.  "
  35. 35 PRINT"    [211]CHLIESSLICH BIST [196]U MIT MIR BE-    "
  36. 36 PRINT"    FREUNDET UND NICHT MIT DIESEM [197]KEL. "
  37. 37 PRINT"2.) [196]U VERHAELST [196]ICH VOLLKOMMEN        "
  38. 38 PRINT"    NEUTRAL.                            "
  39. 39 POKE198,0:WAIT198,1:GETA$
  40. 40 IFA$=""THEN46
  41. 41 IFA$="1"THENPOKE50053,2:POKE50054,4:POKE50055,7:GOTO44
  42. 42 IFA$="2"THENPOKE50053,2:POKE50054,5:POKE50055,0:GOTO44
  43. 43 GOTO39
  44. 44 A$="257"
  45. 45 GOTO47
  46. 46 A$="256"
  47. 47 Q=PEEK(50100)
  48. 48 W=Q+50100
  49. 49 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO49
  50. 50 E=PEEK(W):POKEW,E+1
  51. 51 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN"
  52. 52 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  53.