174 lines
3.1 KiB
QBasic
174 lines
3.1 KiB
QBasic
DECLARE SUB RAINBOW ()
|
||
DECLARE SUB CENTER (text$)
|
||
DECLARE SUB SETUP ()
|
||
DECLARE SUB LOADBAR ()
|
||
DECLARE SUB SONG ()
|
||
CLS
|
||
|
||
CALL SETUP
|
||
CALL SONG
|
||
|
||
LOCATE 12, 60
|
||
PRINT "da GiulioF e giomba"
|
||
LOCATE 13, 60
|
||
PRINT " 23 marzo 2024"
|
||
|
||
DO
|
||
CALL RAINBOW
|
||
IF NOT INKEY$ = "" THEN EXIT DO
|
||
LOOP
|
||
|
||
|
||
SUB CENTER (text$)
|
||
|
||
col% = 40 - LEN(text$) / 2
|
||
LOCATE CSRLIN, col%
|
||
PRINT text$
|
||
|
||
END SUB
|
||
|
||
SUB RAINBOW
|
||
|
||
FOR col% = 1 TO 30
|
||
FOR row% = 10 TO 14
|
||
c = SCREEN(row%, col%)
|
||
LOCATE row%, col%
|
||
COLOR 4
|
||
PRINT CHR$(c);
|
||
NEXT row%
|
||
FOR d = 1 TO 10000: NEXT d
|
||
FOR row% = 10 TO 14
|
||
c = SCREEN(row%, col%)
|
||
LOCATE row%, col%
|
||
COLOR 7
|
||
PRINT CHR$(c);
|
||
NEXT row%
|
||
NEXT col%
|
||
|
||
END SUB
|
||
|
||
SUB SETUP
|
||
|
||
COLOR 15, 1
|
||
CLS
|
||
|
||
PRINT
|
||
CENTER "Benvenuto nel wizard di auguri per MATTEO.BIN"
|
||
PRINT
|
||
COLOR 7, 1
|
||
CENTER "Premere un tasto per continuare"
|
||
|
||
WHILE INKEY$ = "": WEND
|
||
|
||
LOCATE 18
|
||
CENTER "Formattazione C: in corso"
|
||
FOR i = 19 TO 59 STEP 1
|
||
LOCATE 20, i + 1
|
||
PRINT CHR$(&HB0);
|
||
NEXT i
|
||
|
||
FOR i = 19 TO 59 STEP 1
|
||
LOCATE 20, i + 1
|
||
PRINT CHR$(&HDB)
|
||
FOR d = 0 TO 2000: NEXT d
|
||
NEXT i
|
||
|
||
SLEEP 1
|
||
|
||
PRINT
|
||
CENTER "come sono burlone"
|
||
CENTER CHR$(1)
|
||
|
||
SLEEP 2
|
||
|
||
END SUB
|
||
|
||
SUB SONG
|
||
|
||
REM Storia di "Tanti Auguri"
|
||
REM Ho cercato in rete lo spartito di "Tanti auguri"
|
||
REM e sono capitato su un sito che mi mostrava
|
||
REM solo una parte dello spartito.
|
||
REM Per avere tutto lo spartito, mi sarei dovuto
|
||
REM registrare, regalando la mia email e chiss…
|
||
REM cos'altro.
|
||
REM L<> per l<> per• non me ne sono accorto, perci•
|
||
REM ho ingenuamente iniziato a trascrivere lo spartito.
|
||
REM Quando mi sono accorto che mancava un pezzo,
|
||
REM mi sono fermato, ho inveito contro quel sito,
|
||
REM e in pi—, quando sono andato ad ascoltare ci•
|
||
REM che avevo trascritto, le prime note avevano
|
||
REM un tempo completamente sbagliato!
|
||
REM Dunque, ho riesumato il "Carillon" dei signori
|
||
REM Leone e Mangialardo, pagina 101, e ho
|
||
REM trascritto la musica che persino un libro
|
||
REM per bambini Š in grado di fare meglio di
|
||
REM un blasonato sito di spartiti su Internet.
|
||
REM Comunque, il BASIC prende le durate delle note
|
||
REM al contrario, e alla fine, ci ho messo comunque
|
||
REM un quarto d'ora solo per far tornare ammodo
|
||
REM il tempo sincopato.
|
||
|
||
LOCATE 10
|
||
|
||
PLAY "L5 O3 D"
|
||
PRINT "TAN";
|
||
PLAY "L16 O3 D"
|
||
PRINT "TI AU";
|
||
PLAY "L4 O3 E"
|
||
PRINT "GU";
|
||
PLAY "L4 O3 D"
|
||
PRINT "RI ";
|
||
PLAY "L4 O3 G"
|
||
PRINT "A ";
|
||
PLAY "L2 O3 F#"
|
||
PRINT "TE"
|
||
|
||
PRINT SPACE$(10);
|
||
PLAY "L5 O3 D"
|
||
PRINT "TAN";
|
||
PLAY "L16 O3 D"
|
||
PRINT "TI AU";
|
||
PLAY "L4 O3 E"
|
||
PRINT "GU";
|
||
PLAY "L4 O3 D"
|
||
PRINT "RI ";
|
||
PLAY "L4 O3 A"
|
||
PRINT "A ";
|
||
PLAY "L2 O3 G"
|
||
PRINT "TE"
|
||
|
||
PRINT
|
||
|
||
PLAY "L5 O3 D"
|
||
PRINT "TAN";
|
||
PLAY "L16 O3 D"
|
||
PRINT "TI AU";
|
||
PLAY "L4 O4 D"
|
||
PRINT "GU";
|
||
PLAY "L4 O3 B"
|
||
PRINT "RI A ";
|
||
PLAY "L4 O3 G"
|
||
PRINT "MAT";
|
||
PLAY "L4 O3 F#"
|
||
PRINT "TE";
|
||
PLAY "L2 O3 E"
|
||
PRINT "O"
|
||
|
||
PRINT SPACE$(10);
|
||
PLAY "L5 O4 C"
|
||
PRINT "TAN";
|
||
PLAY "L16 O4 C"
|
||
PRINT "TI AU";
|
||
PLAY "L4 O3 B"
|
||
PRINT "GU";
|
||
PLAY "L4 O3 G"
|
||
PRINT "RI ";
|
||
PLAY "L4 O3 A"
|
||
PRINT "A ";
|
||
PLAY "L2 O3 G"
|
||
PRINT "TE!"
|
||
|
||
END SUB
|
||
|