home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-10_1988_-_de_Side_B.d64 / stix (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  357b  |  5 lines
  1. 1 ifpeek(828)<>123thenpoke828,123:load"stix.obj",8,1
  2. 2 xa=49590:xc=49604
  3. 3 pokexa-1,190*rnd(0)+10:x=280*rnd(0)+20:y=160*rnd(0)+20:pokexa,xand255:pokexa+1,x/256:pokexa+2,y:pokexc,xand255:pokexc+1,x/256:pokexc+2,y:x=280*rnd(0)+20:y=160*rnd(0)+20:pokexa+3,xand255:pokexa+4,x/256:pokexa+5,y:pokexc+3,xand255:pokexc+4,x/256:pokexc+5,y
  4. 4 fort=6to9:w=rnd(0)+.5:pokexa+t,w:pokexc+t,w:next:fort=10to13:w=8*rnd(0)+1:pokexa+t,w:pokexc+t,w:next:sys49152:goto3
  5.