А.Ю. Пахомов (г. Городец)

ПРОГРАММИРОВАНИЕ МЕЛОДИЙ В БЕЙСИКЕ "КОРВЕТА"

    S1,S2-Высота звука   S3-Пауза    S4-Длительность

Нотный стан

    Высота звука S1,S2
    ЛЯ    - 31,145
    ЛЯ#   - 29,203
    СИ    - 28, 31
    ДО    - 26,139
    ДО#   - 26, 14
    РЕ    - 23,166
    РЕ#   - 22, 82
    МИ    - 21, 17 
    ФА    - 19,227
    ФА#   - 18,197
    СОЛЬ  - 17,183
    СОЛЬ# - 17,165
    ЛЯ    - 15,200
    ЛЯ#   - 14,230
    СИ    - 14, 16
    ДО    - 13, 70
    ДО#   - 12,135
    РЕ    - 11,211
    РЕ#   - 11, 41
    МИ    - 10,137
    Длительность  S4
        10
        20
        40
        80
       160
      Пауза   S3
    Соответствует длительностям.
    Если паузы нет S3=0.
            
    10 FOR I=1 ТО 21:READ S1,S2,S3,S4 
    20 POKE &HF716,S1:POKE &HF715,S2
    30 POKE &HF718,S4:BEEP
    40 FOR J=1 TO S3:NEXT J:NEXT I
    50 DATA <Вставьте нужные Вам S1,S2,S3,S4>

ПРИМЕР:

    DATA 26,139,0,10,21,17,0,10,17,183,0,10,13,70,0,20,17,183,0,10,13,70,0,20