Ancora la nostalgia a farla da padrone...

...che non ho ancora capito cosa significhi: "farla da padrone" ma tant'è...
Comunque, oggi voglio propinarvi l'ennesimo retro-listato (o sorgente BASIC) per il basic dell'MSX!
Ed eccolo qua:

10 SCREEN 1:CLS:WIDTH 32
20 DEFINT A-Z
30 FOR T=32 TO 255
40 REM PRINT T;
50 PRINT CHR$(T);
60 NEXT T
70 FOR T=65 TO 95
80 REM PRINT T;
90 PRINT CHR$(1)+CHR$(T);
100 NEXT T
110 FOR T=0 TO 31
120 R=RND(1)*13+2
130 VPOKE 8192+T,16*R+1
140 NEXT T
RUN

Trattasi di una simpatica quanto inutile routine che stampa tutti i caratteri dell'MSX e poi cambia i colori in modo randomico.
Può essere utilizzata per visualizzare listati e/o scrivere a video in modo variopinto (o, che ne so, in qualche retro-gioco). Si perdono diottrie ugualmente ma sì è molto più felici!







Stay tuned! ;)