% CAGED_date='r% $F version of $X'
% /MAN/HELPMAC.TEX version of Jun 4, 1986 1:20 pm
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
% Fonts!  (Gothic, that is)
%
\voffset=-.2in \vsize=9.5in \hsize=7in
\font\goth=cmr10
\font\gothi=cmti10
\font\gothb=cmb10 
\def\Vfont{\goth}

%
\def\menuon  {}        % To TeX log manual properly
\def\menuoff {}        %
\def\nomenu  {}
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
% Special verbatim stuff
%
% Glenn's special verbatim mode is toggled by any control character.
{\catcode`\^^M=\active \global\def\fixM{\def^^M{\null\par}}}
\catcode`\^^?=\active
\newdimen\spaceskip\def\myspace{{\hskip\spaceskip}}
{\obeyspaces\global\let =\myspace}
\def\VERBATIM{\parskip=0pt\parindent=0pt\raggedbottom%
\catcode`\$=12\catcode`\&=12\catcode`\#=12\catcode`\[=12%
\catcode`\^=12\catcode`\_=12\catcode`\|=12\catcode`\~=12%
\setbox0=\hbox{\Vfont M}\spaceskip=\wd0\obeylines\obeyspaces\fixM}
\def^^?{\begingroup\Vfont\def^^?{\endgroup}\VERBATIM}
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
%
\def\{{\char`\{}
\def\}{\char`\}}
\def\\{\char`\\}
\def\'{\char`\'}
\def\[{[}
\def\]{]}
\def\air{\ }
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
%
\def\subject#1{}
\def\section#1{}
\def\author#1{}
\def\pagelen#1{}
\def\index#1{}
\def\need#1{}
%
\def\title#1{\centerline{\eighteenpoint #1}}
\def\bpage{\vfill\eject}
\def\page{}                %%should be \def\page{\need300pt} ??
\def\header#1{\centerheading{#1}}
\def\noheader{\noheading}
%
\def\u#1{\uline{#1}}        %% HP macro
\def\i#1{\u{#1}}
\def\r#1#2{{\gothi #1}}
\def\rr#1{{\gothi #1}}      %% An easy way to get yellow/italics
\def\f#1#2{\r{#1}{#2}}
\def\k#1#2{\r{#1}{#2}}
\def\h#1{{\gothb #1}}
\def\bs{{\fiverm\raise5pt\hbox{B}\kern-4pt\lower0pt\hbox{S}}}
\def\ff{{\fiverm\raise5pt\hbox{F}\kern-4pt\lower0pt\hbox{F}}}
%%%\def\cr{{\fiverm\raise5pt\hbox{C}\kern-4pt\lower0pt\hbox{R}}}
\def\cl#1{\centerline{#1}}
%
\newcount\DaveTime \DaveTime=\time
\newcount\timeA \newcount\timeB \newcount\timeC
\def\hour{{\timeA=\DaveTime \timeB=\timeA
    \divide\timeA60 \timeC=\timeA \multiply\timeC60
    \advance\timeB-\timeC\ifnum\timeA>11
    \advance\timeA-12 \def\time@{PM}\else\def\time@{AM}\fi
    \ifnum\timeA=0 \timeA=12 \fi\number\timeA
    :\ifnum\timeB<10 0\fi\number\timeB\nobreak\ \time@}}
\def\time{\hour}
\def\datetime{\date \time}
%
\def\man#1#2{{\gothi #1(#2)}}
\def\sect#1{\line{}{\gothb #1 \hfil}}
\def\xsect#1#2{\line{}\line{\gothb #1 \hfil} \ \ \ \ #2 \hfil}
\def\name#1#2#3{\headline={\gothb #1(#2) \hfil \goth Chipmunk Software Documentation \hfil
                      \gothb #1(#2)}
                \line{\gothb NAME \hfil} \ \ \ \ #1 -- #3 \hfil}
\def\synop#1{\xsect{SYNOPSIS}{#1}}
\def\desc{\sect{DESCRIPTION}}
%
\def\files#1{\line{}\line{\gothb FILES \hfil}
            {\catcode`\&=4
             \halign{\ \ \ \ ##\hfil&\quad##\hfil\cr
                     #1\cr}}}
%
\def\fromManTeX#1{\footline={\goth Printed \date \ \ \
                             {\sevenrm #1} \hfil
                             \folio}}
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
% AND THEY'RE OFF...
\headline={\goth\hfil Chipmunk Software Documentation \hfil}   %% Default only
\footline={\goth Printed \date \hfil \folio}
\goth\vskip -2\baselineskip     %% \setbox0=\hbox{W} \showthe\wd0 (To get char width)
\VERBATIM        %%%

