#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 : '.*\..*\..*\(..\)'`

export TERM
VISUAL=vi
## init des variables 
## ------------------ 
PATH=.:$PATH
PROPATH=.:$HOME/tools:/user/commun/progadm:/user/commun/prognat:/user/commun/progsta:/user/commun/entre:/user/commun/prognat/france:/user/commun/progadm/france:/user/commun/progclie:/user/commun/progfond:/user/commun/progsuiv:/user/commun/progapp:/user/commun/progapp/tty/adm2:/user/commun/progapp/tty:/user/commun

DB-ADM=/user/nat/adm
DB-DEP=/user/depot/depot
DB-CLU=/user/club/clien 
DB-FON=/user/fond/fond
export DB-ADM DB-DEP DB-CLU DB-FON 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 "${DB-ADM}".lk
then proserve "${DB-ADM}" -L 2000 -n 4
     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA DB-ADM N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi

if test ! -f "${DB-DEP}".lk
then proserve "${DB-DEP}" -L 2000 -n 3
     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA DB-DEP N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi

if test ! -f "${DB-CLU}".lk
then proserve "${DB-CLU}" -L 2000 -n 3
     serv=$?
     if test "${serv}" -ne 0 
     then echo -n "*** LA DB-CLU N'A PUT ETRE DEMARREE (Faites return) ***" 
          read x; exit
     fi
fi

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