no display name and no $DISPLAY environment variable
    while executing
"load /enadisk/commun/linux/local/ActiveTcl-8.6.11/lib/libtk8.6.so Tk"
    ("package ifneeded Tk 8.6.11" script)
    invoked from within
"package require Tk"
    (in namespace eval "::request" script line 1)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
package require Tk

grid [text .t -wrap none] [scrollbar .sy -orient vertical -command yset] -sticky ewns
grid [scrollbar .sx -orient horizontal -command xset] -sticky ewns
grid [entry .x -textvariable x]
grid [entry .y -textvariable y]
grid [button .a -text Adjust -command adjust]

grid rowconfigure . 0 -weight 1
grid columnconfigure . 0 -weight 1

set wx 150
set wy 30

set dta {}
set nx 10000
set ny 5000
if {1} { 
    for {set i 0} {$i < $ny} {incr i} {
	set l {}
	for {set j 0} {$j < $nx} {incr j} {
	    set c [lindex {a b c d e f g h i j k l} [expr {int(rand()*10)}]]
	    lappend l $c $c
	}
	lappend dta $l
    }

    set f [open LM.DAT w]
    puts $f [join $dta \n]
    close $f
}

set f [open LM.DAT r]
set dta [split [read $f] \n]
close $f

.t tag configure a -background red
.t tag configure b -background green
.t tag configure c -background blue
.t tag configure d -background yellow

proc xset {cmd n {unit ""}} {
    global x nx wx
    switch -exact -- $cmd {
	scroll {
	    switch -exact -- $unit {
		units {
		    incr x $n
		}
		pages {
		    incr x [expr {$n*$wx}]
		}
	    }
	}
	moveto {
	    set x [expr {int($n*$nx)}]
	}
    }
    if {$x < 0} {
	set x 0
    }
    if {$x+$wx > $nx} {
	set x [expr {$nx-$wx}]
    }
    adjust
}

proc yset {cmd n {unit ""}} {
    global y ny wy
    switch -exact -- $cmd {
	scroll {
	    switch -exact -- $unit {
		units {
		    incr y $n
		}
		pages {
		    incr y [expr {$n*$wy}]
		}
	    }
	}
	moveto {
	    set y [expr {int($n*$ny)}]
	}
    }
    if {$y < 0} {
	set y 0
    }
    if {$y+$wy > $ny} {
	set y [expr {$ny-$wy}]
    }
    adjust
}

proc adjust {} {
    global x y dta nx ny wx wy
    .t delete 1.0 end
    for {set i $y} {$i < [expr {$y+$wy}]} {incr i} {
	set l [lindex $dta $i]
	set l [lrange $l [expr {$x*2}] [expr {($x+$wx)*2-1}]]
	.t insert end {*}$l \n ""
    }
    .sx set [expr {double($x)/$nx}] [expr {double($x+$wx-1)/$nx}]
    .sy set [expr {double($y)/$ny}] [expr {double($y+$wy-1)/$ny}]
}

set x 0
set y 0

adjust