Paru sous forme de listing dans le magazine AM-Mag n° 34 (Mai 1988) dans la rubrique Dix par dix.
Auteur : Pascal RIBERT
- BUGS -
Pour éviter un péremptoire "Subscript out of range in 30" lors de l'entrée de plus d'une dizaine de notes, intégrez un "DIM note(nb),duree(nb)" avant le FOR i=1... de la ligne 30.
De plus, les possesseurs de 464 s'obligeront à remplacer les CLEAR INPUT, source d'infamants "Syntax error" sur leur appareil, par quelques WHILE INKEY$<>"":WEND