«Попкорн» на МК-161 (мелодия из Диггера)

listmkt v0.3.5a (c) AtH, 8 апреля 2015, Файл: B044.mkt
  0 \ Popcorn music #44, AtH, 20170905
  1 
  2 forth definitions
  3 vocabulary ММЯ  ММЯ definitions  \ Музыкальный Макро Язык
  4 : нота  ( частота −−)
  5   <builds 4 , , does> here 4 cmove 4 allot 10 , 0 , ;
  6 : 3нота  ( частота −−)
  7   <builds 7 , , does> here 4 cmove 4 allot 21 , 0 , ;
  8 : ;  ( −−)   ?csp  here over 2+ − 4 / ↔ ! forth ;
  9 
 10 4400 ↑ нота a<  3нота a++<  4662 нота a#<  5233 нота c
 11 5873 ↑ нота d   3нота d++   6593 нота e    2937 3нота d++<
 12 6985 ↑ нота f   3нота f++   7840 нота g    3492 нота f<
 13 8800 ↑ нота a   3нота a++   9878 нота b   10465 нота c>
 14 
 15 forth definitions
 16 : :мелодия  ( −−)   <builds here  2 allot  !csp  ММЯ
 17    does> ↑ 2+ ↔ u@ (play) ;
 18 
 19 :мелодия Попкорн  \ Манве, 5 сентября 2017
 20  d c d a< f< a< d++<   \ такт 1
 21  d c d a< f< a< d++<   \ такт 2
 22  d e f e f d e d       \ такт 3
 23  e c d c d a#< d++     \ такт 4
 24 
 25  d c d a< f< a< d++<   \ такт 5
 26  d c d a< f< a< d++<   \ такт 6
 27  d e f e f d e d       \ такт 7
 28  e c d c d e f++       \ такт 8
 29 
 30  a g a f c f a++<      \ такт 1
 31  a g a f c f a++<      \ такт 2
 32  a b c> b c> a b a     \ такт 3
 33  b g a g a f a++       \ такт 4
 34 
 35  a g a f c f a++<      \ такт 5
 36  a g a f c f a++<      \ такт 6
 37  a b c> b c> a b a     \ такт 7
 38  b g a g e g a++       \ такт 8
 39 ;
 40 
 41 : tune  \ ( −−)   воспроизведение мелодии
 42     begin Попкорн ?break again ;
 43 \s