%
%   Program pro prohlizeni fontu - bez nastaveni rozmeru
%
%   napr.: csr10, csbx12, cmtt12, cmss12
%
%   Spoustet programem   TeX
%
\font\zoa=cmb10 scaled \magstep3
\nopagenumbers
\newcount\p\p=0\newcount\ps\ps=0
\newdimen\w\newcount\pr\pr=0\newcount\kon\kon=9
\def\zn{&&\za\char\p\global\advance\p by1
    \global\advance\ps by1}
\def\przn{&&\global\advance\ps by 1}
\def\riadok{\ifnum\ps<\kon \zn
    \riadok\else \ifnum\ps<9 \przn\riadok
    \else&\cr\fi\fi}
\def\riad{&\rm\the\pr\riadok}
\def\ri{\riad\noalign{\hrule}
    \global\ps=0\global\advance\pr by 1}
\def\tabulka{\ifnum\pr<24 \ri\tabulka\fi}
\def\rtt#1#2#3{\w=#3mm\multiply\w by11
    \font\za=#1    \centerline{
    \vbox{\hbox to \w{\hfil\zoa Font #1.\hfil}
    \vskip0.4cm
    \offinterlineskip
    \halign{\vrule##&\vbox to #2mm{\vfil
    \hbox to #3mm{\hfil##\hfil}\vfil}
    &\vrule width0.05cm##&&\vbox to #2mm{\vfil
    \hbox to #3mm{\strut\hfil##\hfil}
    \vfil}&\vrule##\cr
    \noalign{\hrule}
    &&&0&&1&&2&&3&&4&&5&&6&&7&&8&&9&\cr
    \noalign{\hrule height 0.05cm}
    \tabulka\cr
    \global\kon=5\riad
    \noalign{\hrule}}}}}
\message{Zadej nazev fontu, ktery chces zobrazit: (napr. cmr10, csbx12, cmss12)}
\read16 to\naz
\rtt{\naz}{9}{12}
\bye