Mine

moderun {
  if (!$4) { return }
  var %list $4-
  var %modespl $modespl
  if (%modespl > 6) { var %modespl 6 }
  while ($calc($numtok(%list,32) + 1) > %modespl) {
    mode $1 $2 $+ $str($3,%modespl) $gettok(%list,1- $+ %modespl,32)
    var %list $deltok(%list,1- $+ %modespl,32)
  }
  mode $1 $2 $+ $str($3,$numtok(%list,32) + 1)) $gettok(%list,1- $+ $calc($numtok(%list,32) + 1),32)
}
opendialog {
  if ($1 == $null) { halt }
  if ($dialog($1) == $null) { 
    if ($2 != $null) { dialog -m $1 $2- }
    else { dialog -m $1 $1 }
  }
  else { dialog -v $1 }
}