	subroutine TINOW(seed)
	implicit real (a-h,o-z)
	character*8 t
	integer seed
	seed=0
	call TIME(t)
	seed = (ichar(t(7:7))-48) * 10
	seed = seed + ichar(t(8:8)) - 48
	return
	end

