<1>/* Graphics Not Rendered in HTML */


U0 MenuSprite()
{
        I64 i;

        DocPut->flags |= DOCF_FORM; //Cursor navigation will skip empty locations.
        while (TRUE)
        {
                DocClear;
                '\n';

                //Sprite with flags for left-expression and an exit.
                //See doldoc.default_de_flags. Note the %d in the string for the sprite number.
                Sprite(<1>, "$LTBLUE$$SP+X,\"50 Hz\",LE=50,BI=%d$");

                "\n\n\n"
                "$MU,\"100 Hz\",LE=100$\n"
                "$MU,\"200 Hz\",LE=200$\n"
                "$MU,\"CANCEL\",LE=DOCM_CANCEL$\n";
                i = DocMenu(DocPut);
                if (i > 0)
                        Sound(Freq2Ona(i));
                else
                        break;
        }
        Sound;
        DocClear;
        '\n';
        DocPut->flags &= ~DOCF_FORM;
}

MenuSprite;