sub put_output( string put_str by desc )
!	Written by Michael W. Wheeler (mww@tntech.bitnet)
!	VAX Basic V3.1
!	Copyright (c) by Michael W. Wheeler, September 1987
!	This program is intended for Public Domain, and may not be sold or
!	marketed in any form without the permision and written consent
!	from the author Michael W. Wheeler.  I retain all copyrights to
!	this program, in either the original or modified forms, and no
!	violation, deletion, or change of the copyright notice is
!	allowed.  Futhermore, I will have no liability or responsibilty
!	to any user with respect to loss or damage caused directly or
!	indirectly by this program.

! Labels
!	none.

! Constants
!	none.

! Types
!	none.

! Variables
declare long		sys_status
declare word		io_function, get_len
declare string		get_str
common (io_w) word	chan, max_dir, cursor_len, start_row, start_col
common (io_l) long	term_table, col_len, num_cols, tt_cols, tt_rows
common (putstr) word	output_row

! Functions
!	none.

if term_table <> 0% then
    output_row = output_row + 1%
    if output_row > tt_rows - 2% then
	call get_input( get_str, "Press RETURN to continue ... ", get_len )
	output_row = 0%
    end if
end if

print #2%, put_str

subend