Nostalgia acida!

Grazie all'acidità-di-stomaco™ (complice anche il bel tempo) ho passato una settimana veramente allegra e quindi non solo non ho novità da segnalare ma non ho nemmeno tanta voglia di scrivere (cose intelligenti, intendo)!
Quindi perdonatemi se per l'ennesima volta mi riciclo (come l'aria in macchina)!
Ricordate quando non riuscendo a dormire avevo realizzato dei programmini per il BASIC del Vic 20? Ho pensato, sempre a tempo perso, di aggiungere un commento sonoro (random)! Ed ecco il risultato:




Questo, invece, è il codice:

10 print chr$(147)
20 poke 36878,15
30 for x=0 to 21
40 read d
50 pa=7680+22*11+x
60 ca=38400+x+22*11
70 poke pa,d
80 poke ca,0
90 next x
100 data 32,32,22,9,3,50,48,32,11,1,12,5,9,4,15,19,3,15,16,5,32,32
110 dim n(8)
120 n(0)=175: n(1)=195: n(2)=207: n(3)=215
130 n(4)=225: n(5)=232: n(6)=237: n(7)=240
140 r = int(rnd(1)*8)
150 poke 36874,n(r)
160 c = int(rnd(1)*8)
170 x = int(rnd(1)*11)
180 y = int(rnd(1)*11)
190 pa=7680+x+22*y
200 ca=38400+x+22*y
210 pb=7680+21-x+22*y
220 cb=38400+21-x+22*y
230 pc=7680+x+484-22*y
240 cc=38400+x+484-22*y
250 pd=7680+21-x+484-22*y
260 cd=38400+21-x+484-22*y
270 r1=int(rnd(1)*2)*10
280 r2=int(rnd(1)*2)*128
290 poke pa,95+r1+r2
300 poke ca,c
310 poke pb,105-r1+r2
320 poke cb,c
330 poke pc,105-r1+128-r2
340 poke cc,c
350 poke pd,95+r1+128-r2
360 poke cd,c
370 poke 36874,0
380 goto 140
run

Il Vic 20... Cavoli, ci ho passato l'infanzia su questo computer! XD

Proverbio del giorno:
"Se non è zuppa è sposa sfortunata."

Stay tuned! ;)