proc trf_print {} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/trf_print,v 1.1.1.1 1996/10/12 01:08:27 de Exp $
	global trf_arr trf_len trf_wid trf_pag trf_fp

	loop i 1 [expr $trf_len + 1] {

		puts $trf_fp "$trf_arr($i)"

	}
	puts $trf_fp "\f"

	incr trf_pag
}
