This database will help you track people. You can store work and home information with notes. The status section is used to mark each record for future mailings or printings. The week prior to his birthday is automatically calculated.
The name which you have just typed in has been previously entered into this
database. If you would like to move it to this record type Y or else type N.
Note| you will be creating a duplicate record. If you do not want to create
the duplicate you can use Search/Update to select and modify the old record.
Duplicate this record? (Y/N) <a>
Last Name:Ac > First Name:Ad >
Work Phone:Ae > Fax:Af >
Title:Ag >
Company:Ah >
Address 1:Ai >
Address 2:Aj >
City:Ak > State:Al Zip:Am >
Do not change this field
Last/First Name:An
Address:Ao
1989/09/152LimsnerMichael(415) 783-9871(415) 783-0327YProgrammerNSoftware DevelopmentYP.O. Box 345Y345 B Gram WayPacificaCA940331961/06/14Jennifer McCabe6/7(415) 394-8937Michelle947 Willow AvenuePacificaCA94033LimsnerMichaelP.O. Box 345Search/Update to select and modify the old recor
00<0u
PSQRWV
^_ZY[X
SQRWV
^_ZY[
SQRVWU
.u4Q&
]_^ZY[
SQRWV
^_ZY[
PSQRWV
^_ZY[X
SQRWVU
]^_ZY[
=ont
y8r"+
*b238WY
*b238W
*b238W
Full Name
!X#100
!X#100
!Press [F1] for help in formatting phone and fax numbers.
!Press [F1] for help on Title.
!Last/First Name
!Work Phone
!Last/First Name
!Last/First Name
!Title
!Last/First Name
!Company
!Last/First Name
!Address 1
!Last/First Name
!Address 2
!Last/First Name
!City
!Last/First Name
!State
!Last/First Name
Enter the Date of Birth of the Contact into the Born field.
The Send field will calculate automatically to the day that the Birthday card should be sent. (1 week before)
5x4+,537x38x,210x1x15x20x25+,330+,335x40x,2
Work Inf2
1989/08/251JohnsonRandall(213) 327-5947(213) 327-3956YProduct ManagerNHiTech DataYP.O. Box 322Y322 N. Elm StreetOrangeCA920221965/06/01Mary JonesMay 25(213) 254-3322Rachel786 Old Bridge WayOrangeCA92022JohnsonRandallP.O. Box 322W
MAIL LIST MANAGER
Date:
Contact's Name
Record #:
Last Name:
First Name:
Work Information
Status
(Y/N)
Work Phone:
Rolodex......
Title:
-
Label........
Company:
+
Holiday Card.
Address 1:
)
Birthday Card
Address 2:
)
Birthdate
City:
State:
Secretary:
Telex #:
Home Information
H-Phone:
Spouse's Name:
H-Address:
H-Address:
H-City:
H-State:
H-Zip:
Notes|A
Caution! - Duplicate Record
The name which you have just typed in has been previously entered into this
database. If you would like to move it to this record type Y or else type N.
Note| you will be creating a duplicate record. If you do not want to create
the duplicate you can use Search/Update to select and modify the old record.
Duplicate this record? (Y/N)
Last Name:
First Name:
Work Phone:
Title:
Company:
Address 1:
Address 2:
City:
State:
<AY 4
Do not change this field
Last/First Name:
<
Address:
D
<#1000:goto #1#1>#2:if #100 <> #1+#2 then #300 = ""; #100 = #1 + #2;if @add and #300 = "" and @xlookup(@filename,#100,"X#100","X#100") <> "" then goto #200 else @msg("Press [F1] for help in formatting phone and fax numbers.")>#50:IF @LEN(@NUM(#50))=7 THEN #50=@LEFT(@NUM(#50),3)+"-"+@RIGHT(@NUM(#50),4);IF @LEN(@NUM(#50))=10 THEN #50="("+@LEFT(@NUM(#50),3)+") "+@MID(@NUM(#50),4,3)+"-"+@MID(@NUM(#50),7,4)>#20:IF @LEN(@NUM(#20))=7 THEN #20=@LEFT(@NUM(#20),3)+"-"+@RIGHT(@NUM(#20),4);IF @LEN(@NUM(#20))=10 THEN #20="("+@LEFT(@NUM(#20),3)+") "+@MID(@NUM(#20),4,3)+"-"+@MID(@NUM(#20),7,4); @msg("Press [F1] for help on Title."); goto #55>#91:goto #92>#55: lookup(#55,1,#55); goto #60>#92:goto #94>#60: goto #65>#94:goto #106>#65:#103 = #65; goto #75>#106:goto #202#75#85#95>#97: goto #98>#202:if #106="Y" then {#203 = @str(@left(@month$(#202-7),3)) + " " + @str(@dom(#202-7));} else #203="";goto #80#98>#99:goto #91#203>#80:IF @LEN(@NUM(#80))=7 THEN #80=@LEFT(@NUM(#80),3)+"-"+@RIGHT(@NUM(#80),4);IF @LEN(@NUM(#80))=10 THEN #80="("+@LEFT(@NUM(#80),3)+") "+@MID(@NUM(#80),4,3)+"-"+@MID(@NUM(#80),7,4)>#1050: goto #1>#300:if #300="Y" then {#50=#210;#20=#220;#55=#225;#60=#230;#65=#235;#75=#240;#85=#245;#95=#250;#97=#255}; #200="";#205="";#210="";#220="";#225="";#230="";#235="";#240="";#245="";#250="";#255=""; if #300="Y" then goto #80 else goto #50<#200 = #1; goto #205<#205 = #2; goto #210<#210 = @xlookup(@filename,#100, "Last/First Name", "Work Phone"); goto #220<#220 = @xlookup(@filename,#100, "Last/First Name", "Fax"); goto #225<#225 = @xlookup(@filename,#100, "Last/First Name", "Title"); goto #230<#230 = @xlookup(@filename,#100, "Last/First Name", "Company"); goto #235<#235 = @xlookup(@filename,#100, "Last/First Name", "Address 1"); goto #240<#240 = @xlookup(@filename,#100, "Last/First Name", "Address 2"); goto #245<#245 = @xlookup(@filename,#100, "Last/First Name", "City"); goto #250<#250 = @xlookup(@filename,#100, "Last/First Name", "State"); goto #255<#255 = @xlookup(@filename,#100, "Last/First Name", "Zip"); #300 = "N"; goto #300#100#103
(.txt)