home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 51 / Mail_Madness_51_2003_Raiders_of_the_Lost_Empire_Side_B.d64 / textpiepnator_ln (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 5 print chr$(147)
  2. 10 poke53281,0
  3. 11 poke53280,0
  4. 15 goto 1000
  5. 16 print chr$(147)
  6. 20 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  7. 30 print" [194]                                    [194]"
  8. 40 print" [194]   text-loesch-nator v0.9beta pre   [194]"
  9. 50 print" [194]                                    [194]"
  10. 60 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  11. 70 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  12. 80 print" [194]bitte geben sie jetzt ihren text ein[194]"
  13. 90 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  14. 95 print
  15. 110 input"eingabe:";a$
  16. 120 input"eingabe:";b$
  17. 130 input"eingabe:";c$
  18. 140 input"eingabe:";d$
  19. 150 input"eingabe:";e$
  20. 160 print
  21. 170 print"danke fuer ihre eingabe!"
  22. 171 print:print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  23. 172 print"[194]                                     [194]"
  24. 173 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  25. 175 for g=1 to 37
  26. 176 hu=rnd(15)
  27. 180 poke (1784+g),24
  28. 181 for h=1 to 25:poke53280,1:poke53280,0:next h
  29. 182 poke 53280,0
  30. 185 next g
  31. 190 print:print"der text wurde erfolgreich geloescht."
  32. 200 goto 200
  33. 1000 print" miekrosohvt presendird text loesch -"
  34. 1002 print" nator v0.9 beta pre! vir pitten "
  35. 1004 print" tarum tises brograhm nischt aernst"
  36. 1006 print" zunemen. wuer volgescheden ueper-"
  37. 1008 print" nemen vir kaine ferandvordung! "
  38. 1010 print" aes kipt auch geine ruekgahbekarantie!"
  39. 1012 print" tesveiteren isst unsehr virmensitz"
  40. 1014 print" inen nischt begannt. $tass ist augh"
  41. 1016 print" kuut so. also vir fissen auch nischt."
  42. 1018 print" hir kippts kain pier teswegen zu "
  43. 1020 print" pleiben... ver mer dummheit fertrahgen"
  44. 1022 print" kan, sol dasde truekken."
  45. 1024 get v$:if v$="" then goto 1024
  46. 1025 goto 16
  47.