10 mv=7680:mc=38400 20 if peek(648)=16 then mv=4096:mc=37888 25 print"[cuore in reverse]"; 40 fork=0to505:poke(mv+k),160:next k 45 z=mc+253:l=0 50 fori=0to9 55 forj=0tol 63 k=(15*rnd(0))+1 65 poke(z+j),k 67 poke(z-j-1),k 70 poke(z+22-21*i+22*j),k 75 poke(z-21*i-22*j),k 80 poke(z-23*i+21+22*j),k 85 poke(z-23*i-1-22*j),k 90 poke(z-44*i+21-j),k 95 poke(z-44*i+22+j),k 100 next j 105 l=l+1:z=z+22 110 next i 120 goto 45