//See $LK,"Menus",A="HI:Menus"$

#define M_OPTION1	1
#define M_OPTION2	2

U0 PullDownMenuDemo()
{
  I64 msg_code,arg1,arg2;
  CMenuEntry *tmpse;

  MenuPush(
	"File {"
	"  Open(,'O');"
	"  Save(,'S');"
	"  Exit(,CH_SHIFT_ESC);"
	"}"
	"Edit {"
	"  Cut(,,SC_DELETE|SCF_SHIFT);"
	"  Paste(,,SC_INS|SCF_SHIFT);"
	"}"
	"Misc {"
	"  Beep(,CH_SPACE);"
	"  Opt1(MSG_CMD,M_OPTION1);"
	"  Opt2(MSG_CMD,M_OPTION2);"
	"}"
	"Help {"
	"  Help(,,0x3B0000003B);"
	"  About(,,0x23B0000023B);"
	"}");

  "A pull-down menu will appear "
	"if you move the mouse to the top "
	"of the scrn.\n\n";

  do {
    msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN+1<<MSG_CMD);
    "\nCmd:%d ARG1:%X ARG2:%X\n\n",msg_code,arg1,arg2;

    switch (msg_code) {
      case MSG_KEY_DOWN:
	switch (arg1) {//ASCII
	  case CH_SPACE:
	    Beep;
	    break;
	  case 0:
	    switch (arg2.u8[0]) {//arg2=Scan code
	      case SC_F1:
		if (arg2&SCF_SHIFT)
		  "About PullDown Demo\n";
		else
		  "Test the menu.\n";
		break;
	      case SC_DELETE:
		if (arg2&SCF_SHIFT)
		  "Cut\n";
		break;
	      case SC_INS:
		if (arg2&SCF_SHIFT)
		  "Paste\n";
		break;
	    }
	    break;
	}
	break;

      case MSG_CMD:
//I Recommend making your menu
      //drive by key strokes, but you can
      //use the $LK,"MSG_CMD",A="MN:MSG_CMD"$ val.
	switch (arg1) {
	  case M_OPTION1:
	    "Option # 1\n";
	    if (tmpse=MenuEntryFind(Fs->cur_menu,"Misc/Opt1"))
	      tmpse->checked=!tmpse->checked;
	    break;
	  case M_OPTION2:
	    "Option # 2\n";
	    if (tmpse=MenuEntryFind(Fs->cur_menu,"Misc/Opt2"))
	      tmpse->checked=!tmpse->checked;
	    break;
	}
	break;
    }

  } while (msg_code!=MSG_KEY_DOWN||(arg1!=CH_SHIFT_ESC && arg1!=CH_ESC));
  MenuPop;
}

PullDownMenuDemo;