home *** CD-ROM | disk | FTP | other *** search
- 0 background=1
- 5 poke55,255:poke56,31
- 6 dim p(7):for i=0to7:p(i)=2^(7-i):next
- 10 v=53248:poke v+32,0:pokev+33,0
- 30 poke v+24,peek(v+24)or8
- 40 poke v+17,peek(v+17)or32
- 50 for i=1024 to 2024:poke i,ba:next
- 60 for i=8192 to 8192+8*1024:pokei,0:next
- 100 x=79:y=49:dx=int(rnd(1)*3-1):dy=int(rnd(1)*3-1):if dx=0and dy=0 then 100
- 105 y1=y:x1=x:gosub1000:x1=319-x:gosub1000:y1=199-y:gosub1000:x1=x:gosub1000
- 107 y1=y*2:x1=x*2:gosub 1000:y1=199-y1:x1=319-x1:gosub 1000
- 110 x=x+dx:y=y+dy:ifx<0orx>159thendx=-dx:goto110
- 115 ify<0ory>99thendy=-dy:goto110
- 120 ifrnd(1)>.9thendx=int(rnd(1)*3-1)
- 130 ifrnd(1)>.9thendy=int(rnd(1)*3-1)
- 135 ifdx<>0ordy<>0then105
- 140 dx=int(rnd(1)*3-1):dy=int(rnd(1)*3-1):ifdx=0anddy=0then140
- 145 goto105
- 1000 ya=int(y1/8):yb=y1-ya*8:xa=int(x1/8):xb=x1-xa*8
- 1005 p=8*1024+ya*320+xa*8+yb:xc=p(xb)
- 1010 pokep,peek(p)orxc:return
-