Questa settimana mi son proprio rotto le scatole (sto buttando via alcuni vecchi scatoloni) anche a causa dell'acidità-di-stomaco™ della quale vi ho accennato la settimana scorsa e della quale son sicuro non ve ne frega una cippa (e ci mancherebbe)!!! Quindi per festeggiare un'altra bella settimana di divertimento sfrenato mi riciclo nuovamente (come il cartone degli scatoloni di cui sopra)...
Ricordate quando nello scorso post vi ho chiesto se vi ricordate di 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 anche alla versione Disco '80 del Kaleidoscopio! Ed ecco il risultato:
Questo, invece, è il codice:
10 print chr$(147)
20 poke 36878,15
30 poke 36879,14
40 for y=0 to 22
50 for x=0 to 21
60 pa=7680+x+22*y
70 ca=38400+x+22*y
80 poke pa,81
90 poke ca,0
100 next x
110 next y
120 for x=0 to 15
130 read d
140 pa=7680+22*22+x
150 ca=38400+x+22*22
160 poke pa,d
170 poke ca,1
180 next x
190 data 22,9,3,50,48,32,56,48,39,19,32,4,9,19,3,15
200 dim n(8)
210 n(0)=195: n(1)=207: n(2)=215: n(3)=225
220 n(4)=209: n(5)=219: n(6)=225: n(7)=232
230 r = int(rnd(1)*8)
240 poke 36874,n(r)
250 c = int(rnd(1)*8)
260 x = int(rnd(1)*11)
270 y = int(rnd(1)*11)
280 ca=38400+x+22*y
290 cb=38400+21-x+22*y
300 cc=38400+x+462-22*y
310 cd=38400+21-x+462-22*y
320 poke ca,c
330 poke cb,c
340 poke cc,c
350 poke cd,c
360 poke 36874,0
370 goto 230
run
Bello, performante e soprattutto inutile!
Ed ora, via alla seconda battuta della settimana:
Chiudo con il proverbio del giorno (non ne posso più):
"Ride bene chi ride."
Stay tuned...
Nessun commento:
Posta un commento