yorkw@stable.ecn.purdue.edu (Willis F York) (11/29/90)
found the File about 4 people asked me for it....
(I hope i denen't edit out any impurtand copyright stuff ect.
----------CUT------
%
% Copyright 1990, Daniel R. Greening. Copying is permitted for any
% non-commercial purpose as long as this copyright and the
% documentation are retained on copies and derivative works. No
% warrantee is expressed or implied, and the author makes no claims
% about the usefulness, applicability, or correctness of the program.
%
% Greening Phonelist TeX Format.
%
% This thing is pretty cool, if I do say so myself. I've used it for
% several years. It formats phone numbers into a 9x9 block that looks
% like the picture that follows. The picture is simplified. There is
% enough room for decent sized names, long phone numbers (with area
% or country-codes and extensions), and addresses with 9-digit
% zipcodes. Print out the phone list example included and you'll
% see.
%
% ------------------+------------------+------------------
% | sally W 784-7861 | dan W 784-7861 | zeke W 784-7861 |
% | H 271-2629 | H 271-2629 | H 271-2629 |
% | 12 Foster Ct | 12 Foster Ct | 12 Foster Ct |
% | New York,NY 10 | New York,NY 10 | Topeka,KS 1054 |
% | georgeW 444-adff | | clem W 444-adff |
% | schoolW 277-2222 | KANSAS | jethroW 277-2222 |
% | abe W 331-3333 | | abigaiH 331-3333 |
% | ron W 231-2341 | jeb W 231-2341 | emmy W 231-2341 |
% | | | |
% ------------------+------------------+------------------
% | MICHIGAN | dan W 784-7861 | |
% | dan H 463-5788 | H 271-2629 | WASHINGTON |
% | 5582 Golfridge | 12 Foster Ct | |
% | Alma, MI,48801 | Lansing,MI 432 | nancy W 234-2223 |
% | W 623-3330 | georgeW 444-adff | georgeW 444-adff |
% | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
% | abe W 331-3333 | abe W 331-3333 | abe W 331-3333 |
% | ron W 231-2341 | ron W 231-2341 | ron W 231-2341 |
% | | | |
% ------------------+------------------+------------------
% | jeff W 784-7861 | W 784-7861 | jack W 784-7861 |
% | H 271-2629 | H 271-2629 | H 271-2629 |
% | 12 Foster Ct | 12 Foster Ct | 12 Foster Ct |
% | New York,NY 10 | New York,NY 10 | New York,NY 10 |
% | georgeW 444-adff | georgeW 444-adff | georgeW 444-adff |
% | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
% | abe W 331-3333 | abe W 331-3333 | abe W 331-3333 |
% | ron W 231-2341 | ron W 231-2341 | ron W 231-2341 |
% | | | |
% ------------------+------------------+------------------
%
% I typically take the output and cut it along the horizontal dividing
% lines, then staple the thing together on the left. If you fold it
% in half, it fits in a pocket or a largish wallet. If you want to
% stick it in a smaller wallet (and you are patient), you can tape the
% horizontal strips end-to-end and fan-fold it. It then occupies the
% space of a credit-card.
%
% HOW TO USE:
%
% Precede lines that contain a country, state or province header with
% ``$''. This is an example header for the sovereign state of California:
%
% $ CALIFORNIA
%
% Lines which contain a phone number work like this:
%
% person-name ; cat ; phone-number
%
% The ``cat'' is typically a one or two letter abbreviation, as in
% ``W'' for work, ``H'' for home, ``FX'' for FAX, ``P'' for parents,
% etc. The phone-number field defined in this macro package is large
% enough to accommodate the number ``999-999-9999x9999''. Here is an
% example:
%
% Alan Turing ; W ; 213-825-2266
% ; H ; 914-784-7861
%
% Finally, you indicate an address with the prefix ``>''. This simply
% indents the text which follows by one \quad. Here's a bigger
% example:
%
% $ CALIFORNIA
%
% Alan Turing ; W ; 213-825-2266
% > UCLA Computer Science Dept.
% > Los Angeles, CA 90024-1647
%
% ; H ; 914-784-7861
% > 1243 Blenheim Lane
% > Los Angeles, CA 90025
%
% Blank lines essentially mean nothing when the occur between these
% three constructs.
%
% If you want to include formatted paragraphs, you can do so, but you
% must terminate them with ``\par'' or with a blank line.
%
% Enjoy. If you make any interesting modifications, let me know.
%
% Dan Greening / dgreen@cs.ucla.edu
%
\font\rm=cmr5
\font\bf=cmbx5
% The following produces 3 column, 3 row output.
\hsize=2.0in
\vsize=3.0in
\voffset=-0.75in
\hoffset=-0.5in
\newdimen\fullhsize\global\fullhsize=7.5in
\newdimen\fullvsize\global\fullvsize=10.5in
\newdimen\hboxsize\global\hboxsize=\hsize\advance\hboxsize by 0.5in
\newdimen\vboxsize\global\vboxsize=\vsize\advance\vboxsize by 0.5in
\def\fullhbox{\hbox to\fullhsize}
\def\fullvbox{\vbox to\fullvsize}
\newcount\colcount \global\colcount=11
\newcount\rowcount \global\rowcount=5
\baselineskip=6 pt plus 1pt
\parindent 0pt
\newcount\boxnum
%
% Define argument to accept ^^M as a terminator for a macro (such as
% ;, $, and >.
%
\def\parsearg #1{\let\next=#1\begingroup\obeylines\futurelet\temp\parseargx}
\def\parseargx{%
\ifx \obeyedspace\temp \aftergroup\parseargdiscardspace \else%
\aftergroup \parseargline %
\fi \endgroup}
{\obeyspaces %
\gdef\parseargdiscardspace {\begingroup\obeylines\futurelet\temp\parseargx}}
\gdef\obeyedspace{\ }
\def\parseargline{\begingroup \obeylines \parsearglinex}
{\obeylines %
\gdef\parsearglinex #1^^M{\endgroup \next {#1}}}
%
\def\initcolbox#1 {\global\setbox#1=\vbox to\vboxsize{\hrule\vss\hbox %
to\hboxsize{\vrule height\vboxsize\hfil\vrule height\vboxsize}\vss\hrule}}
\def\initcolboxes{ \initcolbox11 \initcolbox12 \initcolbox13 \initcolbox14
\initcolbox15 \initcolbox16 \initcolbox17
\initcolbox18 \initcolbox19 }
\def\outputpage{\shipout\fullhbox{\fullvbox{\box11\vss\box14\vss\box17}\hss
\fullvbox{\box12\vss\box15\vss\box18}\hss
\fullvbox{\box13\vss\box16\vss\box19}}}
\initcolboxes
\output={
\global\setbox\colcount=\vbox to \vboxsize
{\hrule width\hboxsize\vss\hbox to \hboxsize
{\vrule height\vboxsize\hss\columnbox\hss\vrule height\vboxsize}
\vss\hrule width\hboxsize}
% Current column is now saved.
\message{(\the\colcount)}
\ifnum\colcount=19
\global\colcount=11
\outputpage
\advancepageno
\initcolboxes
\else
\global\advance\colcount by 1
\fi
% For the very end.
\ifnum\outputpenalty>-100000 \else
\supereject\outputpage\fi
}
\def\columnbox{\vbox to\vboxsize{\vfill\hbox{\vbox to\vsize{\unvbox255\vfill}}\vfill}}
%
% Here we define ``$'' ``>'' and ``;'' as active macro
% characters. They serve as separators for fields in our phone list.
%
\rm
\newdimen\widthb
\global\setbox0=\hbox{WE}
\widthb=\wd0
\newdimen\widthc
\global\setbox0=\hbox{999-999-9999x9999}
\widthc=\wd0
%
\catcode`\;=\active
{
\catcode`\;=11
\gdef\phonelineyyy #1;#2;#3\finish{
\catcode`\;=\active\hfill
\hbox to\widthb{\hfil\ignorespaces #1\hfil}
\hbox to 0.05in{\hfil}
\hbox to\widthc{\ignorespaces #2\hfil}
\par}
\gdef\phoneline #1{\catcode`\;=11\phonelineyyy #1;;;\finish}
}
\outer\def;{\catcode`\;=11\parsearg\phoneline}
%
\catcode`\>=\active
\def\addressline#1{\hbox to\hsize{\quad\ignorespaces #1\hfil}\par}
\def>{\parsearg\addressline}
%
\catcode`\$=\active
\def\arealine#1{\vbox to 1pt{\vfil}\hbox to\hsize{\hfil{\bf\ignorespaces #1}\hfil}\vbox to 1pt{\vfil}}
\def${\parsearg\arealine}
% ---------------------------- end of definitions ---------------------
% ---------------------------- beginning of example -------------------
$ SOUTHERN CALIFORNIA
Daniel R. Greening ; W ; 213-825-2266
; H ; 213-829-7726
> 3436 Boelter Hall
> Los Angeles, CA 90024-1596
ISI ; W ; 213-822-1511
$ NORTHERN CALIFORNIA
Avalon Ventures ; W ; 415-960-1879
Sierra Club ; W ; 415-776-2211
UC Student Assn ; W ; 916-447-8272
$ WASHINGTON, DC
Rep. Barney Frank ; W ; 202-225-5931
NGLTF ; W ; 202-332-6483
House of Reps ; W ; 202-225-3121
National Park Service ; W ; 202-343-4747
US Student Assn ; W ; 202-775-8943
$ GEORGIA
Georgia Inst. Tech. ; W ; 404-894-2300
$ LOUISIANA
Bruce D. Shriver ; W ; 318-231-5811
> Editor-in-Chief, IEEE Computer
> U. of Southwestern Louisiana
> Drawer 42730
> Lafayette, LA 70504-2730
> shriver@usl.edu
$ MARYLAND
Ober Travel ; W ; 301-496-6676
$ MASSACHUSETTS
Appalachian Mt.Club ; ; 617-523-0636
ATHENA ; W ; 617-253-1300
Kluwer Acad. Pub.; W ; 617-871-6600
MIT LCS ; W ; 617-253-5851
REI ; W ; 617-944-5103
> 279 SalemSt.
> Boston,MA
> (exit 40 off Rt128)
$ NEW HAMPSHIRE
AMC Hut Reservations ; ; 603-466-2727
Warren Rudman ; W ; 603-666-7591
$ NEW MEXICO
LANL ; W ; 505-667-5061
LANL Library ; W ; 505-667-4175
> 8am-4.30pm m-f
LANL CNLS ; W ; 505-667-1444
Santa Fe Institute ; W ; 505-984-8800
> 1120 Canyon Road
> Santa Fe, NM 87501
$ NEW YORK
AAA ; W ; 212-586-1166
AAA autoTripMaps ; W ; 914-997-7744
ACM ; W ; 212-869-7440
B\&H Photo ; W ; 212-807-7474
Bee Line ; W ; 682-2020
> 14 N
Bee Line/lost+found ; W ; 376-6361
Carey Bus ; W ; 212-286-9766
> lost/found 718-632-0529
Conran's Habitat ; W ; 914-683-5858
> I 287 E to exit 5. take 2nd left
Cornell University ; W ; 607-255-2000
Daniel R. Greening ; W ; 914-784-7861
; H ; 914-271-2629
> IBM T.J. Watson Research Center
> P.O.Box 704
> Yorktown Heights, NY 10598-0704
IBM Hawthorne ; W ; 914-784-7000
; FX; 914-784-7455
> 30 Saw Mill River Road
> Hawthorne, NY 10532
> mail:
> P.O.Box 704
> Yorktown Heights, NY 10598
Kayson Jeep ; W ; 914-271-5105
; FX; 914-271-5581
NYNEX ; W ; 914-964-6500
Oliva Car Service ; W ; 914-769-8881
Ossining Pub Lib ; W ; 914-941-2416
> 9a n to 133 millwood.
> bear right. thru underpass
> 53 Croton Avenue.
> m-th9.30-9
> f,sa9.30-5.30,su1-5
REI ; W ; 914-632-9222
> 500 Main St.
> New Rochelle, NY
French Consulate ; W ; 212-606-3600
Hertz ; W ; x23789
; W ; 914-948-3024
MetroNorth Commuter ; ; 800-522-5624
New York Tax Board ; W ; 800-462-8100
; W ; 518-438-1073
New York Times ; W ; 800-631-2500
NYU Info ; W ; 212-998-4636
NYU Bookstore ; W ; 212-998-4656
NYU Book orders ; W ; 212-998-4678
>
Oscar Wilde Books ; W ; 212-255-8097
Sailing Info ; W ; 914-271-6868
Courtsports ; W ; 914-592-3005
$ NORTH CAROLINA
MCNC ; W ; 919-248-1800
> 3021 Cornwallis Road
> P.O. Box 12889
> Research Triangle Park, NC 27709-2889
$ OHIO
> The Ohio Supercomputer Center
> 1224 Kinnear Road
> Columbus, OH 43212-1154
$ TEXAS
SEMATECH ; W ; 512-356-3500
> SEMATECH
> 2706 MontopolisDr.
> Austin,TX 78741
$ WASHINGTON
Lake Chelan Nat.Rec. ; W ; 509-682-4711
\end
% Local Variables
% tab-width:25
% End
--
yorkw@ecn.purdue.edu Willis F York
----------------------------------------------
Macintosh... Proof that a Person can use a Computer all day and still
not know ANYTHING about computers. dgreen@arnor.uucp (12/06/90)
Nice to know that people like my phone list TeX program. A very simple change, which converts the text to Helvetica (if you use Tomas Rokicki's dvips) is %\font\rm=cmr5 %\font\bf=cmbx5 \font\rm=helv at 5pt \font\bf=helvb at 5pt ____ \ /Dan Greening IBM T.J.Watson Research Center NY (914) 784-7861 \/ dgreen@cs.ucla.edu Yorktown Heights, NY 10598-0704 CA (213) 825-2266