home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1893.d64 / 225 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  1KB  |  40 lines
  1. 1 POKE50050,2:POKE50051,2:POKE50052,5
  2. 2 PRINT"[147][159][196]ER [208]OLIZIST HAELT [196]EINE [199]ESCHICHTE FUER"
  3. 3 PRINT"SO UNGLAUBWUERDIG, DASS ER EUCH BEIDE   "
  4. 4 PRINT"ZUR [215]ACHE MITNIMMT.[196]U BESCHWERST [196]ICH   "
  5. 5 PRINT"UEBER DIESE [193]MTSWILLKUER UND DROHST MIT "
  6. 6 PRINT"[196]EINEN [194]EZIEHUNGEN ZUR [204]OKALPRESSE.     "
  7. 7 PRINT"                                        "
  8. 8 PRINT"                                        "
  9. 9 PRINT"                                        "
  10. 10 PRINT"                                        "
  11. 11 PRINT"                                        "
  12. 12 PRINT"                                        "
  13. 13 PRINT"            >[215]EITER MIT [212]ASTENDRUCK<"
  14. 14 POKE198,0:WAIT198,1
  15. 15 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]";
  16. 16 PRINT"[221][151]     [197]NTSCHEIDUNGSMOEGLICHKEIT  :     [221]";
  17. 17 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]";
  18. 18 PRINT"[221][152]          [211]PIELSITUATION 192          [221]";
  19. 19 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]"
  20. 20 PRINT"  [196]U HAST KEINE [197]NTSCHEIDUNGS-          "
  21. 21 PRINT"  MOEGLICHKEIT.[196]A [196]U UEBER [194]EZIEHUNGEN  "
  22. 22 PRINT"  ZUR [204]OKALPRESSE ";
  23. 23 IFPEEK(50304)=0THENPRINT"NICHT ";
  24. 24 PRINT"VERFUEGST,"
  25. 25 PRINT"  IST [196]EIN WEITERER [215]EG VORHERBESTIMMT. "
  26. 26 PRINT"               >[215]EITER MIT [212]ASTENDRUCK<"
  27. 27 POKE198,0:WAIT198,1:GETA$
  28. 28 IFA$=""THEN33
  29. 29 IFPEEK(50304)=1THENPOKE50053,2:POKE50054,2:POKE50055,7:GOTO31
  30. 30 POKE50053,2:POKE50054,2:POKE50055,6
  31. 31 A$="257"
  32. 32 GOTO34
  33. 33 A$="256"
  34. 34 Q=PEEK(50100)
  35. 35 W=Q+50100
  36. 36 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO36
  37. 37 E=PEEK(W):POKEW,E+1
  38. 38 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN"
  39. 39 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  40.