SUBROUTINE INITLO 
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      LOGICAL     ATEST 
      COMMON      /ATST/   ATEST
    
      INTEGER     WOPTR,  WO (64), TLI,     TL (128)
      INTEGER     BO,     SS,      SS2,     NRFCH   
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL  
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH   
    
      INTEGER     CODE  
      INTEGER     NOUNLC
      INTEGER     DATALC
      INTEGER     COMLOC
      INTEGER     FBLOCK
      INTEGER     ZREL  
      INTEGER     ABSLC 
      INTEGER     CBTAB (15)
      INTEGER     CBX   
      INTEGER     LCTAB (15)
      COMMON      /LCFUNC/ CODE 
      COMMON      /LCFUNC/ NOUNLC   
      COMMON      /LCFUNC/ DATALC   
      COMMON      /LCFUNC/ COMLOC   
      COMMON      /LCFUNC/ FBLOCK   
      COMMON      /LCFUNC/ ZREL 
      COMMON      /LCFUNC/ ABSLC
      COMMON      /LCFUNC/ CBTAB
      COMMON      /LCFUNC/ CBX  
      COMMON      /LCFUNC/ LCTAB
    
      INTEGER     STK (20, 13)  
      INTEGER     NAMEX (40)
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14
      EQUIVALENCE (STK (1,1), NAMEX (1))
    
      INTEGER     OSTACK (20)   
      EQUIVALENCE (STK (1, 8), OSTACK (1))  
    
      INTEGER     STUFFO, STUFFN
      COMMON      /CSTUFF/ STUFFO, STUFFN   
    
      INTEGER     SCR1 (6), SCR2 (6)
      DATA  SCR1     /'LO','GO','SZ','01','  ','  '/
      DATA  SCR2     /'LO','GO','SZ','02','  ','  '/
    
      INTEGER     EXFLT,   FLTNR
      COMMON      /FLTS/   EXFLT,   FLTNR   
      INTEGER FILENA(16),IBLANK,ICHARS,ICLARL,ICHARO
      INTEGER GCHAR,CHAR
      INTEGER DFLTRB(15)
      DATA DFLTRB/'LO','GO','SR','B ',11*0/ 
      DATA IBLANK,ICHARS,ICHARL,ICHARO/32,83,76,79/ 
      CALL OPENN(SS,SCR1,IERR)  
      CALL OPENN(SS2,SCR2,IERR) 
      CONTINUE  
13002 CONTINUE  
    
      CALL WRLIN(CO,' INPUT FILE:',12)  
      CALL RDLIN(CI,FILENA,30,IERR) 
      IF(IERR.NE.1)STOP 199 
      CALL OPENF(PI,FILENA,IERR)
      IF (.NOT.(IERR.NE.1))GO TO 13003  
    
      GO TO 13002   
13003 CONTINUE  
    
      CALL WRSEQ(SS2,FILENA,30) 
      I=30  
      CONTINUE  
13004 CONTINUE  
    
      CHAR=GCHAR(FILENA,I)  
      IF (.NOT.(CHAR.EQ.IBLANK))GO TO 13005 
    
      I=I-1 
      GO TO 13004   
13005 CONTINUE  
    
      CALL WRLIN(CO,' LISTING FILE:',14)
      CALL RDLIN(CI,FILENA,30,IERR) 
      IF (.NOT. (IERR.EQ.1.AND.GCHAR(FILENA,1).NE.IBLANK))GO TO 13006
    
      CALL OPENN(LO,FILENA,IERR)
      GO TO 13007   
13006 CONTINUE  
    
      CALL OPENN(LO,'LOGOSLST  ',IERR)  
13007 CONTINUE  
    
      IF(IERR.NE.1)STOP 299 
      CALL WRLIN(CO,' OUTPUT FILE: ',14)
      CALL RDLIN(CI,FILENA,30,IERR) 
      IF (.NOT. (IERR.EQ.1.AND.GCHAR(FILENA,1).NE.IBLANK))GO TO 13008
    
      CALL WRSEQ(SS2,FILENA,30,IERR)
      GO TO 13009   
13008 CONTINUE  
    
      CALL WRSEQ(SS2,DFLTRB,30,IERR)
13009 CONTINUE  
    
      IF(IERR.NE.1)STOP 399 
      OPX=2 
      OSTACK(1)=1026
      LCI=DATALC
      CALL RBOTH(CODE)  
      CALL NLINIT   
      ATEST=.FALSE. 
      STUFFO=0  
      EXFLT=0   
      FLTNR=0   
      RETURN
      END