( [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) EOl7G Labelszjm(m.m^R Delete Blank Lines) i $ 0[0 [1[2[3[4[5 j<.u5:s$;Lq5,.k .-z;.u5 0u2<1F=$"E0;'%2wL> q2-7"G^ft I am sorry, this entry is more than 7 lines long. Please read in the file again, fix it, write it out, and try again. ^fg' Q5J(9-Q2)/2Q5J 0u1<1F=$"E0;' Q0"EL' "#:FX4KQ1-8:L Q0*41-fsHPosU3 Q3"LQ3D'"#Q3,40.I' G49-Q1L' %1w> Q0"E9-Q1<15.I12.I>' %0-2"G0u0' > BJ~Filename~LABELS~DOC~ ~Filename~Macro for generating mailing labels. ~DOC~ LabelsC Convert the buffer from mailing list to labels. A mailing list file has each entry beginning with a $n and spaced out to be 5 lines long. The fifth line, if non-blank, is the ATTN: field. The mailing labels come 3 per line. Each label is 8 lines high, with one empty line between labels. Each label is 40 characters wide, with one empty column between labels. You can either print the results of this command on a DECwriter, or print it on the ML line printer if we install a special format tape so that it doesn't skip several lines between pages, and to allow for the fact that pages on the label forms are longer than regular pages. ~DIRECTORY~Labels ~INVERT~[1Q1