#--------------------------------CUT HERE-------------------------------------
#! /bin/sh
#
# This is a shell archive.  Save this into a file, edit it
# and delete all lines above this comment.  Then give this
# file to sh by executing the command "sh file".  The files
# will be extracted into the current directory owned by
# you with default permissions.
#
# The files contained herein are:
#
# -r--------  2 beebe        1473 Nov  5  1990 Makefile
# -rwxr-xr-x  1 beebe         414 Aug 16  1990 PSdraft
# -rw-r--r--  1 beebe        1359 Feb 12  1990 PSdraft.1
# -rw-rw-r--  2 beebe         694 Mar 23  1990 csc-memo.sty
# -r--------  2 beebe        2590 Jun  9  1989 formletter.awk
# -rw-rw-r--  2 beebe         434 Mar 23  1990 hhmm.sty
# -rw-r--r--  2 beebe        3649 Jul 29 20:08 letter.el
# -rw-rw-r--  2 beebe        4882 Mar 23  1990 memo.sty
# -r--------  2 beebe         588 Jul 10 15:21 nhfb-letter.sty
# -rw-r--r--  2 beebe         519 Jul 10 15:20 nhfb-math.sty
# -r--------  2 beebe         668 Sep 16  1988 nhfb.ltx
# -r--------  2 beebe         846 Sep 16  1988 nhfbmemo.ltx
# -r--------  2 beebe        3652 Nov 29  1988 phlethead.sty
# -r--------  2 beebe         499 Nov 29  1988 phtest.sty
# -r--------  4 beebe        3492 Mar 23  1990 plot79.ltx
# -r--------  4 beebe        3492 Mar 23  1990 plot79.sty
#
echo 'x - Makefile'
if test -f Makefile; then echo 'shar: not overwriting Makefile'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile
X#-----------------------------------------------------------------------
X# Process .letter file with LaTeX and print master and file copies.
X#
X# Usage:
X#
X#	make LET=name
X# or
X#	make clean
X#
X# Options:
X#	LET = LaTeX .letter file basename
X#	C = # of master copies
X#	FC = # of file copies
X#	DEV = device driver suffix
X#
X# [05-Nov-1990] -- revert to standard dvixxx
X# [04-Apr-1990] -- change output to use lpr, added spell rule
X# [02-Nov-1989] -- added FC
X# [17-Nov-1988] -- added tab expansion
X# [18-Jun-1987] -- no longer need OLD:LATEX
X# [23-Mar-1987]
X#-----------------------------------------------------------------------
X
XLET =
X
XFC = 1
X
XC = 1
X
XDEV = alw
X
XDVIDIR = /u/sy/beebe/tex/ndvi
XDVIDIR = /usr/local/bin
XDRIVER = $(DVIDIR)/dvi$(DEV)
X
X.SUFFIXES:
X
X.SUFFIXES:	.dvi .letter .spell
X
X.letter.spell:
X	detex $< | spell >$@
X
XLETTER:	$(LET).letter
X	chmod 700 $(LET).letter
X	mv $(LET).letter $(LET).letter.tmp
X	expand $(LET).letter.tmp >$(LET).letter # get rid of tabs!
X	rm -f $(LET).letter.tmp
X	latex $(LET).letter
X	$(DRIVER) -copies:$(C) $(LET).dvi
X#	cp $(LET).dvi-$(DEV) /$(DEV)
X	if [ X$(DEV) = Xalw ];\
X	then\
X		lpr -Pspalw $(LET).dvi-$(DEV);\
X	fi
X	sed -e 's|^showpage$$|/#copies $(FC) store showpage|' \
X		<$(LET).dvi-$(DEV) | PSdraft "File Copy" >/tmp/$(LET).ps
X	if [ X$(DEV) = Xalw ];\
X	then\
X		lpr -Pspalw /tmp/$(LET).ps;\
X		/bin/rm /tmp/$(LET).ps;\
X	fi
X	chmod 700 $(LET)*
X	chmod 400 $(LET).letter
X
Xclean:
X	- rm -f *.dvi* *.lst *.log *.aux *~* *.spell
X
Xclobber:	clean
________This_Is_The_END________
if test `wc -l < Makefile` -ne 68; then
	echo 'shar: Makefile was damaged during transit (should have been 68 bytes)'
fi
fi		; : end of overwriting check
echo 'x - PSdraft'
if test -f PSdraft; then echo 'shar: not overwriting PSdraft'; else
sed 's/^X//' << '________This_Is_The_END________' > PSdraft
X#!/bin/csh
X# Modify a PostScript file so  that it prints "LABEL"  diagonally
X# across each page in outline letters.  This should work for  ANY
X# PostScript file,  including  those  produced  by  TeX,  PLOT79,
X# Scribe, MacPaint, et al.
X#
X# Usage:
X#
X# PSdraft "label for page" <inPSfile >outPSfile
X#
X# [20-Feb-89]
X
Xset TF=/tmp/$$PSdraft
X
Xsed "s/(DRAFT)/($1)/" </usr/local/bin/draft.ps >$TF
Xsed -f $TF 
X
X/bin/rm $TF
________This_Is_The_END________
if test `wc -l < PSdraft` -ne 18; then
	echo 'shar: PSdraft was damaged during transit (should have been 18 bytes)'
fi
fi		; : end of overwriting check
echo 'x - PSdraft.1'
if test -f PSdraft.1; then echo 'shar: not overwriting PSdraft.1'; else
sed 's/^X//' << '________This_Is_The_END________' > PSdraft.1
X.TH PSdraft 1 "12 February 1990"
X.SH NAME
XPSdraft \- PostScript page text overlay filter
X.SH SYNOPSIS
X.TP 9
XTOPS-20:
X.B DO SYS:PSDRAFT 
Xlabel for page,infile,outfile
X.TP
XUNIX:
X.B PSdraft 
X\fI"label for page" <infile >outfile \fP
X.SH DESCRIPTION
XPSdraft filters a PostScript file so that it prints a specified label
Xdiagonally across each page in outline letters.  This should work for
X.I any
XPostScript file, including those produced by Macintosh programs,
XPLOT79, Scribe, TeX DVI drivers, et al.
X.PP
XThe overlay string is automatically scaled to fill an A-size (8.5in x
X11in) page.
X.PP
XTypical overlay strings include ``Confidential'', ``DRAFT'', 
X``File Copy'', ``Top Secret'', and so on.
X.SH FILES
X.TP 32
X.B sys:psdraft.mic
XTOPS-20 command script
X.TP
X.B texinputs:draft.ps
XTOPS-20
X.B sed
Xscript used by 
X.B psdraft.mic
X.TP
X.B /usr/local/bin/draft.ps
XUNIX
X.B sed
Xscript used by 
X.B PSdraft
X.TP
X.B /usr/local/bin/PSdraft
XUNIX shell script
X.TP
X.B /usr/local/man/man1/PSdraft.1
Xthis manual page
X.SH AUTHOR
XSpence Thomas, Computer Science Department, University of Utah,
X1986.  New address:
X.PP
X.RS
X.nf
X        Spencer W. Thomas
X        1418 Golden St.
X        Ann Arbor, MI 48104
X
X        Tel: (313) 994-0072
X
XOffice: EECS Dept, Univ of Michigan
X        142 ATL bldg
X        1101 Beal Ave.
X        Ann Arbor, MI 48109-2110
X
X        Tel: (313) 936-2616
X.fi
X.RE
________This_Is_The_END________
if test `wc -l < PSdraft.1` -ne 66; then
	echo 'shar: PSdraft.1 was damaged during transit (should have been 66 bytes)'
fi
fi		; : end of overwriting check
echo 'x - csc-memo.sty'
if test -f csc-memo.sty; then echo 'shar: not overwriting csc-memo.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > csc-memo.sty
X% -*-LaTeX-*-
X% /u/sy/beebe/letters/csc-memo.sty, Fri Mar 23 12:06:15 1990
X% Edit by Nelson H.F. Beebe <beebe@plot79.math.utah.edu>
X%
X% Center for Scientific Computing letterhead option for LaTeX memo document
X%
X
X\let\oldps@headings=\ps@headings % \ps@headings is redefined by uofutah.sty
X\input uofutah.sty
X\let\ps@headings=\oldps@headings % restore old version
X
X% ----------------------------------------------------------------------
X% Add letterhead to \@texttop
X%
X\def\@texttop{\ifnum\c@page=1%
X \begin{center}
X \vspace*{-130pt}%
X\Large\rm 
XThe University of Utah\\
XCenter for Scientific Computing\\
XDepartment of Mathematics\\
XMemorandum
X \end{center}
X\vskip 0pt plus .00006fil\relax\fi}
________This_Is_The_END________
if test `wc -l < csc-memo.sty` -ne 24; then
	echo 'shar: csc-memo.sty was damaged during transit (should have been 24 bytes)'
fi
fi		; : end of overwriting check
echo 'x - formletter.awk'
if test -f formletter.awk; then echo 'shar: not overwriting formletter.awk'; else
sed 's/^X//' << '________This_Is_The_END________' > formletter.awk
X# /u/sy/beebe/letters/formletter.awk, Fri Jun  9 17:26:08 1989
X# Edit by Nelson H.F. Beebe <beebe@csc-sun.utah.edu>
X# /u/sy/beebe/letters/formletter.awk, Mon Sep 19 13:20:17 1988
X# Edit by Nelson H.F. Beebe (beebe at plot79.utah.edu)
X# This program provides a simple form letter capability for LaTeX users.
X# It merges a file of addresses with a letter body to produce a single
X# LaTeX file that will produce letters to each addressee.
X#
X# Usage:
X# nawk -f formletter.awk option_list opening closing \
X#	body_file addressfile(s) >LaTeXfile
X# where
X#	option_list = list of \documentstyle[] options.  This will usually
X#		by at least a personal letter style file that defines the
X#		return address, letterhead, and signature lines.
X#	opening = letter greeting, e.g. "Dear Friend,"
X#	closing = letter closing, e.g. "Sincerely,"
X#	body_file = file containing body of form letter
X#	addressfile(s) = file(s) of address groups, separated by one or more
X#		blank lines
X#
X# Comment lines in an address file are discarded.  They begin with
X# *, #, or % following optional whitespace.
XBEGIN {
X	COMMENT_CHARS = "*#%";	# characters which in col. 1 begin a comment
X	option_list = ARGV[1];
X	opening = ARGV[2];
X	closing = ARGV[3];
X	body_file = ARGV[4];
X	"date" | getline date;
X	ARGV[1] = "";
X	ARGV[2] = "";
X	ARGV[3] = "";
X	ARGV[4] = "";
X	printf("%% -*-LaTeX-*-\n");
X	printf("%% WARNING: Do not edit this file.  It was created");
X	printf(" automatically by\n");
X	printf("%% nawk -f formletter.awk \"%s\" \"%s\" \"%s\" %s",
X		option_list,opening,closing,body_file);
X	for (k = 5; k < ARGC; ++k)
X		printf(" %s",ARGV[k]);
X	printf("\n");
X	printf("%% on %s\n",date);
X	printf("\\documentstyle[%s]{letter}\n",option_list);
X	printf("\\begin{document}\n");
X	EMPTY = 1;
X	PARTIAL = 2;
X	state = EMPTY;
X}
X# Now process the address file
X{
X	if ($0 == "")	# between address groups
X	{
X		if (state == PARTIAL)
X		{
X			printf("}\n");
X			printf("\\opening{%s}\n",opening);
X			printf("\\input{%s}\n",body_file);
X			printf("\\closing{%s}\n",closing);
X			printf("\\end{letter}\n\n\n");
X		}
X		state = EMPTY;
X	}
X	else	# address line
X	{
X		sub("[ \t\f]*","");	# discard leading whitespace
X		if (index(COMMENT_CHARS,substr($0,1,1)) > 0)
X			next;		# ignore comment lines
X		if (state == EMPTY)	# first line of address
X		{
X			printf("\\begin{letter}{%%\n");
X			state = PARTIAL;
X		}
X		printf("%s\\\\\n",$0);
X	}
X}
XEND {
X	if (state == PARTIAL)
X	{
X		printf("}\n");
X		printf("\\opening{%s}\n",opening);
X		printf("\\input{%s}\n",body_file);
X		printf("\\closing{%s}\n",closing);
X		printf("\\end{letter}\n\n\n");
X	}
X	printf("\\end{document}\n");
X}
________This_Is_The_END________
if test `wc -l < formletter.awk` -ne 87; then
	echo 'shar: formletter.awk was damaged during transit (should have been 87 bytes)'
fi
fi		; : end of overwriting check
echo 'x - hhmm.sty'
if test -f hhmm.sty; then echo 'shar: not overwriting hhmm.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > hhmm.sty
X% -*-LaTeX-*-
X% /u/sy/beebe/letters/hhmm.sty, Fri Mar 23 14:42:43 1990
X% Edit by Nelson H.F. Beebe <beebe@plot79.math.utah.edu>
X
X% ----------------------------------------------------------------------
X%
X% \hhmm gives the time of day in the form 09:53
X%
X\newcount\hh
X\newcount\mm
X\mm=\time
X\hh=\time
X\divide\hh by 60
X\divide\mm by 60
X\multiply\mm by 60
X\mm=-\mm
X\advance\mm by \time
X\def\hhmm{\number\hh:\ifnum\mm<10{}0\fi\number\mm}
________This_Is_The_END________
if test `wc -l < hhmm.sty` -ne 18; then
	echo 'shar: hhmm.sty was damaged during transit (should have been 18 bytes)'
fi
fi		; : end of overwriting check
echo 'x - letter.el'
if test -f letter.el; then echo 'shar: not overwriting letter.el'; else
sed 's/^X//' << '________This_Is_The_END________' > letter.el
X;/u/beebe/emacs/letter.el, Mon Jul 29 20:07:49 1991
X;Edit by Nelson H. F. Beebe <beebe@rios.math.utah.edu>
X;Update letter-mode-init to insert document name, 
X;creator, and creation date comments.
X;/home/csc-sun/u/sy/beebe/emacs/letter.el, Fri Oct  7 14:32:35 1988
X;Edit by Nelson H.F. Beebe (beebe at plot79.utah.edu)
X
X
X;;; This file sets things up so that visiting a file with extension
X;;; ".letter" will select LaTeX mode, insert a letter template, and
X;;; position the cursor ready for insertion (of the address, usually).
X;;; The template file should have ? in those positions where editing
X;;; is necessary.  These usually include the address field on the
X;;; \begin{letter}{?}, and the opening in \opening{Dear ?}.
X
X;;; .letter is already bound to text mode, so just remove it, then
X;;; put our own binding in the list
X(delq (assoc "\\.letter$" auto-mode-alist) auto-mode-alist)
X(setq auto-mode-alist
X      (cons (cons "\\.letter$" 'letter-mode) auto-mode-alist))
X
X;;; Here is the default template file; others who use this library
X;;; need only define their own with
X;;; 	(setq personal-letter-template "filename")
X;;; when loading this library.
X(defvar personal-letter-template "~beebe/letters/nhfb.ltx"
X"File containing personal letter template file for LaTeX.  It will be
Xinserted into the buffer on visiting a new file, and the cursor will
Xbe positioned at the first query (which will be deleted).")
X
X;;; This function is invoked when we visit a file with extension ".letter".
X;;; However, because the find-file command leaves the cursor at the
X;;; beginning of the file after invoking the normal-mode startup function,
X;;; we cannot do the cursor positioning here.  Instead, it has to go in
X;;; the code executed when find-file-hooks is invoked just before
X;;; find-file eixts.
X(defun letter-mode ()
X  "Simple interface to LaTeX mode, including supplying a default
Xstartup letter template."
X  (LaTeX-mode)
X  (setq mode-name (concat "LaTeX Letter")) ;we need this for letter-mode-init
X					;to identify the mode
X  )
X
X;;; Add letter-mode-init to the list of find-file-hooks, if it is not
X;;; already there.
X(if (not (memq 'letter-mode-init find-file-hooks))
X  (setq find-file-hooks (cons 'letter-mode-init find-file-hooks)))
X
X;;; This function is invoked during the hook execution.  It inserts
X;;; the template, positions the cursor, and then sets the buffer not
X;;; modified (so it can be easily killed if you immediately abandon
X;;; the letter).  During the LaTeX-mode beta test, the mode line is
X;;; longer, so we only check the first 5 characters in matching the
X;;; mode.  Since this function is invoked by EVERY find-file, we do
X;;; need to
X
X;;;  (if (and in-letter-mode (equal (substring mode-name 0 5) "LaTeX"))
X
X(defun letter-mode-init () ""
X  (if (equal mode-name "LaTeX Letter")
X      (if (= (point-min) (point-max))	;then we have an empty buffer
X	  (progn
X	    (insert-file personal-letter-template)
X	    (goto-char (point-min))
X	    (let ((eolpos))
X	      (end-of-line) 
X	      (setq eolpos (point))
X	      (goto-char (point-min))
X	      (if (re-search-forward "-\\*-.*-\\*-\\|^#!\\|^%!" eolpos t)
X		  (progn
X		    (beginning-of-line)
X		    (forward-line 1))
X		(goto-char (point-min))))
X	    (insert "% Document name: "
X		    (if (null buffer-file-name)
X			"unknown"
X		      buffer-file-name)
X		    "\n")
X	    (insert "% Creator: " (user-full-name)
X		    " [" (user-login-name) "@" (system-name) "]\n")
X	    (insert "% Creation Date: " (current-time-string) "\n")
X
X	    (goto-char (point-min))
X	    (if (search-forward "?" nil t)
X		(delete-char -1))
X	    (not-modified)
X	    (princ "")			;clear mode line
X	    )
X	)
X    )
X  )
________This_Is_The_END________
if test `wc -l < letter.el` -ne 92; then
	echo 'shar: letter.el was damaged during transit (should have been 92 bytes)'
fi
fi		; : end of overwriting check
echo 'x - memo.sty'
if test -f memo.sty; then echo 'shar: not overwriting memo.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > memo.sty
X% -*-LaTeX-*-
X% /u/sy/beebe/letters/memo.sty, Fri Mar 23 18:37:43 1990
X% Edit by Nelson H.F. Beebe <beebe@plot79.math.utah.edu>
X% ======================================================================
X%
X% This major style is a small extension of the letter style file
X% for producing memos.  It defines a memoheader environment,
X% for producing memos.  It also defines a memoheader environment,
X% similar to itemize, that can be used to produce the memo headers.
X%
X% Like the letter style, any number of \begin{memo} ... \end{memo}
X% groups may be given between the \begin{document} and
X% \end{document} commands.
X%
X% Sample usage:
X%
X% \documentstyle{memo}
X% \begin{document}
X%   \begin{memo}
X%     \begin{memoheader}
X%       \To{Staff Members}
X%       \From{John Q. Administrator}
X%       \Subject{Sharply Increased Thumbtack Usage}
X%       \item[Refno:] JQA.1990.03.23.1
X%     \end{memoheader}
X%     ...memo body...
X%   \end{memo}
X%
X%   \begin{memo}
X%     \begin{memoheader}
X%       \To{Staff Members}
X%       \From{John Q. Administrator}
X%       \Subject{Blunt Pencils}
X%     \end{memoheader}
X%     ...memo body...
X%   \end{memo}
X% \end{document}
X%
X% In the absence of additional \documentstyle options, a simple page
X% header, labeled MEMORANDUM, is produced.  The `csc-memo' style
X% option will produce a Center for Scientific Computing memo header.
X%
X% Macros \To{}, \From{}, and \Subject{} can be used to define those
X% fields, and by default, the \To{} field value will be repeated in
X% the page headers.  However, because memos often need non-standard
X% headings, they can be specified manually with \item[] fields between
X% the \begin{memoheader} ... \end{memoheader} commands.  Examples of
X% both are shown above.
X%
X% \signature{}, \ps{}, and \encl{} can all be specified if desired;
X% they all default to empty strings, since memos normally don't have
X% such entries.
X%
X% If \To{} is not used, the default page header produced consists of
X% the date and page number.  The header is defined by a
X% \pagestyle{headings} command executed when both \begin{memo} and
X% \To{} are processed.  A \pagestyle{xxx} command can be executed
X% after the \begin{memo} to select a particular page style.  This
X% permits several memos in a single batch to have different heading
X% styles.
X%
X% As in any LaTeX style, customized page headers are possible because
X% \pagestyle{xxx} invokes \ps@xxx, and that macro should define
X% \@oddhead and \@oddfoot to do whatever is necessary.  Since
X% \pagestyle{headings} is executed by
X% You need only
X% provide an alternate definition for \ps@headings to change headings
X% throughout.  If the \To{} macro is used, its argument is saved in
X% \toname for possible later use in the \@oddhead and \@oddfoot
X% macros.  \toname is the same macro used by the standard letter
X% style.
X%
X% ======================================================================
X
X
X\let\oldtypeout=\typeout
X    \def\typeout#1{}            % suppress letter style's version typeout
X    \input letter.sty
X\let\typeout=\oldtypeout
X
X\typeout{Document style `memo' <23 Mar 1990>}
X
X
X% Special version of \ps@headings for memos; if \toname is set to
X% \relax (which happens when \begin{memo} is executed), the To
X% field in the page header is suppressed.
X\def\ps@headings%
X{
X    \def\@oddhead%
X    {
X      \sl
X      \ifx\toname\relax\else To \ignorespaces \toname \hfil \fi
X      \@date \hfil Page \thepage
X    }
X    \def\@oddfoot{}
X}
X
X
X% Here is the memo environment--it is almost the letter environment,
X% but \opening{} and \closing{} are suppressed, and \toname is set to
X% \relax to suppress the To field in page headers.
X\newenvironment{memo}%
X{
X    \begin{letter}{\mbox{}}
X    \opening{}
X    \let\toname=\relax
X    \pagestyle{headings}
X}%
X{
X    \closing{\mbox{}}
X    \end{letter}
X}
X
X
X% \memolabel defines the format of the item tags in memoheader
X\newcommand{\memolabel}[1]{\mbox{\bf#1:}\hfil}
X
X
X% The memoheader is like itemize, with modified item tags.
X\newenvironment{memoheader}%
X{
X    \begin{list}{}
X    {
X      \let\makelabel\memolabel
X      \setlength{\labelwidth}{60pt}
X      \setlength{\leftmargin}{1.1\labelwidth}
X    }
X}%
X{
X    \end{list}
X}
X
X
X% \To, \From, and \Subject generate \item[] entries inside
X% \begin{memoheader} ... \end{memoheader}, and \To saves its argument
X% in \toname for use in page headers.
X\newcommand{\From}[1]{\item[From] #1}
X
X\newcommand{\Subject}[1]{\item[Subject] #1}
X
X\newcommand{\To}[1]{\item[To] #1
X  \gdef\toname{#1}
X%  \pagestyle{headings}
X}
X
X
X% Normally, memos do not have signature sections, but the user can
X% override if needed
X\signature{}
X
X
X% \@texttop defines a simple default first page header; normally, it
X% will be overridden by a personalized style option
X\def\@texttop%
X{
X  \ifnum\c@page=1
X    \begin{center}
X      \vspace*{-130pt}%
X      \Large\rm MEMORANDUM
X     \end{center}
X   \vskip 0pt plus .00006fil\relax
X  \fi
X}
________This_Is_The_END________
if test `wc -l < memo.sty` -ne 163; then
	echo 'shar: memo.sty was damaged during transit (should have been 163 bytes)'
fi
fi		; : end of overwriting check
echo 'x - nhfb-letter.sty'
if test -f nhfb-letter.sty; then echo 'shar: not overwriting nhfb-letter.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > nhfb-letter.sty
X%<BEEBE.LETTERS>NHFB-LETTER.STY.2, 25-Jun-87 09:58:02, Edit by BEEBE
X\input{clsc.sty}
X\pagestyle{headings}
X\input{plot79.ltx}           % I usually need these
X
X\address{Nelson H.F. Beebe, Ph.D\\
XCenter for Scientific Computing\\
XDepartment of Mathematics\\
X% 220 South Physics Building\\
XUniversity of Utah\\
XSalt Lake City, UT 84112\\
XUSA}
X
X\signature{
XNelson H.F. Beebe\\
XAdj. Assoc. Research Professor\\
Xof Mathematics\\
X\mbox{Internet: Beebe@math.utah.edu}
X}
X
X\location{Center for Scientific Computing \hfil 220 South Physics Building}
X\telephone{(801)581-5254}
X\date{\today{ }\hhmm}
________This_Is_The_END________
if test `wc -l < nhfb-letter.sty` -ne 23; then
	echo 'shar: nhfb-letter.sty was damaged during transit (should have been 23 bytes)'
fi
fi		; : end of overwriting check
echo 'x - nhfb-math.sty'
if test -f nhfb-math.sty; then echo 'shar: not overwriting nhfb-math.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > nhfb-math.sty
X\input{math.sty}
X\pagestyle{headings}
X\input{plot79.ltx}           % I usually need these
X
X\address{Nelson H.F. Beebe, Ph.D\\
XCenter for Scientific Computing\\
XDepartment of Mathematics\\
X% 220 South Physics Building\\
XUniversity of Utah\\
XSalt Lake City, UT 84112\\
XUSA}
X
X\signature{
XNelson H.F. Beebe\\
XAdj. Assoc. Research Professor\\
Xof Mathematics\\
X\mbox{Internet: Beebe@math.utah.edu}
X}
X
X\location{Center for Scientific Computing \hfil 220 South Physics Building}
X\telephone{(801)581-5254}
X\date{\today{ }\hhmm}
________This_Is_The_END________
if test `wc -l < nhfb-math.sty` -ne 22; then
	echo 'shar: nhfb-math.sty was damaged during transit (should have been 22 bytes)'
fi
fi		; : end of overwriting check
echo 'x - nhfb.ltx'
if test -f nhfb.ltx; then echo 'shar: not overwriting nhfb.ltx'; else
sed 's/^X//' << '________This_Is_The_END________' > nhfb.ltx
X% -*-LaTeX-*-
X
X%------------------------------------------------------------------------
X% EVERYTHING TO THE RIGHT OF A  %  IS A REMARK TO YOU AND IS IGNORED BY
X% LaTeX.
X%
X% WARNING!  DO NOT TYPE ANY OF THE FOLLOWING 10 CHARACTERS AS NORMAL TEXT
X% CHARACTERS:
X%                &   $   #   %   _    {   }   ^   ~   \
X%
X% The following seven are printed by typing a backslash in front of them:
X%  \$  \&  \#  \%  \_  \{  and  \}.
X%------------------------------------------------------------------------
X
X\documentstyle[nhfb-letter]{letter}
X\begin{document}
X\begin{letter}{?}
X
X\opening{Dear ?}
X
X\closing{Sincerely,}
X\ps{{$\cal NHFB$}/\LaTeX}
X\end{letter}
X\end{document}
________This_Is_The_END________
if test `wc -l < nhfb.ltx` -ne 24; then
	echo 'shar: nhfb.ltx was damaged during transit (should have been 24 bytes)'
fi
fi		; : end of overwriting check
echo 'x - nhfbmemo.ltx'
if test -f nhfbmemo.ltx; then echo 'shar: not overwriting nhfbmemo.ltx'; else
sed 's/^X//' << '________This_Is_The_END________' > nhfbmemo.ltx
X% -*-LaTeX-*-
X
X%------------------------------------------------------------------------
X% EVERYTHING TO THE RIGHT OF A  %  IS A REMARK TO YOU AND IS IGNORED BY
X% LaTeX.
X%
X% WARNING!  DO NOT TYPE ANY OF THE FOLLOWING 10 CHARACTERS AS NORMAL TEXT
X% CHARACTERS:
X%                &   $   #   %   _    {   }   ^   ~   \
X%
X% The following seven are printed by typing a backslash in front of them:
X%  \$  \&  \#  \%  \_  \{  and  \}.
X%------------------------------------------------------------------------
X
X\documentstyle[clscmemo]{letter}
X\pagestyle{headings}
X\input{plot79.ltx}           % I usually need these
X
X\begin{document}
X\date{\today{ }\hhmm}
X\signature{}
X
X\begin{letter}{\mbox{}}
X
X\opening{}
X
X \begin{memoheader}
X \item[To]
X	?
X \item[From]
X        Nelson H.F. Beebe
X \item[Subject]
X        ?
X \end{memoheader}
X
X\end{letter}
X\end{document}
________This_Is_The_END________
if test `wc -l < nhfbmemo.ltx` -ne 37; then
	echo 'shar: nhfbmemo.ltx was damaged during transit (should have been 37 bytes)'
fi
fi		; : end of overwriting check
echo 'x - phlethead.sty'
if test -f phlethead.sty; then echo 'shar: not overwriting phlethead.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > phlethead.sty
X% -*-LaTeX-*-
X% <TEX.LATEX>CLSC.STY.16,  4-May-88 10:10:42, Edit by BEEBE
X%
X% College of Science letterhead option for LaTeX letter document
X%
X% -*-LaTeX-*-
X% <TEX.LATEX>UOFUTAH.STY.8, 29-Jul-86 16:21:42, Edit by BEEBE
X%
X% University of Utah letterhead option for LaTeX letter document
X% This makes some useful changes from the standard letter format:
X%
X% (1) University letterhead appears on first page
X% (2) \today is replaced by \date, so if you do not want the letter
X%     dated by today's date, you can put an explicit \date{July 24, 1847}
X%     before the \begin{letter}.
X% (3) A time stamp \hhmm is available, and could be used by, e.g.
X%     \date{\today{ }\hhmm}.
X% (4) If \address{} is not specified, a page footer is produced
X%     on the first page of the form
X%     \location{} \hfill \telephone{}
X%
X% Sample usage:
X%
X% \documentstyle[uofutah]{letter}
X% \begin{document}
X%
X% \address{Henry Gondorf\\Department of Gaming\\1893 Cassidy Building}
X% \signature{Henry Gondorf\\Professor of Statistical Economics}
X%
X% \location{Department of Gaming\\Cassidy Building}
X% \telephone{(801)581-1852}
X%
X% \begin{letter}{Mr. Robert L. Parker\\31 Cherry Lane\\Circleville, UT}
X%
X% \opening{Dear Robert,}
X% ...body of letter...
X% \closing{Sincerely,}
X% \ps{{$\cal HG$}/\LaTeX}	% HG has no secretary, so credit LaTeX
X% \end{letter}
X% \end{document}
X%
X%
X% ----------------------------------------------------------------------
X%
X% TIME OF DAY
X%
X\newcount\hh
X\newcount\mm
X\mm=\time
X\hh=\time
X\divide\hh by 60
X\divide\mm by 60
X\multiply\mm by 60
X\mm=-\mm
X\advance\mm by \time
X\def\hhmm{\number\hh:\ifnum\mm<10{}0\fi\number\mm}
X%
X% ----------------------------------------------------------------------
X% Add letterhead to \@texttop
X%
X\def\@texttop{\ifnum\c@page=1%
X \begin{center}
X \vspace*{-130pt}%
X\Huge\rm The University of Utah\\
X\Large\sf Salt Lake City 84112
X \end{center}
X% Uncomment and modify to produce standard location
X% \begin{flushleft}
X% \vspace*{24pt}\sf%
X%College of Science Computer\\
X%210 South Physics Building
X% \end{flushleft}
X%
X\vskip 0pt plus .00006fil\relax\fi}
X%
X% ----------------------------------------------------------------------
X% Remove \hspace*{100pt}
X%
X\def\ps@firstpage{\def\@oddhead{}\def\@oddfoot{\raisebox
X {-45pt}[0pt]{\hbox to \textwidth
X {\xpt\sf
X \ifx\@empty\telephonenum\hfill\fi
X   \fromlocation \hfill
X \ifx\@empty\telephonenum\else\telephonenum\fi
X }}\hss}
X \def\@evenhead{}\def\@evenfoot{}}
X%
X% ----------------------------------------------------------------------
X% Change \today to \@date to allow user modification
X%
X\def\ps@headings{\def\@oddhead{\sl To \ignorespaces\toname \hfil \@date
X \hfil Page \thepage}\def\@oddfoot{}}
X%
X% ----------------------------------------------------------------------
X% Change \today to \@date to allow user modification
X%
X\def\opening#1{\ifx\@empty\fromaddress
X \thispagestyle{firstpage}
X {\raggedleft\@date\par}
X \else \thispagestyle{empty}
X {\raggedleft\begin{tabular}{l}\ignorespaces\fromaddress \\*[2\parskip]
X \@date \end{tabular}\par}
X \fi
X \vspace{2\parskip}
X {\raggedright \toname \\ \toaddress \par}\vspace{2\parskip}
X #1\par\nobreak}
X
X% ----------------------------------------------------------------------
X% Add letterhead to \@texttop
X%
X\def\@texttop{\ifnum\c@page=1%
X \vspace*{-130pt}%
X% \begin{center}
X%\Huge\rm The University of Utah\\
X%\Large\sf Salt Lake City 84112
X% \end{center}
X% \begin{flushleft}
X \vspace*{24pt}
X%\sf%
X%College of Science Computer\\
X%Center for Scientific Computing\\
X%Department of Mathematics\\
X%South Physics Building\\
X%\ifx\@empty\fromaddress\else Tel: (801)581-5257\fi
X% \end{flushleft}
X\vskip 0pt plus .00006fil\relax\fi}
________This_Is_The_END________
if test `wc -l < phlethead.sty` -ne 126; then
	echo 'shar: phlethead.sty was damaged during transit (should have been 126 bytes)'
fi
fi		; : end of overwriting check
echo 'x - phtest.sty'
if test -f phtest.sty; then echo 'shar: not overwriting phtest.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > phtest.sty
X%<BEEBE.LETTERS>NHFB-LETTER.STY.2, 25-Jun-87 09:58:02, Edit by BEEBE
X\input{phlethead.sty}
X\pagestyle{headings}
X\input{plot79.ltx}           % I usually need these
X
X\address{\relax}
X
X\signature{
XNelson H.F. Beebe\\
XAdj. Asst. Research Professor\\
Xof Mathematics\\
XARPANet: BEEBE@SCIENCE.UTAH.EDU\\
Xa.k.a. BEEBE@CS.UTAH.EDU\\
Xa.k.a. BEEBEN@RUAC.UTAH.EDU
X}
X
X%\location{Center for Scientific Computing \hfil 220 South Physics Building}
X\location{\relax}
X\telephone{(801)581-5254}
X\date{\today{ }\hhmm}
________This_Is_The_END________
if test `wc -l < phtest.sty` -ne 20; then
	echo 'shar: phtest.sty was damaged during transit (should have been 20 bytes)'
fi
fi		; : end of overwriting check
echo 'x - plot79.ltx'
if test -f plot79.ltx; then echo 'shar: not overwriting plot79.ltx'; else
sed 's/^X//' << '________This_Is_The_END________' > plot79.ltx
X% -*-LaTeX-*-
X% /u/sy/beebe/letters/plot79.sty, Fri Mar 23 17:55:33 1990
X% Edit by Nelson H.F. Beebe <beebe@plot79.math.utah.edu>
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.11, 24-Jun-86 16:57:59, Edit by BEEBE
X% Add \ULTRIX
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.7, 14-Feb-86 09:21:20, Edit by BEEBE
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.4,  4-Jan-86 17:20:06, Edit by BEEBE
X% <BEEBE.PLOT79.DOCUMENTATION>PLOT79.LTX.7, 15-Oct-85 14:12:08, Edit by BEEBE
X \font\manual=manfnt % font used for the METAFONT logo and special symbols
X \input hhmm.sty                 % for hh:mm timestamping in \today
X \newcommand{\ASCII}{{\sc ascii}}
X \newcommand{\AmSTeX}{{A}\kern-.1667em\lower.5ex\hbox{M}\kern-.125em{S}-\TeX}
X \newcommand{\BACKUP}{{\sc backup}}
X \newcommand{\BIBTEX}{{\rm B\kern-.05em{\sc i\kern-.025em b}\kern-.08em
X    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}
X \newcommand{\C}{{\sc C}}
X \newcommand{\CDC}{{\sc cdc}}
X \newcommand{\CORE}{{\sc Core}}
X \newcommand{\CRAY}{{\sc Cray}}
X \newcommand{\DEC}{{\sc Dec}}
X \newcommand{\DCL}{{\sc dcl}}
X \newcommand{\DOCUMENT}{{\sc Document}}
X \newcommand{\EBCDIC}{{\sc ebcdic}}
X \newcommand{\EMACS}{{\sc Emacs}}
X \newcommand{\EUNICE}{{\sc Eunice}}
X \newcommand{\FIGURE}[1]{Figure~\ref{#1} on page~\pageref{#1}}
X \newcommand{\FORTRAN}{{\sc Fortran}}
X \newcommand{\HELP}{{\sc help}}
X \newcommand{\IBM}{{\sc ibm}}
X \newcommand{\INFO}{{\sc Info}}
X \newcommand{\KERMIT}{{\sc Kermit}}
X \newcommand{\LIBREF}{{\sc Libref}}
X \newcommand{\MACRO}{{\sc Macro}}
X \newcommand{\MAKE}{{\sc make{\small(1)}}}
X \newcommand{\METAFILE}{{\sc Metafile}}
X \newcommand{\MF}{{\manual META}\-{\manual FONT}}
X \newcommand{\MKINFO}{{\sc Mkinfo}}
X \newcommand{\PASCAL}{{\sc Pascal}}
X \newcommand{\PCC}{{\sc pcc-{\small20}}}
X \newcommand{\PDP}{{\sc pdp-{\small11}}}
X \newcommand{\PFORT}{{\sc Pfort}}
X% New version from 11pt experiments 06-Jun-86 -- kern-.5em">" is
X% okay for Huge text, but too tight for normalsize
X \newcommand{\PLOT}{{\mbox{\raise.2ex\hbox{$<$}\kern-.06em\hbox{PLOT79}
X    \kern-.3em\hbox{\raise.2ex\hbox{$>$}}}}}
X% \newcommand{\PLOT}{{\mbox{\raise.2ex\hbox{$<$}\kern-.1em\hbox{PLOT79}
X%    \kern-.1em\hbox{\raise.2ex\hbox{$>$}}}}}
X \newcommand{\PLUTO}{{\sc Pluto}}
X \newcommand{\PORT}{{\sc Port}}
X \newcommand{\POSTSCRIPT}{{\sc Post\-Script}}
X \newcommand{\PRETTY}{{\sc Pretty}}
X \newcommand{\RDINFO}{{\sc Rdinfo}}
X \newcommand{\REINCL}{{\sc Reincl}}
X \newcommand{\RESOLUTION}[2]{#1{\sc H} $ \times $ #2{\sc V}}
X \newcommand{\SECTION}[1]{Section~\ref{#1} on page~\pageref{#1}}
X \newcommand{\SF}{{\sc sf{\small3}}}
X \newcommand{\SFTRAN}{{\sc Sftran{\small3}}}
X \newcommand{\SLIDES}{{\sc Slides}}
X \newcommand{\SLITEX}{SLI\TeX}
X \newcommand{\TABLE}[1]{Table~\ref{#1} on page~\pageref{#1}}
X \newcommand{\TANGLE}{{\sc Tangle}}
X \newcommand{\TAR}{{\sc tar{\small(1)}}}
X \newcommand{\TECO}{{\sc Teco}}
X \newcommand{\TEN}{{\sc Dec-{\small10}}}
X \newcommand{\TOPS}{{\sc Tops-{\small20}}}
X \newcommand{\TMACRO}{{\sc Tmacro}}
X \newcommand{\TUGBOAT}{{\sc {\large TUG}boat}}
X \newcommand{\TWENTY}{{\sc Dec-{\small20}}}
X \newcommand{\UNIVAC}{{\sc univac}}
X \newcommand{\ULTRIX}{{\sc ultrix-{\small32}}}
X \newcommand{\UNIX}{{\sc unix}}
X \newcommand{\UNIXFORTRAN}{{\sc f{\small77(1)}}}
X \newcommand{\VAX}{{\sc vax}}
X \newcommand{\VMS}{{\sc vms}}
X \newcommand{\WEAVE}{{\sc Weave}}
X \newcommand{\x}{$ \times $}
X \newcommand{\XINFO}{{\sc Xinfo}}
X
X% Obsolete commands:
X% For \XREF, use \SECTION
X
X \newcommand{\XREF}[1]{Section~\ref{#1} on page~\pageref{#1}\
X \typeout{Replace XREF by SECTION!}}
________This_Is_The_END________
if test `wc -l < plot79.ltx` -ne 83; then
	echo 'shar: plot79.ltx was damaged during transit (should have been 83 bytes)'
fi
fi		; : end of overwriting check
echo 'x - plot79.sty'
if test -f plot79.sty; then echo 'shar: not overwriting plot79.sty'; else
sed 's/^X//' << '________This_Is_The_END________' > plot79.sty
X% -*-LaTeX-*-
X% /u/sy/beebe/letters/plot79.sty, Fri Mar 23 17:55:33 1990
X% Edit by Nelson H.F. Beebe <beebe@plot79.math.utah.edu>
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.11, 24-Jun-86 16:57:59, Edit by BEEBE
X% Add \ULTRIX
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.7, 14-Feb-86 09:21:20, Edit by BEEBE
X% <BEEBE.PLOT79.FORMS>PLOT79.LTX.4,  4-Jan-86 17:20:06, Edit by BEEBE
X% <BEEBE.PLOT79.DOCUMENTATION>PLOT79.LTX.7, 15-Oct-85 14:12:08, Edit by BEEBE
X \font\manual=manfnt % font used for the METAFONT logo and special symbols
X \input hhmm.sty                 % for hh:mm timestamping in \today
X \newcommand{\ASCII}{{\sc ascii}}
X \newcommand{\AmSTeX}{{A}\kern-.1667em\lower.5ex\hbox{M}\kern-.125em{S}-\TeX}
X \newcommand{\BACKUP}{{\sc backup}}
X \newcommand{\BIBTEX}{{\rm B\kern-.05em{\sc i\kern-.025em b}\kern-.08em
X    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}
X \newcommand{\C}{{\sc C}}
X \newcommand{\CDC}{{\sc cdc}}
X \newcommand{\CORE}{{\sc Core}}
X \newcommand{\CRAY}{{\sc Cray}}
X \newcommand{\DEC}{{\sc Dec}}
X \newcommand{\DCL}{{\sc dcl}}
X \newcommand{\DOCUMENT}{{\sc Document}}
X \newcommand{\EBCDIC}{{\sc ebcdic}}
X \newcommand{\EMACS}{{\sc Emacs}}
X \newcommand{\EUNICE}{{\sc Eunice}}
X \newcommand{\FIGURE}[1]{Figure~\ref{#1} on page~\pageref{#1}}
X \newcommand{\FORTRAN}{{\sc Fortran}}
X \newcommand{\HELP}{{\sc help}}
X \newcommand{\IBM}{{\sc ibm}}
X \newcommand{\INFO}{{\sc Info}}
X \newcommand{\KERMIT}{{\sc Kermit}}
X \newcommand{\LIBREF}{{\sc Libref}}
X \newcommand{\MACRO}{{\sc Macro}}
X \newcommand{\MAKE}{{\sc make{\small(1)}}}
X \newcommand{\METAFILE}{{\sc Metafile}}
X \newcommand{\MF}{{\manual META}\-{\manual FONT}}
X \newcommand{\MKINFO}{{\sc Mkinfo}}
X \newcommand{\PASCAL}{{\sc Pascal}}
X \newcommand{\PCC}{{\sc pcc-{\small20}}}
X \newcommand{\PDP}{{\sc pdp-{\small11}}}
X \newcommand{\PFORT}{{\sc Pfort}}
X% New version from 11pt experiments 06-Jun-86 -- kern-.5em">" is
X% okay for Huge text, but too tight for normalsize
X \newcommand{\PLOT}{{\mbox{\raise.2ex\hbox{$<$}\kern-.06em\hbox{PLOT79}
X    \kern-.3em\hbox{\raise.2ex\hbox{$>$}}}}}
X% \newcommand{\PLOT}{{\mbox{\raise.2ex\hbox{$<$}\kern-.1em\hbox{PLOT79}
X%    \kern-.1em\hbox{\raise.2ex\hbox{$>$}}}}}
X \newcommand{\PLUTO}{{\sc Pluto}}
X \newcommand{\PORT}{{\sc Port}}
X \newcommand{\POSTSCRIPT}{{\sc Post\-Script}}
X \newcommand{\PRETTY}{{\sc Pretty}}
X \newcommand{\RDINFO}{{\sc Rdinfo}}
X \newcommand{\REINCL}{{\sc Reincl}}
X \newcommand{\RESOLUTION}[2]{#1{\sc H} $ \times $ #2{\sc V}}
X \newcommand{\SECTION}[1]{Section~\ref{#1} on page~\pageref{#1}}
X \newcommand{\SF}{{\sc sf{\small3}}}
X \newcommand{\SFTRAN}{{\sc Sftran{\small3}}}
X \newcommand{\SLIDES}{{\sc Slides}}
X \newcommand{\SLITEX}{SLI\TeX}
X \newcommand{\TABLE}[1]{Table~\ref{#1} on page~\pageref{#1}}
X \newcommand{\TANGLE}{{\sc Tangle}}
X \newcommand{\TAR}{{\sc tar{\small(1)}}}
X \newcommand{\TECO}{{\sc Teco}}
X \newcommand{\TEN}{{\sc Dec-{\small10}}}
X \newcommand{\TOPS}{{\sc Tops-{\small20}}}
X \newcommand{\TMACRO}{{\sc Tmacro}}
X \newcommand{\TUGBOAT}{{\sc {\large TUG}boat}}
X \newcommand{\TWENTY}{{\sc Dec-{\small20}}}
X \newcommand{\UNIVAC}{{\sc univac}}
X \newcommand{\ULTRIX}{{\sc ultrix-{\small32}}}
X \newcommand{\UNIX}{{\sc unix}}
X \newcommand{\UNIXFORTRAN}{{\sc f{\small77(1)}}}
X \newcommand{\VAX}{{\sc vax}}
X \newcommand{\VMS}{{\sc vms}}
X \newcommand{\WEAVE}{{\sc Weave}}
X \newcommand{\x}{$ \times $}
X \newcommand{\XINFO}{{\sc Xinfo}}
X
X% Obsolete commands:
X% For \XREF, use \SECTION
X
X \newcommand{\XREF}[1]{Section~\ref{#1} on page~\pageref{#1}\
X \typeout{Replace XREF by SECTION!}}
________This_Is_The_END________
if test `wc -l < plot79.sty` -ne 83; then
	echo 'shar: plot79.sty was damaged during transit (should have been 83 bytes)'
fi
fi		; : end of overwriting check
exit 0
