home *** CD-ROM | disk | FTP | other *** search
- 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
-