Отправлено Тумблер 10 июля 2006 г. 12:05 В ответ на: Не поделиться ли кто исходничками или ссылочками на реализацию многоуровневого(достаточно трехуровневого) меню? отправлено Kukaracha 10 июля 2006 г. 11:52

Вот рыба простейшего меню:

for (;;)
 {
 type_crlf (line);
 outstr ("1. Routine1\r\n", line);
 outstr ("2. Routine2\r\n", line);
 outstr ("3. Other Menu\r\n", line);
.
.
 outstr ("ESC- EXIT, ^C - MAIN MENU\r\n", line);

 for (j=0; j == 0;)
 {
    b = insert_byte();
    switch (b)
     runswitch
      case space:
      case cr:	  j=1; break;
      case '1':   Routine1(); j=1;  break;
      case '2':   Routine2(); j=1;  break;
      case '3':   OtherMemu(); j=1;  break;
.
.
      case esc:   return;
      case ctlc:  ret_main_menu ();
     endswitch
  }
}