/* NutEmSel: Choose which model to run with NutEm/PC */
   delim = '00'x
   fmask = 'Config file (*.CFG)'  || delim || '*.CFG' || delim
   parse source . . f
   fid = FileNameDialog(filespec('L', f)'NutEmPC\', ,,
          fmask, 1, 'Choose which CFG to use')
   select
      when fid = 0 then say 'No file selected.'                 /* under rexxhide a nop */
      when upper(FileSpec("E", fid)) <> "CFG" then exit,        /* quit */
       RxMessageBox('Filetype of' FileSpec("N", fid) 'is not .CFG',
       , 'Pls consider', 'OK', 'INFORMATION')
      otherwise
      address '' 'CD' FileSpec("P", fid)                /* so NutEmPC finds the CFG file */
      call NutEmPC.rx fid
   end

::requires "ooDialog.cls"