WPC.; L^F͸^>}CvIi,͝_>naRӻ7w?%_< ,b 5A}ߜq׈} (L Qxډ'Y5ف޹Wx+P ޱVo?C[ߴ1 8u=If5ؖGJ7F\s/hL3xNn7IVt5<9`o;(50o߅QwIuNSYJAmJ#]eO)"&;`K ||Z7>B 1r>2Oi7@!4@3E< J >^^öd[)Eu0,iuOn{6" Sknr\d'eHr9j)cO+C r[ht򢫶9F 5/т]55WW!e8p`KoeUN  %XN^#!`w4SrT (T62ThT H H! mN! e!;^ ";(hH  Z 6Times New Roman RegularXHP LaserJet 3300 Series PCL 60EK_](3_x =4%A%L̂% format Format Fonts format (4 BP\(0 ldTP00l0L@40 H (  D LP` h,H T  8d PH( | t 8 \ | HPLT, x | T  l h L PL r l($l rL8D<22lllDd$ r$ $Sample: t$Lbutton\ static5  $ WPVBar20 VLine5(MS Sans Serif(<Fonts WPdate20 lhzStatic3(WPCViewMgr20(t.WPClr20WPbmp20  WPrbox20T  X 12 pta11 pt 10 pt 0 Lh &H @L8 ;7 Li |Li& Lx.i; L L' Lp;" XLVN L, fj (L0P{5 Ltb{5 LI  @T ln.C @\lYL@`bT  @d lX N@\PhOKBttnt8 pt| 7 pt l lArrus BT @,Times New Roman,d<1Choose your font size:<`5Static6(Courier New(9 ptT0eChoose your font:0 Static2Arial8Select other font ...8$RadioBttn26$( Fonts (X HLine27vOtherCancelt$;CancelBttn$OK v12ChkBx25pvv11ChkBx24bv10ChkBx23v9 ChkBx22xv8 ChkBx21v7ChkBx20 vCourier  ChkBx198vTimeshChkBx17vArialChkBx16(HUse my default font and sizeH0vManual,$RadioBttn12$4h:l ,)0 2:T<rCHtaI?OTpUVVY[_` ldmp><8r|<@_t%`tXȐtt(xllLGX2hаѬP5ޤi\d0@lD4$hWd^'@)P0l0aIPNVtYYpxYkH(np~s\|ot|hxdOL G?lmӸp5`!dlHU95H:\DocLabels.wcmM18?5eHB){hHEM h HoVQUITLOB*@HBVPATHHrVPATHLV3oAvery L7656 35mm SlideLQE!H3oAvery L7656 35mm SlideLQ bK7 @LX bA`b'@LX[LIEH[LIEH[LIEHoFontsLQo WordPerfectLQB'@ rVMANUAL[*@,VFORMAT@!rVOTHER[*HE,VFORMAT"rVARIAL[*:%H!o Arial RegularLQxALI[LI[ZLI[LI[LI[LI[LIE&:'rVTIMES[**H5oTimes New Roman RegularLQx LI[LI[ZLI[LI[LI[LI[LIE+,rVCOURIER[*/H-oCourier New RegularLQx9LI[LI[ZLI[LI[LI[LI[LIE01 rV7[*H gףp= @LXE2 rV8[*2H gQ@LXE23 rV9[*wH g"@LXEw4 rV10[*H gQ#@LXE5 rV11[*H g(\%@LXE6 rV12[*LH g(@LXEL8A,ZEROSHbdHvPREFIXLRonEnter the alphanumeric prefix (if any) and file number eg ABC.001. (including all formatting) then press enterLN%oNumbering macroLNEi)fH vDGTLRoType the total number of numerical digits for the page number [example: 'ABC.001.0001' has 4 numerical digits] then press enterLN%oNumbering macroLNEh)gHvSTARTLRwo8Type starting value for the labels eg 1 then press enterLN%oNumbering macroLNEh)iH vENDLRoxType the number of labels to be produced eg 84 or 168 (84 labels = 1 sheet of Avery Laser L7656 labels) then press enterLN%oNumbering macroLNEh)kWAITMSG@mrSTART SETY #(F1-FIRST) rEND[ #(F1-STEP)r #(F1-FIRST) r #(F1-STEP) rSET SETZ #(F1-FIRST) rSETr #(F1-STEP)[2[ -e 2nH rSETLQB )VDIGITo rDGTrVDIGIT-#p rDGTrVDIGIT VZEROCOUNTrHIrPREFIXLQEs[VLOOPY #(F2-FIRST)r VZEROCOUNT[ #(F2-STEP)r #(F2-FIRST) r #(F2-STEP)rVLOOPVLOOPZ #(F2-FIRST)rVLOOPr #(F2-STEP)[2v-2tHI o0LQEum #(F2-FIRST) #(F2-STEP)vHI rSETLQEwHExwzHIrPREFIXLQI rSETLQE{HE|}l  #(F1-FIRST) #(F1-STEP)&KILLWAITMESSAGE@ ,ENDo WAITPROMPT WAITTITLE['WAITMESSAGEWIDTHHr WAITTITLELQ[2LE[2LE'rWAITMESSAGEWIDTH[LE[+LE[x[[LIr WAITTITLELNB'@Hr WAITTITLEo .CancelBttnLQ[LIE'Hr WAITTITLELQ oT1LQ[LE[LE[.LE[ LE[LIo Please wait.LQB'@Hr WAITTITLELQ oT2LQ[LE[LE'rWAITMESSAGEWIDTHLE[ LE[LI1oGenerating labels....LQB'@Hr WAITTITLELQ[LQ%oWAITDLGCALLBACKLOB'@[|[['SWAITDLGCALLBACK[o CancelBttn*H[LIE*[|Hr WAITTITLELQB'@[|HE& rENDrSTART[P"VNUMBERHrVNUMBERLJB(VPAGESrVPAGESVPAGESHvVPROMPTLRo Label PagesLN#oYou will need rVPAGES[o* page(s) of labels to print this document.LN[LIB*@HvVMANUALLaIvPREFIXLaIvSTARTLaI vENDLaIvVLABELLaIv VSPECTEXTLaE*HE*HvVMANUALLaIvPREFIXLaIvSTARTLaI vENDLaIvVLABELLaIv VSPECTEXTLaE*HEYHE*[)51END-1KILLWAITMESSAGE18LVFORMAT1qVQUIT-19WAITDLGCALLBACK1WAITMSG1bgZEROSH+N!OEN WordPerfect!OEN WordPerfect/OENPSMacroInterpreter I1_=3Xdd=*,X,XX*__Application(A1;"WordPerfect";Default;"US")  //bates.wcm//1996,KarenGibsonformatsbateslabels;includesoptionsforfontselection,leadingzeros,andverticalpresentation;provisionsforaddingspecialtexttolabels//1998,KarenGibsonupdatedforWP8compatibilityIF(Not(?DocBlank))  FileNew()ENDIFONCANCEL(vQuit)////Selectandformatlabelsheet//vPath:=?PathLabels0   LabelsSelect(Filename:vPath;LabelName:"AveryL765635mmSlide") (#(# PaperSizeSelect(Name:"AveryL765635mmSlide";Width:8.268";Height:11.693";Type:Labels!)//PaperSizeSelect(Name:"";Width:8.5";Height:11.0";Type:Labels!)CenterPages(State:On!)Justification(Justification:Center!)..////Choosefontforlabels//DIALOGSHOW("Fonts";"WordPerfect")IF(vManual=1) GO(vFormat) h ENDIF D! IF(vOther=1)0 `  FontDlg()  0h` (#` (#GO(vFormat)  0ph(#h(#ENDIF0" p(#p(# IF(vArial=1)0   Font(Name:"ArialRegular";Family:FamilyHelvetica!;Attributes:FontMatchNormal!;Weight:90;Width:WidthUnknown!;Source:DRSFile!;Type:TrueType!;CharacterSet:FontMatchASCII!) (#(# ENDIFIF(vTimes=1)0   Font(Name:"TimesNewRomanRegular";Family:FamilyTimesRoman!;Attributes:FontMatchNormal!;Weight:90;Width:WidthUnknown!;Source:DRSFile!;Type:TrueType!;CharacterSet:FontMatchASCII!) (#(# ENDIFIF(vCourier=1)%  0   Font(Name:"CourierNewRegular";Family:FamilyCourier!;Attributes:FontMatchNormal!; @-(, Weight:90;Width:WidthUnknown!;Source:DRSFile!;Type:TrueType!;CharacterSet:FontMatchASCII!) (#(# ENDIFIF(v7=1) 4 FontSize(FontSize:6.96p)  ENDIF t IF(v8=1) 4 FontSize(FontSize:7.98p)  ENDIF ` IF(v9=1) 4 FontSize(FontSize:9.0p)  ENDIF L  IF(v10=1) 4 FontSize(FontSize:9.96p)  ENDIF 8  IF(v11=1) 4 FontSize(FontSize:10.98p)  ENDIF $ t IF(v12=1) 4 FontSize(FontSize:12.0p)  ENDIF  `  LABEL(vFormat)   8  //DIALOGSHOW("Format";"WordPerfect")//IF(vSpecText="")//  vSpecText:=""   //ELSE//  vSpecText:=vSpecText+NTOC(0F90Ah) p //ENDIF//IF(vZeros=1andvHorizontal=1)  GO(ZerosH)//ENDIF//IF(vZeros=1andvVertical=1)//  GO(ZerosV) H //ENDIF//IF(vNoZeros=1andvHorizontal=1)//  GO(NoZerosH)   //ENDIF//IF(vNoZeros=1andvVertical=1)//  GO(NoZerosV)  //ENDIF////Inputrangeandgeneratelabels//// LABEL(NoZerosH)  $D # //GetString(prefix;"Typethealphanumericprefix(ifany),pressenter";"Numberingmacro")//GetNumber(start;"Typethestartingvalueofthebatesrange,pressenter";"Numberingmacro")//GetNumber(end;"Typetheendingvalueofthebatesrange,pressenter";"Numberingmacro")//Call(WaitMsg)//FORNEXT(set;start;end;1)//  Type(vSpecText) X,'+ //  Type(prefix;set) D-(, //  HardPageBreak()  //ENDFOR//Call(KillWaitMessage)//GO(END) LABEL(ZerosH)  $ t GetString(prefix;"Enterthealphanumericprefix(ifany)andfilenumberegABC.001.(includingallformatting)thenpressenter";"Numberingmacro")0   GetNumber(dgt;"Typethetotalnumberofnumericaldigitsforthepagenumber[example:'ABC.001.0001'has4numericaldigits],thenpressenter";"Numberingmacro") (#(# 0   GetNumber(start;"Typestartingvalueforthelabelsofthebatesrange,eg1thenpressenter";"Numberingmacro") (#(# 0   GetNumber(end;"Typethenumberoflabelstobeproducedeg84or168(84labels=1sheetofAveryLaserL7656labels)endingvalueofthebatesrange,thenpressenter";"Numberingmacro") (#(# Call(WaitMsg)FORNEXT(set;start;end;1)vDigit:=STRLEN(set)  IF(dgt>vDigit)    vZeroCount:=(dgtvDigit)//    Type(vSpecText) H     Type(prefix)    FORNEXT(vLoop;1;vZeroCount;1)     4 Type("0")    ENDFOR    Type(set)    HardPageBreak()  ELSE//  Type(vSpecText) X    Type(prefix;set)  HardPageBreak()  ENDIFENDFORCall(KillWaitMessage)GO(END)// LABEL(NoZerosV)  )$( //GetString(prefix;"Typethealphanumericprefix(ifany),pressenter";"Numberingmacro")//GetNumber(start;"Typethestartingvalueofthebatesrange,pressenter";"Numberingmacro")//GetNumber(end;"Typetheendingvalueofthebatesrange,pressenter";"Numberingmacro") D-(, //Call(WaitMsg)//FORNEXT(vCount;start;end;80)//ASSIGN(vStep;vCount+19)//FORNEXT(Countpg;vCount;vStep;1)//FORNEXT(Column;0;60;20)//ASSIGN(vLabel;Countpg+Column)//IF(vLabel>end)//GO(LeaveLoop)//ENDIF//  Type(vSpecText)  8  //  Type(prefix;vLabel) $  //LABEL(LeaveLoop)//HardPageBreak()//ENDFOR//ENDFOR//ENDFOR//Call(KillWaitMessage)//GO(END)// LABEL(ZerosV)  H //GetString(prefix;"Typethealphanumericprefix(ifany),pressenter";"Numberingmacro")0   //GetNumber(dgt;"Typethetotalnumberofnumericaldigitsforthebatesnos.[example:'ABC00001'has5numericaldigits],pressenter";"Numberingmacro") (#(# //0   GetNumber(start;"Typestartingvalueofthebatesrange,pressenter";"Numberingmacro")(#(# 0   //GetNumber(end;"Typeendingvalueofthebatesrange,pressenter";"Numberingmacro") (#(# //Call(WaitMsg)//FORNEXT(vCount;start;end;80)//ASSIGN(vStep;vCount+19)//FORNEXT(Countpg;vCount;vStep;1)//FORNEXT(Column;0;60;20)//ASSIGN(vLabel;Countpg+Column)//vDigit:=STRLEN(vLabel)//IF(vLabel>end)//GO(ExitLoop)//ENDIF//  IF(dgt>vDigit) )$( //    vZeroCount:=(dgtvDigit) *%) //    Type(vSpecText) l+&* //    Type(prefix) X,'+ //    FORNEXT(vLoop;1;vZeroCount;1) D-(, //     4 Type("0")  //    ENDFOR  //    Type(vLabel)  //  ELSE t //  Type(vSpecText) ` //  Type(prefix;vLabel) L  //  ENDIF 8  //LABEL(ExitLoop)//HardPageBreak()//ENDFOR//ENDFOR//ENDFOR//Call(KillWaitMessage)//GO(END) LABEL(WaitMsg)  \ WaitTitle:="WAITPROMPT"WaitMessageWidth:=132DialogDefine(WaitTitle;50;50;WaitMessageWidth+22;43;16+256+8+2;WaitTitle)RegionShowWindow(Waittitle+".CancelBttn";Hide!)DialogAddText(WaitTitle;"T1";8;8;46;10;1;"Pleasewait.")DialogAddText(WaitTitle;"T2";8;19;WaitMessageWidth;10;1;"Generatinglabels....")DialogDisplay(WaitTitle;1;WaitDlgCallBack)Return LABEL(WaitDlgCallBack)   IF(WaitDlgCallBack[3]="CancelBttn")  Assert(CancelCondition!)ENDIFReturn LABEL(KillWaitMessage)  #l! DialogDestroy(WaitTitle)Return LABEL(END)  &"% DeleteCharPrevious()vNumber:=((Endstart)DIV80)vPages:=INTEGER(vNumber)vPages:=vPages//vPages:=vPages+1MESSAGEBOX(vPrompt;"LabelPages";"Youwillneed"+vPages+"page(s)oflabelstoprintthisdocument.";OK!) @-(, DISCARD(vManual;prefix;start;end;vLabel;vSpecText)QUIT LABEL(vQuit) t  DISCARD(vManual;prefix;start;end;vLabel;vSpecText) ` Close()QUIT