Power-Programmierung/CD1.mdf/xbase/tools/delite/maillist.fmt

Text File | 1991-06-01 | 2KB | 30 lines

@ 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
@  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"