ÿWPCLûÿ(8Label spacing macro üLABELZ.wpm version 1.3 (version for 5.1) created 5-13 August 1989, revised 28-30 August, 31 Oct-12, 24 Nov 1989 version 1.1 created 30 Nov to add error trapping on form selection screen version 1.2 created 9 Dec to correct bug in LongName routine version 1.3 created 14 May 1990 to correct small change in Tables menus in 30 March 90 version of WP (and a stupid mistake of my own) by Edward Still 72477,260 (C) Edward Still 1989, but may be copied and distributed without charge except a small charge for disk copying. PURPOSE: to allow the printing of selected labels off sheets oflabels SPECIAL INSTRUCTIONS: Have list on screen when starting macro. List must have a return at the end of each line, at least 2 returns between label items, and no more than 6 lines per label. You must have defined the label form before starting this macro. The best way to do this is to run the WPCorp macro LABELS. The following documents are necessary: NONE The following junk documents are created: ####$$$$.SF, ####$$$$.PF The following documents are deleted: ####$$$$.?F THANKS TO Gordon McComb for a bit of debugging VARIABLES USED: {Var 9} label = number of first printable label code name page# pagebreak ~ üübye~~ ü2ü~ üdisplay grid~ ü)ü&512~:€ü (ülabel~ € € € €€Peace B. Still€ Label Printer € Version 1.3 € € Enter the number of the first printable label left on the sheet, € numbering from the top left corner across the sheet. For example: € € ----------------------[top of sheet]------------------------ € | | | | € | 1 | 2 | 3 | € ------------------------------------------------------------ € | | | | € | 4 | 5 | 6 | € ------------------------------------------------------------ € € and so on. Enter the number here >> 1€~ ü"4ülabel~"=""~ ülabel~1~ üü ücleanup codes~ ü ü üCleaning up any stray codes. Please wait.~ ü This routine goes to the top of a doc, shortens each line, and searches and deletes ANY formatting codes~ ücode~ ?€s~ ?€o~ 3€llh~ 3€lls~ 3€lm~ 3€lt~ 3€pha~ 3€phb~ 3€pfa~ 3€pfb~ 3€pm~ 3€pp~ 3€ps~ 3€pu~ 3€oa~ 3€ob~ 3€oc~ J€en~ >€mo~ >€mf~ >€td~ >€to~ ~ €€€€9€n4ücode~!€!€ üü ü loop 0 & loop1 "normalize" a set of addresses by making sure that 2 and only 2 HRt's precede each address (except the first one)~ üloop0~ 2üAdjusting the space between each pair of addresses~ ü8ü5üright~~=32778~ Q€ üloop0~ ü üüset codes~~ üloop1~ 9€n € € €!€ € €!€ €€€ !€ € € €!€ €€€ üloop1~ üset codes~ 2üSetting up the address file to merge with the form.~ 9€n € €!€€ €!€ €€€€ üadjust for first~ +ü4ülabel~>1~ € € ülabel~4ülabel~-1~ ü üsave SF~ €€€€ ü3€PS ü €€ Choose correct LABEL definition and press €€{EXIT}€€ € (use arrow keys; do not use Name Search)~ üloop4~ ü9~ ü" ÿ"="€"~€ üü" ÿ"="€"~€ üü" ÿ"="&€"~üendloop4~ üüü üloop4~ üendloop4~ € ü 3€PNPN € € LHF.15" € € € üname~####$$$$.sf~üsave routine~ &€nn üsave PF~ üCreating the primary file (the labels form)~ 4€f1 €€€€ üname~####$$$$.pf~üsave routine~ &€nn üMerging the address file with the form.~ L€m####$$$$.pf €####$$$$.sf € $€####$$$$.?f €<€2yy&€ ü€€€ üpage#~5üpage~~ €€€ 2üChecking for spillover labels~ üloop3~ ü4üpage#~=5üpage~~übye~ü Z€ ü8ü5üleft~~=32780~ üloop3~ ü €€€ H€ccLook out! You have some labels with text spilling over to the next label.&€ü ü übye~ €€€2ü~ ü üsave routine~ )€ ünumber~5ümenu~~ ü4ünumber~~ 125~CreateSum~ 65027~LongName~ 32806~ShortName~ 32809~ShortName~ ~ "ü üCreateSum~ üthis section is reached only if Create Summary is YES and there is no summary already created~ € €4üname~ € ü)ü&1024~ y üfor y/n on replacement~ ü ü "ü üLongName~ üthis section is reached only if a Long Document Name is needed~ x €x € €4üname~ € ü)ü&1024~ y üfor y/n on replacement~ ü ü "ü üShortName~ üthis section is reached only if no Summary or Long Name are needed~ €€ €4üname~ € ü)ü&1024~ y üfor y/n on replacement~ ü ü "ü