Scialve a tutti perché muove aria.
Come promesso nello scorso post, pubblichiamo come se non ci fosse un perché (già, perché?) il sorgente BASIC del piccolo “Biglietto di auguri di Natale elettronico” programmato dal BCO su MSX (emulato).
Il sorgente BASIC del piccolo “Biglietto di auguri di Natale elettronico!” programmato dal BCO su MSX (emulato).
Programma in BASIC di BCO che crea un piccolo “Biglietto di auguri di Natale elettronico!” su MSX (emulato).
Ci piace ripeterci piace ripeterci piace ripeterci piace ripeterci piace...
10 REM ******************************
20 REM * Merry MSXMas 2022 <(^__^)> *
30 REM * by Alberto (BCO) Sgaggero *
40 REM ******************************
50 SCREEN 1: WIDTH 32: KEY OFF : COLOR 15,1,1
60 SCREEN 2 : DRAW"bm0,0"
70 OPEN "grp:" AS #1
80 FOR N = 1 TO 3
90 FOR I = 0 TO 255
100 PRINT#1,CHR$(I); : NEXT : NEXT
110 FOR T=0 TO 15: LINE (T*8,24)-(T*8+7,31),T,BF: LINE (T*8,24+64)-(T*8+7,31+64),T,BF: LINE (T*8,24+128)-(T*8+7,31+128),T,BF: NEXT
120 POKE &HFCAF,1
130 CLS
140 READ A$
150 IF A$="r" THEN RESTORE: GOTO 190
160 IF A$="p" THEN FOR T=1 TO 2000: NEXT: GOTO 190
170 IF A$="m" THEN GOSUB 880: GOTO 190
180 PRINT A$;:
190 GOTO 140
200 DATA dddddddddddddddddddddddddddddddd
210 DATA dddddddddddddddaaddddddddddddddd
220 DATA ddddddddddddddaiiadddddddddddddd
230 DATA ddddddddddddddajjadddddddddddddd
240 DATA dddddddddddddaikkiaddddddddddddd
250 DATA ddddddddaaaaaajkkjaaaaaadddddddd
260 DATA ddddedddaikkkkkkkkkkkkiadddedddd
270 DATA ddddddgddaikkookkookkiaddgdddddd
280 DATA ddddddddodaikoekkeokiadodddddddd
290 DATA dddddddddddajoakkaojaddddddddddd
300 DATA dddedgdogddajkkkkkkjaddgodgdeddd
310 DATA ddddddddddaikaikkiakiadddddddddd
320 DATA dddedgdogdajkiaaaaikjadgodgdeddd
330 DATA dddddddddaikkkkjjkkkkiaddddddddd
340 DATA ddddddddoajkkjiaaijkkjaodddddddd
350 DATA ddddddgdaikjiaallaaijkiadgdddddd
360 DATA ddddedddajiaallbbllaaijadddedddd
370 DATA ddddddddaaadalccccladaaadddddddd
380 DATA ddddddddddddabccccbadddddddddddd
390 DATA ddddddddddaacabccbacaadddddddddd
400 DATA dddddddddaoealaccalaomaddddddddd
410 DATA dddddddddaedababbabameaddddddddd
420 DATA ddddddddddaalblaalblaadddddddddd
430 DATA m
440 DATA dddddddddddalbbllbbladdddddddddd
450 DATA ddddddddddalbccccccbladddddddddd
460 DATA ddddddddaalcccccccccclaadddddddd
470 DATA dddddddabccccccccccccccbaddddddd
480 DATA ddddddddaaaccblcclbccaaadddddddd
490 DATA dddddddddalabaaccaabaladdddddddd
500 DATA ddddddaadablallaallalbadaadddddd
510 DATA dddddaogabbbllaoiallbbbaoeaddddd
520 DATA dddddageabcccbaifabcccbaedaddddd
530 DATA ddddddaalccccclaalccccclaadddddd
540 DATA ddddddalcccccccllcccccccladddddd
550 DATA dddddabacccccccccccccccaabaddddd
560 DATA ddddaaalaccclaccccalcccalaaadddd
570 DATA ddddddablaclalaccalalcalbadddddd
580 DATA ddddddabblaalblaalblaalbbadddddd
590 DATA dddddalblaomalbllblaogalbladdddd
600 DATA ddddalcclamealcbbclagealccladddd
610 DATA ddaalcccclaalcccccclaalcccclaadd
620 DATA daccccacccllccccccccllcccaccccad
630 DATA ddaaaalaaccccccccccccccaalaaaadd
640 DATA dddaalbblaccaccccccaccalbblaaddd
650 DATA ddaoialbaclalalcclalalcablaoiadd
660 DATA ddaifalblaalblallalblaalblaifadd
670 DATA ddaaalccbllbcblaalbcbllbcclaaadd
680 DATA dalllcccccccclaoealcccccccclllad
690 DATA acclalcccblcclaedalcclbccclalcca
700 DATA daaadacclabccclaalcccbalccadaaad
710 DATA ddddaclaalclalcccclalclaalcadddd
720 DATA dddddaaddalaaalcclaaaladdaaddddd
730 DATA ddddddddddadafallafadadddddddddd
740 DATA ddddddddddddaifaafiadddddddddddd
750 DATA ddddddddddddaiiffiiadddddddddddd
760 DATA ddddddddddddaijjjjiadddddddddddd
770 DATA ddddddddddddafijjifadddddddddddd
780 DATA dddddddddddddaaaaaaddddddddddddd
790 DATA dddddddddddddddddddddddddddddddd
800 DATA dd*** MERRY MSXMAS BY BCO! ***dd
810 DATA dddddddddddddddddddddddddddddddd
820 DATA dHAVE YOUR BEST CHRISTMAS EVER!d
830 DATA dddddddddddddddddddddddddddddddd
840 DATA dWISHING YOU AN HAPPY NEW YEAR!d
850 DATA dddddddddddddddddddddddddddddddd
860 DATA p
870 DATA r
880 PLAY "t75v13s0","t75v15s10m6000"
890 PLAY "o4c8c16c16c8d8e8e16e16e8e8","o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16o2e16o3e16o2e16o3e16o2e16o3e16o2e16o3e16"
900 PLAY "d16e16f8f8o3b8o4d8d8c8o3g8","o2f16o3f16o2f16o3f16o2g16o3g16o2g16o3g16o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16"
910 PLAY "o4c8c16c16c8d8e8e16e16e8e8","o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16o2e16o3e16o2e16o3e16o2e16o3e16o2e16o3e16"
920 PLAY "d16e16f8f8o3b8o4d8d16d16c8g8","o2f16o3f16o2f16o3f16o2g16o3g16o2g16o3g16o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16"
930 PLAY "g8g16e16a8g8g8f8f8f8","o2g16o3g16o2g16o3g16o2a16o3a16o2a16o3a16o2f16o3f16o2f16o3f16o2f16o3f16o2f16o3f16"
940 PLAY "f8f16d16g8f8f8e8e8o3g8","o2f16o3f16o2f16o3f16o2g16o3g16o2g16o3g16o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16"
950 PLAY "o4c8c16c16c8d8e8e16e16e8e8","o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16o2e16o3e16o2e16o3e16o2e16o3e16o2e16o3e16"
960 PLAY "d16e16f8f8o3b8o4d8d16c16c8o3g8","o2f16o3f16o2f16o3f16o2g16o3g16o2g16o3g16o2c16o3c16o2c16o3c16o2c16o3c16o2c16o3c16"
970 RETURNE ora, siccome non sappiamo cosa (e come) scrivere, scriveremo cose a caso.
o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-
È molto probabile che non tutti sappiano che...
- Secondo uno studio dell'Università di Cicambrino non esiste l'Università di Cicambrino (non esiste nemmeno la località di Cicambrino, a dire il vero).
- Alcuni pesci come le aringhe comunicano tra loro scoreggiando e facendolo inspiegabilmente si muovono nell'acqua più velocemente.
- Nell'antica Grecia lanciare una mela a una donna era considerata una proposta di matrimonio, ma se la donna era un medico inspiegabilmente si levava di torno.
- La lettera "A" è la vocale più citata nella parola "citata".
- La parola "citata" fa ridere.
- Le recensioni dei lassativi veramente efficaci sono sia negative che positive contemporaneamente.
- Se si cerca «Google» su Google conviene prendere appuntamento con uno psichiatra (noi l'abbiamo fatto).
- Nel mondo esistono più alluci che persone, rendendo di fatto questa curiosità allucinante.
- Le testate nucleari non si ottengono sbattendo la testa sui muri delle centrali nucleari.
- I polpi depongono 56.000 uova in una sola volta, poi riprendono fiato.
o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-o-O-|-O-
Frase celebre del giorno:
“I'm blue, daba dee ba da die...”
Puffo DJ
Proverbio del giorno:
“Corna e buoi son problemi tuoi.”
Il “pensierino del giorno” di BCO:
“Non riesco a prendere i controsensi per il verso giusto.”
“Please, stay tuned!” del giorno:
Anche se le papere non fanno: "Qua! Qua!" solo perché non hanno il GPS, please stay tuned!
Nessun commento:
Posta un commento