1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101
|
% Test zestawu makr LICZ (Mazovia)
% wersja 4.0
% 27.04.96 19:49
\input licz.mex
\let\ad\advance
\def\tl
% testline
#1%
{%
\edef\sownie{\licz{#1}}%
\item{\bf\number#1}(\sownie)\endgraf
\immediate\write16{\number#1}%
}
\def\tloop
#1% from
#2% step
#3% to
{{%
\n #1\relax
\k #3\relax \ad\k1
\loop
\tl\n
\ad\n#2\relax
\ifnum\n<\k
\repeat
}}
\newcount\n
\newcount\k
\let\rm\fiverm
\font\bf plbx5
\baselineskip7pt
\rm
\raggedright
\nopagenumbers
\raggedbottom
\vsize9.9in
\parindent1.5cm
\def\test
{%
\liczspace{ }
\tl{1}
\tl{12}
\tl{20}
\tl{21}
\tl{34}
\tl{234}
\tl{123}
\tl{1234}
\tl{12345}
\tl{1234546}
\tl{12345678}
\tl{123456789}
\tl{1234567891}
\bigskip
najmniejsza liczba w \TeX-u:
\tl{-2147483647}
najwiksza liczba w \TeX-u:
\tl{2147483647}
\bigskip
{%
\tloop
{1}
{1}
{250}
}
\bigskip
\liczspace{\=}
\tl{1001001001}
\tl{1000000001}
\tl{1000000000}
\tl{1000030000}
\bigskip
{\liczspace{\hrulefill}
\line{\licz{174568}}}
\liczspace{ }
\message{12345 = \licz{12345}}
\vfill
\eject
}
\prefixing
\test
\nonprefixing
\test
\end
|