INTEGER FD
      INTEGER STATE(4)
      INTEGER OPEN,GFNARG
      INTEGER GETARG
      INTEGER NAME(102)
      INTEGER AAAAA0
      INTEGER AAAAB0(37)
      INTEGER AAAAC0(31)
      INTEGER AAAAD0(12)
      INTEGER AAAAE0(17)
      INTEGER AAAAF0
      DATA AAAAB0/229,227,232,239,160,229,248,244,242,225,227,244,233,23
     *8,231,160,167,170,243,167,160,190,175,228,229,246,175,243,244,228,
     *239,245,244,179,170,238,0/
      DATA AAAAC0/190,190,160,227,244,239,160,167,197,238,228,160,239,23
     *0,160,170,243,167,160,252,160,227,225,244,160,190,170,243,170,238,
     *0/
      DATA AAAAD0/197,238,228,160,239,230,160,170,243,170,238,0/
      DATA AAAAE0/170,243,186,160,227,225,238,167,244,160,239,240,229,23
     *8,170,238,0/
      IF((GETARG(1,NAME,102).NE.-1))GOTO 10000
        CALL ERROR('usage: shar <file> { <file> @.@.@. }.')
10000 STATE(1)=1
10001   AAAAA0=GFNARG(NAME,STATE)
        GOTO 10002
10003     GOTO 10004
10005     FD=OPEN(NAME,1)
          IF((FD.EQ.-3))GOTO 10006
            CALL PRINT(-11,AAAAB0,NAME)
            CALL PRINT(-11,AAAAC0,NAME,NAME)
            CALL FCOPY(FD,-11)
            CALL CLOSE(FD)
            CALL PRINT(-11,AAAAD0,NAME)
            GOTO 10007
10006       CALL PRINT(-15,AAAAE0,NAME)
10007   GOTO 10008
10009     CALL ERROR('usage: shar <file> { <file> @.@.@. }.')
        GOTO 10008
10002   AAAAF0=AAAAA0+4
        GOTO(10009,10005,10003),AAAAF0
10008 CONTINUE
      GOTO 10001
10004 CALL SWT
      END
C ---- Long Name Map ----