FS=`nof $1`
test -f $FS || test -f $FS.Z
case $? in
0) vz $FS ;;
*) echo ' '
   echo " Le fichier $FS n'existe pas"
   echo ' '
   echo -n " Voulez-vous le creer (o/n) ?  "
   read rep
   case $rep in
   o) cp /usr2/mermio/bda/format/form.$1  $FS
      vi $FS ;;
   n) echo ' ' ; exit 0 ;;
   esac ;;
esac