Logo et la musique

Procédures écrites avec le Logo de Profil pour Atari, porté sur les versions suivantes pour compatibles PC. Les ATTENDS sont à allonger car ce programme était censé tourner sur un i386 à 25 MHz, voir, un i286 à l'horloge bien inférieure ; alors sur un Pentium 200 MHz (ou supérieur ...). Cette remarque est valable pour la page sur les Lutins.

Le programme devait non seulement exécuter une mélodie, mais aussi, écrire un mot. Pour cette raison et d'autres (à trouver en visitant toute la Nébuleuse des Sites Compilés), le choix a été de faire un ";-)" à Stephen Spielberg pour son "Rencontre du 3ème. type". Voici :

POUR MUSI :D :O1 :O2 ;;le programme "principal"
DUREE :D OCTAVE :O1
FCT 2 TAPE "H JOUE "RE
ATTENDS 3 FCT 3 TAPE "E JOUE "MI
ATTENDS 3 FCT 4 TAPE "L JOUE "DO
ATTENDS 3 OCTAVE :O2 FCT 10 TAPE "L JOUE "DO
ATTENDS 3 OCTAVE :O1 FCT 15 TAPE "O JOUE "SO
FIN

POUR PLAY ;;à lancer
ME 25 VT FTCAR [2 2] FCURS [12 8]
MUSI 8 5 4 WX MUSI 12 4 3 WX ATTENDS 2
MUSI 6 3 2 WX MUSI 22 7 7 ATTENDS 2 WX
MUSI 6 3 2 WX MUSI 12 4 3 WX
ATTENDS 2
REPETE 3 [MUSI 8 5 4 WX ATTENDS 3]
ATTENDS 4 MUSI 8 5 4
ENDY
FIN

POUR WX ;;un retour chariot (voir Logo-Lego) ou
;;où débuter
VT FCURS [12 8]
FIN

POUR ENDY ;;le final indiquant
;;titre, auteur et signature
FTCAR [1 1]
FCURS [15 15] EC "
FCT 12 EC ["Rencontre du 3ème. type"]
EC [Film de S. SPIELBERG]
EC [Version LOGO by Olivier S. C. - 1991] FCT 15
FIN

Pas de démo sonore (enregistrée) car tout le monde n'a pas la carte idoine. Le résultat visuel ne pouvait être que ce mot (il faut avoir vu le film, tout de même) ...


Un autre exemple avec Logo vous souhaitant votre anniversaire ...

 
 

 

 Début de page
 

 Retour