SHARE
TWEET

Commodore 64 smooth y scroller in BASIC

Shaun_B May 20th, 2018 315 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 def fn y(p)=(peek(53265)and 240)or p
  2. 1 print chr$(147)
  3. 2 let m=7
  4. 3 let d=-1
  5. 4 poke 53280,peek(53281)
  6. 5 poke 53265,fn y(m)
  7. 6 poke 56334,peek(56334)and 254
  8. 7 let a$="EDCFRFCDEDCFRFCDEDCFRFCDEDCFRFCDEDCFRFCD"
  9. 8 wait 53265,128,80:print chr$(19); chr$(17); a$
  10. 9 let a$=right$(a$, 39)+left$(a$, 1)
  11. 10 wait 53265,128,80:poke 53265,fn y(m)
  12. 11 let m=m+d
  13. 12 if m=0 or m=7 then let d=-d
  14. 13 go to 8
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top