* 
DO WHIL .T.
NIVEAU=2
CAR=INKEY()
IF CAR=0
TITRE="Sous menu"
TOUCHE1="MOUVEMENTS STOCKS /PRODUIT"
TOUCHE2="SAISIE DES MOUVEMENTS HORS VENTES"
TOUCHE3="IMPRESSION DES CUMULS VENTES "
TOUCHE4="RECALCUL STOCK"
TOUCHE5="IMPRESSION DE FACTURE"
TOUCHE6="consultations sp‚ciales"
TOUCHE7="CHIFFRE D'AFFAIRES"
TOUCHE8="TABLEAU DE BORD"
TOUCHE9="SUPRESSION FICHE"
TOUCHE10="EJECTION PAGE"
TOUCHE11="CA ECRAN"
TOUCHE12=""
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
RETU
CASE CAR=KEYF1
DO BGEDMOU2.PRG
CASE CAR=KEYF2
DO BGSMOUV0.PRG
CASE CAR =KEYF3
DO BGTOTAUX
case car = keyf4     
do BGRESTOC.prg
case car = keyf5
do BGEDFAC.prg
case car = keyf6
do BGcons.prg
case car = keyf7
do BGcA.prg
CASE CAR=KEYF8
DO BGTBORD.PRG
CASE CAR = KEYF10
EJECT
CASE CAR = KEYF11
DO BGTOTAUX
OTHE
?? CHR(7)
ENDC
ENDD