home *** CD-ROM | disk | FTP | other *** search
-
- #
- # PHONE Wavepool program
- #
- # Copyright 1992, Data Assist, Inc.
- #
-
- BEGIN {
- screate("phone.sou")
-
- for (x=1; x<=10; ++x) {
- print "x=", x;
- sinwave2(523, 659, 400);
- sinwave2(659, 523, 400);
- }
- sclose(0)
- sndvoc("phone.sou", "phone.voc");
- }
-
-
-