[an error occurred while processing this directive]
|
Вот рыба простейшего меню:
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)
runswitchcase 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
}
}