Set Exclusive Off
Set Talk Off
Set Safety Off
Set Echo Off
Set Heading Off
Set Status Off
Set Title Off
Set Delete On 
Clear All
nfExit = .T.
Do While nfExit
    Close Data
    nfSelect = 0
    Clear 
    @ 9,22 Say  '1.Do Fix2Data '
    @ 10,22 Say '2.Fix Data    '
    @ 11,22 Say '3.Environment '
    @ 12,22 Say '4.Dbase       '
    @ 13,22 Say '5.Exit        '
    @ 14,22 Say '--------------'
    @ 15,22 Say 'Please Select 'Get nfSelect Picture '9' 
    Read 
    Do Case
        Case nfSelect=1
            If File('Fix2Data.Prg')
                Do Fix2Data
            Else
                Wait 'Not Found Fix2Data.Prg'
            Endif
        Case nfSelect=2
            Do FixData
        Case nfSelect=3
            Modi comm Config.Db
        Case nfSelect=4
            nfExit=.F.    
        Case nfSelect=5
            nfExit=.F.        
            Clear All
            Quit   
   EndCase
Enddo
Return 
