'HEAD'  COMPILER CONTROL
C     EDIT DATE   05FEB79  14:02
C     SOURCE FILE LOGOSAJH.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     1
C     INSTALLATION DATES
C
C        2.0C     31OCT78
C        2.0D     21NOV78
C        2.0E     13DEC78
C        2.0F     19JAN79/26JAN79
C        2.0G     06FEB79
      'OUTFILE'   LOGOSAJH.FR
      PROGRAM PLOGOS
      'INCLUDE'   LOGOSAJH.IN,
      CALL INITLO
      CONEND = .FALSE.
      'DO'
         CALL DIMEN
         'WHILE' (.NOT. CONEND)
            CALL PVERBL
            'END'
      CALL PASS2
      STOP
      END
'HEAD' COMPILER INITIALIZATION

      'OUTFILE' INITBPA.FR
      SUBROUTINE INITLO
      'INCLUDE' LOGOSAJH.IN,P
      'INCLUDE' ATESTAJH.IN,P
      'INCLUDE' CODE1FTM.IN,P
      'INCLUDE' LCFUNCAJH.IN,P
      'INCLUDE' STKDFA.IN,P
      'INCLUDE' STKDFD.IN,P
      'INCLUDE' STUFFAJH.IN,P
      'INCLUDE' SSNAME.IN,P
      'INCLUDE' FAULTS.IN,P
      INTEGER FILENA(16),IBLANK,ICHARS,ICLARL,ICHARO
      INTEGER GCHAR,CHAR
      INTEGER DFLTRB(15)
      DATA DFLTRB/'LOGOSRB ',11*0/
      DATA IBLANK,ICHARS,ICHARL,ICHARO/32,83,76,79/
C
C     STRATCH FILES 'LOGOSZ01' & 'LOGOSZ02'  ARE OPENED
C     INPUTFILE IS PROMPTED FOR AND OPENED
C      INPUT FILENAME PROMPTED FOR AND OPENED
C     OUTPUT FILENAME PROMPTED FOR AND WRITTEN TO SCRATCH 2
C     LISTING FILE PROMPTED FOR AND OPENED
C
      CALL OPENN(SS,SCR1,IERR)
      CALL OPENN(SS2,SCR2,IERR)
      'DO'
         CALL WRLIN(CO,' INPUT FILE:',12)
         CALL RDLIN(CI,FILENA,30,IERR)
         IF(IERR.NE.1)STOP 199
         CALL OPENF(PI,FILENA,IERR)
         'WHILE' (IERR.NE.1)
         'END'
      CALL WRSEQ(SS2,FILENA,30)
      I=30
      'DO'
         CHAR=GCHAR(FILENA,I)
         'WHILE' (CHAR.EQ.IBLANK)
         I=I-1
         'END'
C
C      PROMPT FOR LISTING FILE AND USE DEFAULT 'LOGOSLST' IF NECESS.
      CALL WRLIN(CO,' LISTING FILE:',14)
      CALL RDLIN(CI,FILENA,30,IERR)
      'IF' (IERR.EQ.1.AND.GCHAR(FILENA,1).NE.IBLANK)
         CALL OPENN(LO,FILENA,IERR)
         'ELSE'
         CALL OPENN(LO,'LOGOSLST  ',IERR)
         'ENDIF'
      IF(IERR.NE.1)STOP 299
C
C
      CALL WRLIN(CO,' OUTPUT FILE: ',14)
      CALL RDLIN(CI,FILENA,30,IERR)
      'IF' (IERR.EQ.1.AND.GCHAR(FILENA,1).NE.IBLANK)
         CALL WRSEQ(SS2,FILENA,30,IERR)
         'ELSE'
         CALL WRSEQ(SS2,DFLTRB,30,IERR)
         'ENDIF'
      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