home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-11_2002_CSW_Side_A.d64 / y-x-scroll (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  255b  |  11 lines
  1. 1 poke198,0:wait198,1:poke198,0
  2. 2 ay=53265:gy=peek(ay):forq=0to5
  3. 3 fori=0to7:pokeay,peek(ay)ori::nexti
  4. 4 fori=7to0step-1:pokeay,peek(ay)and255-i::nexti
  5. 5 nextq:pokeay,gy
  6. 6 wait198,1:poke198,0
  7. 7 ax=53270:gx=peek(ax):forq=0to5
  8. 8 fori=0to7:pokeax,peek(ax)ori::nexti
  9. 9 fori=7to0step-1:pokeax,peek(ax)and255-i::nexti
  10. 10 nextq:pokeax,gx
  11.