¾$ h)d%‹ÿÿ?? 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _RSX0SDMNO 610822609 8 0?28020.83337916.667 1770.833 2604.167 @ C 0 0 0 255 255 255 A 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _0J80Y2G2F 729120783 8 0B28020.83317916.667 1770.833 3750.000E C C -1 -1 -1 -1 -1 -1 D 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _0J80Y3SW7 729120561 8 0F28020.83323958.333 1770.833 1666.667J H D -1 -1 -1 -1 -1 -1 I 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _RSX0T7P9S 610823355 5 0L28020.83347395.833 1562.500 2395.833 0 0 0 255 255 255 K 1 9 1 T F 0 TF3 0F WINDOWS _RSX0T86DV 610823368 5 0N30729.16747395.833 1562.500 2395.833 0 0 0 255 255 255 M 1 9 1 T F 0 TF3 0F WINDOWS _RSX0THEHA 610823726 8 0O27812.50050520.833 2187.50010208.333 P C 255 0 0 255 255 255 Q 1 12 1 T F 2 0 0 1 TF3 0F WINDOWS _RSX0TIW4E 610823759 8 0R30416.66750520.833 2187.50010312.500 S C 0 255 0 255 255 255 T 1 12 1 T F 2 0 0 1 TF3 0F WINDOWS _RSX0SNKST 610822852 7 430625.00050208.333 1666.667 1666.667 0 0 0 255 255 255 2 8 0 0 T F 0 TF3 0F WINDOWS _RSX0SO2QX 610822864 7 428125.00050312.500 1666.667 1666.667 0 0 0 255 255 255 2 8 0 0 T F 0 TF3 0F WINDOWS _RSX0SQIV1 610822925 6 35416.66738541.667 208.333 5520.833 255 255 255 255 255 255 2 8 0 T F 1 TF3 0F WINDOWS _RSX0TT1AK 610824251 8 0U43750.000 2083.333 1666.66746875.000X V C 0 0 0 255 255 255 W 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _RSX0TXDV2 610824245 8 0Y33958.333 2083.333 1770.83346458.333] [ C 0 0 0 255 255 255 \ 1 9 1 T F 0 0 0 1 TF3 0F WINDOWS _0JA0T5ZNO 72924686110 0 2.000 2.000 WINDOWS _0JA0TBAES 72924699310 0 3.000 7.000 WINDOWS _0JA0TBKLF 72924699910 0 2.000 2.000 WINDOWS _0JA0TC3KE 72924701410 0 2.000 5.000 WINDOWS _0JA0TAII5 72924697310 0 6.000 2.000 WINDOWS _0JF0QFRPG 72957197010 0 1.000 6.000 WINDOWS 23 15.000 6.000 12.000 13.000 3 0 ^ 1 9 WINDOWS 23 20.000 8.000 15.000 17.000 4 1 _ 1 12 WINDOWS 25 `a F  Ãc!8)8 ArialE STALIN.<'HPFDJC19HP DESKJET 660C V11.0LPT1:3.TMPp`A´HP DeskJet 660C v11.0:”ÿ€ d,,HP DeskJet 660C v11.0LPT1ä ö ,,ÃDRIVER=HPFDJC19 DEVICE=HP DESKJET 660C V11.0 OUTPUT=LPT1: ORIENTATION=1 PAPERSIZE=266 COPIES=1 DEFAULTSOURCE=1 PRINTQUALITY=300 COLOR=2 DUPLEX=1 YRESOLUTION=300 TTOPTION=1 COLLATE=0  "d:\logic5\images\1010#qsl.bmp"CHRTRAN(call,"0","Ø") ArialNAME Arial (qso_date) Arial"@E"tran(time_on,"@R ##:##Z") ArialFREQ ArialMODE ArialRST_SENT Arialleft(cmonth(qso_date),3) Arial"###"%right(trans(year(qso_date),"####"),2) Arial"@E ##"Arial"PSE"Arial"TNX"iif(qsl_rcvd="R","X","") Arialiif(qsl_rcvd="F","X","") Arialall_msg Arial"@l"tag_val("QSLMSG:",userfields) Arial"@l"ArialArialdataenvironmentName = "Dataenvironment" ÇQSLCARD This report prints postcards on 5.5" or 6" wide by 3.5" laser postcard stock, index cards Set for 1/4" top and bottom margins. If this is not proper for your stock, you may adjust it.íMR_REPVARAR_REPVARC7QSL_MSG R_REPVARC.t.R_REPVARCALL_MSGR_REPVARC''“MR_INDEXESAR_INDEXESCCALLR_INDEXESCR_INDEXESCCHRONR_INDEXESCR_INDEXESC CNTRY/CALLR_INDEXESC CALL+DXCCR_INDEXESC DISTRICTR_INDEXESCAiif(substr(call,2,1)<"A",substr(call,2,1),substr(call,3,1))+calldefine window qsl from 5,5 size 4,60 color scheme 5 activate window qsl * get last message from .INI file ALL_MSG = GET_INI("REPORT\REPORTS.INI", "QSL Cards/Labels", "AllMsg", "", .t.) all_msg = PADR(ALL_MSG,58) on key label tab keyboard "{ctrl+W}" @ 1,1 say "Enter an optional message to appear on all labels:" @ 2,1 get all_msg read modal on key label tab * save message in .INI file for next time. =put_ini("REPORT\REPORTS.INI", "QSL Cards/Labels", "AllMsg", all_msg) release window qsl âselect log * RANGE is added to the select criteria when you print something. * MODE doesn't get set until you actually print something, so we don't need to * worry about RANGE not being considered. if global.report_ref.mode="MULT" && printed multiple records if IDYES=MessageBox("Do you want to mark QSLs as printed (QSL SENT = F) and record date printed?", MB_YESNO + MB_ICONQUESTION, "QSL Printing") selexp = global.report_ref.selectexp wait window "Updating. Please wait..." nowait if empty(selexp) selexp=".t." endif set talk window set talk on replace qsl_sent with "F", userfields with tag_edit(userfields, "MAILED:", date()) for &selexp set talk off wait clear endif endif