proc trf_init {} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/trf_init,v 1.1.1.1 1996/10/12 01:08:27 de Exp $

	global trf_len trf_wid trf_arr trf_sav trf_lin trf_pag
	global trf_pnf trf_pnx trf_pny trf_blk trf_pnn

#	set up defaults
	if {![info exists trf_sav]} {
		set trf_sav ""
	}
	if {![info exists trf_wid]} {
		set trf_wid 80
	}
	if {![info exists trf_len]} {
		set trf_len 66
	}
	if {![info exists trf_blk]} {
		set trf_blk 0 
	}
	if {![info exists trf_pnn]} {
		set trf_pnn 1 
	}

	set lin 1
	set hdr 0
	loop i 1 [expr $trf_len + 1] {
		if {[lsearch $trf_sav $i] < 0} {
		set trf_arr($i) [replicate " " $trf_wid]
		} else {
		set hdr 1
		incr lin
		}
	}
# stick those page numbers where they belong eh
	loop j 1 [expr $trf_pnn + 1] {
	if {[info exists trf_pnf($j)]} {
		trf_place $trf_pny($j) $trf_pnx($j) $trf_pag $trf_pnf($j) 0 {} HDR
	}
	}
#
	set trf_lin $lin

}
