home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / text-einblendung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  45 lines
  1. 10 sys57812("sprites*"),8,1:poke780,0:sys65493:rem sprites einladen
  2. 11 print"[147]"chr$(14):rem clr & kleinschrift an
  3. 12 poke53281,15:poke53280,11:poke646,0:rem farben setzen
  4. 13 rem
  5. 14 poke2040,226:poke2041,227:poke53276,3:rem sprites installieren
  6. 15 poke53285,1:poke53286,12:rem multi-color-farben
  7. 16 poke53287,11:poke53288,11:rem spritefarben
  8. 17 poke53248,28:poke53249,226:rem position sprite 1
  9. 18 poke53250,58:poke53251,226:poke53264,2:rem position sprite 2
  10. 19 poke53269,3:rem sprites an
  11. 20 rem
  12. 21 rem scroll - texte  (je 32 zeichen)
  13. 22 rem
  14. 23 s$(1)="[196]ies ist die [196]emonstration eines"
  15. 24 s$(2)="beliebten [212]ext-[197]inblend-[197]ffektes"
  16. 25 s$(3)=" wie er auch in der [208][213][194][204][201][195][193][212][201][207][206] "
  17. 26 s$(4)="        verwendet wird !        "
  18. 27 s$(5)=" [214]iel [211]pass mit diesem [197]ffekt ! "
  19. 28 rem
  20. 29 rem farben
  21. 30 rem
  22. 31 f(1)=6:f(2)=4:f(3)=14:f(4)=1:f(5)=15:f(6)=12:f(7)=11:f(8)=0
  23. 32 rem
  24. 33 rem diese werte werden z.b. im demo
  25. 34 rem basic delirium verwendet !
  26. 35 rem
  27. 36 f=1:s=1:rem farb- und scrollwert = 1
  28. 37 poke646,f(f)
  29. 38 poke211,4:poke214,23:sys58732:rem positionierung
  30. 39 prints$(s):rem textausgabe
  31. 40 f=f+1:iff=9thens=s+1:f=1
  32. 41 ifs=6thens=1
  33. 42 forx=1to50:next:rem warteschleife
  34. 43 goto37
  35. 100 rem
  36. 101 rem *******************************
  37. 102 rem *                             *
  38. 103 rem *     text - einblendung      *
  39. 104 rem *    --------------------     *
  40. 105 rem *                             *
  41. 106 rem * aus dem publication-magsys! *
  42. 107 rem *                             *
  43. 108 rem *******************************
  44. 109 rem
  45.