* Program : ACCTMENU.PRG
*         : (c) 1989 BERNATH COMPUTER
*         : 12:49:35  06/12/1990

EXITNOW = .F.
gFG=0
gBG=3
gNUMOPT = 1

DO WHILE .NOT. EXITNOW
   DO SCRHEAD WITH "SAMPLE DATA ENTRY","Accounts Menu",13,7
   DO MENUMSG WITH 1,0,2
   mMENUSTR="20,"+STR(gNUMOPT,2)+",0,7,20,11,58,15,2,1,1,10,0,2,"
   mMENUSTR=mMENUSTR+"Add Change Delete Accounts,List Chart of Accounts,Setup Account Balances,@"
   CALL DBTOOLS WITH mMENUSTR
   gNUMOPT = VAL(mMENUSTR)
   DO CASE gNUMOPT
      CASE gNUMOPT = 1
         DO ACCTDE
      CASE gNUMOPT = 2
         DO CHARACCT
      CASE gNUMOPT = 3
         DO SETACCT
      CASE gNUMOPT = 0
         EXITNOW = .T.
         EXIT
   ENDCASE
ENDDO
RELEASE ALL EXCEPT g*
EXITNOW = .F.
gNUMOPT = 1
RETURN