function  __barchoice(x, x1, y, f, b, h: byte; st: string): byte;

   Usage:
   __barchoise(10, 30, 12, lightblue, black, lightred,
     ' Keep_option    Kill_it!     Next '
   );
   Where you can press <SPACE>, <LEFT?, <RIGHT>, <ESC>, <ENTER> or one of the
   uppercasedm, direct, letterkeys.
   Returns
     0 = Esc
     1 = Item 1
     .
     .
     N = Item N