/*)LIBRARY
*/
/*
 * P$MMENU - Show multiple choice menu frame
 */
extern mmenu();

p$mmenu(optstr, optlen, nopts, lim, sels, addopt, msg1, msg2, stat)
char *optstr;                          /* Array of fixed-length option strs */
int optlen;                            /* Fixed length of option strings */
int nopts;                             /* Number of options */
int lim;                               /* Limit to number of selections */
int *sels;                             /* Returned array of selected options */
int addopt;                            /* TRUE = enable additional opt's */
char *msg1;                            /* Message for line 23 or NULL */
char *msg2;                            /* Message for line 24 or NULL */
int *stat;                             /* --> 2 word status block */
   {
   int i, nsel, m1len, m2len;

   m1len = strlen(msg1);
   m2len = strlen(msg2);
   for(i=0; i<lim; i++)
      sels[i] = -1;

   call(mmenu, 12, stat, optstr, &optlen, &nopts, &lim, &nsel, sels, &addopt,
         msg1, &m1len, msg2, &m2len);
   return(stat[0]);
   }