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