* 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="Type du clavier"
TOUCHE6="Configuration du clavier"
TOUCHE7="Gestion de la couleur"
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 UTI5.PRG
CASE CAR=KEYF6
DO UTI6.PRG
CASE CAR=KEYF7
DO UTI7.PRG
CASE CAR=KEYF8
*
CASE CAR=KEYF9
*
CASE CAR=KEYF10
DO AFRESRDX.PRG
OTHE
?? CHR(7)
ENDC
ENDD
RETU