NJG December 30, 2004
-aaaaaaaaaaaaaaaaaaaaaa append txt1 [string range $txt $st [expr $p_st - 1]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
}
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
}aaaaaaaa aaaaaaaaaaaaaaaaaaaee ezarzet retreyrtyyuyuorted.... Or was I just lazy?!With this extension in place the following code produces identical output to the one above (except that now txt1 holds the result).
set st 0 append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
} append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
}
set nr 0
proc sbst {} {
uplevel #0 {
set p_st [lindex $mVar0 0]
append txt1 [string range $txt $st [expr $p_st - 1]]
set st [lindex $mVar0 1]
set var [string range $txt $p_st $st]
incr st
if {[catch {set vn($var)}]} {
set vn($var) xx$nr
incr nr
}
append txt1 $vn($var)
}
}
regexp -inline -indices -all {[IO10l]{10,}} $txt sbst
append txt1 [string range $txt $st end]HAPPY AND PROSPEROUS 2005 TO ALL OF YOU