home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 15 / Commodore_Disc_15_19xx_-_de.d64 / agent (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  26 lines
  1. 100 print"[147][144]":v=53248:pokev+33,0:pokev+     32,0:x=0
  2. 120 print"[147][154][213][201][157][157][202][203][215].[157][157][157].[145][145]       ein adventure-spass:"
  3. 130 print"[158]     [213][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][201]"
  4. 140 print"[129]     [221] [146]     [146]     [146]   [146]     [187][162][162][162][162][162][162][162][146][188] [221]"
  5. 150 print"     [221] [146]   [146]  [146]   [146]   [146]     [146]  [146][187]         [221]"
  6. 160 print"[154]     [221] [146]   [146]  [146]   [146]   [146]  [146]      [146]         [221]"
  7. 170 print"     [221] [146]   [146]  [146]   [146]   [146]     [146]   [146]         [221]"
  8. 180 print"[153]     [221] [146]     [146]      [146]  [146]     [146][161]         [221]"
  9. 190 print"     [202][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][203]"
  10. 200 ifx=0thenprint"[152]"spc(11)"spielerklaerung (s)"spc(26)"laden (l)[145][145][145][145][145]"
  11. 210 print"[154]          [213][192][201][157][157][157][221]c[221][157][157][157][202][192][203][145] by r. baier"
  12. 220 ifx=1thenprint""spc(15)"bitte warten"
  13. 230 ifx=1thenprint"[144]load"chr$(34)"0013"chr$(34)",8:[145][145]";
  14. 240 ifx=1thenpoke631,131:poke198,1:end
  15. 250 getk$:ifk$<>"l"andk$<>"s"then250
  16. 260 ifk$="l"thenx=1:goto120
  17. 300 print"[147]  kurz und buendig:"
  18. 310 print"[154]  sie haben es geschafft, 0013, unent-  "
  19. 320 print"  deckt auf dr. yes' insel zu gelangen  "
  20. 330 print"  und in seine festung einzudringen.    "
  21. 340 print"  suchen sie nun die plaene fuer seine  "
  22. 350 print"  welt-sabotage-maschine. good luck!  "
  23. 360 print""spc(16)"[152]laden (l)"
  24. 370 getk$:ifk$<>"l"then370
  25. 380 x=1:goto120
  26.