1C
2C Copyright (c) 1980 The Regents of the University of California.
3C All rights reserved.
4C
5C %sccs.include.proprietary.f%
6C
7C @(#)ttnam.f 5.2 (Berkeley) 04/12/91
8C
9
10 program ttnam
11 character*19 ttynam
12 write(*,*) ttynam(6), ":", ttynam(1), ":"
13 end
14