!Last Modified:   5-OCT-1988 10:03:32.61, By: FLEMING 
procedure eve_journal_close
	journal_close;
endprocedure
!
procedure eve_open_journal
local	this_file,prompt;
on_error
	if error = tpu$_jnlnotopen then
		message("%EVEPLUS-E-JNLNOTOPEN error in opening journal file");
		return;
	endif;
endon_error;
	prompt := "Name of Journal file <default name tpu.tjl>: ";
	this_file := read_line(prompt);
	if (this_file = "")   then
		this_file := "tpu.tjl";
	endif;
	journal_open(this_file);
	message("Journaling enabled");
endprocedure
! Function to increase or decrease frequency buffer is flushed to
! journal file.
procedure eve_set_journal
local	alfanumber,number,prompt;
	
	prompt := "Enter journal frequency number <1-10> : ";
	alfanumber := read_line(prompt);
	edit(alfanumber,TRIM);           ! tidy it up
	number := int(alfanumber);
	if (number = 0) or (number>10) then
		message("Illegal number entered must be between 1 and 10");
	else
		set(journaling,number);
	endif;
endprocedure