while : 
do

page $BDA/menus/menu_atp.$LNG

case $LNG in
  fr) echo -n "	Donnez votre choix:  " ;;
 eng) echo -n "	Enter your choice:  " ;;
esac

read choi
case $choi in
  app) app ;;
  prf) prf ;;
  avr) avr ;;
  rot) rot ;;
  ddo) atp_ddo ;;
  cin) clear ; zex ubv.peo | cintf ;;
  lum) lum ;;
  dsp) dsp ;;
  f|fin|e|end) echo ' ' ; exit 2 ;;
esac

case $? in
  0) ;;
  1) continue ;;
  2) exit 2 ;;
esac
 
echo ' '
case $LNG in
  fr) echo -n " suite (o/n/f)?  " ;;
 eng) echo -n " continue (y/n/)?  " ;;
esac
read suit
case $suit in
  ""|o|y) ;;
    n) exit 1 ;;
  f|e) exit 2 ;;
esac

done