/*  (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);
}