#!/bin/tcsh
   set args = ($*)
    set number = $#args
    if($number == '0') then
       echo  '------ '  extract or x  '    :' exctract files from arc.arc
       echo  '------ '  list  or t  '       :' list files in arc.arc
       echo  '------ '  file1 file2 .... : archive the files to arc.arc
       exit
    endif
if ( $1 == 'list' || $1 == 't') then
   echo    '         '   list of files in archive arc.arc
   tar tvf arc.arc
    exit
endif
if ( $1 == 'extract' || $1 == 'x') then
   echo    '         '   extract files from archive arc.arc
   tar xvf arc.arc
else
   echo args= $*
    if($#args != 0) then
    tar cvf arc.arc $*
    endif
endif
exit