%$ A0> 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 _R4A0ZKKA7 591173748 6 20000.00019479.167 520.83328229.167 0 0 0 0 0 0 4 8 0 T F 1 TF3 0F WINDOWS _0IR11ZYCT 729528760 8 0&15104.16720625.000 2083.33319166.667 ) C 0 0 0 -1 -1 -1 * 1 10 1 T F 2 0 0 1 TF3 0F WINDOWS _0JE18XD67 729524019 8 0+26458.33319791.667 1666.667 2395.833. N 0 0 0 255 255 255 , 0 8 0 T F 2 1 0 1 FF0 0T- WINDOWS _0JE18XD68 729524019 8 0/26458.33322604.167 1666.667 2395.833 C 0 0 0 255 255 255 0 0 8 0 T F 2 0 0 1 FF0 0T1 WINDOWS _0JE18XD69 729524019 8 0226458.33325416.667 1666.667 2500.0006 C 0 0 0 255 255 255 4 0 8 0 T F 2 0 0 1 FF0 0T5 WINDOWS _0JE18XD6A 729524019 8 0726458.33329166.667 1666.667 3958.333: C 0 0 0 255 255 255 8 0 8 0 T F 2 0 0 1 FF0 0T9 WINDOWS _0JE18XD6B 729524019 8 0;26458.33334166.667 1666.667 2604.167 C 0 0 0 255 255 255 < 0 8 0 T F 2 1 0 1 FF0 0T= WINDOWS _0JE18XD6C 729524019 8 0>26458.33338541.667 1666.667 3229.167 ? C 0 0 0 255 255 255 @ 0 8 0 T F 2 0 0 1 FF0 0TA WINDOWS _0JE18XD6D 729524019 8 0B26458.33342916.667 1666.667 2604.167 C 0 0 0 255 255 255 C 0 8 0 T F 2 0 0 1 FF0 0TD WINDOWS _0JE18XD6E 729528061 8 0E26458.33347291.667 1770.833 2500.000 H C 0 0 0 255 255 255 I 0 8 0 T F 2 0 0 1 FF0 0TJ WINDOWS _0JE18XD6F 729524019 6 26041.66719166.667 104.16731354.167 0 0 0 0 0 0 1 8 0 T F 1 FF0 0TK WINDOWS _0JE18XD6G 729524019 5 0N24791.66722291.667 1458.333 2916.667 0 0 0 0 0 0 L 1 8 1 T F 0 FF0 0TM WINDOWS _0JE18XD6H 729524019 5 0Q24687.50029791.667 1458.333 2187.500 0 0 0 0 0 0 O 1 8 1 T F 0 FF0 0TP WINDOWS _0JE18XD6I 729524019 5 0T24687.50034166.667 1458.333 2916.667 0 0 0 0 0 0 R 1 8 1 T F 0 FF0 0TS WINDOWS _0JE18XD6J 729524019 5 0W24791.66738541.667 1250.000 2291.667 0 0 0 0 0 0 U 1 7 1 T F 0 FF0 0TV WINDOWS _0JE18XD6K 729524019 5 0Z24791.66742916.667 1250.000 1875.000 0 0 0 0 0 0 X 1 7 1 T F 0 FF0 0TY WINDOWS _0JE18XD6L 729524019 5 0]24895.83347604.167 1250.000 1979.167 0 0 0 0 0 0 [ 1 7 1 T F 0 FF0 0T\ WINDOWS _0JE18XD6M 729526959 8 0^27812.50019791.667 1666.667 2395.833b _ N 0 0 0 255 255 255 ` 0 8 0 T F 2 1 0 1 FF0 0Ta WINDOWS _0JE18XD6N 729524019 8 0c27812.50022604.167 1666.667 2395.833 C 0 0 0 255 255 255 d 0 8 0 T F 2 0 0 1 FF0 0Te WINDOWS _0JE18XD6O 729524019 8 0f27812.50025416.667 1666.667 2500.000j C 0 0 0 255 255 255 h 0 8 0 T F 2 0 0 1 FF0 0Ti WINDOWS _0JE18XD6P 729524019 8 0k27812.50029166.667 1666.667 3958.333n C 0 0 0 255 255 255 l 0 8 0 T F 2 0 0 1 FF0 0Tm WINDOWS _0JE18XD6Q 729524019 8 0o27812.50034166.667 1666.667 2604.167 p C 0 0 0 255 255 255 q 0 8 0 T F 2 1 0 1 FF0 0Tr WINDOWS _0JE18XD6R 729524019 8 0s27812.50038541.667 1666.667 3229.167 t C 0 0 0 255 255 255 u 0 8 0 T F 2 0 0 1 FF0 0Tv WINDOWS _0JE18XD6S 729524019 8 0w27812.50042916.667 1666.667 2604.167 C 0 0 0 255 255 255 x 0 8 0 T F 2 0 0 1 FF0 0Ty WINDOWS _0JE18XD6T 729528404 8 0z27812.50047291.667 1770.833 2500.000 } C 0 0 0 255 255 255 ~ 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD6U 729524019 8 029166.66719791.667 1666.667 2395.833 N 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE18XD6V 729524019 8 029166.66722604.167 1666.667 2395.833 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD6W 729524019 8 029166.66725416.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD6X 729524019 8 029166.66729166.667 1666.667 3958.333 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD6Y 729524019 8 029166.66734166.667 1666.667 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE18XD6Z 729524019 8 029166.66738541.667 1666.667 3229.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD70 729524019 8 029166.66742916.667 1666.667 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD71 729528066 8 029166.66747291.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD79 729524019 8 030520.83319791.667 1666.667 2395.833 N 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE18XD7A 729524019 8 030520.83322604.167 1666.667 2395.833 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD7B 729524019 8 030520.83325416.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD7C 729524019 8 030520.83329166.667 1666.667 3958.333 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD7D 729524019 8 030520.83334166.667 1666.667 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE18XD7E 729524019 8 030520.83338541.667 1666.667 3229.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD7F 729524019 8 030520.83342916.667 1666.667 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE18XD7G 729528067 8 030625.00047291.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1BT6RW 741781525 8 017083.33320520.833 2916.66713958.333 C -1 -1 -1 -1 -1 -1 1 8 1 T F 0 0 0 1 TF3 0F WINDOWS _0JE1DOA76 729528677 8 032187.50019791.667 1770.833 2395.833 N 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE1DOA78 729528680 8 032187.50022604.167 1666.667 2395.833 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1DOA79 729528683 8 032187.50025416.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1DOA7A 729528687 8 032187.50029166.667 1666.667 3958.333 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1DOA7B 729528689 8 032187.50034166.667 1666.667 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 1 0 1 FF0 0T WINDOWS _0JE1DOA7C 729528692 8 032187.50038541.667 1666.667 3229.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1DOA7D 729528694 8 032187.50042916.667 1875.000 2604.167 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T WINDOWS _0JE1DOA7E 729528701 8 032291.66747291.667 1666.667 2500.000 C 0 0 0 255 255 255 0 8 0 T F 2 0 0 1 FF0 0T 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 16.000 7.000 13.000 30.000 3 0 1 10 WINDOWS 23 14.000 7.000 11.000 7.000 3 0 0 8 WINDOWS 23 14.000 7.000 11.000 8.000 3 0 1 8 WINDOWS 23 12.000 4.000 10.000 23.000 2 0 1 7 WINDOWS 25 F  !!!  MS Sans Serif D$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 MonoLiif(empty(TAG_VAL("RIG:",USERFIELDS)),"","RIG: "+TAG_VAL("RIG:",USERFIELDS)) Tahoma day(qso_date) Courier New !empty(call)"##"left(cmonth(qso_date),3) Courier New !empty(call)%right(trans(year(qso_date),"####"),2) Courier New !empty(call)"##"left(time_on,4) Courier New !empty(call) "@R ##:##"band Courier New !empty(call)mode  Courier New !empty(call)rst_sent Courier New !empty(call)Piif(qsl_rcvd="F","Tnx","")+iif(qsl_rcvd="R","Pse","")+iif(qsl_rcvd=" ","Pse","")  Courier New !empty(call) !empty(Call) Courier New !empty(Call)"Date" Courier New !empty(Call)"UTC" Courier New !empty(Call)"Band"Times New Roman !empty(Call)"Mode"Times New Roman !empty(Call)"RST"Times New Roman !empty(Call)"QSL"day(qso_date2)  Courier New !empty(call2)"##"left(cmonth(qso_date2),3) Courier New !empty(call2)&right(trans(year(qso_date2),"####"),2) Courier New !empty(call2)"##"left(time_on2,4) Courier New !empty(call2) "@R ##:##"band2  Courier New !empty(call2)mode2  Courier New !empty(call2) rst_sent2 Courier New !empty(call)Piif(qsl_rcvd="F","Tnx","")+iif(qsl_rcvd="R","Pse","")+iif(qsl_rcvd=" ","Pse","")  Courier New !empty(call)day(qso_date3)  Courier New !empty(call3)"##"left(cmonth(qso_date3),3)  Courier New !empty(call3)&right(trans(year(qso_date3),"####"),2)  Courier New !empty(call3)"##"left(time_on3,4)  Courier New !empty(call3) "@R ##:##"band3  Courier New !empty(call3)mode3  Courier New !empty(call3) rst_sent3  Courier New !empty(call3)Piif(qsl_rcvd="F","Tnx","")+iif(qsl_rcvd="R","Pse","")+iif(qsl_rcvd=" ","Pse","")  Courier New !empty(call3)day(qso_date4)  Courier New !empty(call4)"##"left(cmonth(qso_date4),3)  Courier New !empty(call4)&right(trans(year(qso_date4),"####"),2)  Courier New !empty(call4)"##"left(time_on4,4)  Courier New !empty(call4) "@R ##:##"band4  Courier New !empty(call4)mode4  Courier New !empty(call4) rst_sent4  Courier New !empty(call4)Piif(qsl_rcvd="F","Tnx","")+iif(qsl_rcvd="R","Pse","")+iif(qsl_rcvd=" ","Pse","")  Courier New !empty(call4)Iiif(empty(PWR),"Output: 4 Watts" ,"Output:" + (tran(PWR,"@R ### watts")))  MS Sans Serifday(qso_date5)  Courier New !empty(call4)"##"left(cmonth(qso_date5),3)  Courier New !empty(call4)&right(trans(year(qso_date5),"####"),2)  Courier New !empty(call4)"##"left(time_on5,4)  Courier New !empty(call4) "@R ##:##"band5  Courier New !empty(call4)mode5  Courier New !empty(call4) rst_sent5  Courier New !empty(call4)Piif(qsl_rcvd="F","Tnx","")+iif(qsl_rcvd="R","Pse","")+iif(qsl_rcvd=" ","Pse","")  Courier New !empty(call4) MS Sans Serif Andale MonoTahoma Courier New Courier NewTimes New RomandataenvironmentJLeft = 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.R_REPVARC7pwr R_REPVARC.F.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))+call[define 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 /lblmult(global.report_ref.selectexp, 5) && function supports 2, 3, or 4 QSOs per label * The following DELETE statement will cause this to print ONLY labels with more than 1 QSO. The problem is knowing which QSOs to mark as printed. delete for empty(call2) * DH 10/11/96 * SKIP LABELS skip_count = 0 define window temp from 1,1 size 3,38 title "Skip labels" move window temp center activate window temp @ 1,1 say "Enter number of labels to skip:" get skip_count pict "###" range 0,999 read modal release window temp =lblblank(skip_count, global.report_ref.selectexp) if empty(global.report_ref.selectexp) global.report_ref.selectexp=".t." endif global.report_ref.selectexp = "(" + global.report_ref.selectexp + ") or empty(call)" && so blank records will be included 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