datst.f

<B>Digital的Unix操作系统VAX 4.2源码</B>

	character*24 fdate
	integer id(3), it(3)
	write(*,*) fdate()
	call itime(it)
	call idate(id)
	write(*,*) id, it
	end