% Format = LaTeX
%
%---------------------------------------------------------------------------------------------------
%
%  Registration card for DirectTeX Pro v2.1.2
%
%---------------------------------------------------------------------------------------------------
%
\documentclass[]{article}
\openin15=palatino.sty
\ifeof15
\else
\usepackage{palatino}
\fi
\closein15
\nofiles
\textwidth160mm
\textheight246mm
\oddsidemargin0pt
\topmargin0pt
\headheight0pt
\headsep0pt
\pagestyle{empty}
%---------------------------------------------------------------------------------------------------
\begin{document}
%---------------------------------------------------------------------------------------------------
\newcount\a\a=0
\newcount\b\b=0
\newcount\c\c=0
\newcount\d\d=0
\newcount\e\e=0
\newcount\f\f=0
\newcount\g\g=0
\newcount\countdt\countdt=0
\newcount\sharedt\sharedt=0
\newcount\sharett\sharett=0
\newcount\usmoney\usmoney=0
\newcount\demoney\demoney=0
\newif\ifbad
%---------------------------------------------------------------------------------------------------
\def\empty{\par}
\def\shareware#1{\a=#1\ifnum\a>\g\f=\c\ifnum\a>\b\advance\a by -\b\else\a=\g\fi%
\multiply\a by \d\advance\f by \a\ifnum\e>\g\ifnum\f>\e\f=\e\fi\fi\else\f=\g\fi}
\def\directtex#1{\b=3\c=150\d=30\e=0\shareware{#1}}
\def\shareus#1{\usmoney=#1\ifnum\usmoney>\g\multiply\usmoney by 2%
\divide\usmoney by 3US-\$ \number\usmoney\fi}
\def\sharede#1{\demoney=#1\ifnum\demoney>\g\number\demoney.-- DM\fi}
\def\getinput#1{\message{#1: }\read -1 to \foo\ifx\empty\foo\badtrue\else\badfalse\fi}
\def\required#1#2{\loop\getinput{#1}\ifbad\relax\repeat\let#2=\foo}
\def\optional#1#2{\message{#1 (*): }\read -1 to #2}
\def\license#1{\ifnum#1=1{\number#1 License}\else{\number#1 Licenses}\fi}
\catcode138=12\catcode154=12\catcode164=12\catcode201=12
%---------------------------------------------------------------------------------------------------
\message{^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J}
\message{^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J^^J}
\message{Welcome to the world of DirectTeX MPW and DirectTeX Pro !!^^J}
\message{==========================================================^^J^^J}
\message{This file may be used to register the DirectTeX software package.^^J^^J}
\message{Please answer the following questions carefully. You may leave the^^J}
\message{answer blank for all question marked with (*), and you must answer^^J}
\message{all other questions. After answering the questions you should print^^J}
\message{the resulting .dvi file and follow the instructions you will find there.^^J^^J}
\message{Another hint: You may type characters like `�', `�', `�', �^^J^^J}
%---------------------------------------------------------------------------------------------------
\catcode128=13 \def �{\"A}
\catcode129=13 \def �{\AA }
\catcode130=13 \def �{\c C}
\catcode131=13 \def �{\'E}
\catcode132=13 \def �{\~N}
\catcode133=13 \def �{\"O}
\catcode134=13 \def �{\"U}
\catcode135=13 \def �{\'a}
\catcode136=13 \def �{\`a}
\catcode137=13 \def �{\^a}
\catcode138=13 \def �{\"a}
\catcode139=13 \def �{\~a}
\catcode140=13 \def �{\aa }
\catcode141=13 \def �{\c c}
\catcode142=13 \def �{\'e}
\catcode143=13 \def �{\`e}
\catcode144=13 \def �{\^e}
\catcode145=13 \def �{\"e}
\catcode146=13 \def �{\'\i }
\catcode147=13 \def �{\`\i }
\catcode148=13 \def �{\^\i }
\catcode149=13 \def �{\"\i }
\catcode150=13 \def �{\~n}
\catcode151=13 \def �{\'o}
\catcode152=13 \def �{\`o}
\catcode153=13 \def �{\^o}
\catcode154=13 \def �{\"o}
\catcode155=13 \def �{\~o}
\catcode156=13 \def �{\'u}
\catcode157=13 \def �{\`u}
\catcode158=13 \def �{\^u}
\catcode159=13 \def �{\"u}
\catcode160=13 \def �{\dag }
\catcode161=13 \def �{\hbox{$^\circ$}}
\catcode163=13 \def �{{\it\$}}
\catcode164=13 \def �{\S }
\catcode165=13 \def �{\hbox{$\bullet$}}
\catcode166=13 \def �{\P }
\catcode167=13 \def �{\ss }
\catcode171=13 \def �{\'{ }}
\catcode172=13 \def �{\"{ }}
\catcode173=13 \def �{\neq }
\catcode174=13 \def �{\AE }
\catcode175=13 \def �{\O }
\catcode176=13 \def �{\infty }
\catcode177=13 \def �{\pm }
\catcode178=13 \def �{\leq }
\catcode179=13 \def �{\geq }
\catcode181=13 \def �{\mu }
\catcode182=13 \def �{\partial }
\catcode183=13 \def �{\Sigma }
\catcode184=13 \def �{\Pi }
\catcode185=13 \def �{\pi }
\catcode186=13 \def �{\int }
\catcode189=13 \def �{\Omega }
\catcode190=13 \def �{\ae }
\catcode191=13 \def �{\o }
\catcode192=13 \def �{{?`}}
\catcode193=13 \def �{{!`}}
\catcode194=13 \def �{\lnot }
\catcode195=13 \def �{\sqrt }
\catcode197=13 \def �{\hbox{$\approx$}}
\catcode198=13 \def �{\Delta }
\catcode199=13 \def �{\ll }
\catcode200=13 \def �{\gg }
\catcode201=13 \def �{\hbox{$\ldots$}}
\catcode202=13 \def �{}
\catcode203=13 \def �{\`A}
\catcode204=13 \def �{\~A}
\catcode205=13 \def �{\~O}
\catcode206=13 \def �{\OE }
\catcode207=13 \def �{\oe }
\catcode208=13 \def �{{--}}
\catcode209=13 \def �{{---}}
\catcode210=13 \def �{{``}}
\catcode211=13 \def �{{''}}
\catcode214=13 \def �{\div }
\catcode215=13 \def �{\diamond }
\catcode216=13 \def �{\"y}
%---------------------------------------------------------------------------------------------------
\message{^^J1. User Information:^^J}
\message{====================^^J^^J}
\required{Full name}{\fullname}
\optional{Organization}{\organization}
\optional{Department}{\department}
\required{Street address}{\street}
\required{ZIP/Postal code}{\postalcode}
\required{City}{\city}
\optional{State}{\state}
\required{Country}{\country}
\optional{Telephone}{\telephone}
\optional{Fax}{\fax}
\optional{Electronic mail address}{\email}
%---------------------------------------------------------------------------------------------------
\message{^^J2. System Information:^^J}
\message{======================^^J^^J}
\optional{Computer}{\computer}
\optional{RAM (MB)}{\rammb}
\optional{Hard Disk (MB)}{\harddiskmb}
\optional{System Version}{\systemversion}
%---------------------------------------------------------------------------------------------------
\message{^^J3. Licensing Information:^^J}
\message{=========================^^J^^J}
\message{Please enter the number of installations you want to register.^^J}
\optional{DirectTeX}{\mycount}\ifx\mycount\empty\countdt=0\else\countdt=\mycount\fi
\message{^^J^^J^^J}
%---------------------------------------------------------------------------------------------------
\ifnum\countdt>\g\directtex{\countdt}\sharedt=\f\advance\sharett by \f\fi
%---------------------------------------------------------------------------------------------------
$$\underline{\underline{\hbox{\Huge\bf Registration Card}}}$$
\par\vspace{1cm}
%---------------------------------------------------------------------------------------------------
\noindent Please include a cheque for the amount of \shareus{\sharett}
(\sharede{\sharett}), make it payable to Wilfried Ricken, and send it
together with this registration card to the following address:
$$\mbox{\parbox{100mm}{%
{\bf Wilfried Ricken}\\%
Im Kempken 27\\%
44799 Bochum\\%
Germany\\%
e-mail: {\tt wilfr@hadron.tp2.ruhr-uni-bochum.de}}}$$
%---------------------------------------------------------------------------------------------------
$$\rule{\textwidth}{0.1mm}$$
{\bf 1. User Information}\par\vspace{0.5cm}
\begin{tabular}{ll}
Name: & {\fullname} \\
Organization: & {\organization} \\
Department: & {\department} \\
Street address: & {\street} \\
ZIP/Postal code: & {\postalcode} \\
City: & {\city} \\
State: & {\state} \\
Country: & {\country} \\
Telephone: & {\telephone} \\
Fax: & {\fax} \\
Electronic mail address: & {\tt\email} \\
\end{tabular}
%---------------------------------------------------------------------------------------------------
$$\rule{\textwidth}{0.1mm}$$
{\bf 2. System Information}\par\vspace{0.5cm}
\begin{tabular}{ll}
Computer: & {\computer} \\
RAM (MB): & {\rammb} \\
Hard Disk (MB): & {\harddiskmb} \\
System Version: & {\systemversion} \\
\end{tabular}
%---------------------------------------------------------------------------------------------------
$$\rule{\textwidth}{0.1mm}$$
{\bf 3. Licensing Information}\par\vspace{0.5cm}
\begin{tabular}{llclcr}
\ifnum\countdt>\g Direct\TeX\ Pro v2.1.2: & \license{\countdt} & ; & \shareus{\sharedt} & ; & \sharede{\sharedt} \\ \fi
\ifnum\sharett>\g \hline \multicolumn{3}{l}{Total ShareWare Fee:} & \shareus{\sharett} & ; & \sharede{\sharett} \fi
\end{tabular}
%---------------------------------------------------------------------------------------------------
$$\rule{\textwidth}{0.1mm}$$
{\bf 4. Your Comments}\par\vspace{0.5cm}
%---------------------------------------------------------------------------------------------------
\end{document}