# $Header: /home/cvsroot/tcldb/wisql/Tlib/outXess,v 1.1.1.1 1996/10/12 02:26:27 de Exp $
# tcl procs saved on Tue Sep 05 09:33:08 PDT 1995

proc outXess arg {

	set err [catch {set loc [xs get_location]}]

	if {$err} {
		echo "Sorry, cannot use the xs connection, something is wrong."
		return
	}

	set r [lindex [xess decode_cell $loc] 0]
	set c1 [lindex [xess decode_cell $loc] 1]

	set c $c1

	set c $c1
	foreach val $arg {
        set dest [xess encode_cell $r $c 00]
        xs store $dest $val
        incr c
	}
	incr r

	set newloc [xess encode_cell $r $c1 11]
	xs goto $newloc

	xs flush

}

