PROCEDURE CGWB1210()
******************************************************
** MIKE LEWIS   - BROWSE MENU 09-28-94 - CGWB1200
******************************************************

LOCAL NCHOICE, MARR := {}, SAVESCR, XARR := {}



SETCOLOR(LNOR)

CLS
@ 0,30 SAY ' Great Plains File Maintenance '
@ 1,0 SAY DOUBLE

AADD(XARR, 'BROWSE Customer File')
AADD(XARR, 'BROWSE Salesmen File')
AADD(XARR, 'BROWSE Shipping Terms File')
AADD(XARR, 'BROWSE Tax Schedule File')
AADD(XARR, 'BROWSE Tax Detail File')

DO WHILE .T.
  SAVESCR = SAVESCREEN()
  NCHOICE = PICKLIST(XARR, 10)
  IF LASTKEY() = 27
    CLOSE DATABASES
    RETURN
  ENDIF
  IF NCHOICE = 1
    CGWBBROW('CUSMAS')
  ELSE
    IF NCHOICE = 2
      CGWBBROW('SLSMAS')
    ELSE
      IF NCHOICE = 3
        CGWBBROW('ARARAM')
      ELSE
        IF NCHOICE = 4
          CGWBBROW('STXSCH')
        ELSE
          IF NCHOICE = 5
            CGWBBROW('STXDET')
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
  RESTSCREEN(,,,,SAVESCR)
ENDDO