SET EXCLUSIVE OFF
store ' ' to mphone,HH,alli
STORE 'N' TO EOFF,INTEN
STORE ' ' TO COMMENTS,COMMENTS1
SAVE SCREEN TO SCREEN2
SET TALK OFF
STORE 0 TO MEMRR,COUNT
STORE ALIAS() TO MEMDATA 
IF LEN(TRIM(MEMDATA)) <> 0
 STORE RECNO() TO MEMRR
ENDIF
IF RMA <> 'Y'
 STORE ' ' TO MNAME
ENDIF
DO WHILE .T.
DO WHILE .T.
CLOSE DATA
STORE 'N' TO FOUND
SET EXACT OFF
CLEAR
STORE 'PHONE LIST' TO TOP1
DO TOP
STORE MNAME + SPACE(30) TO MNAME
STORE SUBSTR(MNAME,1,30) TO MNAME
STORE ' ' TO Y
STORE 'A' TO RRR
STORE 0 TO COUNT
@ 15,0 SAY 'WHEN SHIPPING OFF PACKAGES WITH RMA # , USE THE RMA PROGRAM'
@ 16,0 SAY 'TO PRINT LABLES !!!'
@ 23,0 SAY 'ENTER  BLANK  FOR MISC LABLES'
@ 5,0 SAY 'ENTER NAME - ' GET MNAME PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 7,0 SAY 'Enter  PLUS SIGN (+) then search string to search all data fields '
@ 9,0 say 'Example :  +1212  or  +BROWN  or  +NC'
IF RMA <> 'Y'
 READ
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RESTORE SCREEN FROM SCREEN2
  KEYBOARD ""
  RETURN
 ENDIF
ENDIF
STORE 'N' TO CPHONE,SSEARCH
@ 5,0 SAY SPACE(80)
@ 6,0 SAY SPACE(80)
@ 7,0 SAY SPACE(80)
@ 8,0 SAY SPACE(80)
@ 9,0 SAY SPACE(80)
@ 10,0 SAY SPACE(80)

IF SUBSTR(MNAME,1,1) = '+'
 STORE TRIM(SUBSTR(MNAME,2,99)) TO MNAME
 STORE 'Y' TO SSEARCH
 STORE 'AT(UPPER(MNAME),str(PHONE,12,0)) <> 0 .OR. AT(UPPER(MNAME),NAME) <> 0 .OR.AT(UPPER(MNAME),ADDRESS) <> 0 .OR.AT(UPPER(MNAME),CSZ) <> 0 .OR.AT(UPPER(MNAME),COMMENTS) <> 0.OR.AT(UPPER(MNAME),COMMENTS1) <> 0.OR.AT(UPPER(MNAME),PERSON) <> 0 ' TO QDO1
 STORE 'AT(UPPER(MNAME),str(PHONE,12,0)) <> 0 .OR. AT(UPPER(MNAME),NAME) <> 0 .OR.AT(UPPER(MNAME),ADDRESS) <> 0 .OR.AT(UPPER(MNAME),CSZ) <> 0 .OR.AT(UPPER(MNAME),COMMENTS) <> 0.OR.AT(UPPER(MNAME),COMMENTS1) <> 0 ' TO QDO
 SET COLOR TO 3*
 @ 2,0 SAY '                          '
 @ 2,0 SAY 'STRING - ' + ALLTRIM(MNAME)
 SET COLOR TO 2
ELSE
 STORE 'TRIM(NAME) = TRIM(MNAME)' TO QDO
ENDIF
@ 15,0 SAY SPACE(80)
@ 16,0 SAY SPACE(80)
IF RRR = ' '
 LOOP
ENDIF
IF SUBSTR(MNAME,1,5) = '     '
 RESTORE SCREEN FROM SCREEN2
* IF LEN(TRIM(MEMDATA)) <> 0
*  DO LOADDBF 
* ENDIF
 KEYBOARD ""
 RETURN
ENDIF
STORE 7 TO ROW

IF SUBSTR(MNAME,1,5) = 'BLANK'
 STORE 'PHONE' TO DNET
 DO NETERROR
 USE PHONE INDEX PHONE
 IF SUBSTR(NAME,1,5) <> '     '
  STORE 'Y' TO DNETAPPEND
  DO NETERROR
  UNLOCK ALL
 ENDIF
 DO LOCKWAIT
 REPLACE NAME WITH SPACE(50)
 REPLACE ADDRESS WITH SPACE(50)
 REPLACE ADDRESS1 WITH SPACE(50)
 REPLACE CSZ WITH SPACE(50)
 REPLACE COMMENTS WITH SPACE(50)
 REPLACE COMMENTS1 WITH SPACE(76)
 REPLACE PHONE WITH 0
 STORE RECNO() TO LLP
 SET DELIMITER ON
 unlock
 do dbtomem
 @ 5,0 CLEAR
 @ 5,0 SAY 'NAME .............. - ' GET NAME picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 6,0 SAY 'ADDRESS ........... - ' GET ADDRESS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 7,0 SAY 'ADDRESS1 .......... - ' GET ADDRESS1 picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 8,0 SAY 'CITY/STATE/ZIP .... - ' GET CSZ picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 9,0 SAY 'COMMENTS .......... - ' GET COMMENTS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 10,0 GET COMMENTS1
 @ 13,0 SAY 'PHONE ............. - ' GET PHONE picture '(999) 999 - 9999'
 @ 14,0 SAY 'FAX ............... - ' GET FAX picture '(999) 999 - 9999'
 SET DELIMITER OFF
 READ
 do memtodb
  PRESSED = LASTKEY()
  IF PRESSED = 27
   RESTORE SCREEN FROM SCREEN2
*   IF LEN(TRIM(MEMDATA)) <> 0
*    DO LOADDBF 
*   ENDIF
   KEYBOARD ""
   RETURN
  ENDIF
 STORE NAME TO MNAME
 LOOP
ENDIF
STORE '  ' TO HH
IF RRR='P' .OR. RRR = 'A'
 STORE 'PHONE' TO DNET,XX
 DO NETERROR
 USE PHONE INDEX PHONE
 STORE TRIM(MNAME) TO LLL
 @ 1,0 SAY 'SEARCHING PHONE.DBF     '
 IF SSEARCH = 'N'
  FIND &LLL
 ELSE
  LOCATE FOR &QDO
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 ENDIF
 IF .NOT. EOF()
  STORE 'Y' TO FOUND
  DO WHILE &QDO
  do phonecon
*  IF INTEN = 'Y'
*   SET COLOR TO 11
*   STORE 'N' TO INTEN
*  ELSE
*   SET COLOR TO 2
*   STORE 'Y' TO INTEN
*  ENDIF

  SET COLOR TO 7
  @ ROW,0 SAY 'P' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + mphone + '  ' + SUBSTR(COMMENTS,1,27)
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
  SET COLOR TO 2
  STORE COUNT + 1 TO COUNT
  STORE 'P' + STR(RECNO(),5,0) TO LOOKUP
  STORE ROW+1 TO ROW
  IF ROW > 22
   @ 23,0 CLEAR 
   IF SUBSTR(XRN,1,2) <> '  '
    STORE XRN TO HH
   ELSE
    STORE '     ' TO HH
   ENDIF
   @ 24,0 SAY 'SCREEN FULL, ENTER DB CODE + REC # or PRESS RETURN TO CONTINUE LIST ' GET HH PICTURE '!!!!!!'
   READ
   IF CL = 1
    PRESSED = LASTKEY()
    IF PRESSED = 27
     RESTORE SCREEN FROM SCREEN2
      *IF LEN(TRIM(MEMDATA)) <> 0
       *DO LOADDBF 
      *ENDIF
     KEYBOARD ""
     RETURN
    ENDIF
   ENDIF
   IF SUBSTR(HH,1,2) <> '  '
    EXIT
   ENDIF
   STORE 7 TO ROW
   @ 7,0 CLEAR
  ENDIF
  IF SSEARCH = 'N'
   SKIP
  ELSE
   CONTINUE
  ENDIF
  ENDDO
 ENDIF
ENDIF

IF (RRR='C' .OR. RRR = 'A') .AND. SUBSTR(HH,1,2)  = '  '
 STORE 'CUSTOMER' TO DNET
 DO NETERROR
 USE CUSTOMER INDEX NAME,CUSTNUM
 STORE TRIM(MNAME) TO LLL
 @ 1,0 SAY 'SEARCHING CUSTOMER.DBF     '
 IF SSEARCH = 'Y'
  LOCATE FOR &QDO1
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  store qdo1 to kkr
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 ELSE
  store qdo to kkr
  FIND &LLL
 ENDIF
 IF .NOT. EOF()
  STORE 'Y' TO FOUND
  DO WHILE &kkr
  PRESSED = INKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
  do phonecon
*  IF INTEN = 'Y'
*   SET COLOR TO 11
*   STORE 'N' TO INTEN
*  ELSE
*   SET COLOR TO 2
*   STORE 'Y' TO INTEN
*  ENDIF
  SET COLOR TO 14
  IF PHONE = 0
   @ ROW,0 SAY 'C' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + SPACE(15) + '  ' + SUBSTR(COMMENTS,1,27)
  ELSE
   @ ROW,0 SAY 'C' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + mPHONE + '  ' + SUBSTR(COMMENTS,1,27)
  ENDIF
  @ ROW,79 SAY EMP
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
  SET COLOR TO 2
  STORE COUNT + 1 TO COUNT
  STORE 'C' + STR(RECNO(),5,0) TO LOOKUP
  STORE ROW+1 TO ROW
  IF ROW > 22
   @ 23,0 CLEAR 
   IF SUBSTR(XRN,1,2) <> '  '
    STORE XRN TO HH
   ELSE
    STORE '     ' TO HH
   ENDIF
   @ 24,0 SAY 'SCREEN FULL, ENTER DB CODE + REC # or PRESS RETURN TO CONTINUE LIST ' GET HH PICTURE '!!!!!!'
   READ
   IF CL = 1
    PRESSED = LASTKEY()
    IF PRESSED = 27
     RESTORE SCREEN FROM SCREEN2
     *IF LEN(TRIM(MEMDATA)) <> 0
      *DO LOADDBF 
     *ENDIF
    KEYBOARD ""
    RETURN
   ENDIF
  ENDIF
  IF SUBSTR(HH,1,2) <> '  '
   EXIT
   ENDIF
   STORE 7 TO ROW
   @ 7,0 CLEAR
  ENDIF
  IF SSEARCH = 'N'
   SKIP
  ELSE
   CONTINUE
  ENDIF
  ENDDO
 ENDIF
ENDIF

IF (RRR='V' .OR. RRR = 'A') .AND. SUBSTR(HH,1,2)  = '  '
 @ 1,0 SAY 'SEARCHING VENDOR.DBF     '
 STORE 'VENDOR' TO DNET
 DO NETERROR
 USE VENDOR INDEX VNAME,VNUMBER
 STORE TRIM(MNAME) TO LLL
 IF SSEARCH = 'Y'
  LOCATE FOR &QDO
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 ELSE
  FIND &LLL
 ENDIF
 IF .NOT. EOF()
  STORE 'Y' TO FOUND
  DO WHILE &QDO
  PRESSED = INKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
  do phonecon
*  IF INTEN = 'Y'
*   SET COLOR TO 11
*   STORE 'N' TO INTEN
*  ELSE
*   SET COLOR TO 2
*   STORE 'Y' TO INTEN
*  ENDIF
  SET COLOR TO 6
  IF PHONE = 0
   @ ROW,0 SAY 'V' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + SPACE(15) + '  ' + SUBSTR(COMMENTS,1,10) + ' ' + SUBSTR(CONTACT,1,10)
  ELSE
   @ ROW,0 SAY 'V' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + mPHONE + '  ' + SUBSTR(COMMENTS,1,10) + ' ' + SUBSTR(CONTACT,1,10)
  ENDIF
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
  SET COLOR TO 2
  STORE COUNT + 1 TO COUNT
  STORE 'V' + STR(RECNO(),5,0) TO LOOKUP
  STORE ROW+1 TO ROW
  IF ROW > 22
   @ 23,0 CLEAR 
   IF SUBSTR(XRN,1,2) <> '  '
    STORE XRN TO HH
   ELSE
    STORE '     ' TO HH
   ENDIF
   @ 24,0 SAY 'SCREEN FULL, ENTER DB CODE + REC # or PRESS RETURN TO CONTINUE LIST ' GET HH PICTURE '!!!!!!'
   READ
   IF CL = 1
    PRESSED = LASTKEY()
    IF PRESSED = 27
     RESTORE SCREEN FROM SCREEN2
      *IF LEN(TRIM(MEMDATA)) <> 0
       *DO LOADDBF 
      *ENDIF
     KEYBOARD ""
     RETURN
    ENDIF
   ENDIF
   IF SUBSTR(HH,1,2) <> '  '
    EXIT
   ENDIF
   STORE 7 TO ROW
   @ 7,0 CLEAR
  ENDIF
  IF SSEARCH = 'N'
   SKIP
  ELSE
   CONTINUE
  ENDIF
  ENDDO
 ENDIF
ENDIF

IF (RRR='R' .OR. RRR = 'A') .AND. SUBSTR(HH,1,2)  = '  '
* WAIT
 @ 1,0 SAY 'SEARCHING RENTAL.DBF     '
 STORE 'RENTAL' TO DNET
 DO NETERROR
 USE RENTAL 
 STORE TRIM(MNAME) TO LLL
* IF SSEARCH = 'Y'							
  LOCATE FOR AT(LLL,str(PHONE,12,0)) <> 0 .OR. AT(LLL,NAME) <> 0 .OR.AT(LLL,COMMENTS) <> 0 
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
* ELSE
*  FIND &LLL
* ENDIF
 IF .NOT. EOF()
  STORE 'Y' TO FOUND
  DO WHILE .NOT. EOF()
  IF TRIM(NAME) = TRIM(LLL)
  PRESSED = INKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
  DO PHONECON
*  IF INTEN = 'Y'
*   SET COLOR TO 11
*   STORE 'N' TO INTEN
*  ELSE
*   SET COLOR TO 2
*   STORE 'Y' TO INTEN
*  ENDIF
  SET COLOR TO 3
  @ ROW,0 SAY 'R' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + mphone + '  ' + SUBSTR(COMMENTS,1,27)
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
  SET COLOR TO 2
  STORE COUNT + 1 TO COUNT
  STORE 'R' + STR(RECNO(),5,0) TO LOOKUP
  STORE ROW+1 TO ROW
  IF ROW > 22
   @ 23,0 CLEAR 
   IF SUBSTR(XRN,1,2) <> '  '
    STORE XRN TO HH
   ELSE
    STORE '     ' TO HH
   ENDIF
   @ 24,0 SAY 'SCREEN FULL, ENTER DB CODE + REC # or PRESS RETURN TO CONTINUE LIST ' GET HH PICTURE '!!!!!!'
   READ
   IF CL = 1
    PRESSED = LASTKEY()
    IF PRESSED = 27
     RESTORE SCREEN FROM SCREEN2
      *IF LEN(TRIM(MEMDATA)) <> 0
       *DO LOADDBF 
      *ENDIF
     KEYBOARD ""
     RETURN
    ENDIF
   ENDIF
   IF SUBSTR(HH,1,2) <> '  '
    EXIT
   ENDIF
   STORE 7 TO ROW
   @ 7,0 CLEAR
  ENDIF
  ENDIF
  IF SSEARCH = 'N'
   SKIP
  ELSE
   CONTINUE
  ENDIF
  ENDDO
 ENDIF
ENDIF

*SKIP THIS SEARCH
IF (RRR='Q' .OR. RRR = 'Q')  .AND. SUBSTR(HH,1,2)  = '  '
 @ 1,0 SAY 'SEARCHING RENTALCP.DBF     '
 STORE 'RENTALCP' TO DNET
 DO NETERROR
 USE RENTALCP
 STORE TRIM(MNAME) TO LLL
 LOCATE FOR TRIM(NAME) = TRIM(LLL)
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 IF .NOT. EOF()
  STORE 'Y' TO FOUND
  DO WHILE .NOT. EOF()
  IF TRIM(NAME) = TRIM(LLL)
  PRESSED = INKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
  do phonecon
*  IF INTEN = 'Y'
*   SET COLOR TO 11
*   STORE 'N' TO INTEN
*  ELSE
*   SET COLOR TO 2
*   STORE 'Y' TO INTEN
*  ENDIF
  SET COLOR TO 2
  @ ROW,0 SAY 'X' + STR(RECNO(),5,0) + '  ' + SUBSTR(NAME,1,30) + '  ' + mphone + '  ' + SUBSTR(COMMENTS,1,27)
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
  STORE COUNT + 1 TO COUNT
  STORE 'X' + STR(RECNO(),5,0) TO LOOKUP
  STORE ROW+1 TO ROW
  IF ROW > 22
   @ 23,0 CLEAR 
   IF SUBSTR(XRN,1,2) <> '  '
    STORE XRN TO HH
   ELSE
    STORE '     ' TO HH
   ENDIF
   @ 24,0 SAY 'SCREEN FULL, ENTER DB CODE + REC # or PRESS RETURN TO CONTINUE LIST ' GET HH PICTURE '!!!!!!'
   READ
   IF CL = 1
    PRESSED = LASTKEY()
    IF PRESSED = 27
     RESTORE SCREEN FROM SCREEN2
      *IF LEN(TRIM(MEMDATA)) <> 0
       *DO LOADDBF 
      *ENDIF
     KEYBOARD ""
     RETURN
    ENDIF
   ENDIF
   IF SUBSTR(HH,1,2) <> '  '
    EXIT
   ENDIF
   STORE 7 TO ROW
   @ 7,0 CLEAR
  ENDIF
  ENDIF
  SKIP
  ENDDO
 ENDIF
ENDIF
SET COLOR TO 2
@ 1,0 SAY '                           '

@ 2,0 SAY SPACE(25)
IF FOUND <> 'Y'
 ? CHR(7)
 @ 23,0 CLEAR
 STORE ' ' TO ANAME
 @ 23,0 SAY 'NAME NOT FOUND !!! ... ADD NAME (Y/N) - ' GET ANAME PICTURE '!'
 READ
 IF CL = 1
  PRESSED = LASTKEY()
  IF PRESSED = 27
   RESTORE SCREEN FROM SCREEN2
*   IF LEN(TRIM(MEMDATA)) <> 0
*    DO LOADDBF 
*   ENDIF
   KEYBOARD ""
   RETURN
  ENDIF
 ENDIF
 IF ANAME <> 'Y'
  LOOP
 ENDIF
 SELECT 1
 STORE 'PHONE' TO DNET
 DO NETERROR
 USE PHONE INDEX PHONE
 IF SUBSTR(NAME,1,5) <> '     '
  STORE 'Y' TO DNETAPPEND
  DO NETERROR
  UNLOCK ALL
 ENDIF
 DO ZERO
 SET DELIMITER ON
 STORE RECNO() TO LLP
 DO DBTOMEM
 @ 5,0 CLEAR
 STORE MNAME TO NAME
 @ 5,0 SAY 'NAME .............. - ' GET NAME picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 6,0 SAY 'ADDRESS ........... - ' GET ADDRESS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 7,0 SAY 'ADDRESS1 .......... - ' GET ADDRESS1 picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 8,0 SAY 'CITY/STATE/ZIP .... - ' GET CSZ picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 9,0 SAY 'COMMENTS .......... - ' GET COMMENTS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 10,0 GET COMMENTS1 picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 @ 13,0 SAY 'PHONE ............. - ' GET PHONE picture '(999) 999 - 9999'
 @ 14,0 SAY 'FAX ............... - ' GET FAX picture '(999) 999 - 9999'
 SET DELIMITER OFF
 READ
 DO MEMTODB
 IF CL = 1
  PRESSED = LASTKEY()
  IF PRESSED = 27
   RESTORE SCREEN FROM SCREEN2
*   IF LEN(TRIM(MEMDATA)) <> 0
*    DO LOADDBF 
*   ENDIF
   KEYBOARD ""
   RETURN
  ENDIF
 ENDIF
 CLOSE
 LOOP
ENDIF
EXIT
ENDDO
USE
IF SUBSTR(HH,1,2) <> '  '
 STORE HH TO RRR
ELSE
 @ 23,0 CLEAR
 IF COUNT <> 1
  IF SUBSTR(XRN,1,1) <> ' '
   STORE XRN TO RRR
  ELSE
   STORE '     ' TO RRR
  ENDIF
  CLEAR GETS
  @ 23,0 SAY 'Enter database code + record number  (example  V88 ) - ' GET RRR
  READ
  IF CL = 1
   PRESSED = LASTKEY()
   IF PRESSED = 27
    LOOP
   ENDIF
  ENDIF
  IF RRR = ' '
   LOOP
  ENDIF
 ELSE
  IF SUBSTR(LOOKUP,6,1) <> ' '
   STORE SUBSTR(LOOKUP,1,1) + SUBSTR(LOOKUP,6,7) TO RRR
  ENDIF
  IF SUBSTR(LOOKUP,5,1) <> ' '
   STORE SUBSTR(LOOKUP,1,1) + SUBSTR(LOOKUP,5,7) TO RRR
  ENDIF
  IF SUBSTR(LOOKUP,4,1) <> ' '
   STORE SUBSTR(LOOKUP,1,1) + SUBSTR(LOOKUP,4,7) TO RRR
  ENDIF
  IF SUBSTR(LOOKUP,3,1) <> ' '
   STORE SUBSTR(LOOKUP,1,1) + SUBSTR(LOOKUP,3,7) TO RRR
  ENDIF
  IF SUBSTR(LOOKUP,2,1) <> ' '
   STORE SUBSTR(LOOKUP,1,1) + SUBSTR(LOOKUP,2,7) TO RRR
  ENDIF
 ENDIF
ENDIF
SELECT 1
IF VAL(SUBSTR(RRR,1,1)) <> 0
 EXIT
ENDIF
IF UPPER(SUBSTR(RRR,1,1)) = 'V'
 STORE 'VENDOR' TO DNET
 DO NETERROR
 USE VENDOR INDEX VNAME
 GOTO VAL(SUBSTR(RRR,2,6))
 @ 1,0 SAY 'FOUND IN VENDOR     '
ENDIF
IF UPPER(SUBSTR(RRR,1,1)) = 'C'
 STORE 'CUSTOMER' TO DNET
 DO NETERROR
 USE CUSTOMER INDEX NAME
 GOTO VAL(SUBSTR(RRR,2,6))
 @ 1,0 SAY 'FOUND IN CUSTOMER    '
ENDIF
IF UPPER(SUBSTR(RRR,1,1)) = 'P'
 STORE 'PHONE' TO DNET
 DO NETERROR
 USE PHONE INDEX PHONE
 GOTO VAL(SUBSTR(RRR,2,6))
 @ 1,0 SAY 'FOUND IN PHONE     '
ENDIF
IF UPPER(SUBSTR(RRR,1,1)) = 'R'
 STORE 'RENTAL' TO DNET
 DO NETERROR
 USE RENTAL
 GOTO VAL(SUBSTR(RRR,2,6))
 @ 1,0 SAY 'FOUND IN RENTAL    '
 STORE HCODE TO MHCODE
 STORE '        ' TO ADDRESS1
 STORE 'HOUSE' TO DNET
 DO NETERROR
 USE HOUSE
 LOCATE FOR TRIM(HOUSEC) = TRIM(MHCODE) 
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 IF EOF()
  ? 'ERROR IN LOCATING ADDRESS CODE IN DATABASE HOUSE !!!'
  ? CHR(7)
  ?
  WAIT 
  RETURN
 ENDIF
 STORE ADDRESS TO ADDRESS
 STORE CSZ TO CSZ
 STORE 'RENTAL' TO DNET
 DO NETERROR
 USE RENTAL
 GOTO VAL(SUBSTR(RRR,2,6))
ENDIF
IF UPPER(SUBSTR(RRR,1,1)) = 'X'
 STORE 'RENTALCP' TO DNET
 DO NETERROR
 USE RENTALCP
 GOTO VAL(SUBSTR(RRR,2,6))
 @ 1,0 SAY 'FOUND IN RENTAL CP '
 STORE HCODE TO MHCODE
 STORE '        ' TO ADDRESS1
 STORE 'HOUSECP' TO DNET
 DO NETERROR
 USE HOUSECP
 LOCATE FOR TRIM(HOUSEC) = TRIM(MHCODE) 
  PRESSED = LASTKEY()
  PRESSED1 = INKEY()
  IF PRESSED = 27 .OR. PRESSED = INKEY()
   EXIT
  ENDIF
 IF EOF()
  ? 'ERROR IN LOCATING ADDRESS CODE IN DATABASE HOUSE !!!'
  ? CHR(7)
  ?
  WAIT 
  RETURN
 ENDIF
 STORE ADDRESS TO ADDRESS
 STORE CSZ TO CSZ
 STORE 'RENTALCP' TO DNET
 DO NETERROR
 USE RENTALCP
 GOTO VAL(SUBSTR(RRR,2,6))
ENDIF

STORE RECNO() TO LLP
STORE ALIAS() TO DDD
STORE 'N' TO EDIT
DO WHILE .T.
DO DBTOMEM
SET DELIMITER ON
@ 5,0 CLEAR
STORE PHONE TO MPHONE
@ 5,0 SAY 'NAME .............. - ' GET NAME picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 6,0 SAY 'ADDRESS ........... - ' GET ADDRESS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 7,0 SAY 'ADDRESS1 .......... - ' GET ADDRESS1 picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 8,0 SAY 'CITY/STATE/ZIP .... - ' GET CSZ picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 9,0 SAY 'COMMENTS .......... - ' GET COMMENTS picture '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
IF LEN(COMMENTS1) > 5
 @ 10,0 GET COMMENTS1
 @ 13,0 SAY 'PHONE ............. - ' GET PHONE picture '(999) 999 - 9999'
 @ 14,0 SAY 'FAX ............... - ' GET FAX picture '(999) 999 - 9999'
ELSE
 @ 11,0 SAY 'PHONE ............. - ' GET PHONE picture '(999) 999 - 9999'
 @ 12,0 SAY 'FAX ............... - ' GET FAX picture '(999) 999 - 9999'
ENDIF
@ 24,0 SAY 'Enter DELETE for name to DELETE this file'
SET DELIMITER OFF
IF EDIT = 'Y' .AND. MLEVEL > 1
 READ
 STORE 'N' TO EDIT
ELSE
 CLEAR GETS
ENDIF
DO MEMTODB
@ 17,0 SAY 'EDIT RECORD (Y/N) - ' GET EDIT PICTURE '!'
READ
IF EDIT <> 'Y'
 EXIT
ENDIF
ENDDO
@ 17,0 SAY SPACE(80)
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RESTORE SCREEN FROM SCREEN2
*  IF LEN(TRIM(MEMDATA)) <> 0
*   DO LOADDBF 
*  ENDIF
  KEYBOARD ""
  RETURN
 ENDIF
ENDIF
*  STORE 'ATDT' + TRIM(PHONE) TO MP
*  RUN MODE COM1:1200,N,8,1,P
*  RUN MODE LPT1:=COM1:
*  SET PRINT ON
*  ? ' '
*  ? MP    
*  STORE 1000 TO CCR 
*  DO WHILE CCR <> 0
*   STORE CCR-1 TO CCR
*  ENDDO 
*  ? 'ATH'
*  RUN MODE LPT1
*  SET PRINT OFF
*  @ 23,0 CLEAR
*  @ 23,0 SAY 'DIALING COMPLETE'
* ENDIF
IF UPPER(SUBSTR(NAME,1,6)) = 'DELETE'
 IF UPPER(SUBSTR(RRR,1,1)) = 'V' .OR. UPPER(SUBSTR(RRR,1,1)) = 'C'
  ? CHR(7)
  DO LOCKWAIT
  REPLACE NAME WITH MMNAME
  UNLOCK
  @ 12,0 CLEAR
  @ 13,0 SAY 'CANNOT DELETE VENDOR OR CUSTOMER FILE,  DELETE THESE UNDER'
  @ 14,0 SAY 'CUSTOMER MAINT OR VENDOR MAINT'
  ?
  WAIT
  LOOP
 ENDIF
 DO FILELOCK
 @ 13,0 SAY 'FILE DELETED !!!'
 DELETE
 ?
 UNLOCK
 WAIT
 LOOP
ENDIF
IF RMA = 'Y'
 STORE 'L' TO PEE
ELSE
 STORE ' ' TO PEE
ENDIF
STORE 1 TO NC
@ 16,0 SAY 'PRINT ENVELOPE/LABEL (E/L) - ' GET PEE PICTURE '!'
@ 16,40 SAY 'NUMBER COPIES - ' GET NC
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RESTORE SCREEN FROM SCREEN2
*  IF LEN(TRIM(MEMDATA)) <> 0
*   DO LOADDBF 
*  ENDIF
  KEYBOARD ""
  RETURN
 ENDIF
ENDIF
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
STORE 'Y' TO PCN
IF PEE <> 'E' .AND. PEE <> 'L'
 LOOP
ENDIF
STORE 0 TO ROW1
STORE '  ' TO SL
STORE 'CAS' TO CCONAME
STORE ' ' TO SELL
STORE 'E' TO SEL3
STORE 'L' TO LS
IF RMA = 'Y'
 STORE 'RMA# - ' + MOPO + SPACE(20) TO MEATTN
ELSE
 STORE SPACE(30) TO MEATTN
ENDIF
SET EXACT OFF
SET TALK OFF
STORE PEE TO SEL3
@ 15,0 CLEAR
IF PEE = 'E'
@ 15,0 SAY 'ENVELOPE SIZE (L/S) - ' GET LS
ENDIF
@ 16,0 SAY 'PRINT COMPANY NAME  - ' GET PCN PICTURE '!'
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF SUBSTR(SEL3,1,2) = '  '
 RETURN
ENDIF
IF LS = 'L'
 STORE 35 TO COL
 STORE 12 TO ROW2
ELSE
 STORE 25 TO COL
 STORE 12 TO ROW2
ENDIF
STORE ' ' TO MB1,MB2,MB3,MB4,MB5
IF PCN = 'Y'
 @ 17,0 SAY 'ENTER COMPANY NAME (CAS,CLA,SCO,JAK,AUD,TAM) - ' GET CCONAME PICTURE '!!!'
 READ
IF CL = 1
 PRESSED = LASTKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
 ENDIF
ENDIF 

SET DELIMITER ON
DO DBTOMEM
@ 19,0 SAY 'EXTRA LINE (LT TO USE LAST LINE BELOW)  - ' GET MEATTN PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 21,0 SAY 'EXTRA LINE FROM LAST TIME -               ' + EATTN  
READ
DO MEMTODB
SET DELIMITER OFF
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  LOOP
 ENDIF
ENDIF
IF SUBSTR(MEATTN,1,2) = 'LT'
 STORE EATTN TO MEATTN
ENDIF
 
@ 20,0 SAY SPACE(78)
IF SEL3 = 'E'
 @ 24,0 SAY 'INSERT ENVELOPE FAR RIGHT INTO PRINTER WITH TOP LINED UP WITH PRINT HEAD'
ELSE
 @ 24,0 SAY 'INSERT PAPER'
ENDIF
STORE ' ' TO CCC
CLEAR GETS
STORE 'P' TO QQQ
@ 21,0 SAY 'P - Panisonic printer  L - laser printer ... - ' GET QQQ PICTURE '!' 
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  LOOP
 ENDIF
ENDIF

STORE 0 TO ROW
DO WHILE NC <> 0
STORE NAME TO TNAME
STORE ADDRESS TO TADDRESS
STORE ADDRESS1 TO TADDRES1
STORE CSZ TO TCSZ
SET DEVICE TO PRINT
*RESET PRINTER
@ 0,0 SAY TRIM(&MPRTINIT) + CHR(27) + CHR(69)
IF PCN = 'Y'
 IF CCONAME = 'JAK'
  STORE  CHR(27) + CHR(18) + 'JAKE CLARK' TO MB1
  STORE '4716 CAROLINA BEACH ROAD' TO MB2
  STORE 'WILMINGTON, N.C.  28412' TO MB3
 ENDIF
 IF CCONAME = 'CAS'
  STORE  CHR(27) + CHR(18) + 'COMPUTER AUDIO, INC.' TO MB1
  STORE '4716 CAROLINA BEACH ROAD' TO MB2
  STORE 'WILMINGTON, N.C.  28412' TO MB3
 ENDIF
 IF CCONAME = 'AUD'
  STORE  CHR(27) + CHR(18) + 'AUDIO GENESIS' TO MB1
  STORE '4716 CAROLINA BEACH ROAD' TO MB2
  STORE 'WILMINGTON, N.C.  28412' TO MB3
 ENDIF
 IF CCONAME = 'TAM'
  STORE  CHR(27) + CHR(18) + 'COMPUTER AUDIO, INC.' TO MB1
  STORE '4716 CAROLINA BEACH ROAD' TO MB2
  STORE 'WILMINGTON, N.C.  28412' TO MB3
 ENDIF
 IF CCONAME = 'CLA'
  STORE  CHR(27) + CHR(18) + 'CLARK PROPERTIES' TO MB1
  STORE  '4716 CAROLINA BEACH ROAD' TO MB2
  STORE  'WILMINGTON, N.C.  28412' TO MB3
 ENDIF
 IF CCONAME = 'SCO'
  STORE   CHR(27) + CHR(18) + 'SCOTT CLARK' TO MB1
  STORE '4716 CAROLINA BEACH ROAD' TO MB2
  STORE 'WILMINGTON, N.C.  28412' TO MB3
 ENDIF  
ENDIF
IF UPPER(SEL3) = 'E'
 IF PCN = 'Y'
  @ ROW1,1 SAY CHR(27) + CHR(56) + CHR(27) + CHR(18)
  @ ROW1,1 SAY MB1
  STORE ROW1+1 TO ROW1
  @ ROW1,1 SAY  MB2
  STORE ROW1+1 TO ROW1
  @ ROW1,1 SAY MB3
  STORE ROW1+1 TO ROW1
 ENDIF
 @ ROW2,COL SAY CHR(27) + CHR(56) + CHR(27) + CHR(18) + TNAME
 STORE ROW2+1 TO ROW2
 @ ROW2,COL SAY TADDRESS
 STORE ROW2+1 TO ROW2
 IF SUBSTR(TADDRES1,1,5) <> '     '
  @ ROW2,COL SAY TADDRES1
  STORE ROW2+1 TO ROW2
  @ ROW2,COL SAY TCSZ 
  STORE ROW2+1 TO ROW2
 ELSE
  @ ROW2,COL SAY TCSZ
  STORE ROW2+1 TO ROW2
 ENDIF
 IF SUBSTR(MEATTN,1,1) <> ' '
  DO LOCKWAIT
  REPLACE EATTN WITH MEATTN
  UNLOCK
  IF RECPRG = 'Y'
   STORE MEATTN + '(RMA_PRG)' TO MEATTN
  ENDIF
  @ ROW2+5,0 SAY MEATTN
  STORE 'N' TO RECPRG
 ENDIF
ELSE
 SET PRINT ON
  *LABLE
 ? 'FROM :   ',MB1
 ? '         ',MB2
 ? '         ',MB3
 ? ' '
 ? ' '
 ? 'TO :     ',TNAME
 ? '         ',TADDRESS
 IF SUBSTR(TADDRES1,1,1) <> ' '
  ? '         ',TADDRES1
  ? '         ',TCSZ 
  ? ' '
  ? ' '
 ELSE
  ? '         ',TCSZ
  ? ' '
  ? ' '
 ENDIF
 IF SUBSTR(MEATTN,1,1) <> ' '
  DO LOCKWAIT
  REPLACE EATTN WITH MEATTN
  UNLOCK
  ? MEATTN
  ? ' '
 ENDIF
 ? ' '
ENDIF
STORE 'N' TO RMA
STORE NC-1 TO NC
ENDDO
EJECT
SET PRINT OFF
@ 0,0 SAY CHR(27) + "@"  
SET DEVICE TO SCREEN
SET PRINT OFF
IF RMA = 'Y'
 RETURN
ENDIF
ENDDO
CLOSE DATA
IF RMA <> 'Y' .AND. (AT('RMA',MEATTN) <> 0   .OR. VAL(MEATTN) > 100 )
 @ 22,0 CLEAR
 ? CHR(7) 
 ? CHR(7) 
 ? CHR(7) 
 @ 23,0 SAY 'DID YOU REMEMBER TO PUT THIS RMA ON THE COMPUTER !!!!!!!'
 WAIT
ENDIF