Programma di Natale in BASIC: albero di Natale lampeggiante sul C64
Per questo Natale 2025 ho deciso di fare un piccolo regalo a tutti gli appassionati di retrocomputing: un programma di Natale per Commodore 64, in BASIC v2, che disegna a schermo un albero di Natale lampeggiante, perfetto sia per il computer reale sia per un emulatore.
Ho realizzato il video che mostra il risultato finale: la musica che sentite non viene riprodotta dal software, ma l’ho aggiunta in post-produzione...
Ah, quasi scordavo, per chi volesse realizzare un vero albero di Natale collegato al Commodore 64, ecco qui il mio progetto.
Programma di Natale in BASIC per il Commodore 64
Questo listato è pensato per essere:
- semplice da digitare;
- compatibile con Commodore 64 reale ed emulatori (VICE, CCS64, ad esempio);
- ideale anche come esercizio didattico per chi sta imparando il BASIC.
Il programma:
- pulisce lo schermo;
- stampa il messaggio MERRY CHRISTMAS;
- disegna un albero di Natale con gli asterischi;
- anima le luci cambiando casualmente i colori agli asterischi.
Listato BASIC: Albero di Natale lampeggiante sul Commodore 64
Copiate e digitate il seguente listato direttamente sul vostro Commodore 64 (oppure in un emulatore come VICE o CCS64):
10 PRINT CHR$(147)
20 FOR I=1 TO 15
30 PRINT
40 NEXT I
50 PRINT TAB(12) "MERRY CHRISTMAS!"
60 PRINT
70 PRINT "{green}"
80 FOR I=1 TO 10
90 PRINT TAB(20-I);
100 FOR J=1 TO I*2-1
110 PRINT CHR$(42);
120 NEXT J
130 PRINT
140 NEXT I
150 PRINT TAB(18) "{brown}***" : REM TRUNK
160 PRINT TAB(18) "***"
170 PRINT TAB(18) "***"
180 PRINT
190 PRINT
200 PRINT TAB(5) "{white} ValorosoIT - www.valoroso.it"
210 PRINT "{light blue}"
220 PRINT
250 X=INT(RND(1)*20)+10
260 Y=INT(RND(1)*12)+4
270 IF PEEK(1024+Y*40+X)<>42 THEN GOTO 250
280 C=INT(RND(1)*4)+1
290 POKE 55296+Y*40+X, C
300 FOR T=1 TO 100: NEXT T
310 POKE 55296+Y*40+X, 5
320 GOTO 250
Nota: i nomi dei colori tra parentesi graffe ({green}, {brown}, ecc…) funzionano correttamente solo se digitate il tasto colore corrispondente del Commodore 64.
Il listato è scritto in BASIC V2 standard e non richiede librerie o cartucce aggiuntive.
Il programma può essere convertito in PRG utilizzando C64List su un PC Windows. Comunque trovate i file PRG e D64, in fondo a questa pagina, pronti per il download.
Buon Natale 2025 da ValorosoIT
Grazie a tutti voi che continuate a seguire il progetto, leggere gli articoli, guardare i video e tenere viva la passione per i computer vintage.
Buon Natale e buone feste 2025 dal vostro Commodore 64… e da ValorosoIT!
Ecco i file PRG e D64 da avviare sugli emulatori e sul Commodore 64.