IF MEMDATA = 'CUSTOMER'
 USE C:\ACCT\CUSTOMER INDEX C:\ACCT\NAME
 GOTO MEMRR
ENDIF
IF MEMDATA = 'INVOICE'
 USE C:\ACCT\INVOICE INDEX C:\ACCT\INUMM
 GOTO MEMRR
ENDIF
IF MEMDATA = 'VENDOR'
 USE C:\ACCT\VENDOR INDEX C:\ACCT\VCODE
 GOTO MEMRR
ENDIF
IF MEMDATA = 'PRICE'
 USE C:\ACCT\PRICE INDEX C:\ACCT\PRICE
 GOTO MEMRR
ENDIF
IF MEMDATA = 'SCHEDULE'
 USE C:\ACCT\SCHEDULE INDEX C:\ACCT\SCLEAR
 GOTO MEMRR
ENDIF
IF MEMDATA = 'SCHEDULE'
 USE C:\ACCT\SCHEDULE INDEX C:\ACCT\SCLEAR
 GOTO MEMRR
ENDIF
IF MEMDATA = 'ACREC'
 USE C:\ACCT\ACREC INDEX C:\ACCT\SCLEAR1
 GOTO MEMRR
ENDIF
IF MEMDATA = 'ENVELOPE'
 USE C:\ACCT\ENVELOPE INDEX C:\ACCT\ENAME
 GOTO MEMRR
ENDIF
IF MEMDATA = 'PHONE'
 USE C:\ACCT\PHONE INDEX C:\ACCT\PHONE
 GOTO MEMRR
ENDIF
IF MEMDATA = 'RENTAL'
 USE C:\ACCT\RENTAL INDEX C:\ACCT\HCODE
 GOTO MEMRR
ENDIF
IF MEMDATA = 'INVENTORY'
 USE C:\ACCT\INVENTORY INDEX C:\ACCT\PNUM
 GOTO MEMRR
ENDIF
IF MEMDATA = 'DAILY'
 USE C:\ACCT\DAILY INDEX C:\ACCT\DAILY
 GOTO MEMRR
ENDIF
IF MEMDATA = 'QUOTE2'
 USE C:\ACCT\QUOTE2
 GOTO MEMRR
ENDIF
@ 24,0 CLEAR