knight (08/12/82)
Since I haven't seen any so far, here are my letter-writing macros as requested about a week ago. They're rather simple but serve my purposes well. First page is not numbered. Futher explanation for the uninitiated: .ra -- Prints return address with current date if no arguments, otherwise address with first three argumetns, e.g.: .ra August 12, 1982 .a3 -- Three-line address, first three arguments are the first three lines, optional fourth argument is printed after "Dear ". Automatically paragraphs next line. ".a4" is the same, but for four lines. .dt -- Print date; handles arguments like ".ra" above; useful if writing a letter is often a multi-day task, as it is for me. .bq -- Begin quote, i.e. a section indented +5 on both sides. .of -- Print name after enough space for a signature. .tg -- Tag; i.e., "Sincerely," .p1, .p2, .p3 -- Postscript, post-post, etc. Argument is number of spaces .pp -- Paragraph; space and indent 5. .qp -- As above, but no space. .sk -- A sample of how I include frequently-written to addresses. .~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .de a3 \"THREE-LINE ADDRESS ~~~~~~~~~~~~~~~~~ .nf \\$1 \\$2 \\$3 .if !'\\$4'' Dear \\$4, .fi .pp .. .de a4 \"FOUR-LINE ADDRESS ~~~~~~~~~~~~~~~~~~ .nf \\$1 \\$2 \\$3 \\$4 .if !'\\$5'' Dear \\$5, .fi .pp .. .de bq \"BEGIN QUOTE ~~~~~~~~~~~~~~~~~~~~~~~~ .sp .in 5 .ll 60 .ti +5 .. .de dt \"DATE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .sp 2 .ti +35 .ie '\\$1'' .TD .el \\$1 \\$2 \\$3 .pp .. .de eq \"END QUOTE ~~~~~~~~~~~~~~~~~~~~~~~~~~ .in 0 .ll 65 .sp .. .de FO \"FOOTER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'bp .. .de HC \"HEADER CHECK ~~~~~~~~~~~~~~~~~~~~~~~ .if !\\n%-1 'sp 6 .if \\n%-1 .HD .. .de HD \"HEADER ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'sp 3 .tl ''%'' 'sp 2 .. .de of \"SIGN-OFF ~~~~~~~~~~~~~~~~~~~~~~~~~~~ .sp 4 .ti 35 Steve Knight .. .de pp \"PARAGRAPH ~~~~~~~~~~~~~~~~~~~~~~~~~~ .ne 3 .sp .ti +5 .. .de p1 \"POSTSCRIPT ~~~~~~~~~~~~~~~~~~~~~~~~~ .sp \\$1 P.S.: .pp .ns .. .de p2 \"POST-POSTSCRIPT ~~~~~~~~~~~~~~~~~~~~ .sp P.P.S.: .pp .ns .. .de p3 \"POST-POST-POSTSCRIPT ~~~~~~~~~~~~~~~ .sp P.P.P.S.: .pp .ns .. .de ra \"RETURN ADDRESS ~~~~~~~~~~~~~~~~~~~~~ .in 35 .nf Steve Knight St. Olaf College Northfield, MN 55057 .ie '\\$1'' .TD .el \\$1 \\$2 \\$3 .fi .. .de TD \"TODAY'S DATE ~~~~~~~~~~~~~~~~~~~~~~~ .if !\\n(mo-12 .ds MN December .if !\\n(mo-11 .ds MN November .if !\\n(mo-10 .ds MN October .if !\\n(mo-9 .ds MN September .if !\\n(mo-8 .ds MN August .if !\\n(mo-7 .ds MN July .if !\\n(mo-6 .ds MN June .if !\\n(mo-5 .ds MN May .if !\\n(mo-4 .ds MN April .if !\\n(mo-3 .ds MN March .if !\\n(mo-2 .ds MN February .if !\\n(mo-1 .ds MN January \\*(MN \\n(dy, 19\\n(yr .. .de tg \"TAG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .sp .ti 35 Sincerely, .. .de qp \"PARAGRAPH WITHIN QUOTE (no space)~~~ .ne 3 .ti +5 .. .~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .de sk \"STEVE KNIGHT .nf Steve Knight St. Olaf College Northfield, MN 55057 Dear Steve, .fi .pp .. .~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ .po 5 .wh 0 HC .wh -7 FO .~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~