home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-01_1990_-_de_Side_A.d64 / spr-kollision (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  595b  |  24 lines
  1. 5 printchr$(14)
  2. 10 print"[147][196]ieses [208]rogramm demonstriert die [203]olli-"
  3. 20 print"sionsregister des [214][201][195]."
  4. 30 print"[193]chten [211]ie auf die beiden [203]ollonnen, die";
  5. 40 print"gleich auf dem [194]ildschirm erscheinen"
  6. 50 print"werden. [196]ie linke [203]olonne gibt den mo-"
  7. 60 print"mentanen [218]ustand von [210]egister 30, die"
  8. 70 print"rechte den von [210]egister 31 an."
  9. 80 print"[194]itte eine [212]aste druecken."
  10. 90 geta$:ifa$=""then90
  11. 110 fori=832to894:pokei,255:next
  12. 120 v=53248
  13. 122 poke2040,13:poke2041,13
  14. 130 pokev+0,0:pokev+1,100
  15. 140 pokev+2,255:pokev+3,100
  16. 141 pokev+39,1:pokev+40,0
  17. 142 pokev+21,3
  18. 150 fori=0to255
  19. 160 pokev,i:pokev+2,255-i
  20. 170 printpeek(v+30),peek(v+31)
  21. 180 pokev+30,0:pokev+31,0
  22. 190 next
  23. 200 pokev+21,0
  24.