$l^Ӣ?swif;smp 0  PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _QNT0JSXJ8 591173748 1 53 1.000 0.000 21.000 -1.000 F   1 8 11F 9 9 TF T F WINDOWS _QNT0JSXJE 9 1 2500.000 0.000 T FFF F WINDOWS _QNT0JSXJH 9 4 35000.000 0.000 T FFF F WINDOWS _QNT0JSXJJ 9 7 0.000 0.000 T FFF T WINDOWS _R4A0ZKK9W 728021853 8 0!20416.66719270.833 3958.33349687.500 $ C 0 0 0 255 255 255 % 1 24 0 T F 2 0 0 1 TF3 0F WINDOWS _R4A0ZKK9X 728007616 8 0&26145.83319270.833 1770.83349895.833 ) C 0 0 0 255 255 255 * 0 9 0 T F 2 0 0 1 TF3 0F WINDOWS _R4A0ZKKA0 728018991 8 0+33958.33319270.833 1875.00050000.000 / C 0 0 0 255 255 255 0 0 10 0 T F 0 0 0 1 TF3 0F WINDOWS _R4A0ZKKA1 591173836 8 0135833.33319270.833 1875.00049583.3335 3 C 0 0 0 255 255 255 4 0 10 0 T F 2 2 0 1 TF3 0F WINDOWS _R4A0ZKKA2 591173748 8 0630000.00019270.833 2083.33312083.333: C 0 0 0 255 255 255 9 1 11 0 T F 2 0 0 1 TF3 0F WINDOWS _R4A0ZKKA4 728009518 8 0;29687.50031354.167 2083.33326979.167? = C 0 0 0 255 255 255 > 1 11 0 T F 2 0 0 1 TF3 0F WINDOWS _R4A0ZKKA6 728009708 8 0@32083.33319270.833 1875.00045729.167 E C 0 0 0 255 255 255 F 0 10 0 T F 0 0 0 1 TF3 0F WINDOWS _R4A0ZKKA7 591173748 6 20000.00019479.167 520.83328229.167 0 0 0 0 0 0 4 8 0 T F 1 TF3 0F WINDOWS _0IR0ZFZKH 728018710 8 0G27916.66719270.833 2083.33349895.833 K C 0 0 0 -1 -1 -1 L 1 11 1 T F 2 0 0 1 TF3 0F WINDOWS _0IR11ZYCT 728017839 8 0M15104.16720625.000 2083.33319166.667 P C 0 0 0 -1 -1 -1 Q 1 10 1 T F 2 0 0 1 TF3 0F WINDOWS _0IR125FZK 728018010 8 0R17187.50020625.000 2604.16715729.167 T C 0 0 0 -1 -1 -1 U 1 10 1 T F 2 0 0 1 TF3 0F WINDOWS _0IR1EB4EL 728021934 8 0V24270.83320729.167 1875.00046770.833 Y C 0 0 0 -1 -1 -1 Z 0 10 1 T F 2 0 0 1 TF3 0F WINDOWS 23 13.000 6.000 11.000 12.000 2 0 [ 1 8 WINDOWS 23 36.000 20.000 29.000 20.000 7 0 \ 1 24 WINDOWS 23 15.000 7.000 12.000 8.000 3 0 ] 0 9 WINDOWS 23 16.000 6.000 13.000 35.000 3 0 ^ 0 10 WINDOWS 23 16.000 6.000 13.000 25.000 3 0 _ 0 10 WINDOWS 23 18.000 8.000 15.000 35.000 3 0 ` 1 11 WINDOWS 23 16.000 7.000 13.000 30.000 3 0 a 1 10 WINDOWS 25 bc F fRlg- &f!veb^;smAfrp MS Sans Serif lRD$winspoolHP LaserJet 5L PCL\\Dargo\pr_lpt2HP LaserJet 5L PCL@g,, @MSUD7HP LaserJet 5L PCL%d DRIVER=winspool DEVICE=HP LaserJet 5L PCL OUTPUT=\\Dargo\pr_lpt2 ORIENTATION=0 PAPERSIZE=1 COPIES=1 DEFAULTSOURCE=1 PRINTQUALITY=300 YRESOLUTION=300 TTOPTION=2 ?trim(call) + "-"+ iif(empty(via),"","(Via "+ alltrim(via)+") ")  Andale MonoUiif("SWL:" $ userfields,"Confirming your reception of my ","Confirming our two-way ")  Courier Newqiif(qsl_rcvd=" ","Please QSL","") + iif(qsl_rcvd="R","Please QSL","")+iif(qsl_rcvd='F',"Thanks for your QSL.","") Arialtag_val("QSLMSG:",userfields) TahomaIVtran(day(qso_date),"## ")+uppe(left(cmon(qso_date),3))+' '+tran(year(qso_date),"####")TahomaBtran(time_on,"@R ##:## UTC") TahomaBiif(rst_sent<>" "and!"SWL:"$USERFIELDS,"Your RS(T) was "+trim(rst_sent),"")+iif("SWL:"$USERFIELDS," with "+tag_val("SWL:",USERFIELDS),"")+'.' Arial^alltrim(iif(freq>0, trans(freq,"###,###.999") + " Mhz.",band)) + ' ' + alltrim(mode) + " QSO" TahomaLiif(empty(TAG_VAL("RIG:",USERFIELDS)),"","RIG: "+TAG_VAL("RIG:",USERFIELDS)) Tahoma9iif(empty(PWR),"","Output:" + (tran(PWR,"@R ### watts"))) TahomaIiif(empty(name),iif("SWL:" $ userfields,"SWL "," "),proper(trim(name)) ) Tahoma MS Sans Serif Andale Mono Courier NewArialTahomaTahomaTahomadataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" QSLCARD This report prints postcards on 5.5" or 6" wide by 3.5" laser postcard stock, 3 per sheet. Set for 1/4" top and bottom margins. If this is not proper for your stock, you may adjust it. MR_REPVARAR_REPVARC ADDR_CALLR_REPVARC.t.R_REPVARCALL_MSGR_REPVARC''R_REPVARC PRT_ADDRR_REPVARC.t.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))+callSdefine window qsl from 5,5 to 10,67 color scheme 5 shadow float double prt_addr=.t. addr_call=.f. all_msg = space(92) activate window qsl on key label tab keyboard "{ctrl+W}" @ 1,1 say "Enter an optional message to appear on all cards:" @ 2,1 get all_msg size 1,59 read modal on key label tab 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, "QSLSDATE:", date()) for &selexp set talk off wait clear endif endif [cvh