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

#define M_OPTION1	1
#define M_OPTION2	2

U0 PullDownMenuDemo()
{
  I64 msg_code,a1,a2;
  CMenuEntry *tempse;

  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 screen.\n\n";

  do {
    msg_code=GetMsg(&a1,&a2,1<<MSG_KEY_DOWN+1<<MSG_CMD);
    "\nCmd:%d A1:%X A2:%X\n\n",msg_code,a1,a2;

    switch (msg_code) {
      case MSG_KEY_DOWN:
	switch (a1) {//ASCII
	  case CH_SPACE:
	    Beep;
	    break;
	  case 0:
	    switch (a2.u8[0]) {//a2=Scan code
	      case SC_F1:
		if (a2&SCF_SHIFT)
		  "About PullDown Demo\n";
		else
		  "Test the menu.\n";
		break;
	      case SC_DELETE:
		if (a2&SCF_SHIFT)
		  "Cut\n";
		break;
	      case SC_INS:
		if (a2&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 (a1) {
	  case M_OPTION1:
	    "Option # 1\n";
	    if (tempse=MenuEntryFind(Fs->cur_menu,"Misc/Opt1"))
	      tempse->checked=!tempse->checked;
	    break;
	  case M_OPTION2:
	    "Option # 2\n";
	    if (tempse=MenuEntryFind(Fs->cur_menu,"Misc/Opt2"))
	      tempse->checked=!tempse->checked;
	    break;
	}
	break;
    }

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

PullDownMenuDemo;