home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / strich-cursor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  183 b   |  2 lines
  1. 1 w=56333:q=53248:z=4^5:pokeq+24,52:poke56576,0:poke648,204:pokew,1:poke1,3:fori=0to999:poke52224+i,peek(z+i):next:fori=0toz:a=q+i:b=a+2*z:l=z*((iand7)=7):pokea,peek(a):pokeb,peek(b):pokea+z,peek(a-l):pokeb+z,peek(b-l):next:poke1,7:pokew,129
  2.