9-2.c

来自「Ｃ函数的大量示例」· C语言 代码 · 共 23 行

/*9-2.c*/
#include<dos.h>
main()    /* music */
{
   int note,length;
length=10;
do {
		note=getchar( );
		play(note,length);
}while (note!='q');
}
play(int note, int l)
  {
	 int tone;
		l=l+1000/note;
   for( ;l ;l--) {
	   tone=note;
outportb(0x61,2);  /* turn on speaken */
outportb(0x61,0);  /* turn off speaker */
for( ;tone;--tone);
}
}