hschumann2/TempleOS-Source-Code

1 2 3<1>/* Graphics Not Rendered in HTML */4 5 6U0 MenuSprite()7{8  I64 i;9  DocPut->flags|=DOCF_FORM; //Cursor navigation will skip empty locations.10  while (TRUE) {11    DocClear;12    '\n';13 14    //Sprite with flags for left-expression and an exit.15    //See doldoc.dft_de_flags.  Note the %d in the string for the sprite number.16    Sprite(<1>,"$LTBLUE$$SP+X,\"50 Hz\",LE=50,BI=%d$");17 18    "\n\n\n"19          "$MU,\"100 Hz\",LE=100$\n"20          "$MU,\"200 Hz\",LE=200$\n"21          "$MU,\"CANCEL\",LE=DOCM_CANCEL$\n";22    i=DocMenu(DocPut);23    if (i>0)24      Snd(Freq2Ona(i));25    else26      break;27  }28  Snd;29  DocClear;30  '\n';31  DocPut->flags&=~DOCF_FORM;32}33 34MenuSprite;35