Мова програмування Turbo-Basic
'МУЗИКАЛЬНI МЕЛОДIЇ
'----------------------------------
CLS : WIDTH 40
PRINT "---Варшав'янка---"
PLAY "t100 l8 o3 mn a4 ml a. mn g16 f4 ml f. mn c+16 d4 ml d."
PLAY "mn c16 d4 f4 e4 a. a16 ml a g f mn e ml d e f mn g a2 p2"
PRINT "---Окрасился месяц багрянцем---"
PLAY "t100 l8 mn o3 g c4 c e- g4 f e- ml g4. f16 mn e-16 d4."
PLAY "c o2 b-4 o3 d f b-4 o4 c o3 a- ml g2 mn g p p o4"
PLAY "d c4 o3 g g o4 ml e- mn d c o3 g ml b-4. a-16 mn g16"
PLAY "ml f e- mn d c g4 f g ml b- mn a- d e- c2 p2"
PRINT "---Засвистали козаченьки---"
PLAY "t100 l4 mn o3 g o4 g ml g f8 mn e-8 d g c c f f f g4 ml"
PLAY "d2 f8 e-8 d8 mn c8 d d d e- ml d8 c8 o3 b-8 mn a8 g o4 g"
PLAY "ml f8 e-8 d8 mn c8 o3 b- a g2 ml g8 p2"
PRINT "---заспіваймо пісню веселеньку---"
PLAY "t140 l4 mn o3 e a o4 c. o3 a8 b8 o4 d8 c8 o3 b8 a e"
PLAY "o4 c o3a ml o4 d8 c8 o3 mn b8 a8 ml g+8 mn g+8 ml b8"
PLAY "mn a8 e e4o4 e e g. e8 d ml g8 mn f8 e d c. o3 a8"
PLAY "o4 d8 c8 o3 b8 a8 o4 e2 d2"
END
'HAPPY BIRTHDAY
'----------------------------
RESTORE Happy
READ Frequensy, Duration