\documentclass{article}

\usepackage{german}
\usepackage{a4}
\usepackage{isolatin1}
\usepackage{erwin}
\usepackage{fuch}

\aivmax
\initipa

\def\true{true}
\def\false{0}

\def\ontop#1#2{\begin{tabular}{c}{#1}\\{#2}\end{tabular}}

\newbox\helpxxx
\newdimen\wdxxx
\def\dboxX#1{%
\setbox\helpxxx\hbox{#1}%
\wdxxx=\wd\helpxxx%
\hbox to0pt{\myfbox{\hskip\wdxxx\rule[-0.5mm]{0pt}{1mm}}}{\hskip\wdxxx}%
}

\def\dboxq{\dboxX{0}}
\def\dboxh{\dboxX{1}}
\def\dboxo{\dboxX{-}}
\def\dboxd{\dboxX{2}}
\def\dboxf{\dboxX{3}}

\def\test#1{%
#1\fntsize&#1\ontop
{\fuchbox{s-l-e-i-g-n-f-r-m-u-o-a-c-j-d-N--b-h-G--x--z--y}}
{\fuchbox{<-(-\!(-[-\![-`-\&--\#-'-\!]-]-\!)-)->}}\\
}

\def\testall{
\begin{tabular}{|c|c|}\hline
\test\normalsize\hline
\test\Large\hline
\test\LARGE\hline
\test\Huge\hline
\end{tabular}
}

\def\fuchtest{
\section{Fuchisch}
\subsection{Serifenschrift}
{\fuchrm}\testall
\subsection{Serifenlose Schrift}
{\fuchsf}\testall
\subsection{Fettdruck}
{\fuchbfc}\testall
}

\def\fuchHUGEa{\setfont{fuchrmc10 at 43pt}}
\def\fuchHUGEb{\setfont{fuchsf10 at 43pt}}
\def\fuchHUGE{\fuchHUGEb}

\def\nrm{\small\rm}

\def\testneg#1{\ifx#1a-1\else#1\fi}

\def\params#1#2#3#4#5#6#7{%
% 1   : Breite des Buchstaben
% 2,3 : Ausbreitung nach links und rechts in O-Höhe
% 4,5 : -"- in U1-Höhe
% 6,7 : -"- in U3-Höhe
{\rm\large#1\nrm%
\setlength\tabcolsep{1mm}%
\begin{tabular}{rrr}%
\testneg{#2}&\testneg{#4}&\testneg{#6}\\%
\testneg{#3}&\testneg{#5}&\testneg{#7}%
\end{tabular}\hspace{-1em}}%
}

\newcounter{lauf}
\setcounter{lauf}{128}

\def\myfbox#1{%
\setlength\fboxrule{0.03mm}%
\setlength\fboxsep{0pt}%
\fbox{#1}%
}

\gdef\shftA#1{{#1}}
\gdef\shftB#1{{\Large\raisebox{1.5ex}{#1}}}

\def\boxA#1{%
\def\xxxxx{#1}%
\ifx\xxxxx\false%
\shft{\makebox{\small\arabic{lauf}}}%
\else%
\chardef\fuchchar=\value{lauf}%
\Huge\fuchbox{\fuchHUGE{}\myfbox{\fuchchar}}%
\fi%
\stepcounter{lauf}
}

\def\empty{}

\def\boxAP#1{%
\ifx#1\empty\else%
\Huge\fuchbox{\fuchHUGE{}\myfbox{#1}}\small\,#1%
\fi%
}

\def\boxB#1{
\shft{%
\makebox{%
\ifx#1\false%
\hfill-\hfill%
\else%
\ifx#1\true%
\hfill$\vdots$\hfill$\vdots$\hfill%
\else%
{\params#1}
\fi\fi}}
}

\def\testforo#1{%
\def\tempa{#1}%
\def\tempb{O}%
\ifx\tempa\tempb%
\gdef\shft{\shftB}%
\else%
\gdef\shft{\shftA}%
\fi%
}

\def\makelineA#1#2#3#4#5{%
\testforo{#3}%
\shft{\large#1}&%
\shft{\large[#2]}&%
\shft{\large#3}&%
\Huge\fuchbox{%
\fuchHUGE{}\myfbox{#4}}&%
}

\def\makelineB#1#2#3{%
\rule{0em}{2.7ex}%
\boxA{#1}&%
\boxA{#2}&%
\boxA{#3}&%
}

\def\makelineC#1#2#3#4#5{%
\boxAP{#1}&%
\boxAP{#2}&%
\boxAP{#3}&%
\boxAP{#4}&%
\boxAP{#5}\\\hline%
}

\def\makeline#1#2#3#4#5#6#7#8{%
\makelineA{#1}{#2}{#3}{#4}{#5}%
\makelineB{#6}{#7}{#8}%
\makelineC{}{}{}{}{}
}

\def\makelinE#1#2#3#4#5#6#7#8{%
\makelineA{#1}{#2}{#3}{#4}{#5}%
\makelineB{#6}{#7}{#8}%
}

\def\nothing{}
\def\ifnotnothing#1#2#3{%
\def\temp{#1}%
\ifx\temp\nothing#3%
\else#2%
\fi}

\def\song{s\openo\eng}
\def\san{san}
\def\digh{d\sci q}
\def\flung{f\-lu\eng}
\def\fur{fur}
\def\bul{bul}
\def\gah{\scriptg ah}

\def\anfendline#1{%
  {\kern-0.3em\normalsize#1\kern-0.3em}&%
}
\def\kk{\kern-0.2em}
\def\anfendentry#1#2#3#4#5{%
  \gdef\tempa{?}%
  \gdef\tempb{#1}%
  {\ifx\tempa\tempb\tempb\else\kern-0.3em\normalsize[\stress#1]\kern-0.3em\fi}&%
  \ifnotnothing{#2}{\kk\Huge\fuchbox{%
  \fuchHUGE{}\myfbox{#2}}\kk}{-}&%
  \boxB{#3}&% {\params#3}&%
  \ifnotnothing{#4}{\kk\Huge\fuchbox{%
  \fuchHUGE{}\myfbox{#4}}\kk}{-}&%
  \boxB{#5}% {\params#5}%
}

\def\ur#1{\oalign{#1\crcr\hidewidth\raise.1ex\hbox{\underring}\hidewidth}}
\def\us#1{\oalign{#1\crcr\hidewidth\raise.1ex\hbox{\syllabic}\hidewidth}}
\def\uu#1{#1,\ur{#1}/\us{#1}}

\def\over#1#2{$\stackrel{\mbox{#1}}{\mbox{#2}}$}


\let\mc=\multicolumn
\def\rb#1{\raisebox{1.5ex}[-1.5ex]{#1}}

\def\mmb#1{%
\rule[-2ex]{0ex}{0ex}%
\myfbox{#1}}

\begin{document}
\Large
\hspace{0cm}{%
\section{Grundbuchstaben mit Ligaturen}
\fbox{%
\begin{tabular}{|c|c|c||c|c|c|c||c|c|c||c|c|}\hline
%\mc3{|c||}{Name,Ausspr.,Art}&%
Name&Ausspr.&Art&
{\rule[-1ex]{0ex}{4ex}{N}}&{L}&{R}&{B}&{V1}&{V2}&{V3}&{V4}&{V5}\\\hline\hline
% Aus mysteriösen Gründen ist es nötig, zwischen 1 und 1 eine
% Leerstelle zu setzen, sonst wird die Parameteranzahl verändert.
% Folgende Buchstabenkombinationen sind betroffen:
%   11,
% Nein, es hat einen anderen Grund: offenbar zieht TeX
%   \params11100000 anders zusammen als \params 11100000
\makeline{s, sel}{s}               {o}{s}{1}{1}{1}{1}
\makeline{l, las}{\uu l}           {u}{l}{1}{1}{1}{0}
\makeline{e, elos}{\niepsilon}     {o}{e}{1}{1}{1}{0}
\makeline{i, ilos}{\sci}           {o}{i}{1}{1}{1}{0}
\makeline{g, gel} {\scriptg,k}     {u}{g}{1}{1}{1}{0}
\makeline{n, nel} {\uu n,\nj}      {o}{n}{1}{0}{0}{0}
\makeline{f, fas} {f}              {U}{f}{1}{1}{1}{1}
\makeline{r, rel} {\uu r}          {U}{r}{1}{0}{0}{0}
\makeline{m, mas} {\uu m}          {u}{m}{1}{1}{1}{1}
\makelinE{u, ulos}{u}              {u}{u}{1}{1}{0}{0}\makelineC{U}{4}{}{S}{R}
\makeline{o, olos}{\openo}         {u}{o}{1}{1}{1}{1}
\makelinE{a, alos}{a}              {o}{a}{1}{1}{0}{0}\makelineC{A}{5}{}{9}{T}
\makeline{c, cas} {\esh}           {u}{c}{1}{1}{1}{1}
\makeline{j, jel} {\yogh,\esh}     {u}{j}{1}{1}{1}{1}
\makeline{d, das} {d,t}            {U}{d}{1}{1}{1}{0}
\makelinE{N, liN}{\uu\eng,\scn}    {U}{N}{1}{0}{1}{0}\makelineC{M}{}{6}{Z}{Y}
\makelinE{b, bas} {b,p}            {U}{b}{1}{1}{1}{0}\makelineC{B}{C}{D}{E}{F}
\makeline{h, has} {h,\hookh,\glotstop}{u}{h}{1}{0}{0}{0}
\makelinE{G, Gel}{{\scg},q,c}      {u}{G}{1}{0}{1}{0}\makelineC{H}{}{7}{W}{V}
\makelinE{x, xas} {x,\nichi,\c c}  {U}{x}{1}{0}{1}{0}\makelineC{X}{}{8}{Z}{Y}
\makelinE{z, zas} {\nitheta}       {U}{z}{1}{1}{1}{0}\makelineC{I}{J}{K}{L}{O}
\makeline{y, ylos}{\scy}           {U}{y}{1}{0}{0}{0}
\end{tabular}}%
}
\vfill\pagebreak
\hspace{0cm}{%
\section{Anfangs- und Endbuchstaben}
\fbox{%
\begin{tabular}{|c||c|c|c|c|c||c|c|c|c|c|}\hline
&\mc5{c||}{Anfangszeichen}&\mc5{c|}{Endzeichen}\\\cline{2-11}
\rb{Funktion}&Fuchisch&%
\mc2{c|}{normal}&%
\mc2{c||}{stark}&%
Fuchisch&%
\mc2{c|}{normal}&%
\mc2{c|}{stark}\\\hline\hline
% ACHTUNG: die Anfangs- und Endzeichen dürfen nur in die Wortrichtung
% andere Werte als 0 bekommen, da sonst mit einem ,-` aufgefüllt wird!
% Außerdem sind alle Buchstaben ,breit genug`, d.h. jeder Buchstabe darf
% prinzipiell angelegt werden, wenn die Ausbreitung nach oben und unten
% das zuläßt.
\anfendline{Wortgrenze}%
  \anfendentry{\song\digh}     {(} { U000a00}{!(}{ U000a00}&%
  \anfendentry{\san\digh}      {)} { U00a000}{)!}{ U00a000}\\\hline
\anfendline{Satzgrenze}%
  \anfendentry{\flung\digh}    {[} { B000000}{![}{ B000000}&%
  \anfendentry{\flung\san\digh}{]} { B000000}{]!}{ B000000}\\\hline
\anfendline{Erwartung}%
  \anfendentry{\fur\san\digh}  {:(}{ B000000}{}  {\false}&%
  \anfendentry{\fur\digh}      {):}{ B000000}{}  {\false}\\\hline
\anfendline{\ontop{Auslassung,}{Trennung}}%
  \anfendentry{\bul\digh}      {-(}{ o000000}{}  {\false}&%
  \anfendentry{\bul\san\digh}  {)-}{ o000000}{}  {\false}\\\hline
\anfendline{Zahlgrenze}%
  \anfendentry{\gah\digh}      {*(}{ b000000}{}  {\false}&%
  \anfendentry{\gah\san\digh}  {)*}{ b000000}{}  {\false}\\\hline
\anfendline{Reserve}%
  \anfendentry{?}              {?(}{ B000a00}{}  {\false}&%
  \anfendentry{?}              {)?}{ B00a000}{}  {\false}\\\hline
\end{tabular}}
}
\section{Sonstige}
Im Moment nur {\fuchHUGE\myfbox{|}}, das Trennzeichen.
\def\kk{\kern-0.08em}
\def\kkk{-}
\Huge\fuchbox{(---hd--dh---hf--fh---%
                  hb--bh---h\kkk r---r\kkk h---%
                  hm--mh---ho---ch---)}

\section{Lineal}
{\fuchHUGEb{}%
\over{%
\over{%
\over{%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
\dboxq\dboxq\dboxq\dboxq%
}%
{%
\dboxh\dboxh\dboxh\dboxh%
\dboxh\dboxh\dboxh\dboxh%
\dboxh\dboxh\dboxh\dboxh%
\dboxh\dboxh\dboxh\dboxh%
}%
}%
{%
\dboxo\dboxo\dboxo\dboxo%
\dboxo\dboxo\dboxo\dboxo%
}%
}
{%
\dboxd\dboxd\dboxd\dboxd%
}

\section{Vervielfältigungsligaturen}
{\fuchHUGE{}%
\begin{tabular}{|l|c|c|c|c|c|}\hline
 {\Large\rm{}ulos}&\mmb{u}&\mmb{UR}&\mmb{USR}&\mmb{USSR}&\mmb{4SSR}\\\hline
 {\Large\rm{}alos}&\mmb{a}&\mmb{AT}&\mmb{A99T}&\mmb{A99T}&\mmb{599T}\\\hline
 {\Large\rm{}Gel}&\mmb{G}&\mmb{VH}&\mmb{VWH}&\mmb{VWWH}&\mmb{VWW7}\\\hline
 {\Large\rm{}xas}&\mmb{x}&\mmb{YX}&\mmb{YZX}&\mmb{YZZX}&\mmb{YZZ8}\\\hline
 {\Large\rm{}liN}&\mmb{N}&\mmb{YM}&\mmb{YZM}&\mmb{YZZM}&\mmb{YZZ6}\\\hline
 {\Large\rm{}bas}&\mmb{BD}&\mmb{BCD}&\mmb{BCPCD}&\mmb{ECF}&\mmb{ECPCF}\\\hline
 {\Large\rm{}zas}&\mmb{IK}&\mmb{IJK}&\mmb{IJQJK}&\mmb{LJO}&\mmb{LJQJO}\\\hline
\end{tabular}
}
% es gibt folgende Buchstabenarten:
%       |
%  o:  ===
%
%  u:  ===
%       |
%
%  U:  ===
%       |
%       |
%
%       |
%  b:  ===
%       |
%
%       |
%  B:  ===
%       |
%       |

\end{document}