'HEAD'  LINKER, INITIALIZATION
C     EDIT DATE   11JAN79  09:33
C     SOURCE FILE INITLZGAK.FS
C     AUTHOR      GARY A. KUDIS
C     CLUSTER     2
      'OUTFILE' INITLZGAK.FR
      SUBROUTINE INITLZ
      'INCLUDE' BITDFNGAK.IN,
      'INCLUDE' IODEFNGAK.IN,
      'INCLUDE' IOFILEGAK.IN,
      'INCLUDE' NTABLEGAK.IN,
C INITLZ ::
X     WRITE (DBCHAN, 1)
X1    FORMAT (' ENTER INITLZ')
      BIT15 = ISHFT (BIT14,1)
      TYPBTS = BIT15 + BIT14 + BIT13
      CALL OPENF (TTYIN, TIFILE, ECODE)
N     CALL OPENF (TTYOUT, TOFILE, ECODE)
X     WRITE (DBCHAN, 2)
X2    FORMAT (' EXIT INITLZ')
      RETURN
      END