$ؼ?o>ne̸ oMQ40O PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _QPK1ECRP3 621824520 1 53" 2.000 0.000 0.00055000.000 F   1 8 11T 3 1 TF T F WINDOWS _QPK1ECRPV 9 1 0.000 0.000 F FFF T WINDOWS _QPK1ECRPY 9 2 0.000 0.000 F FFF T WINDOWS _QPK1ECRQ9 9 4 42500.000 0.000 F FFF T WINDOWS _QPK1ECRQ2 9 6 0.000 0.000 F FFF T WINDOWS _QPK1ECRQ5 9 7 0.000 0.000 F FFF T WINDOWS _RCT15TWVX 716093440 5 0,24062.500 3229.167 1979.16716041.667 + 0 0 0 0 0 0 ) 0 12 1 T F 0 FF0 0T* WINDOWS _RCT15TWVY 716093444 8 0-23541.66720104.167 2708.33317187.5001 . C 255 0 0 255 255 255 / 3 16 0 T F 2 0 0 1 FF0 0T0 WINDOWS _RCT15TWVZ 591172631 8 0228333.333 2291.667 1875.000 2604.1675 N 0 0 0 255 255 255 3 0 10 0 T F 2 1 0 1 FF0 0T4 WINDOWS _RCT15TWW0 591172631 8 0628333.333 5208.333 1875.000 3020.833 C 0 0 0 255 255 255 7 0 10 0 T F 2 0 0 1 FF0 0T8 WINDOWS _RCT15TWW1 591172631 8 0928333.333 8333.333 1875.000 2500.000= C 0 0 0 255 255 255 ; 0 10 0 T F 2 0 0 1 FF0 0T< WINDOWS _RCT15TWW2 591172631 8 0>28333.33311562.500 1875.000 4687.500A C 0 0 0 255 255 255 ? 0 10 0 T F 2 0 0 1 FF0 0T@ WINDOWS _RCT15TWW3 591172631 8 0B28333.33316979.167 1875.000 3125.000 C 0 0 0 255 255 255 C 0 10 0 T F 2 1 0 1 FF0 0TD WINDOWS _RCT15TWW5 621827395 8 0E28333.33321354.167 1875.000 3333.333 F C 0 0 0 255 255 255 G 0 10 0 T F 2 0 0 1 FF0 0TH WINDOWS _RCT15TWWA 591172631 6 28020.833 1562.500 104.16750000.000 0 0 0 0 0 0 1 8 0 T F 1 FF0 0TI WINDOWS _RCT15TWWC 716093485 5 0M26354.167 4687.500 1666.667 2604.167 L 0 0 0 0 0 0 J 1 10 1 T F 0 FF0 0TK WINDOWS _RCT15TWWD 716093490 5 0Q26458.33312291.667 1666.667 2604.167 P 0 0 0 0 0 0 N 1 10 1 T F 0 FF0 0TO WINDOWS _RCT15TWWF 591172631 5 0T26354.16717187.500 1666.667 3020.833 0 0 0 0 0 0 R 1 10 1 T F 0 FF0 0TS WINDOWS _RCT15TWWG 591172631 5 0W26458.33321354.167 1666.667 3020.833 0 0 0 0 0 0 U 1 10 1 T F 0 FF0 0TV WINDOWS _RCT164N44 591172631 8 0X30312.500 2291.667 1875.000 2604.167[ N 0 0 0 255 255 255 Y 0 10 0 T F 2 1 0 1 FF0 0TZ WINDOWS _RCT164N45 591172631 8 0\30312.500 5208.333 1875.000 3020.833 C 0 0 0 255 255 255 ] 0 10 0 T F 2 0 0 1 FF0 0T^ WINDOWS _RCT164N46 591172631 8 0_30312.500 8333.333 1875.000 2500.000c C 0 0 0 255 255 255 a 0 10 0 T F 2 0 0 1 FF0 0Tb WINDOWS _RCT164N48 591172631 8 0d30312.50011562.500 1875.000 4687.500g C 0 0 0 255 255 255 e 0 10 0 T F 2 0 0 1 FF0 0Tf WINDOWS _RCT164N49 623812348 8 0h30312.50016979.167 1875.000 3125.000 i C 0 0 0 255 255 255 j 0 10 0 T F 2 1 0 1 FF0 0Tk WINDOWS _RCT164N4A 623812341 8 0l30312.50021354.167 1875.000 3333.333 m C 0 0 0 255 255 255 n 0 10 0 T F 2 0 0 1 FF0 0To WINDOWS _RCT165K5O 623855232 8 0p32291.667 2291.667 1875.000 2604.167t q N 0 0 0 255 255 255 r 0 10 0 T F 2 1 0 1 FF0 0Ts WINDOWS _RCT165K5P 623855389 8 0u32291.667 5208.333 1875.000 3020.833 v C 0 0 0 255 255 255 w 0 10 0 T F 2 0 0 1 FF0 0Tx WINDOWS _RCT165K5Q 623855393 8 0y32291.667 8333.333 1875.000 2500.000~ { C 0 0 0 255 255 255 | 0 10 0 T F 2 0 0 1 FF0 0T} WINDOWS _RCT165K5R 623855395 8 032291.66711562.500 1875.000 4687.500 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RCT165K5S 623855249 8 032291.66716979.167 1875.000 3125.000 C 0 0 0 255 255 255 0 10 0 T F 2 1 0 1 FF0 0T WINDOWS _RCT165K5T 623855257 8 032291.66721354.167 1875.000 3333.333 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RCT1A89GD 591172631 6 28125.00011041.66710000.000 104.167 0 0 0 0 0 0 0 8 0 T F 0 FF0 0T WINDOWS _RCT1A8ZKV 591172631 6 28125.00016666.66710000.000 104.167 0 0 0 0 0 0 0 8 0 T F 0 FF0 0T WINDOWS _RCT1A95Z8 591172631 6 28125.00020625.00010104.167 104.167 0 0 0 0 0 0 0 8 0 T F 0 FF0 0T WINDOWS _RCT1A9KLQ 591172631 6 28125.00025208.33310208.333 104.167 0 0 0 0 0 0 0 8 0 T F 0 FF0 0T WINDOWS _RXE0JW7DD 621824539 6 28125.00029375.00010208.333 104.167 0 0 0 0 0 0 0 8 0 T F 0 FF0 0T WINDOWS _RXE0JX9HG 716093293 7 413229.167 3020.83310208.33329375.000 208 208 255 208 208 255 4 8 1 0 T F 16 TF0 0F WINDOWS _RXE0JX9HH 716093301 7 412291.667 4375.00010208.33329270.833 0 0 255 255 255 255 4 8 1 0 T F 16 TF0 0F WINDOWS _RXE0JX9HO 714954166 8 0 8750.000 3020.833 3125.00049375.000 C 0 0 255 255 255 255 3 18 0 T F 2 2 0 1 TF0 0F WINDOWS _RXE0JZ97V 714961365 5 026458.33330729.167 1666.667 6354.167 0 0 0 0 0 0 1 10 1 T F 0 FF0 0T WINDOWS _RXE0MW6QJ 623855401 8 034270.833 2291.667 1875.000 2604.167 N 0 0 0 255 255 255 0 10 0 T F 2 1 0 1 FF0 0T WINDOWS _RXE0MW6QK 623855406 8 034270.833 5208.333 1875.000 3020.833 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0MW6QL 623855411 8 034270.833 8333.333 1875.000 2500.000 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0MW6QM 623855416 8 034270.83311562.500 1875.000 4687.500 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0MW6QN 623855420 8 034270.83316979.167 1875.000 3125.000 C 0 0 0 255 255 255 0 10 0 T F 2 1 0 1 FF0 0T WINDOWS _RXE0MW6QO 623855431 8 034270.83321354.167 1875.000 3333.333 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NK5A8 714954265 8 028333.33330208.333 1875.00021041.667 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0N89TQ 714954274 8 030312.50030208.333 1875.00021041.667 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NKE8K 714954345 8 032291.66730208.333 1875.00021041.667 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NKLJ3 714954353 8 034270.83330208.333 1875.00021041.667 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NLPRP 623855450 8 036250.000 2395.833 1875.000 2500.000 N 0 0 0 255 255 255 0 10 0 T F 2 1 0 1 FF0 0T WINDOWS _RXE0NLPRQ 623855453 8 036250.000 5208.333 1875.000 3020.833 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NLPRR 623855459 8 036250.000 8333.333 1875.000 2500.000 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NLPRS 623855462 8 036250.00011562.500 1875.000 4687.500 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NLPRT 623855465 8 036250.00016979.167 1875.000 3125.000 C 0 0 0 255 255 255 0 10 0 T F 2 1 0 1 FF0 0T WINDOWS _RXE0NLPRU 623855469 8 036250.00021354.167 1875.000 3333.333 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _RXE0NLPRX 714954358 8 036250.00030208.333 1875.00021041.667 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _00W0O78NP 675371578 8 028333.33326041.667 1875.000 3229.167 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _00W0O78NQ 714954776 5 026458.33325937.500 1666.667 2604.167 0 0 0 0 0 0 1 10 1 T F 0 FF0 0T WINDOWS _00W0O78NR 675371584 8 030312.50026041.667 1875.000 3125.000 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _00W0O78NS 675371590 8 032291.66726041.667 1875.000 3125.000 C 0 0 0 255 255 255 0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _00W0O78NT 675371587 8 034270.83326041.667 1875.000 3125.000 C 0 0 0 255 255 255  0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _00W0O78NU 675371593 8 036250.00026041.667 1875.000 3125.000  C 0 0 0 255 255 255  0 10 0 T F 2 0 0 1 FF0 0T WINDOWS _0DI0NOV95 716093450 5 0 39062.500 2187.500 2083.33349375.000  0 0 0 -1 -1 -1  1 12 1 T F 0 TF0 0F WINDOWS _0DI0UXFE0 716093281 5 012812.500 7291.667 6250.00023125.000  0 0 0 -1 -1 -1  1 12 1 T F 0 TF0 0F  WINDOWS _0DI0V19VJ 716093306 5 019791.667 6145.833 1666.66725520.833  0 0 0 -1 -1 -1  1 10 1 T F 0 TF0 0F WINDOWS _0DR0XWV8E 716093462 5 022187.50039895.833 1458.333 8125.000  0 0 0 -1 -1 -1  1 8 1 T F 0 TF0 0F WINDOWS _0DR0Y3GBP 716093467 5 023854.16739895.833 1458.33310625.000  0 0 0 -1 -1 -1  1 8 1 T F 0 TF0 0F WINDOWS _0DR0Y8T95 71609347617 022083.33348229.167 1562.500 2291.667   1 T F 1 F 0 TF0 0F WINDOWS 23 13.000 6.000 11.000 12.000 2 0 " 1 8 WINDOWS 23 19.000 7.000 15.000 43.000 3 1 # 0 12 WINDOWS 23 25.000 10.000 19.000 36.000 5 1 $ 3 16 WINDOWS 23 16.000 8.000 12.000 9.000 4 0 % 0 10 WINDOWS 23 16.000 6.000 12.000 34.000 3 1 & 1 10 WINDOWS 23 16.000 5.000 13.000 16.000 3 0 ' 1 10 WINDOWS 23 29.000 11.000 22.000 41.000 6 1 ( 3 18 WINDOWS 23 20.000 8.000 15.000 43.000 4 1 ) 1 12 WINDOWS 23 16.000 6.000 13.000 35.000 3 0 * 1 10 WINDOWS 25 +, F Ǒpq1&.! MS Sans SerifX0winspoolHP DeskJet 895C Series Printer\\W4YDY\HP DESKJET 8HP DeskJet 895C Series Printer; d,,HP DeskJet 895C Series Printer\\W4YDY\HP DESKJET 8 ,,dDRIVER=winspool DEVICE=HP DeskJet 895C Series Printer OUTPUT=\\W4YDY\HP DESKJET 8 ORIENTATION=1 PAPERSIZE=1 COPIES=1 DEFAULTSOURCE=1 PRINTQUALITY=300 COLOR=2 DUPLEX=1 YRESOLUTION=300 TTOPTION=1 COLLATE=0 Arial !empty(Call) "Confirming QSOs with"trim(operator) Arial !empty(Call)B 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) !empty(Call)Times New Roman !empty(Call) "Date"Times New Roman !empty(Call) "UTC"Times New Roman Condensed !empty(Call)"Band"Times New Roman !empty(Call)"Mode"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)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) !empty(call) !empty(call) !empty(call) !empty(call) !empty(call)  !empty(call)  !empty(call)%"Amateur Radio Station " + trim(call) Arial !empty(call)IBTimes New Roman !empty(Call) "ST, County"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)tag_val("CNTY:", userfields)  Courier New !empty(call)tag_val("CNTY:", userfield2)  Courier New !empty(call)tag_val("CNTY:", userfield3)  Courier New !empty(call3)tag_val("CNTY:", userfield4)  Courier New !empty(call4)day(qso_date5)  Courier New !empty(call5)"##"left(cmonth(qso_date5),3)  Courier New !empty(call5)&right(trans(year(qso_date5),"####"),2)  Courier New !empty(call5)"##"left(time_on5,4)  Courier New !empty(call5) "@R ##:##"band5  Courier New !empty(call5)mode5  Courier New !empty(call5)tag_val("CNTY:", userfield5)  Courier New !empty(call5)rst_rcvd  Courier New !empty(call)Times New Roman !empty(Call)"RST" rst_rcvd2  Courier New !empty(call) rst_rcvd3  Courier New !empty(call3) rst_rcvd4  Courier New !empty(call4) rst_rcvd5  Courier New !empty(call5)Arial !empty(call) :"Please verify & sign____________________________________"Arial !empty(call) G"MARAC_________________ USACA_________________ 2nd TIME_______________"Arial !empty(call) %"Mobile_____Portable______Fixed_____" MS Sans Serif !empty(call) "W4YDY Design" MS Sans Serif !empty(call) "Printed with LOGic"  !empty(call)"h:\foxpro\prg6\hosenose.bmp" MS Sans SerifArialArial Courier NewTimes New RomanTimes New Roman CondensedArialArialArialdataenvironmentName = "Dataenvironment" iPrints up to 5 QSOs on each QSL card. For use as County Hunter Reply QSL to "Operator". Design by W4YDYfMR_REPVARAR_REPVARCALL_MSGR_REPVARC''R_REPVARC7name R_REPVARC''R_REPVARC7qth R_REPVARC''iMR_INDEXESAR_INDEXESCR_INDEXESCdefine 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 cards:" @ 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 2 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 (use in lblblank && close scratch file. It deletes automatically 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 "X", userfields with tag_edit(userfields, "QSLSDATE:", date()) for &selexp set talk off wait clear endif endif 8W4m"iv