parameter even=1,odd=2,none=0,ones=4

	common /vthflags/ halfdup,uline,sendfile,sync_wait,fill,logfile,
     *		command_char

	logical*1 halfdup ! true means a half duplex machine
	logical*1 uline ! underline input in session log (requires halfdup)
	logical*1 sendfile ! means file transfer outward is in progress
	logical*1 sync_wait ! waiting for sync to continue transfer
	logical*1 fill ! true means vth is NOT to swallow fill characters
	logical*1 logfile ! true means to create a logfile
	character*1 command_char ! code to get back to vth command mode


	include 'jpidef.for/nolist'
	include 'accdef.for/nolist'
	include 'ssdef.for/nolist'
	include 'dibdef.for/nolist'
	include 'iodef.for/nolist'