case $# in
2) c="+2" ;;
3) case $3 in
   v) c="+2" ;;
   b-v) c="+3" ;;
   u-b) c="+4" ;;
   esac ;;
esac

while :
do

echo ' ' 
case $LNG in
  fr) echo -n " Donnez le rayon limite (-/+ val):  " ;;
 eng) echo -n " Enter the limiting radius (-/+ val):  " ;;
esac
read ray liv liw
case $ray in
 -)  zex carte.xy | awkint $liv | awkpr1 > .T/noet.lst ;;
 +)  zex carte.xy | awkext $liv | awkpr1 > .T/noet.lst ;;
 -+) zex carte.xy | awkann $liv $liw | awkpr1 > .T/noet.lst ;;
esac

(cat $ENT/$2.ent ; fgrep -f .T/noet.lst $1 | sort $c | tee .T/$2.ray) \
| ind | page

echo ' '
case $LNG in
  fr) echo -n " suite (o/n)?  " ;;
 eng) echo -n " continue (y/n)?  " ;;
esac
read suit
case $suit in
 o|y) ;;
 n) echo ' ' ; break ;;
esac

done