case $1 in
-r) zex $2 | sed -f $BIN/sedesc > $IMP 
    case $PRINTER in
      epson) lprtxt $IMP ;;
      sp1|sp2) lpr $IMP ;;
       *) lpr $IMP ;;
    esac
    exit 0 ;;
*) test -x $1 ;;
esac
 
case $? in
0) CUT=`echo $1 | cut -c1-2`
   case $CUT in
   aw) echo "FONCTION:   $1             "`date` > $IMP ;; 
   op) echo "OPTION:   $1               "`date` > $IMP ;; 
   *)  echo "COMMANDE:   $1             "`date` > $IMP ;; 
   esac ;;
*) testfZ $1 ; suf=`echo "$1" | awksuf`
   case $suf in
   .f|.c) echo "PROGRAMME:   $1            "`date` > $IMP ;;
   *)    echo "FICHIER:   $1              "`date` > $IMP ;;
   esac ;;
esac

lon=` echo "$1" | wc -c | awkpr1`
i=1
until test $i -gt $lon
do
echo -n "-" >> $IMP
i=`expr $i + 1`
done

echo '--------------------------------------------------------' >> $IMP
echo ' ' >> $IMP
echo ' ' >> $IMP
sed -f $BIN/sedesc $1 >> $IMP
case $PRINTER in
 epson) lprtxt $IMP ;;
 sp1|sp2) lpr $IMP ;;
       *) lpr $IMP ;;
esac