** Last revision: April 17, 1986 at 18:54 * search1.prg STOR "DETAILED SEARCH" TO mode CLEA @ 10,20 SAY 'SELECT FIELD NUMBER ' @ 12,20 SAY 'ENTER SEARCH DATA ' @ 14,0 SAY ' 1. Lastname 2. Firstname 3. Spouse 4. Mr. 5. Title ' @ 15,0 SAY ' 6. Company 1 7. Company 2 8. Co. Address 9. Co. Suite 10. Co. City ' @ 16,0 SAY '11. Co. State 12. Co. Zip 13. Home Addr. 14. Apt 15. Home City ' @ 17,0 SAY '16. Home State 17. Home Zip 18. Off. Phone 19. Home Phone 20. Salutation ' @ 18,0 SAY '21. Send Mail 22. List 23. Code 24. Update ' STOR ' ' TO EVAR DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 24 @ 10,20 SAY 'SELECT FIELD NUMBER ' GET EVAR PICTURE '99' READ ENDD STOR ' ' TO EPART @ 12,20 SAY 'ENTER SEARCH DATA ' GET EPART READ IF VAL(EVAR) = 1 STOR 'LASTNAME' TO PARTFIELD ENDI IF VAL(EVAR) = 2 STOR 'FNAME' TO PARTFIELD ENDI IF VAL(EVAR) = 3 STOR 'SPOUSE' TO PARTFIELD ENDI IF VAL(EVAR) = 4 STOR 'MR' TO PARTFIELD ENDI IF VAL(EVAR) = 5 STOR 'TITLE' TO PARTFIELD ENDI IF VAL(EVAR) = 6 STOR 'COMPANY1' TO PARTFIELD ENDI IF VAL(EVAR) = 7 STOR 'COMPANY2' TO PARTFIELD ENDI IF VAL(EVAR) = 8 STOR 'CADDRESS' TO PARTFIELD ENDI IF VAL(EVAR) = 9 STOR 'SUITE' TO PARTFIELD ENDI IF VAL(EVAR) = 10 STOR 'CCITY' TO PARTFIELD ENDI IF VAL(EVAR) = 11 STOR 'CST' TO PARTFIELD ENDI IF VAL(EVAR) = 12 STOR 'CZIP' TO PARTFIELD ENDI IF VAL(EVAR) = 13 STOR 'ADDRESS' TO PARTFIELD ENDI IF VAL(EVAR) = 14 STOR 'APT' TO PARTFIELD ENDI IF VAL(EVAR) = 15 STOR 'CITY' TO PARTFIELD ENDI IF VAL(EVAR) = 16 STOR 'ST' TO PARTFIELD ENDI IF VAL(EVAR) = 17 STOR 'ZIP' TO PARTFIELD ENDI IF VAL(EVAR) = 18 STOR 'OPHONE' TO PARTFIELD ENDI IF VAL(EVAR) = 19 STOR 'PHONE' TO PARTFIELD ENDI IF VAL(EVAR) = 20 STOR 'DEAR' TO PARTFIELD ENDI IF VAL(EVAR) = 21 STOR 'SEND' TO PARTFIELD ENDI IF VAL(EVAR) = 22 STOR 'CS1' TO PARTFIELD ENDI IF VAL(EVAR) = 23 STOR 'CS2' TO PARTFIELD ENDI IF VAL(EVAR) = 24 STOR 'UPDATE' TO PARTFIELD ENDI CLOS INDEX STOR TRIM(EPART) TO EPART STOR .t. TO LOOKING GO TOP STOR UPPER(lastname) TO name LOCA FOR UPPER(EPART) $ UPPER(&PARTFIELD) DO WHIL LOOKING .AND.(.NOT.EOF()) CLEA SET COLOR TO &revvideo @ 1,00 @ 1,35 SAY 'DETAILED SEARCH' SET COLOR TO &stdvideo @ 3,3 SAY 'Lastname: First & MI:' @ 4,5 SAY 'Spouse: Address as:' @ 6,6 SAY 'Title:' @ 7,1 SAY 'Company #1:' @ 8,9 SAY '#2:' @ 9,0 SAY 'Co. Address: Suite:' @ 10,7 SAY 'City: State: Zip:' @ 12,2 SAY 'Home Addr: Apt:' @ 13,7 SAY 'City: State: Zip:' @ 14,2 SAY 'Telephone Office: Home Phone:' @ 15,1 SAY 'Salutation: Send to office:' @ 16,7 SAY 'List: ' @ 16,37 SAY 'Code:' @ 16,50 SAY 'Update:' @ 18,0 SAY line @ 3,13 SAY LASTNAME @ 3,58 SAY FNAME @ 4,13 SAY SPOUSE @ 4,58 SAY MR @ 6,13 SAY TITLE @ 7,13 SAY COMPANY1 @ 8,13 SAY COMPANY2 @ 9,13 SAY CADDRESS @ 9,58 SAY SUITE @ 10,13 SAY CCITY @ 10,44 SAY CST @ 10,58 SAY CZIP @ 12,13 SAY ADDRESS @ 12,58 SAY APT @ 13,13 SAY CITY @ 13,44 SAY ST @ 13,58 SAY ZIP @ 14,21 SAY OPHONE @ 14,58 SAY PHONE @ 15,13 SAY DEAR @ 15,58 SAY SEND @ 16,13 SAY CS1 @ 16,44 SAY CS2 @ 16,58 SAY UPDATE STOR UPPER(lastname) TO name STOR ' ' TO EOPTION @ 20,15 SAY 'Find ext instance or elect this one' DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S' @ 20,58 GET EOPTION PICTURE '!' READ ENDD IF EOPTION = 'S' STOR .F. TO LOOKING LOOP ENDI IF EOPTION = 'N' CONT LOOP ENDI ENDD SET DELIMITER ON SET INDEX TO lastname SEEK name STOR .t. TO first STOR .t. TO more RETU