Dó Ré Mi Fá

O Programa abaixo toca a música Dó Ré Mi Fá

Rotina para que se execute o programa:
  \ DÓ RÉ MI FÁ
  Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Beep" com 330 e 300. \ MI
  Processe "kernel32.dll" "Beep" com 349 e 500. \ FÁ
  Processe "kernel32.dll" "Sleep" com 200. \ Pausa
  \ FÁ FÁ
  Processe "kernel32.dll" "Beep" com 349 e 300. \ FÁ
  Processe "kernel32.dll" "Beep" com 349 e 250. \ FÁ
  Processe "kernel32.dll" "Sleep" com 50. \ Pausa
  \ DÓ RÉ DÓ RÉ
  Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Sleep" com 500. \ Pausa
  \ RÉ RÉ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Sleep" com 5. \ Pausa
  \ DÓ SOL FA MI
  Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
  Processe "kernel32.dll" "Beep" com 392 e 300. \ SOL
  Processe "kernel32.dll" "Beep" com 349 e 200. \ FÁ
  Processe "kernel32.dll" "Beep" com 330 e 400. \ MI
  Processe "kernel32.dll" "Sleep" com 200. \ Pausa
  \ MI MI
  Processe "kernel32.dll" "Beep" com 330 e 400. \ MI
  Processe "kernel32.dll" "Beep" com 330 e 450. \ MI
  Processe "kernel32.dll" "Sleep" com 50. \ Pausa
  \ DÓ RÉ MI FÁ
  Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
  Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
  Processe "kernel32.dll" "Beep" com 330 e 300. \ MI
  Processe "kernel32.dll" "Beep" com 349 e 500. \ FÁ
  Processe "kernel32.dll" "Sleep" com 200. \ Pausa
  \ FÁ FÁ
  Processe "kernel32.dll" "Beep" com 349 e 300. \ FÁ
  Processe "kernel32.dll" "Beep" com 349 e 250. \ FÁ
  Processe "kernel32.dll" "Sleep" com 50. \ Pausa
  Processe "kernel32.dll" "Sleep" com 500. \ Pausa
  

Resultado:

Atualizado