Musique !

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Le futuriste Ray Kurzweil a attiré l'attention nationale pour la première fois alors qu'il était adolescent, au milieu des années 1960, lorsqu'il est apparu dans l'émission alors populaire de CBS I've Got a Secret, ses prodigieux talents mathématiques et musicaux se sont réunis alors qu'il jouait un morceau au piano pour un public de studio qu'un ordinateur - fonctionnant à partir d'un programme qu'il a écrit - avait composé auparavant (et hors caméra).

Lorsque vous exécutez MUSIC.BAS, vous entendez également une composition provenant de votre ordinateur, sauf qu'elle ne sonnera pas grand-chose, à part quelques notes aléatoires enchaînées sans mélodie, rime ou raison.

Kurzweil, entendant le morceau sourd de votre ordinateur, pourrait être suffisamment horrifié pour abjurer sa croyance la plus absurde : celle de la singularité imminente.

L'instruction SOUND a deux paramètres : fréquence et durée. Les deux ont été randomisés ici, avec une fréquence non autorisée à être inférieure à 500 hertz et une durée non autorisée sous cinq tics d'horloge (oui, c'est une véritable unité de mesure ; il y a environ cinq tics d'horloge par seconde). Les notes de musique colorées, qui sont imprimées à l'écran à l'aide de CHR$, ne vous aideront malheureusement pas à sauver vos oreilles.

Bien que vous ne puissiez jamais coder un Mozart ou un Mahler électronique, programmer selon certaines règles musicales de base et générer des notes aléatoires dans ces limites améliorerait grandement la MUSIQUE.BAS.

10 RANDOMIZE TIMER:SCREEN 9:COLOR 15,1:CLS
20 R=INT(1+15*RND(1))
21 IF R=1 THEN GOTO 20
25 COLOR R
30 FOR T=1 TO 5:PRINT ,CHR$(14);:NEXT T
35 SOUND INT(1+200*RND(1))+500,INT(1+10*RND(1))+5
40 GOTO 20