Category : Databases and related files
Archive   : DLITE10.ZIP
Filename : MAILLIST.FMT

@ 0,0 SAY "Record "+LTRIM(STR(RECNO(),5))+" of "+LTRIM(STR(RECCOUNT(),5))+IIF(DELETED(),' ** DEL **','')
@ 1,0 SAY " dLITE Mailing List Manager"
@ 3,0 SAY " Last Name: First Name MI:"
@ 5,0 SAY " ID Code(s): Category Code(s):"
@ 7,0 SAY " Salutation Title"
@ 9,0 SAY " Company: Phone:"
@ 11,0 SAY " Mail Addr:"
@ 13,0 SAY " City State Zip Cntry"
@ 15,0 SAY " Contact Dt Comments"
@ 17,0 SAY " Code1 Code2 Code3"
@ 3,17 GET LASTNAME PICTURE "XXXXXXXXXXXXXXXXXX"
@ 3,53 GET FIRSTMI PICTURE "XXXXXXXXXXXXXXXXX"
@ 5,17 GET IDCODE PICTURE "XXXXXXXXXXXXXXX"
@ 5,53 GET CATEGORY PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 7,12 GET SALUTATION PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 7,50 GET TITLE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 9,12 GET COMPANY PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 9,53 GET PHONE PICTURE "XXXXXXXXXXXX"
@ 11,12 GET ADDRESS1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 11,46 GET ADDRESS2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 13, 6 GET CITY PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 13,34 GET STATE PICTURE "XXXXXXXXXX"
@ 13,50 GET ZIP PICTURE "XXXXXXXXXX"
@ 13,67 GET COUNTRY PICTURE "XXXXXXXXXX"
@ 15,12 GET CONTACTDT PICTURE "99/99/99" VALID CONTACTDT<=DATE()
@ 15,34 GET COMMENTS PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 17,10 GET CODE1 PICTURE "XXXXXXXXXXXXXXX"
@ 17,34 GET CODE2 PICTURE "XXXXXXXXXXXXXXX"
@ 17,58 GET CODE3 PICTURE "XXXXXXXXXXXXXXX"
URE "XXXXXXXXXXXXXXX"
@ 17