      INTEGER LINE(102),STR(102)
      INTEGER EQUAL,GETLIN,GETWRD,OPEN
      INTEGER INFILE(5),LEN,LEVEL,LOC,I
      INTEGER INCL(8)
      INTEGER AAAAA0(30)
      DATA INCL/233,238,227,236,245,228,229,0/
      DATA AAAAA0/170,243,186,160,227,225,238,167,244,160,239,240,229,23
     *8,160,233,238,227,236,245,228,229,160,230,233,236,229,170,238,0/
      INFILE(1)=-10
      LEVEL=1
      GOTO 10002
10000 LEVEL=LEVEL-(1)
10002 IF((LEVEL.LE.0))GOTO 10001
10003   IF((GETLIN(LINE,INFILE(LEVEL)).EQ.-1))GOTO 10004
          LOC=1
          LEN=GETWRD(LINE,LOC,STR)
          IF((EQUAL(STR,INCL).NE.0))GOTO 10005
            CALL PUTLIN(LINE,-11)
            GOTO 10006
10005       LEVEL=LEVEL+(1)
            IF((LEVEL.LE.5))GOTO 10007
              CALL ERROR('includes nested too deeply.')
10007       LEN=GETWRD(LINE,LOC,STR)
            I=1
            IF((STR(1).EQ.167))GOTO 10009
            IF((STR(1).EQ.162))GOTO 10009
            GOTO 10008
10009         I=2
              STR(LEN)=0
10008       INFILE(LEVEL)=OPEN(STR(I),1)
            IF((INFILE(LEVEL).NE.-3))GOTO 10010
              CALL PRINT(-15,AAAAA0,STR(I))
              LEVEL=LEVEL-(1)
              CALL PUTLIN(LINE,-11)
10010     CONTINUE
10006   GOTO 10003
10004   IF((LEVEL.LE.1))GOTO 10011
          CALL CLOSE(INFILE(LEVEL))
10011 GOTO 10000
10001 CALL SWT
      END
C ---- Long Name Map ----
