Listato per il basic del Commodore Vic 20 che stampa a l'effetto di un caleidoscopio.
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
Torna indietro
