Oggi pubblico un simpatico listato per l'MSX, in MSX-BASIC (frutto dell'ennesima notte insonne), che disegna un sacco di faccine colorate su tutto lo schermo:
10 COLOR 15,1,1:SCREEN 2:DEFINT A-Z
20 OPEN "GRP:" FOR OUTPUT AS #1:PSET (0,0),1
30 FOR N=0 TO 191 STEP 8
40 FOR T=0 TO 255 STEP 8
50 C=RND(1)*13+2
60 COLOR C,1,1
70 PRINT #1,CHR$(1)+CHR$(66);
80 NEXT T
90 NEXT N
100 STOP ON:ON STOP GOSUB 120
110 GOTO 110
120 COLOR 15,4,4:SCREEN 0
RUN
Ed ecco un paio di screenshots del programma mentre "gira" sull'emulatore openMSX!
Non chiedetemi l'utilità di questa cosa. So solo che vedere tutte quelle faccine colorate mi mette di buon umore! :)
Stay tuned!
Update 03/05/2014:
Nessun commento:
Posta un commento