ttnam.f

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

	program ttnam
	character*19 ttynam
	write(*,*) ttynam(6), ":", ttynam(1), ":"
	end