2.9BSD/usr/src/lib/libU77/test/ttnam.f

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