%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +
%% t1.tex:   example of use of tp-pdf.tex macro package 
%% Author:   Tomasz Przechlewski <ekotp@univ.gda.pl>.
%% Date:     20.03.1997.
%%
%% Note:     dvips should be run with -tunknown option
%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +
%\language \english %% uncomment if you use MeX format
\input e-fonts.tex % -- set up outline fonts --
\hsize 115mm  \vsize 175mm
\tolerance 1050 \pretolerance 745
\input idxmac \makeindex % indexing macros
%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +
\input tp-pdf.tex %
\papersize{\bvpapersize} % declare paper size
\UseOutlines  % start with bookmarks visible
\PDFdocauthor{T. Przechlewski \string\(ekotp@univ.gda.pl\string\)}%
\PDFdoctitle{PDF test}%
\NoPLSanitize %  suppress sanitization of bookmarks
%%%\NoBookmarks % uncomment to suppress bookmarks
\PDFbegin  % set paper size and document general info
%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +
%
\newcount \secC \newcount \ssecC \newcount \eqC \newcount \tabC
\def\IncrC#1{\global\advance#1 by1\relax}
\def\eqnum#1{\eqno{(#1)}\def\CurrentCounter{#1}}
\def\newpage{\vfill \eject }

\def\tabtitle#1{\IncrC{\tabC}%
  \def\CurrentCounter{\the\tabC}%
  \def\CurrentPDFLabel{tab.\CurrentCounter}%
  \leftline{\PDFdestination{\CurrentPDFLabel}Table~\CurrentCounter.~#1}}

\def\math{\IncrC{\eqC}\def\CurrentPDFLabel{eqn.\the\eqC}%
  \PDFdestination{\CurrentPDFLabel}$$} 
\def\endmath{$$}

\def\sec#1{\vskip2\baselineskip \global\ssecC=0 \IncrC{\secC}%
  \def\CurrentCounter{\the\secC}\def\CurrentPDFLabel{sec.\the\secC}%
  \leftline{\strut\PDFdestination{\CurrentPDFLabel}\bf\CurrentCounter.~#1}
  \writetorep{\CurrentPDFLabel}{#1}\par \nobreak 
  \vskip1\baselineskip}

\def\ssec#1{\vskip1\baselineskip \IncrC{\ssecC}%
  \def\CurrentCounter{\the\secC.\the\ssecC}%
  \def\CurrentPDFLabel{ssec.\CurrentCounter}%
  \leftline{\strut\PDFdestination{\CurrentPDFLabel}\bf\CurrentCounter.~#1}
  \writetorep{\CurrentPDFLabel}{#1}\par \nobreak 
  \vskip1\baselineskip}
%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +
\def\Input#1{\openin1 #1 \ifeof1 \typeout
  {I cannot find file #1.}\else\closein1 \relax\input #1 \fi}
\def\printindex{\Input{\jobname.ind}}
%% + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- + ----- +

\sec{International Money Markets}
\label{sec:investing}
An\vadjust{\line{\kern-12mm\PDFnote{30}{120}{}{This is 
an example of a closed note}{0}\hss}}
investor\index{investor} in foreign money market\index{market}
securities who holds the securities to maturity earns a yield as 
described in the following equation:
\math Y = (1-i_f) \big( S* \big/ S \big) - 1
\eqnum{2}\label{eq:yield} \endmath
see also~eq.~\ref{eq:yield'} in section~\ref{sec:summary}. 

\vskip30mm

%%%\bookmarkclosed
\sec{Currency coctail bonds}
\label{sec:coctail}
Currency coctail bonds\index{bonds}
are denominated in a mix of currencies.
Two well known units of account used to denominate currency
coctail bonds are Special Drawing Rights (SDRs\index{SDR}) 
and the European Currency Unit (ECU\index{ECU}). 

%%%\bookmarkopen
\ssec{Special Drawing Rights}
The SDR represents a~weighted average of 
the US dollar, German mark, Japanese yen, French  franc and
British pound\dots

\ssec{European Currency Unit}
The SDR represents a~weighted average of European currencies.

Section~\ref{sec:risk} deals with stock\index{stock} markets.

\newpage
\sec{Managing exchange rate risk}
\label{sec:risk}
The exchange rate\index{exchange rate} 
risk can be reduced by diversifying among stocks\index{stock}
of different countries. See~section~\ref{sec:coctail} for details.
\vskip3\baselineskip
\tabtitle{Stock Exchanges on the Far-East}
\label{tab:stock-ex}
\medskip
\begingroup \offinterlineskip
\halign{\vrule\strut \qquad#\qquad\hss&&\vrule\strut 
 \qquad#\qquad\hss\vrule\cr \noalign{\hrule}
 Stock exchange    & \% \cr \noalign{\hrule}
 Australia         & 60 \cr
 New Zealand       & 30 \cr
 Fiji\index{Fiji}  & 10 \cr \noalign{\hrule} }
\endgroup
\medskip
Investors\index{investor}\dots

\newpage

\sec{Summary}
\label{sec:summary}
The equation~\ref{eq:yield} can be rewritten as follows:
\math  (Y + 1) \big/ (1-i_f) = \big( S* \big/ S \big)
\eqnum{3}\label{eq:yield'} \endmath
\vskip20mm
see table~\ref{tab:stock-ex} for more details on stocks\index{stock}
traded in the Far-East

\beginindex
\sec{Index}
\printindex
\endindex

\PDFend

\bye

.