Příklady - Použití menu

  -- Příklad použití menu v systému --
  MInit(1, 1,1, mnuManager,
                "TESTY 1",    kbNoKey, mnuSubMenu+4,
                    "Sub 1",        kbNoKey,    mnuSubMenu+6,
                        "Sub 2",       kbNoKey,    mnuSubMenu+2,
                            "T4/1  ",         kbNoKey,    31,
                            "T4/2  ",         kbNoKey,    32,
                        "",               kbNoKey,    mnuLine,
                        "T4/1  ",         kbNoKey,    31,
                        "T4/2  ",         kbNoKey,    32,
                        "T4/3  ",         kbNoKey,    33,
                        "T4/4  ",         kbNoKey,    34,
                    "",             kbNoKey,    mnuLine,
                    "T1/1",         kbNoKey,    1,
                    "T1/2",         kbNoKey,    2,
                "TESTY 2",    kbNoKey, mnuSubMenu+3,
                    "T2/1",         kbNoKey,    21,
                    "T2/2",         kbNoKey,    22,
                    "T2/3",         kbNoKey,    23,
                "KONEC",      kbESC, 100);
  MOpen(1)
  repeat
    MMake(1, Comm)
    if Comm = 100 then MDone(1) Exit endif
    on Comm     gosub L1, L2
    on Comm-20  gosub L21, L22, L23
    on Comm-30  gosub L31, L32, L33, L34
  until False;
  L1:  -- ošetření voleb --
  return
  .
  .