15 lines
238 B
Plaintext
15 lines
238 B
Plaintext
//Practice your ASCII knowledge ;-)
|
|
|
|
void Organ()
|
|
{
|
|
U1 ch;
|
|
coutln "Press keys to make sounds";
|
|
coutln "and press ESC to exit.";
|
|
do {
|
|
ch=GetKey;
|
|
Sound((ch-28)*25);
|
|
} while (ch!=CH_ESC);
|
|
Sound(0);
|
|
}
|
|
|
|
Organ; |