 Usage:  no=select0item(stitle,sitems,atitle)  
 
 Input:

  stitle                 menu title. 
                         
  sitems                 menu items. 
                         
  atitle                 optional, an alternative menu title if an error 
                         (more than 1 selection) occurred. 
                         
 Output:

  no                     number of selected item. 0 for no selection. 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
