parse /widget /quiet
define integer nf nq na nw
! pro%parse is a Global variable, so remember the argument values for later use
let nf pro%parse%widget%narg
let nq pro%parse%quiet%narg
let na pro%parse%command%narg
if nf.ge.1 let nw 'pro%parse%widget%arg[1]'
!
@ uvfit_setup
!
if (nf.le.0) then
  let uvf%widget NO
  let uvf%nf na
  for i 1 to uvf%nf
    @ uvfit_subpar 'i'
  next
  !
else
  let uvf%nf nw
  let uvf%widget YES
  gui\panel "UV_FIT parameters" gag_pro:x_uvfit.hlp
  sic\let uvf%nf 'uvf%nf'  /prompt "Number of fitted functions" /choice ! No choice, fixed value
  !
  for i 1 to uvf%nf
    @ uvfit_subpar 'i'
  next
  if nq.le.0 then
    gui\go "UV_FIT"
  else
    gui\go "UV_FIT /QUIET"
  endif
endif
