home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 110 / Tiger_Disk_110_20xx_Tiger-Crew-Disk_de_Side_B.d64 / gedanken-scanner (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 1 poke53280,.:poke53281,.
  2. 2 print"[147][158]            gedanken-scanner"
  3. 3 print"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 4 print"[155]konzentriere dich stark auf eine[155] der"
  5. 5 print"unteren karten und merke dir diese. hast";
  6. 6 print"du dir eine karte gemerkt, dann druecke"
  7. 7 print"'return'."
  8. 8 print"        [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201]"
  9. 9 print"        [194][150]k[155][194] [194][151]j[155][194] [194][151]k[155][194] [194][150]d[155][194] [194][151]d[155][194] [194][150]j[155][194]"
  10. 10 print"        [194][150][211][155][194] [194][151][216][155][194] [194][151][193][155][194] [194][150][218][155][194] [194][151][216][155][194] [194][150][218][155][194]"
  11. 11 print"        [202][195][203][160][202][195][203][160][202][195][203][160][202][195][203] [202][195][203] [202][195][203]"
  12. 12 gett$:ift$=""then12
  13. 13 ift$<>chr$(13)then12
  14. 14 print"[147][158]            gedanken-scanner"
  15. 15 print"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 16 print"[155]jetzt sprich bitte leise den namen der"
  17. 17 print"karte. lass diesen teil nicht aus! er"
  18. 18 print"ist sehr wichtig! wenn du es getan hast,";
  19. 19 print"dann druecke 'return'."
  20. 20 gett$:ift$=""then20
  21. 21 ift$<>chr$(13)then21
  22. 22 print"[147][158]            gedanken-scanner"
  23. 23 print"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  24. 24 print"[155]es wurde jetzt eine karte aus der reihe"
  25. 25 print"entfernt. und, war es deine karte?"
  26. 26 print"          [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201]"
  27. 27 print"          [194][150]d[155][194] [194][151]k[155][194] [194][150]j[155][194] [194][151]d[155][194] [194][150]k[155][194]"
  28. 28 print"          [194][150][211][155][194] [194][151][216][155][194] [194][150][211][155][194] [194][151][193][155][194] [194][150][218][155][194]"
  29. 29 print"          [202][195][203][160][202][195][203][160][202][195][203][160][202][195][203] [202][195][203]"
  30. 30 gett$:ift$=""then30
  31. 31 print"[147]":end
  32. 32 :
  33. 33 : email
  34. 34 : matthe5@gmx.de
  35.