PROGRAM LOLINK
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
    
      INTEGER     CMFILE (16)   
      INTEGER     RBFILE (16)   
      INTEGER     OBFILE (16)   
      INTEGER     MPFILE (16)   
      INTEGER     DBFILE (16)   
      INTEGER     TIFILE (3)
      INTEGER ICLP03
      COMMON      /FILES / CMFILE   
      COMMON      /FILES / RBFILE   
      COMMON      /FILES / OBFILE   
      COMMON      /FILES / MPFILE   
      COMMON      /FILES / DBFILE   
      COMMON      /FILES / TIFILE   
      COMMON      /FILES / ICLP03   
C     CALL OPENN (DBCHAN, DBFILE, ECODE)
C     IF (ECODE.NE.1) STOP 99999
      CALL INITLZ   
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' LINKER INITIALIZATION COMPLETED')   
      CALL ASKQES   
C     WRITE (DBCHAN, 2) 
C    2FORMAT (' LINKER ASK QUESTIONS COMPLETED')
      CALL TOPAGE   
      CALL  LTIME   
      CALL PASS1
C     WRITE (DBCHAN, 3) 
C    3FORMAT (' LINKER PASS ONE COMPLETED') 
C     CALL LTIME
      CALL PASS2
C     WRITE (DBCHAN, 4) 
C    4FORMAT (' LINKER PASS TWO COMPLETED') 
      CALL MAPPER   
C     WRITE (DBCHAN, 5) 
C    5FORMAT (' LINKER MAPPER COMPLETED')   
      CALL  LTIME   
      CALL FINISH   
      STOP  
      END