From a494a509f3f4a13a450c898488155f7aa5353bd3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 1 Feb 2024 03:00:51 +0000 Subject: CTAN sync 202402010300 --- info/examples/tip/outf-rad.tip | 55 ------------------------------------------ 1 file changed, 55 deletions(-) delete mode 100644 info/examples/tip/outf-rad.tip (limited to 'info/examples/tip/outf-rad.tip') diff --git a/info/examples/tip/outf-rad.tip b/info/examples/tip/outf-rad.tip deleted file mode 100644 index 4ee4b7640c..0000000000 --- a/info/examples/tip/outf-rad.tip +++ /dev/null @@ -1,55 +0,0 @@ -% This macro source file is from the four volume series -% "TeX in Practice" by Stephan von Bechtolsheim, published -% 1993 by Springer-Verlag, New York. -% Copyright 1993 Stephan von Bechtolsheim. -% No warranty or liability is assumed. -% This macro may be copied freely if no fees other than -% media cost or shipping charges are charged and as long -% as this copyright and the following source code itself -% is not changed. Please see the series for further information. -% -% Version: 1.0 -% Date: May 1, 1993 -% -% -% This source code is documented in 4.6.2, p. I-113. -% Original source in file "reg2.TEX", starting line 1639. -\wlog{L: "outf-rad.tip" ["reg2.TEX," l. 1639, p. I-113]}% -% This file DOES NOT belong to format "texip." -\catcode`\@ = 11 -\def\newcount{\alloc@0\count\countdef\insc@unt} -\def\newdimen{\alloc@1\dimen\dimendef\insc@unt} -\def\newskip{\alloc@2\skip\skipdef\insc@unt} -\def\newmuskip{\alloc@3\muskip\muskipdef\@cclvi} -\def\newbox{\alloc@4\box\chardef\insc@unt} -\def\newtoks{\alloc@5\toks\toksdef\@cclvi} -\def\newhelp#1#2{\newtoks#1#1\expandafter{\csname#2\endcsname}} -\def\newread{\alloc@6\read\chardef\sixt@@n} -\def\newwrite{\alloc@7\write\chardef\sixt@@n} -\def\newfam{\alloc@8\fam\chardef\sixt@@n} -\def\newif#1{\count@\escapechar \escapechar\m@ne - \expandafter\expandafter\expandafter - \edef\@if#1{true}{\let\noexpand#1=\noexpand\iftrue}% - \expandafter\expandafter\expandafter - \edef\@if#1{false}{\let\noexpand#1=\noexpand\iffalse}% - \@if#1{false}\escapechar\count@} % the condition starts out false -\def\newlanguage{\alloc@9\language\chardef\@cclvi} -\def^^L{\par} -\def\newinsert#1{\global\advance\insc@unt by\m@ne - \ch@ck0\insc@unt\count - \ch@ck1\insc@unt\dimen - \ch@ck2\insc@unt\skip - \ch@ck4\insc@unt\box - \allocationnumber=\insc@unt - \global\chardef#1=\allocationnumber - \wlog{\string#1=\string\insert\the\allocationnumber}} -\def\+{\tabalign} -\def\beginsection#1\par{\vskip\z@ plus.3\vsize\penalty-250 - \vskip\z@ plus-.3\vsize\bigskip\vskip\parskip - \message{#1}\leftline{\bf#1}\nobreak\smallskip\noindent} -\def\proclaim #1. #2\par{\medbreak - \noindent{\bf#1.\enspace}{\sl#2\par}% - \ifdim\lastskip<\medskipamount \removelastskip\penalty55 - \medskip\fi} -\def\bye{\par\vfill\supereject\end} -\catcode`\@ = 12 -- cgit v1.2.3