빈약한 사운드 라이브러리를 보충하기 위해 기능을 통합한
beep() 함수를 소개합니다.

그리고, Turbo-C 2.0에는 꽤 많은 버그가 있습니다.
Delay() 함수에도 문제가 있는데,
그 문제점을 보완하는 방법을 아래에 설명해 놓았습니다.

void beep(unsigned long hz,unsigned long ti)
/* sound(), delay(), nosound() 함수를 통합 개선한 것 */
/* (hz)Hz의 음을 ti/1000 초 동안 지속               */ 
{
   unsigned long start;
   start=biostime(0,0);      /* start에 시작 시간 기록 */                 
   sound(hz);                /* (hz)Hz의 소리를 발생   */  
   while (((biostime(0,0)-start)*10000)<(ti*182)) {};  
   /* 주어진 시간만큼 기다리는 부분 */
   nosound();                /* 소리발생 중지 */
}

(설명)

Turbo-C에서 음악기능을 위해 준비된 함수는 sound(),
delay(), nosound() 3개

sound(100); -> 100Hz의 소리를 스피커를 통해 발생

delay(100); -> 100ms (약 0.1초)를 기다린다.

* delay()함수의 문제점 :

1.예를 들어 delay(100); 명령에서 100ms이상의 시간 소요.
그 후로는 제대로 작동

2.CPU 성능에 따라 지연되는 시간이 다르다.
즉 CPU가 빠르면 지연되는 시간이 줄어든다.

* 해결책 :

1.프로그램의 처음에 delay(0); 명령을 하나 주면 된다.
이 명령도 얼마간의 시간을 지연시킨다.
그래서 새로운 함수를 만들어 쓴다.

while(((biostime(0,0)-start)/18.2)<(ti/1000)) {};

biostime()은 시간을 측정하는 함수인데 우선 start 변수에
그때의 시간이 기록되고 그 시간에서 현재시간을 뺀 것이
ti 변수내용과 같을 때까지 순환을 반복하는 것이 이
프로그램의 골격

biostime()에서 쓰는 단위는 측정된 시간,즉 현재 시간에서
start를 뺀 것을 18.2로 나누어야만 초단위로 된다.
또 ti 변수로 오는 내용을 초단위로 바꾸어 주기 위해
1000을 나누어 주었다.

* 프로그램을 작게 만들자 :

다음 두 줄을 비교해 보자.
첫째줄은 실수 연산이 들어가는데 비해 둘째줄은
정수연산 뿐이다.
이것을 더욱 많이 이용하여 프로그램 속의 나눗셈을
정수연산을 이용한 함수로 직접 만들 수도 있을 것이다.
물론 실수연산보다는 정수연산 쪽이 크기도 작아지고
속도도 더 빠르다.

while(((biostime(0,0)-start)/18.2)<(ti/1000)) {}; /* 실수연산 이용 */

while (((biostime(0,0)-start)*10000)<(ti*182)) {}; /* 정수연산만 이용 */

2.CPU성능에 상관없이 일정한 시간을 지연시키는
함수를 새로 제작

void wait(unsigned int sec)
/* CPU 성능에 관계없이 일정한 시간(sec/1000초)      */
/* 동안 지연시키는 함수                             */
/* delay() 함수는 CPU속도에 따라 지연시간이 틀리다. */
{
   long clk;

   clk=(65536L*(long)sec)/5000L;
   while(clk > 0) {
      while(inportb(0x61) & 0x10);   /* inport(port); port로부터 1바이트를 읽어들인다. */ 
      while(!(inportb(0x61) & 0x10));
      clk--;
   }
}

* 각 음계에 해당하는 주파수 = 16.35*2^(음정/12+옥타브)