CONTACT DBF"CONTACT FMT CONTACT PRG CRCKLISTCRC=INDEX PRGAINDEX1 NDXC INDEX2 NDXKINDEX3 NDXSeINDEX4 NDX[gINDEX5 NDXc1INDEX6 NDXk^~INDEX7 NDXsX TKDATECpFNAMEC pLNAMECpFIRMCpADDRESSC(pCITYC%qSTATEC4qZIPC 6qTYPEC@qPRODUCTCDqLINE1C@SqLINE2C@qLINE3C@qLINE4C@rLINE5C@SrLINE6C@rPHONE1CrCATEGORYC rCODEC rCLASSC rUPDATELs CHRIS WALKER TRANSAMERICA 6625 MAJORCA LANE EAST PHOENIX AZ85016 WL ASSURED LIFE SAW CHRIS ABOUT CHANGING HIS TERM TO ASSURED LIFE 602-274-4136 PRO ASL DM Y JIM GRONEK BLUE STAKE 3105 N THIRD STREET PHOENIX AZ85012 UCS TRENDSETTER TRIED IN VAIN TO GET JIM TO BUY 25,000,000 IN WHOLE LIFE. 602-234-1191 TS20 ORPH Y~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"* FILE NAME: CONTACT.FMT * MAIN PROGRAM: CONTACT.PRG * PROGRAMMER: DAVID IRWIN * DATE WRITTEN: 03/02/84 * LAST UPDATE: 03/22/84 * * NOTES: This file called by "CONTACT.PRG" creates a formatted * I/O screen under dBASE II version 2.4. * * * @ 2,33 SAY "DATE " + DATE() @ 3,24 SAY "LAST CONTACT: " + DATE @ 6,25 SAY "PRODUCT: " GET product @ 7,25 SAY "PHONE: " GET phone1 PICTURE "999-999-9999" @ 8,25 SAY "FIRM: " GET firm @ 8,64 SAY "TYPE: " GET type @ 09,32 SAY "FNAME: " GET fname @ 10,32 SAY "LNAME: " GET lname @ 11,25 SAY "ADDRESS: " GET address @ 12,25 SAY "CITY : " GET city @ 12,49 SAY "STATE: " GET state @ 12,60 SAY "ZIP: " GET zip @ 14,05 SAY "CODE: " GET code @ 14,25 SAY "CLASS: " GET class @ 14,45 SAY "CATEGORY: " GET category @ 14,65 SAY "UPDATE?: " GET update @ 16,04 SAY "FIRST : " GET line1 @ 17,04 SAY "CONTACT: " GET line2 @ 19,04 SAY "SECOND : " GET line3 @ 20,04 SAY "CONTACT: " GET line4 @ 22,04 SAY "THIRD : " GET line5 @ 23,04 SAY "CONTACT: " GET line6 * FILE NAME: CONTACT.PRG * CALLED FILE: CONTACT.FMT * PROGRAMMER: DAVID IRWIN * DATE WRITTEN: 03/02/84 * LAST UPDATE: 03/22/84 * * NOTES: This is the main driver for CONTACT TRACKER. * erase SET bell OFF SET colon OFF SET INTE ON SET talk OFF USE CONTACT index index1, index2, index3, index4, index5, index6, index7 STORE t TO more DO while more store " " to string CLEAR gets Erase @ 01,30 SAY "CONTACT TRACKER" @ 03,25 SAY "WHAT DO YOU WANT TO DO?" @ 05,25 SAY "(1) FIND BY LAST NAME" @ 07,25 SAY "(2) FIND BY COMPANY NAME" @ 09,25 SAY "(3) FIND BY PRODUCT NAME" @ 11,25 SAY "(4) FIND BY SPECIAL CODE" @ 13,25 SAY "(5) FIND BY CLASSIFICATION" @ 15,25 SAY "(6) FIND BY CATEGORY" @ 17,25 SAY "(7) FIND BY AREA CODE" @ 19,25 SAY "(8) ADD NEW LEADS" @ 21,25 SAY "(9) QUIT TO dBASE II" * STORE " " TO choice do while choice < "0" .and. choice > "9" .or. choice = " " @ 24,30 SAY "YOUR CHOICE?" GET choice READ ENDDO while choice < "0" .and. choice < "7" DO CASE CASE choice = "1" erase @ 10,20 SAY "LAST NAME TO FIND?" GET string READ SET index TO index1,index2,index3,index4,index5,index6,index7 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "2" erase @ 10,20 SAY "COMPANY NAME TO FIND?" GET string READ SET index TO index2,index3,index4,index5,index6,index7,index1 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. STRING # " " CASE choice = "3" erase @ 10,20 SAY "PRODUCT NAME TO FIND?" GET string READ SET index TO index3,index4,index5,index6,index7,index1,index2 STORE trim(string) TO goodrec IF # > 0 .AND. STRING # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "4" erase @ 10,20 SAY "SPECIAL CODE TO FIND?" GET string READ SET index TO index4,index5,index6,index7,index1,index2,index3 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "5" erase @ 10,20 SAY "CLASSIFICATION TO FIND?" GET string READ SET index TO index5,index6,index7,index1,index2,index3,index4 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "6" erase @ 10,20 SAY "CATEGORY TO FIND?" GET string READ SET index TO index6,index7,index1,index2,index3,index4,index5 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "7" erase @ 10,20 SAY "AREA CODE TO FIND?" GET string READ SET index TO index7,index1,index2,index3,index4,index5,index6 STORE trim(string) TO goodrec IF # > 0 .AND. string # " " SET FORMAT TO contact FIND &goodrec EDIT # SET FORMAT TO ELSE LOOP ENDIF # > 0 .AND. string # " " CASE choice = "8" SET index TO index1,index2,index3,index4,index5,index6,index7 SET FORMAT TO contact APPEND SET FORMAT TO CASE choice = "9" STORE F TO more LOOP ENDCASE ENDDO while t CLEAR  --> FILE: CONTACT .DBF CRC = FC DC --> FILE: CONTACT .FMT CRC = 03 75 --> FILE: CONTACT .PRG CRC = 12 96 --> FILE: INDEX .PRG CRC = 23 51 --> FILE: INDEX1 .NDX CRC = A7 75 --> FILE: INDEX2 .NDX CRC = E7 AF --> FILE: INDEX3 .NDX CRC = B7 A1 --> FILE: INDEX4 .NDX CRC = 5E 07 --> FILE: INDEX5 .NDX CRC = 9A DF --> FILE: INDEX6 .NDX CRC = ED ED --> FILE: INDEX7 .NDX CRC = FD 78* INDEX.PRG INDEX ON lname TO index1 INDEX ON firm TO index2 INDEX ON product TO index3 INDEX ON code TO index4 INDEX ON class TO index5 INDES ON category TO index6 INDEX ON $(phone1,1,3) TO index7 lname~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"GRONEK WALKER ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W "firm~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"BLUE STAKE TRANSAMERICA ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! Wproduct~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"ASSURED LIFE TRENDSETTER ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W $codect~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"ASL TS20 ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W $classt~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"DM ORPH ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W $category~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";" PRO ~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! WH$(phone1,1,3)~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";"602602~|!! ͠8~:61~̓1~!&8",6!7Q*7";";";";";";";";6#";";@6#";";";";">; s#r":2;:4::~>2-;=/~2+;2,;>:>:>/2.;/!6̬:4./2'6>:4! W