INTEGER NAME(102),BUF(102)
      INTEGER MAPUP,EQUAL,GETLIN,GETARG,OPEN
      INTEGER FROMSI,I,J,FD
      INTEGER AAAAA0(11)
      DATA AAAAA0/189,245,243,229,242,236,233,243,244,189,0/
      FD=OPEN(AAAAA0,1)
      IF((FD.NE.-3))GOTO 10000
        CALL ERROR('user name list file not available.')
10000 IF((GETARG(1,NAME,102).NE.-1))GOTO 10001
        FROMSI=1
        GOTO 10002
10001   FROMSI=0
10002 IF((NAME(1).NE.173))GOTO 10003
        CALL FCOPY(FD,-11)
        CALL CLOSE(FD)
        CALL SWT
10003 I=1
10004   IF((FROMSI.NE.1))GOTO 10005
          IF((GETLIN(NAME,-10).NE.-1))GOTO 10006
            GOTO 10007
10006     GOTO 10008
10005     IF((GETARG(I,NAME,102).NE.-1))GOTO 10009
            GOTO 10007
10009     I=I+(1)
10008   J=1
        GOTO 10012
10010   J=J+(1)
10012   IF(((NAME(J).EQ.0).OR.(NAME(J).EQ.138)))GOTO 10011
          NAME(J)=MAPUP(NAME(J))
        GOTO 10010
10011   GOTO 10015
10013   J=J+(1)
10015   IF((J.GT.33-1))GOTO 10014
          NAME(J)=160
        GOTO 10013
10014   NAME(33)=0
10016     IF((GETLIN(BUF,FD).NE.-1))GOTO 10017
            GOTO 10018
10017     BUF(33)=0
          IF((EQUAL(BUF,NAME).NE.1))GOTO 10019
            BUF(33)=160
            CALL PUTLIN(BUF,-11)
            GOTO 10018
10019   CONTINUE
        GOTO 10016
10018   CALL REWIND(FD)
      GOTO 10004
10007 CALL CLOSE(FD)
      CALL SWT
      END
C ---- Long Name Map ----