      INTEGER I
      INTEGER C
      INTEGER FD,TFD
      INTEGER BUF1(102)
      INTEGER BUF2(102)
      INTEGER MNTOC
      INTEGER OPEN,MKTEMP
      INTEGER EQUAL,LENGTH,GETLIN
      INTEGER AAAAA0(16)
      INTEGER AAAAB0(16)
      INTEGER AAAAC0(5)
      INTEGER AAAAD0(5)
      INTEGER AAAAE0(7)
      INTEGER AAAAF0(8)
      INTEGER AAAAG0(6)
      INTEGER AAAAH0(9)
      INTEGER AAAAI0(8)
      INTEGER AAAAJ0(5)
      INTEGER AAAAK0(5)
      INTEGER AAAAL0(11)
      INTEGER AAAAM0(9)
      INTEGER AAAAN0(5)
      INTEGER AAAAO0(5)
      INTEGER AAAAP0(5)
      INTEGER AAAAQ0(7)
      DATA AAAAA0/189,246,225,242,243,189,175,170,243,175,174,246,225,24
     *2,243,0/
      DATA AAAAB0/227,225,238,167,244,160,239,240,229,238,160,170,243,17
     *0,238,0/
      DATA AAAAC0/170,243,170,238,0/
      DATA AAAAD0/223,229,239,230,0/
      DATA AAAAE0/223,229,242,225,243,229,0/
      DATA AAAAF0/223,229,243,227,225,240,229,0/
      DATA AAAAG0/223,235,233,236,236,0/
      DATA AAAAH0/223,238,229,247,236,233,238,229,0/
      DATA AAAAI0/223,242,229,244,249,240,229,0/
      DATA AAAAJ0/170,243,170,238,0/
      DATA AAAAK0/170,243,170,238,0/
      DATA AAAAL0/223,235,233,236,236,223,242,229,243,240,0/
      DATA AAAAM0/170,243,188,204,198,190,170,238,0/
      DATA AAAAN0/170,243,170,238,0/
      DATA AAAAO0/170,243,170,238,0/
      DATA AAAAP0/170,243,170,238,0/
      DATA AAAAQ0/188,170,243,190,170,238,0/
      TFD=MKTEMP(3)
      IF((TFD.NE.-3))GOTO 10000
        CALL ERROR('can''t open temporary file')
10000 CONTINUE
10001 IF((GETLIN(BUF1,-10,102).EQ.-1))GOTO 10002
        BUF1(LENGTH(BUF1))=0
        CALL ENCODE(BUF2,102,AAAAA0,BUF1)
        FD=OPEN(BUF2,3)
        IF((FD.NE.-3))GOTO 10003
          CALL PRINT(-15,AAAAB0,BUF2)
          GOTO 10001
10003   CALL PRINT(-11,AAAAC0,BUF1)
        CALL REWIND(TFD)
        CALL TRUNC(TFD)
10004   IF((GETLIN(BUF1,FD,102).EQ.-1))GOTO 10005
          IF((BUF1(LENGTH(BUF1)).NE.138))GOTO 10006
            BUF1(LENGTH(BUF1))=0
10006     GOTO 10007
10008       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10010       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10011       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10012       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10013       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10014       CALL GETLIN(BUF2,FD,102)
          GOTO 10009
10009       CALL PRINT(TFD,AAAAJ0,BUF1)
          GOTO 10015
10007     IF((EQUAL(AAAAD0,BUF1).EQ.1))GOTO 10008
          IF((EQUAL(AAAAE0,BUF1).EQ.1))GOTO 10010
          IF((EQUAL(AAAAF0,BUF1).EQ.1))GOTO 10011
          IF((EQUAL(AAAAG0,BUF1).EQ.1))GOTO 10012
          IF((EQUAL(AAAAH0,BUF1).EQ.1))GOTO 10013
          IF((EQUAL(AAAAI0,BUF1).EQ.1))GOTO 10014
            CALL PRINT(TFD,AAAAK0,BUF1)
            CALL GETLIN(BUF2,FD,102)
            IF((BUF2(LENGTH(BUF2)).NE.138))GOTO 10016
              BUF2(LENGTH(BUF2))=0
10016       IF((EQUAL(AAAAL0,BUF1).NE.1))GOTO 10017
              CALL PRINT(TFD,AAAAM0,BUF2)
              GOTO 10018
10017         CALL PRINT(TFD,AAAAN0,BUF2)
10018       GOTO 10004
10015     IF((BUF2(LENGTH(BUF2)).NE.138))GOTO 10019
            BUF2(LENGTH(BUF2))=0
10019     IF((LENGTH(BUF2).GT.1))GOTO 10020
            CALL PRINT(TFD,AAAAO0,BUF2)
            GOTO 10004
10020     I=1
          C=MNTOC(BUF2,I,0)
          IF((C.NE.0))GOTO 10021
            CALL PRINT(TFD,AAAAP0,BUF2)
            GOTO 10022
10021       CALL PRINT(TFD,AAAAQ0,BUF2)
10022   GOTO 10004
10005   CALL REWIND(FD)
        CALL REWIND(TFD)
        CALL FCOPY(TFD,FD)
        CALL CLOSE(FD)
      GOTO 10001
10002 CALL RMTEMP(TFD)
      CALL SWT
      END
C ---- Long Name Map ----