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

	include 'jpidef.for'
	include 'accdef.for'
	include 'ssdef.for'
	include 'dibdef.for'


	external io$_readpblk,io$_writepblk,io$_setmode,io$m_ctrlcast
	external io$m_purge, io$m_noecho, io$m_trmnoecho, io$_readlblk
	external io$m_timed