* UTI
DO WHIL .T.
NIVEAU=2
CAR=INKEY()
IF CAR=0
TITRE="Menu des utilitaires"
TOUCHE1="Tester le disque dur"
TOUCHE2="Formater une disquette"
TOUCHE3="Sauvegarde sur disquette(s)"
TOUCHE4="R‚cup‚ration de disquettes(s)"
TOUCHE5="Saisie articles"
TOUCHE6="                    "
TOUCHE7=""
TOUCHE8=""
TOUCHE9=""
TOUCHE10="REINDEXATION DES FICHIERS"
TOUCHE11=""
TOUCHE12=""
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
RETU
CASE CAR=KEYF1
DO UTI1.PRG
CASE CAR=KEYF2
DO UTI2.PRG
CASE CAR=KEYF3
DO UTI3.PRG
CASE CAR=KEYF4
DO UTI4.PRG
CASE CAR=KEYF5
DO pgsarti0.prg
CASE CAR=KEYF6
*DO UTI6.PRG
*DO BGEDCAPS.PRG
CASE CAR=KEYF7
*DO BGEDBTL
CASE CAR=KEYF8
*DO BGCHFAC.PRG
CASE CAR=KEYF9
*DO BGClotu.PRG
CASE CAR=KEYF10
DO pgreindx
CASE CAR=KEYF11
*CD RES
*DO MENUres
OTHE
?? CHR(7)
ENDC
ENDD
RETU