33 lines
1.1 KiB
C++
33 lines
1.1 KiB
C++
|
|
$SP,"<1>",BI=1$
|
|
|
|
|
|
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 $LK,"doldoc.dft_de_flags",A="MN:CDolDocGlbls"$. Note the %d in the string for the sprite number.
|
|
Sprite($IB,"<1>",BI=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)
|
|
Snd(i);
|
|
else
|
|
break;
|
|
}
|
|
Snd(0);
|
|
DocClear;
|
|
'\n';
|
|
DocPut->flags&=~DOCF_FORM;
|
|
}
|
|
|
|
MenuSprite; Ú ÿÿÿÿÿ ÿÿÿ ÿ ÿ ÿ ÿ ÿÿ ÿÿÿÿ ÿÿÿÿÿ ÿÿÿÿÿÿ ÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ |