home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1893.d64 / 199 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  2KB  |  48 lines
  1. 1 POKE50050,1:POKE50051,9:POKE50052,9
  2. 2 PRINT"[147][159][215]IEDER IST ES WIE BEIM ERSTENMAL.[211]IE    "
  3. 3 PRINT"LIEGT ANDAECHTIG IN [196]EINEM [193]RM, [196]U      "
  4. 4 PRINT"STREICHELST SANFT IHR [200]AAR UND IHRE     "
  5. 5 PRINT"[193]UGENBRAUEN UND KUESST SOGAR ZAERTLICH  "
  6. 6 PRINT"IHR [207]HR.[196]U SIEHST, WIE SICH IHR [194]USEN   "
  7. 7 PRINT"UNTER DEM BLAUEN [193]NGORA-[208]ULLOVER HEBT   "
  8. 8 PRINT"UND SENKT.[193]LS [196]U ALLERDINGS [196]EINE [200]AND  "
  9. 9 PRINT"BERUHIGEND UNTER DIE WEICHE [215]OLLE       "
  10. 10 PRINT"SCHIEBEN WILLST, WEHRT SIE [196]ICH BRUESK  "
  11. 11 PRINT"AB.[193]UCH BEIM ZWEITEN UND DRITTEN [214]ERSUCH"
  12. 12 PRINT"GEHT ES [196]IR SO.[204]OTTE SETZT SICH STATT   "
  13. 13 PRINT"            >[215]EITER MIT [212]ASTENDRUCK<"
  14. 14 POKE198,0:WAIT198,1
  15. 15 PRINT"[147]DESSEN AUF EINEN [211]TUHL [196]IR GEGENUEBER   "
  16. 16 PRINT"UND FRAGT [196]ICH, OB [196]U AUCH MIT [211]TAHL-   "
  17. 17 PRINT"BETON ZU TUN HAETTEST.                  "
  18. 18 PRINT"[196]U DENKST, SIE WIRD SICH SCHON ERWEICHEN"
  19. 19 PRINT"LASSEN, UND LAEDST SIE ZWEI [212]AGE SPAETER"
  20. 20 PRINT"WIEDER ZU [196]IR EIN.                      "
  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 175          [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"  [196]U HAST KEINE [197]NTSCHEIDUNGS-          "
  34. 34 PRINT"  MOEGLICHKEIT.[214]ON HIER AUS GIBT'S NUR  "
  35. 35 PRINT"  EINE MOEGLICHE [198]ORTSETZUNG !          "
  36. 36 PRINT"               >[215]EITER MIT [212]ASTENDRUCK<"
  37. 37 POKE198,0:WAIT198,1:GETA$
  38. 38 IFA$=""THEN41
  39. 39 A$="257":POKE50053,2:POKE50054,0:POKE50055,0
  40. 40 GOTO42
  41. 41 A$="256"
  42. 42 Q=PEEK(50100)
  43. 43 W=Q+50100
  44. 44 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO44
  45. 45 E=PEEK(W):POKEW,E+1
  46. 46 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN"
  47. 47 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  48.