Code Morse

GW-Basic, utilisé par PC-Basic

Programme avec Texte Seulement

PC-BASIC

Peut-être que le relais du code Morse permet une meilleure utilisation de l'instruction SOUND que les compositions musicales numériques. Plus d'un siècle avant que Claude Shannon ne révolutionne la théorie de l'information, l'Américain Samuel Morse (ainsi que plusieurs autres) a développé un système de communication d'impulsions codées électriquement, appelé code Morse. Des télégraphes ont été utilisés pour transmettre les signaux.

Exécutez MORSE.BAS pour entendre et voir l'ancien code en action.

À l'aide de INKEY$, MORSE.BAS attend patiemment que vous tapiez une lettre (seules les lettres A à K sont programmées); ensuite, le code Morse est transmis, enfin, au moins à vos oreilles. Taper un c minuscule effacera l'écran, tandis qu'un s minuscule insèrera un espace.

Le défi ici est évident : terminer le codage (morse) de l'alphabet !

10 KEY OFF:SCREEN 7:COLOR 5,3:CLS
20 PRINT TAB(10) "ÉGALISEUR DE CODE MORSE"
30 COLOR 8
40 I$=INKEY$
41 IF I$="c" THEN GOTO 10
43 IF I$="s" THEN PRINT;" ";
50 IF I$="A" THEN PRINT"A ._ ";:PLAY"MB C8 C4"
60 IF I$="B" THEN PRINT"B _... ";:PLAY"MB C4 C8 C8 C8"
70 IF I$="C" THEN PRINT"C _._. ";:PLAY"MB C4 C8 C4 C8"
75 IF I$="D" THEN PRINT"D _.. ";:PLAY"MB C4 C8 C8"
80 IF I$="E" THEN PRINT"E . ";:PLAY"MB C8"
85 IF I$="F" THEN PRINT"F .._. ";:PLAY"MB C8 C8 C4 C8"
90 IF I$="G" THEN PRINT"G _. ";:PLAY"MB C4 C4 C8"
95 IF I$="H" THEN PRINT"H .... ";:PLAY"MB C8 C8 C8 C8"
100 IF I$="I" THEN PRINT"I .. ";:PLAY"MB C8 C8"
105 IF I$="J" THEN PRINT"J ._____";:PLAY"MB C8 C4 C4 C4"
110 IF I$="K" THEN PRINT"K _._ ";:PLAY"MB C4 C8 C4"
120 IF I$=CHR$(27) THEN CLS:END
500 GOTO 40