From c8a3cc77582d5a249a8d63a8781c54d5331a939c Mon Sep 17 00:00:00 2001
From: giomba <giomba@glgprograms.it>
Date: Sun, 17 Mar 2024 21:10:56 +0100
Subject: [PATCH] First commit.

---
 .gitignore |   1 +
 MATTEO.BAS | 173 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 174 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 MATTEO.BAS

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..a7b5824
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+QB45/
diff --git a/MATTEO.BAS b/MATTEO.BAS
new file mode 100644
index 0000000..ac97b56
--- /dev/null
+++ b/MATTEO.BAS
@@ -0,0 +1,173 @@
+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
+