#LANG=engli

export TERM TERMINFO TERMCAP CERASE CKILL CINTR CQUIT
export LOGNAME MAIL LANG

CERASE=" "
CKILL="@"
CINTR="^?"

TERM=wy60   
u=`tty`
ecran=`basename $u`
num=`who -u | grep "$ecran" | awk '{ print $8}'`
bis=`expr $num : '.*\..*\..*\(..\)'`
#if test "$bis" -gt 50 && test $bis -lt 60
  #then TERM=vt100
#fi

export TERM
VISUAL=vi
## init des variables 
## ------------------ 
PATH=.:$PATH
PROPATH=/usr/commun:/usr/commun/progadm:/usr/commun/magasin:/usr/commun/caisse:/usr/commun/france
BASE=/usr/commun/mag
export BASE  PATH PROPATH
stty ignbrk intr  
# purge fichiers probleme
# -----------------------
if test -f /usr/probleme/*.sys
then for i in `ls -l /usr/probleme/*.sys | awk '{ if ( $5 <= 0 ) print $9 }'`
     do
        rm "${i}"
     done
fi
## test
## ----
while true
do
   if test -f /usr/tmp/SRVE
   then echo "
   
*******************************************
VEUILLEZ PATIENTER, LANCEMENT EN COURS !!!!
Faites entree pour continuer.              
*******************************************"; read x
	exit
   else break
   fi
done

## test lancement serveur
## ----------------------
if test ! -f "${BASE}".lk
then proserve "${BASE}" -L 2000 -n 4
     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA BASE N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi
##
mpro -e 500 -l 500 -d dmy -D 500 -E -o "lpr -s" "${BASE}" -p debu5.p

