Sorridi!

Scialve a tutti!
Oggi, visto che domani (?) sarò impegnato con TATA nell'ennesimo servizio-massacro-matrimoniale-fotografico (la battuta è a tema), ho deciso di pubblicare un nuovo retro-listato per MSX BASIC, realizzato come seguito ideale del sorgente pubblicato in un precedente post, che stampa su schermo un sacco di faccine tanto inutili quanto sorridenti e colorate... E questa volta sono pure animate!
Ed eccolo qua:

10 SCREEN 1:CLS:WIDTH 32:COLOR 15,1,1:KEY OFF
20 DEFINT A-Z
30 FOR T=0 TO 767
40 N=40+RND(1)*128
50 REM PRINT CHR$(N);
60 VPOKE 6144+T,N
70 NEXT T
80 FOR T=5 TO 20
90 RESTORE 110
100 FOR I=0*8 TO 8*8-1:READ A$:VPOKE I+64*T,VAL("&H"+A$):NEXT
110 DATA 3C,7E,DB,FF,81,81,42,3C
120 DATA 3C,7E,DB,FF,C3,E7,7E,3C
130 DATA 3C,7E,DB,FF,81,C3,7E,3C
140 DATA 3C,7E,DB,FF,C3,C3,66,3C
150 DATA 3C,7E,DB,FF,81,81,C3,7E
160 DATA 3C,7E,DB,FF,81,C3,66,3C
170 DATA 7E,DB,FF,81,81,81,C3,7E
180 DATA 3C,7E,DB,FF,BD,C3,66,3C
190 VPOKE 8192+T,16*(T-5)+1
200 NEXT
210 N1=RND(1)*767 : N2=VPEEK(6144+N1)
220 IF N2=167 THEN N2=40
230 VPOKE 6144+N1,N2+1
240 A$=INKEY$
250 IF A$=" " THEN GOTO 260 ELSE GOTO 210
260 SCREEN 0:COLOR 14,4,4
RUN

Come di consueto, pubblico pure un paio di slide del risultato:





Premendo un tasto qualsiasi si interrompe l'esecuzione del programma.

Di nuovo, non chiedetemi l'utilità di questa cosa.
Semplicemente, il vedere tutte quelle faccine colorate mi fa sorridere! :)

Alla prox!

Update 03/05/2014: