Posted to tcl by _E-bola at Tue Jul 17 18:45:05 GMT 2007view pretty

  set o 0
  foreach e [lrange  "--"] 0 end] {
    if {[string tolower [lindex $e 0]] == "bytesize"} {
      set nfo(bytesize) [lrange $e 1 end]
    }
    if {[string tolower [lindex $e 0]] == "vstandard"} {
      set nfo(vstandard) [lrange $e 1 end]
    }
.....
more of the same below