Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!koichi
From: koichi@ec.musashi-tech.ac.jp (INOUE Koichi)
Subject: asobi no TeX [verbcode.tex]
Message-ID: <KOICHI.93Oct25134449@gemini.ec.musashi-tech.ac.jp>
Lines: 49
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: gemini
Organization: Musashi Institute of Technology
Distribution: fj
Date: Mon, 25 Oct 1993 04:44:49 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4060
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4060&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B0f>e!wIpB"9)Bg$G$9!#(B

$B!V<qL#$N(BTeX$B!W$N$=$N#2$G$9!#2<5-$N$b$N$O!"!V$=$N$^$^!W!V$-$l$$$K!W=PNO$9(B
$B$k$3$H$rL\E*$K:n$C$?$b$N$G$9!#!J$"$^$j$-$l$$$8$c$"$j$^$;$s!K%?%V$b%(%_%e(B
$B%l!<%H$7$h$&$H;W$C$?$N$G$9$,!"LLE]$J$N$G$7$F$^$;$s!#!J(BTeXBook$B$K=q$$$F$"(B
$B$k!K(B
-----------------------------------------------------------------------
\documentstyle{jarticle}
\long\def\texsourcebegin#1\texsourceend{\begingroup
    \parindent0pt
    \def\par{\endgraf\leavevmode}\obeylines
    \def\do##1{\catcode`##1=12}\dospecials
    \catcode`\@=12\obeyspaces
    #1\endgroup}
{\catcode`\*=\active\catcode`\<=\active\catcode`\>=\active
\catcode`\|=\active\catcode`\{=\active\catcode`\}=\active
\catcode`\^^I=\active\catcode`\(=1\catcode`\)=2\catcode`\$=0
\catcode`\\=\active
$gdef$texsource#1($texsourcebegin
    $catcode`$*=$active$def*(($spft$string*))
    $catcode`$<=$active$def<(($spft$string<))
    $catcode`$>=$active$def>(($spft$string>))
    $catcode`$|=$active$def|(($spft$string|))
    $catcode`${=$active$def{(($spft$string{))
    $catcode`$}=$active$def}(($spft$string}))
    $catcode`$^^I=$active$def^^I($space$space$space$space)
    $catcode`$\=$active$def\(($spft$string\))
    $input#1
    $texsourceend))
{\newlinechar`\^^J
\immediate\write16{^^JWhat source code do you need?}
\message{Input the file name:}
\endlinechar-1\global\read-1to\theFileName}
\def\baselinestretch{.7}
\begin{document}
\noautospacing
\noautoxspacing
\let\spft\tt
\expandafter\texsource\expandafter{\theFileName}
\end{document}
--------------------------------------------------------------------

\spft$B$HJ?J8$N%U%)%s%H$rE,Ev$J$b$N$KJQ$($k$H$5$i$KNI$$$G$9!#(B
--
         $BCg(B        $BCg(B
---$BJbJbJbJbJbJbJbJbJbJbJbJb(B---------------------------------------------
   $B2#C(HtGON6;bK[N6GOHtC(2#(B                                    $B0f>e9@0l(B
   $BH?(B  $B3Q(B  $B8WsJK18W(B  $B3Q(B  $BH?(B       e-mail : koichi@ec.musashi-tech.ac.jp
---$B9aI?F<6d6b2&>]6b6dF<I?9a(B--------------$B$=$l$G$b;d$OM}@-$r?.$8$F$$$^$9(B-
