home *** CD-ROM | disk | FTP | other *** search
- /* (c) Marietta Systems, Inc. 1987
- * All rights reserved
- *
- * demonstration program for functions warble and idleloop
- */
- #include "mtest.h"
- void main(){
- int a, x = 1;
- char text[30];
- clr_scrn("Warble test");
- /*
- * set an descending range of tones
- */
- for (a = 100 ; a <= 4000 ; a += 100) {
- warble(a);
- sprintf(text,"The tone is %d",a);
- display(text, x++, x, high);
- idleloop(9); /* about half a second */
- }
- disp_msg("Press any key to switch off the speaker",1);
- read_kb();
- warble(0);
- goodbye(0);
- }