datst.f

来自「<B>Digital的Unix操作系统VAX 4.2源码</B>」· F 代码 · 共 8 行

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