Giornata storta...

Scialve a tutti!
Io e TATA abbiamo un po' di influenza!
Cosa c'è di più meglio di passare il fine settimana col mal di gola e l'influenza? Un sacco di cose ed a rincarare la dose c'è anche il mitico post del BCO-blog! Senza ulteriori indugi andiamo quindi ad elencare le novità della settimana. Ed è presto fatto, visto che non ce ne sono! XD
Però, dài... anche il mal di gola è una novità, di solito ho male da qualche altra parte!
Come di consueto, riparo in corner e pubblico la terza versione del listato per il basic del Commodore VIC20 -frutto di una notte che poprio guarda il sonno non voleva venire- che genera un simpatico kaleidoscopio colorato!
...ed eccolo qua:

new
10 poke 36879,14
20 a$="vic20 - oldie but goldie! "
30 print chr$(147)+chr$(18)+a$
40 l=len(a$)
50 c=0
60 for x=0 to 483
70 a=peek(7680+c)
80 c=c+1
90 if c=l then c=0
100 poke 7680+x,a
110 poke 38400+x,1
120 next x
130 print s2$
140 c = int(rnd(1)*7)+1
150 x = int(rnd(1)*11)
160 y = int(rnd(1)*11)
170 ca=38400+x+22*y
180 cb=38400+21-x+22*y
190 cc=38400+x+462-22*y
200 cd=38400+21-x+462-22*y
210 poke ca,c
220 poke cb,c
230 poke cc,c
240 poke cd,c
250 goto 140
run


Ecco la slide del risultato:



Stay tuned!