summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-08-07 00:26:02 +0000
committerKarl Berry <karl@freefriends.org>2007-08-07 00:26:02 +0000
commit99fd92a6916e20374728792534ed7f201172aeba (patch)
tree2143eac2b9104766655bd6bbfcdced34dc82b978 /Master/texmf-dist/source
parent19de762b4dff70b0b8ead478b4681b72d2f89853 (diff)
rm barcode2, it is now in barcodes a la ctan
git-svn-id: svn://tug.org/texlive/trunk@4707 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source')
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/barcodes.dtx2494
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/barcodes.ins55
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/codean.pl456
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/wlcdb.vpl231
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/wlcf39.vpl1334
-rw-r--r--Master/texmf-dist/source/fonts/barcode2/wlitf.vpl1363
6 files changed, 0 insertions, 5933 deletions
diff --git a/Master/texmf-dist/source/fonts/barcode2/barcodes.dtx b/Master/texmf-dist/source/fonts/barcode2/barcodes.dtx
deleted file mode 100644
index 30c5694530a..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/barcodes.dtx
+++ /dev/null
@@ -1,2494 +0,0 @@
-% \iffalse meta-comment
-%
-% This is part of the barcode package.
-% You should run
-% tex barcodes.ins
-% instead of reading/running this file.
-% Among other things, you will then get a documentation.
-% I guess you need some, or you wouldn't look here.
-% \fi
-%
-%% \CharacterTable
-%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
-%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
-%% Digits \0\1\2\3\4\5\6\7\8\9
-%% Exclamation \! Double quote \" Hash (number) \#
-%% Dollar \$ Percent \% Ampersand \&
-%% Acute accent \' Left paren \( Right paren \)
-%% Asterisk \* Plus \+ Comma \,
-%% Minus \- Point \. Solidus \/
-%% Colon \: Semicolon \; Less than \<
-%% Equals \= Greater than \> Question mark \?
-%% Commercial at \@ Left bracket \[ Backslash \\
-%% Right bracket \] Circumflex \^ Underscore \_
-%% Grave accent \` Left brace \{ Vertical bar \|
-%% Right brace \} Tilde \~}
-%%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % EAN documentation starts here %%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*eandoc>
-\documentclass{article}
-\begin{document}
-\author{Peter Willadt}
-\title{EAN Barcodes by \TeX{} an Metafont}
-\date{1998-01-24}
-\maketitle
-\begin{abstract}
-This article documents the use of the font {\tt wlean.mf}. With the font,
-there also comes an auxiliary Perl file for preprocessing TeX source.
-Its use is also documented here.
-\end{abstract}
-
-\section{Legal Restrictions and Introduction}
-
-The files in this package come with no warranty. They may be freely
-used without permission. The complete contents of this package is
-described in the file {\tt readme}. That file also contains some
-information about the use of the other barcode fonts that are
-contained. For more information about these other files you may want
-to read an article that has appeared in the december, 1997 issue of
-{\em TUGboat}. Please see also the remarks in the section {\em
-Address} later in this file.
-
-\section{About {\sc ean}}
-
-In stores, {\sc upc} and {\sc ean} codes are widely used for automatic
-identification, pricing etc. {\sc ean} consist of either eight or
-thirteen digits. Twelve digit {\sc upc} codes are like thirteen digit
-{\sc ean} with the first digit equal to zero. {\sc ean} specifications
-do not only
-require bars, also the encoded number has to be written in plain text,
-in case a reader is defective or the code is too hard to read. {\sc
-ean} is a high-density code, and so it is highly vulnerable.
-
-\subsection{Coding}
-
-The last digit of an {\sc ean} is a weighted mod 10 checksum. Digits
-are alternatingly multiplied by 1 or 3. The so calculated sum over all
-digits has to be divisible by ten without any remainder.
-
-There are three different {\sc ean} character sets labeled A, B, and
-C. Eight digit {\sc ean} codes use character sets A and C, {\sc ean}
-codes with thirteen digits use all three character sets---see below.
-
-\begin{verse}
-{\sc ean} with eight digits consists of:\\
-a sidebar\\
-the first four digits (coded in character set A),\\
-the middle separator,\\
-the other four digits (coded in character set C)\\
-another sidebar.
-\end{verse}
-
-The first half of an {\sc ean} code with thirteen digits is coded in
-the character sets A and B, the second half in character set C. The
-coding of the very first digit is hidden in the varying use of the
-character sets A and B. A C programmer might use the following table
-and algorithm to decide which character set to use for digits 2--7:
-
-\begin{verbatim}
-static UBYTE abtab[10][6]={
- {0,0,0,0,0,0}, /* 0 */
- {0,0,1,0,1,1}, /* 1 */
- {0,0,1,1,0,1}, /* 2 */
- {0,0,1,1,1,0}, /* 3 */
- {0,1,0,0,1,1}, /* 4 */
- {0,1,1,0,0,1}, /* 5 */
- {0,1,1,1,0,0}, /* 6 */
- {0,1,0,1,0,1}, /* 7 */
- {0,1,0,1,1,0}, /* 8 */
- {0,1,1,0,1,0} /* 9 */
-};
-
-char eancode[18];
-char eansource[14]="4025700001030";
-
-eancode[0]=eansource[0];
-eancode[1]=' ';
-eancode[2]='+';
-for(i=1;i<7;i++)
- eancode[i+2]='A'+eansource[i]-'0'
- +abtab[eansource[0]-'0'][i-1]*('a'-'A');
-/* then the middle separator, digits 7--13,
- * and the final + sign */
-\end{verbatim}
-
-
-A zero means to use character set A and a one means to use character
-set B for the respective digit. The printed code of an {\sc ean} 13
-consist of the following elements, from left to right:
-
-\begin{verse}
-The first digit in human-readable form\\
-an {\sc ean} sidebar\\
-six digits in character sets A or B\\
-the {\sc ean} middle separator\\
-six digits in character set C\\
-another {\sc ean} sidebar
-\end{verse}
-
-Magazines or codes with pricing have a so called extension following
-the main code with some fixed distance. This extension consists of one
-sidebar and two or five digits. As I have no full {\sc ean}
-documentation at hand at the time of this writing, I am sorry that I
-am not able to tell you more about this.
-
-The {\sc ean} digits themselves obey to the following rules: Each
-digit takes seven units of space. Some of the seven elements are
-white, others are black. Digits from character set A always are white
-at the left edge and black at the right, and they always have an odd numer
-of black elements. Digits from character set B are quit similiar, but
-they have an even number of black elements. Digits from Character set C
-always start with a black element and have an even number of
-black elements. The rightmost element in character set C is always white.
-The sidebars are three elements wide, the middle separator takes five
-elements.
-
-\subsection{What {\sc ean} numbers may I use?}
-
-For inhouse use, you may use any 13-digit {\sc ean} that starts with a
-2. If you want to have your products sold elsewhere, you have to buy a
-set of {\sc ean} numbers from the organisation in your country that
-holds these numbers. For germany, this organisation is the {\em
-Zentrale f\"ur Coorganisation} in Cologne. Almost any country has a
-similiar organisation.
-
-The first digit or sometimes the first two digits code the country of
-origin, the next five to six digits code the manufacturer, the eigth
-to twelfth digits are for free use by the manufacturer. The
-thirteenth digit is, as explained above, a checksum. {\sc ean} do not
-contain any qualifiers, so if you get an {\sc ean} from somewhere, you
-may find out about the country of origin and about the manufacturer of
-the product, but if you want to know more, you have to contact the
-manufacturer.
-
-\section{Using {\tt wlean.mf}}
-
-{\tt wlean.mf} is rather raw. It contains all three {\sc ean}
-character sets within one single font, but at different places.
-The character sets A, B, C, and the digits are
-featured through the following characters:
-
-\begin{verse}
-0 to 9 yield the digits from 0 to 9\\
-A to J yield the codes from character set A\\
-a to j yield the codes from character set B\\
-K to T yield the codes from character set C\\
-+ makes the left and right sidebar and\\
-- makes the middle sign
-\end{verse}
-
-So, to code the number {\tt 2099993098253}, you have to write\\
-\verb*|{\eanfont2 +AJjjJd-KTSMPN+}|. The space is necessary to separate
-the leading 2 from the barcode.
-
-{\tt wlean.mf} does not use true {\sc ocr} digits, as it should. As
-the digits will not be used for {\sc ocr}, I do not consider this as
-a serious restriction. If you really need {\sc ocr} digits, there is
-an {\sc ocr} font on {\sc ctan}. And in {\em TUGboat}, there has been
-a publication about {\sc ean}, where \TeX{} draws the bars and
-the {\sc ocr} font prints the digits, see [1].
-
-{\tt wlean.mf} uses the normal {\sc ean} dimensions. If you would like
-lower bars---in contradiction to the {\sc ean} rules---you have to edit
-the source. The rules also make recommendations about the scaling. To
-be fully compatible, this font may be scaled 0.8, 0.9, 1, 1.2, 1.4,
-1.5, 1.7, 1.85, or 2 times the original size. With a 300 dpi printer,
-I do not recommend using sizes$<1.0$.
-
-\subsection{Installation}
-
-The installation itself is pretty mundane, like with any plain font.
-Just copy {\tt wlean.mf} to a location where Metafont can find
-it. Then invoke Metafont to create a {\sc tfm} file. Move this {\sc
-tfm} file where \TeX{} can find it. Type in the example at the end of
-this file and run it through \TeX{}. Then call Metafont again to
-produce a font suitable for your printer or previewer and move this
-font to an appropriate location. You may also want to edit {\tt
-codean.pl} to run on your shell. For this purpose you have to read
-your system's documentation or the documentation that comes with Perl.
-
-\subsection{Making readable output}
-
-Don't make {\sc ean} too small. With a 300 dpi printer, you should not
-use this font with magnification$<1$; {\tt scaled 1200} will be okay.
-If you want to do mass production, go to somebody with a barcode
-reader and check your output, {\em before} you loose money. You also
-should consider changes in the blackness that may be caused by
-production printing devices. And, of course, you should only use
-colours that can be used with barcode reading devices. Especially, do
-not use red and watch for much contrast between the colour you print
-and the colour of the paper.
-
-\subsection{Coding the numbers}
-
-You will perhaps not want to write something as ugly and error-prone
-as \verb*|{\eanfont2 +AJjjJd-KTSMPN+}| manually. So you have to use a
-preprocessor\footnote{See bcfaq.tex for \TeX{} code to go without
-preprocessing. It is very fine.}. With {\tt wlean.mf} there comes a
-tiny Perl program ({\tt codean.pl}) that does preprocessing within
-your \TeX{} sources\footnote{codean.pl in the meantime also handles
-code 128. See bcfaq.tex}.
-
-The \TeX{} file to be filtered may contain any number of lines
-that have one of the following commands starting at the leftmost position.
-
-\begin{itemize}
-\item \verb|\ean{|{\em12 or 13 digit number}\verb|}|
-The number will be coded as {\sc ean}. If it is only 12 digits long, the
-checksum will be calculated, too.
-
-\item \verb|\embed{|{\em12 or 13 digit number}\verb|}|
-The number is used as a base for embedding article numbers \&c.\
-within an {\sc ean}.
-
-\item \verb|\eean{|{\em number with at most 11 digits}\verb|}|
-This number is to be embedded within an {\sc ean}.
-
-\item \verb|\isbn{|{\em valid ISBN}\verb|}| An {\sc isbn} to
-make an embedded {\sc ean} of.
-\end{itemize}
-
-Let's look at an example: You want the {\sc isbn} {\tt0-201-13448-9}
-to be embedded. So you write \verb|\isbn{0201134489}|, but you might
-also use the embedding method and write
-\verb|\embed{9780000000000}| and, somewhere later in the file,
-\verb|\eean{020113448}|. In this latter case you have to omit the last digit,
-as {\sc isbn} loose their check digit in favour of the {\sc ean} check digit.
-Anyway you do it, you get your command replaced by
-\verb|\EAN{|{\em13-digit-number-coded-strange}\verb|}| in the output
-file.
-
-But embedding is especially useful if you also write the program that
-reads the barcodes. This program might then extract your article
-number from an {\sc ean} starting with {\tt20}, eg.
-
-What you have to do is, of course, to use stub definitions for the
-three macros mentioned above---as they shall never actually be
-typeset---and to use a valid definition for \verb|\EAN|. Then you run
-your \TeX{} source through {\tt codean.pl}. This program takes as
-first parameter the name of your original file and as second parameter
-the name of your destination file. If you omit the parameters, you will
-be asked for them.
-
-You may of course also peek the source of {\tt codean.pl} to see how
-{\sc ean} checksums are calculated, and so on.
-
-\subsection{Example}
-
-Here is a full example.
-Use this \TeX{} source:
-
-\begin{verbatim}
-\font\eanfont=WLEAN
-\def\ean#1{\message{Call codean.pl}}
-\def\eean#1{\message{Call codean.pl}}
-\def\isbn#1{\message{Call codean.pl}}
-\def\embed#1{}
-\def\EAN#1{\vbox{\vskip10pt\eanfont#1\vskip10pt}}
- Now, something to do:
-\ean{4025700001030} % or, without checksum:
-\ean{402570000103}
-\embed{2500000000000}
-\eean{123}
-\isbn{0201134489}
-\end{verbatim}
-
-
-
-Having run your file through {\tt codean.pl}, the lines after the percent
-sign look like this:
-
-\begin{verbatim}
- Now, something to do:
-\EAN{4 +AcFHaa-KKLKNK+} % or, without checksum: %(4025700001030)
-\EAN{4 +AcFHaa-KKLKNK+} %(402570000103)
-\embed{2500000000000}
-\EAN{2 +FAaaAa-KKLMNT+} % embedded(123)
-\EAN{9 +HiaCaB-LNOOSN+} % ISBN(0201134489)
-\end{verbatim}
-
-
-Running this file through \TeX{}, you get {\sc dvi} output containig
-{\sc ean} barcodes. Perhaps you wonder why there is not even a
-single {\sc ean} contained within this documentation. The reason is
-quite simple: You should be able to read the docs {\em before} you
-have installed the font. But now is the right time to try the example
-on your own. Better yet, you may code an {\sc ean} where you have
-taken the number from something like your favourite candy and then,
-having printed it, you may compare the bars. This is a nice way to
-spend your evenings. I actually started deciphering {\sc ean} codes in
-this way, several years ago.
-
-\section{The End}
-
-\subsection{Address}
-
-Just in case you want to write to me, here is my address---but
-please note: I am not the {\sc ean} guru.
-
-\begin{verbatim}
-Peter Willadt
-Heinrich-Wieland-Allee 5
-75177 Pforzheim
-Germany
-email: Willadt@t-online.de
-\end{verbatim}
-
-I also would appreciate if only one version of the material contained
-in this package is distributed. So if you have any corrections,
-suggestions, \&c., please do not hesitate to send them to me to
-incorporate them within this package.
-
-\subsection{Acknowledgement}
-
-I want to express my special thanks to Barbara Beeton for proofreading
-and making valuable suggestions. If there are still any typos or
-illegibilities, that is due to the fact that I had to change some
-things later on.
-
-\begin{thebibliography}{1}
-
-\bibitem{bc:ean}
-Peter Ol{\v{s}}ak.
-\newblock The {\sc ean} barcodes by {\TeX}.
-\newblock {\em TUGboat}, 15(4):459--464, 1994.
-
-\end{thebibliography}
-
-\end{document}
-%</eandoc>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % EAN documentation ends here %%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % general documentation starts here %%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*bcfaq>
-% this file contains answers to frequently asked questions (FAQ)
-% about barcodes and---to some extent---VPL files.
-\documentclass[a4paper]{article}
-\bibliographystyle{alpha}
-
-% macros for the examples
-% These are documented within the text.
-
-% Barcode fonts
-\font\itf=wlitf scaled 1200
-
-% barcodes with depth
-\def\bcbox#1{\lower3pt\hbox{\itf +#1-}}
-
-% barcodes made taller
-\newbox\bsavebox
-\newdimen\bcboxdepth
-\bcboxdepth=4pt
-\def\bdbox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\offinterlineskip%
- \copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
-\def\bebox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\offinterlineskip%
- \copy\bsavebox%
- \copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
-
-\def\tbs{{\tt\char92}}
-% makes a typewriter backslash
-\begin{document}
-\title{Barcodes-FAQ}
-\author{Peter Willadt}
-\date{1997-11-09}
-\maketitle
-\begin{abstract}
-
-This file deals with questions about barcode fonts created for
-\TeX{}. Its purpose is not to replace the regular documents, but to add
-informations that may be of no interest for the casual reader.
-
-\end{abstract}
-
-\section{Changelog}
-
-\subsection{Changes of the barcode package in general}
-\begin{tabular}{ll}
-\em Date & \em Change\\
-1998-11-28 & included wlcr39, wlcf39, and wlc93\\
-1998-04-21 & fixed wlitf bug\\
-1998-04-10 & switched partially to docstrip archive\\
- & added support for code 11\\
-1998-01-24 & added code 128 in MF format, changed codean.pl\\
-1997-11-08 & changed metrics of {\sc itf} start/stop chars\\
-1997-10-09 & released first version of the barcode package
-\end{tabular}
-
-\subsection{Changes within this document}
-
-\begin{tabular}{ll}
-\em Date & \em Change\\
-1998-11-28 & added docs about code 93\\
-1998-04-10 & added docs about code 11\\
-1998-01-24 & added information about code 128\\
-1997-12-08 & added contributions to {\sc ean} coding by Kalvis M. Jansons\\
- & changed section on plessey\\
-1997-11-09 & added several items, rearranged sections\\
-1997-11-08 & started writing first version
-\end{tabular}
-
-\section{Introduction}
-
-The barcode package itself can be found on {\tt ctan} in the
-subdirectory\\ {\tt fonts/barcodes/willadt}. It contains---among
-others---several fonts in {\sc vpl} format, so your {\sc dvi} driver
-should be able to handle virtual fonts. If it doesn't, you may perhaps
-use {\em dvicopy} to resolve the references to virtual fonts, or you
-may perhaps upgrade to a more modern \TeX{} package.
-
-\section{What about docs?}
-
-\subsection{Docs about barcodes}
-
-With the barcode package, there comes documentation about {\sc ean}
-fonts. In the README file, there are short examples of the use of
-the other fonts, too. Also the files {\tt examples.tex} shows the look
-and basic usage of the barcodes.
-
-In {\sl TUGboat}, barcoding has been covered in several
-articles \cite{bc:ean,bc:sauter,bc:vulis}. The barcode package itself
-is covered in an article that has appeared in the december issue,
-1997, of {\sl TUGboat}.
-
-\subsection{Some information about code 128}
-
-Code 128 is able to print all 128 ascii chars. There are a little more
-than a hundred glyphs that are interpreted in three different
-ways. Some of the glyphs are used as shift chars to determine which
-interpretation to use. A checksum is mandatory. To use it, you must
-install {\tt wlc128.mf}.
-
-The preprocessing---switching among the different character sets,
-coding efficiently, calculating the checksum---is handled by the
-newer versions of codean.pl. This is perhaps not as pleasing as to do
-it with \TeX{} alone, but, alas, it works.
-
-The way to run the preprocessor is described in {\tt eandoc.tex}. To
-use code 128, you have to write a line starting with {\tt\tbs cxxviii\{}
-followed by the characters you want to code and followed by a closing
-brace. Non-printing seven-bit ascii characters may be specified in hex
-in C or \TeX{} style, like {\tt\tbs x3f} or \verb|^^3f|. Anything up to
-the rightmost closing brace in this line will be coded---there is no
-brace matching. But you will get a warning message if your text
-includes a right brace. So you may want to code braces in hex form to
-avoid this message. Please note that {\tt codean.pl} does almost no
-checking for errors, so if you intend to produce garbage, there are
-lots of ways. If you need code 128 escape characters, they may be
-included as hex characters with codes starting at 0x80.
-
-\begin{tabular}{lllll}
-\em Input Code & \em C128 number &\multicolumn{3}{c}{\em meaning}\\
-\em(hex) & \em(dec.) & \em Set A & \em Set B & \em Set C\\
-0x80 & 96 & FNC3 & FNC3 & 96\\
-0x81 & 97 & FNC2 & FNC2 & 97\\
-0x82 & 98 & SHIFT & SHIFT & 98\\
-0x83 & 99 & CODE C& CODE C& 99\\
-0x84 & 100 & CODE B& FNC4 & CODE B\\
-0x85 & 101 & FNC4 & CODE A& CODE A\\
-0x86 & 102 & FNC1 & FNC1 & FNC1\\
-0x87 & 103 & START A& START A& START A\\
-0x88 & 104 & START B& START B& START B\\
-0x89 & 105 & START C& START C& START C\\
-0x8a & 106 & STOP & STOP & STOP
-\end{tabular}
-
-But please keep in mind that {\tt codean.pl} does almost anything for you,
-you should not have the need to insert start/stop codes and the
-like. Only if you use EAN128, you will need {\tt FNC1}. Just to make
-it clear: For your barcode to include {\tt FNC1} you have to write
-\verb|^^86| before preprocessing.
-
-{\tt codean.pl} will insert a sequence of hex digits; the original
-text will be appended to the line as a comment.
-Also, your \TeX{} file has to define some macros. They look like
-this:
-
-\begin{verbatim}
-\font\fntcxx=wlc128 scaled \magstep3
-\def\CXXVIII{\bgroup\fntcxx\let\next\hexchar\next}
-\def\cxxviii{\message{OOPS, use codean.pl}}
-\def\hexchar#1#2{\if#1@
- \global\let\next\egroup
- \else\char"#1#2\fi\next}
-\end{verbatim}
-
-If you do not like end recursion, you might use other ones. If
-you dislike the hex format produced by {\tt codean.pl}, you are free to
-change it---as long as you don't redistribute.
-
-\subsection{A little bit about code 11}
-
-Code 11 is a numeric-only barcode. It is almost as space-efficient as
-{\sc itf}, and it comes with a checksum. The checksum should be
-swallowed by the reading device. The checksum is a weighted mod-11
-checksum. There are apparently two kinds of checksum in use: such with
-one checkdigit and such with two checkdigits.
-
-To use code 11, you should include {\tt barcode.sty}. \TeX{} will
-calculate the checksum on its own. If you need two check digits, you
-should say\\
-{\tt\tbs codexichecksumktrue}.\\
-How many check digits you
-actually need should be made clear in the documentation to your
-reading device\footnote{You may also want to check the documentation
-to find out if your reading device supports code 11 at all; code 11 is
-not that common.}. You may code the digits 0--9, and the minus
-sign. The start and stop sign is mapped to the @ character. Here is a
-full example. {Please note: If you do not use \LaTeX{}, you may
-have to supply a definition for {\tt\tbs makeatletter}
-and {\tt\tbs makeatother}}:
-
-\begin{verbatim}
-\input barcodes.sty
-%% with two check digits
-\codexichecksumktrue
-\codxi{12-1234}
-
-%% with only one check digit.
-\codexichecksumkfalse
-\codxi{12-1234}
-\bye
-\end{verbatim}
-
-\subsection{About code 93}
-
-Code 93 is a little bit more compact than code 39 (as it uses also the
-gap between the characters), but in other aspects it is quite
-similiar. A checksum with two digits is mandatory. As with code 11,
-checksumming works by weighing the characters different depending on
-their position within the barcode.
-
-The version of code 93 that is included within the package resorts to
-uppercase ascii, digits, and to some other signs. Start and stop sign
-are mapped to {\tt<} and {\tt>}, respectively.
-
-Full ascii works similiar to full ascii with code 39 (that means with
-escape characters), but fortunately the escape characters are
-different from ordinary characters, so that you can hardly be
-misunderstood. Unfortunately the escape characters are named (\$),
-(\%), (/), and (+), so I decided to map them to opening and closing
-parentheses and brackets, respectively. This may not seem very clever
-when it comes to full ascii, but these characters may also appear as
-checksum characters, so we need them when doing uppercase ascii,
-too. For full ascii, it would be clever to redo the font in a
-completely different way and to map start sign, stop sign and the four
-escape characters to positions above 128, so that any 7 bit ascii
-character can be input directly.
-
-Code 93 is supported by codean.pl in the same way as ean or code 128
-are. You have to write {\tt\tbs xciii\{YOUR DATA 123\}}, run the file
-through {\tt codean.pl}, then you'll get\\
-{\tt\tbs XCIII\{YOUR DATA 123NN\}\%Code93(YOUR DATA 123)}
-
-The NN make up the two check characters. Normally, they are different,
-but in this example they are equal, by incident.
-
-\subsection{Docs about VPL Files}
-
-VPL files are documented in the files {\tt VPtoVF.WEB} and {\tt
-VFtoVP.WEB}. Both files can be found on {\sc ctan} under {\tt
-SYSTEMS/KNUTH}. {\em WEAVE} may be used to produce \TeX{} files. The
-documentation about the VPL/VF file formats is covered within the
-first few sections.
-
-\section{I want other metrics etc.}
-
-\subsection{My barcodes should have depth}
-
-You have got several possibilities to obtain depth. The most simple
-approach may be to set the barcodes with the regular barcode fonts into an
-{\tt\tbs hbox} and then to {\tt\tbs lower} this hbox.
-
-Let's look at an example:
-
-\begin{verbatim}
-\font\itf=wlitf scaled 1200
-\def\bcbox#1{\lower3pt\hbox{\itf +#1-}}
- Example:
-{\sc itf} barcode looks like \quad\bcbox{1009}\quad
-for 1009, e.g.
-\end{verbatim}
-
-This code yields the following result:
-
-{\sc itf} barcode looks like \quad\bcbox{1009}\quad for 1009, e.g.
-
-Another approach is to edit the font sources. In case of {\sc vpl}
-files, this is quite painful. Rules in {\sc vpl} files do not have
-depth, so you have to change the characters mapping in a way that you
-add a {\em movedown} before you draw, and a {\em moveup} afterwards.
-You may see the changes for an arbitrary character from {\tt
-WLITF.VPL}:
-
-\begin{verbatim}
-(CHARACTER D48
- (COMMENT from WLITF.VPL}
- (CHARWD D 14) (CHARHT R 10)
- (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-\end{verbatim}
-
-This character may be lowered by four units by editing in a way that the
-following lines result. Please note that there were not only the {\em
-moveup} and {\em movedown} commands added, but also the height an
-depth have been changed.
-
-\begin{verbatim}
-(CHARACTER D48
- (COMMENT Lowered to give some depth)
- (CHARWD D 14) (CHARHT R 10)
- (CHARDP R 4) (CHARIC R 0.0)
- (MAP
- (MOVEDOWN R 4)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (MOVEUP R 4)
- )
- )
-\end{verbatim}
-
-\subsection{My barcodes are too tall}
-
-For the sake of the person who has to scan the barcodes, barcodes just
-can't be tall enough. If the complete code is as tall as wide, the
-reading device can be twisted against the code at an angle of 45
-degrees. If they are half as high, the angle reduces to 26 degrees.
-
-If you really want short codes, you have to edit the sources. In the
-{\sc vpl} file, you have to change the {\em charht} and the first parameter
-to the {\em setrule} command at well. You also should change the {\em
-designsize} parameter.
-
-\subsection{My barcodes are not tall enough}
-
-You may also change the sources, like described in the previous
-subsection. But there is another solution that is perhaps more
-practical. The idea is simple that double black is still black and
-that you may overlay several printouts of the same barcode. Here is
-the example code (it may be made taller by adding more copies of the
-barcode box, of course). There is an extra dimension {\em bcboxdepth}
-added to yield depth for the barcodes.
-
-\begin{verbatim}
-\newbox\bsavebox
-\newdimen\bcboxdepth
-\bcboxdepth=4pt
-\def\bdbox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
-\def\bebox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\copy\bsavebox%
- \vskip0pt\copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
- Example:
-Tall {\sc itf} barcode looks like \quad\bdbox{1009}\quad
-or (still taller) \quad\bebox{1009}\quad for 1009, e.g.
-\end{verbatim}
-
-And here is the result, you may compare it with the output of the
-previous example:
-
-Tall {\sc itf} barcode looks like \quad\bdbox{1009}\quad or (still
-taller) \quad\bebox{1009}\quad for 1009, e.g.
-
-\subsection{My barcodes are too wide/too narrow}
-
-Perhaps you should change the barcode size (by changing
-{\tt\tbs magnification}) and then read the subsections above about too
-tall bars and bars that are not tall enough.
-
-\subsection{My barcodes should run vertically}
-
-Vertically oriented barcode is a good idea for cans, bottles and
-similiar things.
-
-It just depends on your {\sc dvi} driver. Perhaps there is a
-possibility to handle rotation via {\tt\tbs special}, as with {\em
-dvips} and the {\em rotate} macros. For experimantal purposes I have
-included a code 39 version running down instead right ({\tt
-wlcr39.mf}). You may perhaps use it with {\tt\tbs shortstack} or
-similiar. Here is some code I used (successfully) with plain \TeX:
-
-\begin{verbatim}
-\font\testfont=wlcr39 scaled 1200
-\def\bcbax{\let\next\bcbox\vbox\bgroup
- \offinterlineskip\testfont\setbox0\hbox{@}\hsize=\wd0
- \noindent{}@\hfil\break\next}
-\def\fertig{@\hfil\break\egroup}
-\def\bcbox#1{\if @#1\let\next\fertig\else#1\hfil\break\fi\next}
-
-Look buddy, this is \bcbax1406632@ code 39
-stacked and running downwards.
-\end{verbatim}
-
-\subsection{I heard something about full ascii code 39}
-
-Well, umh, now that you ask\dots The truth is: You may perhaps be able to
-configure your reading device to accept full ascii code~39. Then you may
-code any 7~bit character you may think of. The bad news is that most of
-the symbols have to be coded by two
-characters -- and as code 39 has already low density, you should not
-expect to get much use of it. Perhaps you might want to try code 128
-instead---it features full 7-bit ascii without any compromise.
-
-Another anti-feature is that switching to reading full-ascii code~39
-may lead to some bad reads of `normal' code~39. In full ascii, the lower
-case letters, e.g., are made by prepending the uppercase letters with a
-plus sign, so {\tt+A} is read as {\tt a}. So, if you have got regular
-code~39 that contains such character sequences, and you have switched
-your reading device to full ascii, you may get bad results.
-
-But, now that you want it: With the barcode package there comes a font
-{\tt wlcf39.vpl}. You may install it like the other vpl files. It has got
-132 characters and has already taken all the coding for full ascii, so
-when you typ {\tt e,\$4+A}, it will silently be mapped to what you
-would have typed as {\tt+E/L/D/KA}, if you would use the plain code~39
-format\footnote{Please take note: 6 characters are blown up to 9,
-think again about using another code}. In my version of full ascii
-code~39, the start/stop sign is mapped to @@ (or \verb|\char128|). So
-you actually had to add @@ to the front and the end of the example
-string. If you can not exclude that the character sequence @@ appears
-within the text you want to code, you have to avoid ligature
-processing. You may do that like this:
-
-\begin{verbatim}
-\font\fullas=wlcf39 scaled 1728
-\def\alphanolig{\char64\kern0pt}
-\def\printacode#1{{\fullas@@{\catcode`\@=\active%
- \let @=\alphanolig#1}@@}}
-\end{verbatim}
-
-You also have to escape or circumscribe special characters to make
-them really printable, of course, so that when you wanted a backspace,
-a tab, a space, a dollar sign, a percent sign, and a bell character to
-be coded, you would type something like
-
-\begin{verbatim}
-{\fullas @@\char8\char9\char32\$\%\char7}
-\end{verbatim}
-
-\section{Troubleshooting}
-
-\subsection{My barcodes can't be decoded}
-
-At first, try to make them larger. If that does't help, make them
-larger, again. If that will not help, obtain fonts in \TeX{} or
-Metafont format and make them brighter. Or, perhaps better, obtain a
-better printer.
-
-You also should check the contrast between bars and background,
-especially when using a dot matrix printer or coloured background
-or---still worse---red bars.
-
-\subsection{My decoder reads extra digits, sometimes}
-
-I guess you use {\sc itf} barcode with a number of digits that is
-sometimes even and sometimes odd. As {\sc itf} always codes two digits
-at once, you should take care just to code an even number of digits at
-any time. If an excess zero at the beginning of your number is not
-acceptable, you might try another kind of barcode instead of {\sc
-itf}.
-
-\section{Missing items}
-
-\subsection{I am missing two-of-five}
-
-I got specs for two-of-five (three bars). If you want it, let me know;
-I might implement it. For other kinds of two-of-five, I haven't got
-complete specs.
-
-\subsection{I am missing plessey}
-
-I got the specs but I haven't yet got the time to implement them. With
-plessey, there also rise several questions due to the fact that
-plessey has never been officialy standardized. The only thing that is
-absolutely sure about plessey is how binary ones and zeros are
-encoded. There are codes that are more wide-spread. Several modern
-barcode readers can't cope with plessey code.
-
-\subsection{I am missing \dots{} some other barcode}
-
-I have checked out several two-dimensional barcodes. But for most of
-them, support by \TeX{} seems to be rather pointless. Perhaps Metafont
-could be called any time you have to code something to draw the
-symbols, but you might as well use a custom drawing program that comes
-from the barcode vendor. Also, most two-dimensional barcodes (and
-other barcodes not mentioned here) are proprietary. Last not least the
-reading devices I have access to can deal only with a finite range of
-barcodes.
-
-I am sorry, but I haven't got the specs for further barcodes
-not mentioned here. If you could be so kind as to send them to me, I
-might perhaps implement them.
-
-\section{Contributions}
-
-\subsection{EAN without preprocessing}
-
-The following code is due to Kalvis M. Jansons.
-
-It handles printing of {\sc ean} without having to run a
-preprocessor. Not only are the {\sc ean} bars drawn, also the checksum
-checksum is checked. It can be easily
-adapted to non-\LaTeX{} use by omitting anything before \verb|\font|
-
-\begin{verse}
-Kalvis M. Jansons
-
-eMail: \verb|<kalvis@math.ucl.ac.uk>|
-
-\end{verse}
-
-An easy way to use the barcode fonts in \LaTeX{}:
-
-\begin{verbatim}
-\documentclass[a4paper]{article}
-
-\pagestyle{empty}
-
-\setlength{\oddsidemargin}{0pt}
-\setlength{\textwidth}{\paperwidth}
-\addtolength{\textwidth}{-2in}
-\setlength{\marginparwidth}{0pt}
-
-\setlength{\textheight}{\paperheight}
-\addtolength{\textheight}{-2.5in}
-\setlength{\topmargin}{0pt}
-
-\font\eanfont=WLEAN scaled 2000
-\def\ean#1{\vbox{\vskip20pt\eanfont#1\vskip20pt}}
-\newcount\num
-\def\a#1{\num=#1 \advance\num by `A \char\num}
-\def\b#1{\num=#1 \advance\num by `a \char\num}
-\def\c#1{\num=#1 \advance\num by `K \char\num}
-\def\C#1#2#3#4#5#6{\c#1\c#2\c#3\c#4\c#5\c#6}
-
-\def\A#1#2#3#4#5#6#7{\ifcase #7
-{\a#1\a#2\a#3\a#4\a#5\a#6}%
-\or {\a#1\a#2\b#3\a#4\b#5\b#6}%
-\or {\a#1\a#2\b#3\b#4\a#5\b#6}%
-\or {\a#1\a#2\b#3\b#4\b#5\a#6}%
-\or {\a#1\b#2\a#3\a#4\b#5\b#6}%
-\or {\a#1\b#2\b#3\a#4\a#5\b#6}%
-\or {\a#1\b#2\b#3\b#4\a#5\a#6}%
-\or {\a#1\b#2\a#3\b#4\a#5\b#6}%
-\or {\a#1\b#2\a#3\b#4\b#5\a#6}%
-\or {\a#1\b#2\b#3\a#4\b#5\a#6}%
-\fi}
-
-\newcount\cha
-\newcount\chb
-\makeatletter
-\long\def\for{\@for}
-\makeatother
-\gdef\mysix#1#2#3#4#5#6{,#1#2,#3#4,#5#6}
-\gdef\mywork#1#2{\advance\cha by #1 \advance\chb by #2}
-\gdef\barch#1.#2.#3.{
-\xdef\mylist{0#1\mysix#2\mysix#3}
-\cha=0
-\chb=0
-\for \x:=\mylist\do{\expandafter\mywork\x}
-\multiply\cha by 3
-\advance\chb by \cha
-\cha=\chb
-\divide\cha by 10
-\multiply\cha by -10
-\advance\chb by \cha}
-\def\bar#1.#2.#3.{\barch#1.#2.#3.
- \ifnum\chb>0 #1#2#3 has a bad check sum!\\[20pt]
- \else \ean{#1 +\A#2#1-\C#3+}\fi}
-\begin{document}
-
- Examples
-
-\bar3.034325.106199.
-
-\bar4.074400.410000.
-
-\bar5.449000.055521.
-
-\bar5.010027.522336.
-
-\bar8.410005.421052.
-
-\bar9.780192.828941.
-
-\end{document}
-\end{verbatim}
-
-\bibliography{bcfaq}
-
-\end{document}
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % general documentation ends here %%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</bcfaq>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % bibliography for general documentation %%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*bcfaqbbl>
-\begin{thebibliography}{Sau92}
-
-\bibitem[Ol{\v{s}}94]{bc:ean}
-Peter Ol{\v{s}}ak.
-\newblock The ean barcodes by {\TeX}.
-\newblock {\em TUGboat}, 15(4):459--464, 1994.
-
-\bibitem[Sau92]{bc:sauter}
-John Sauter.
-\newblock Postnet codes using metafont.
-\newblock {\em TUGboat}, 13(4):472--476, 1992.
-
-\bibitem[Vul91]{bc:vulis}
-Dimitri Vulis.
-\newblock {\TeX} and envelopes.
-\newblock {\em TUGboat}, 12(2):279--284, 1991.
-
-\end{thebibliography}
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % end of bibliography for general documentation %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</bcfaqbbl>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % example sheet starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*example>
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% This file documents look and use of
-%% the barcodes this package belongs to.
-%% It may be freely used without any
-%% further permission.
-%% You should have received this file as part of
-%% the barcode package.
-%%
-%% Author: Peter Willadt
-%% Date: 1997-11-29
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Note:
-%% 1. This file has already been run through codean.pl
-%%
-%% 2. You need to have the fonts installed, of course.
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Fonts
-%%
-\font\xlix=wlc39 scaled 2000
-\font\itf=wlitf scaled 2000
-\font\cdb=wlcdb scaled 2000
-\font\eanfont=WLEAN scaled 1200
-\font\fntcxx=wlc128 scaled \magstep3
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Inputs
-%%
-\input code39.tex
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Def's
-%%
-%% for EAN
-\def\ean#1{\message{Call codean.pl}}
-\def\eean#1{\message{Call codean.pl}}
-\def\isbn#1{\message{Call codean.pl}}
-\def\embed#1{}
-\def\EAN#1{\vbox{\hsize=0.4\hsize\vskip10pt\eanfont#1\vskip10pt}}
-%% for Code 128
-\def\CXXVIII{\bgroup\fntcxx\let\next\hexchar\next}
-\def\hexchar#1#2{\if#1@\global\let\next\egroup\else\char"#1#2\fi\next}
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Here we go
-\parindent0pt
-Hello, this is a test sheet of the barcode fonts.
-
-At first, we deal with code 39. Code 39 is represented in this package
-both in form of a native font (Metafont-source) and in form of
-\TeX{}-macros. code 39 features low-density alphanumeric encoding.
-
-Here you may see how HELLO looks like in code 39 (the start and stop
-sign is mapped to @, if you're curious, so in the source to this sheet
-I have written {\tt@HELLO@} after having selected the proper
-font). This first example uses the font.
-
-{\xlix@HELLO@}
-
-Another approach is to use \TeX{} macros to make up bars. Here is the
-same HELLO with macros:
-
-\begincodethirtynine{HELLO}\endcodethirtynine
-
-Interleaved two-of-five (ITF for short) features high-density
-numerical-only encoding. Your code has to have an even number of
-digits. The start sign is mapped to $+$, the end sign to $-$.
-So, to code 0123456789, you type {\tt+0123456789-}, and the result
-looks like this:
-
-{\itf+0123456789-}
-
-If you still have not got enough of barcoding, here is codabar. Here
-you got four sets of start/stop signs that get decoded together with
-the numbers. The start/stop sign pairs are a/t, b/n, c/*, and d/e. So
-{\tt a12345t} looks like this:\bigskip
-
-{\cdb a12345t}
-
-Now you should have a look at code 128. The bars itself look sometimes
-disrupted; this is due to the fact that the widest elements are four
-times as wide as the narrowest. Code 128 enables you to code any 7-bit
-ascii character. With digits only, it is as efficent as itf. The bad
-news is the preprocessing required, so you have to read the docs. The
-following bars mean {\tt Hallo123456}\bigskip
-
-\CXXVIII 6828414C4C4F630C2238506A@@ % Code128(Hallo123456)
-
-
-And, last and perhaps most important, the EAN font. Read {\tt
-eandoc.tex} to find out how these are coded, here is just the output
-of the example code mentioned there:
-\embed{2500000000000}
-
-\line{
-\EAN{4 +AcFHaa-KKLKNK+} % or, without checksum: %(4025700001030)
-\hfil
-\EAN{4 +AcFHaa-KKLKNK+} %(402570000103)
-}
-\line{
-\EAN{2 +FAaaAa-KKLMNT+} % embedded(123)
-\hfil
-\EAN{9 +HiaCaB-LNOOSN+} % ISBN(0201134489)
-}
-
-And that's all. Perhaps you may think that this is not a beautiful
-document---but barcodes aren't beautiful. As long as reading devices
-do not have \ae{}sthetic feelings, I don't regard this as a problem.
-\bye
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % example sheet ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</example>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % style file starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*bcsty>
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Options for using barcodes %%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% documented in bcfaq.tex %%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% itf stuff
-%% general
-\font\itf=wlitf scaled 1200
-%% barcodes with depth
-\def\bcbox#1{\lower3pt\hbox{\itf +#1-}}
-%% barcodes made taller
-\newbox\bsavebox
-\newdimen\bcboxdepth
-\bcboxdepth=4pt
-\def\bdbox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\offinterlineskip%
- \copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
-\def\bebox#1{\setbox\bsavebox\hbox{\itf +#1-}
-\vbox{\hsize=\wd\bsavebox\offinterlineskip%
- \copy\bsavebox%
- \copy\bsavebox%
- \vskip-\ht\bsavebox\vskip\bcboxdepth%
- \box\bsavebox\vskip-\bcboxdepth}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Code 128 stuff
-\font\fntcxx=wlc128 scaled \magstep3
-\def\CXXVIII{\bgroup\fntcxx\let\next\hexchar\next}
-\def\cxxviii{\message{OOPS, use codean.pl}}
-\def\hexchar#1#2{\if#1@
- \global\let\next\egroup
- \else\char"#1#2\fi\next}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Code 11 stuff
-\font\codxifnt=wlc11 scaled\magstep2
-%% relies on counters \cha and \chb defined below
-\newif\ifcodexichecksumk
-\codexichecksumkfalse
-\makeatletter
-\def\check@xichar{%
- \ifcodexichecksumk%
- {\count0=\cha\count1=\count0\divide\count1by11%
- \multiply\count1by11\advance\count0by-\count1%
- \ifnum10=\count0-\else\relax\the\count0\fi%
- \global\advance\chb by\count0\global\advance\cha by\chb%
- }\fi
- \chb=\cha\divide\chb by11%
- \multiply\chb by11\advance\cha by-\chb%
- \ifnum10=\cha-\else\the\cha\fi%
-}
-\def\csumxi#1{%
- \if @#1%
- \let\next\check@xichar%
- \else \if-#1\advance\chb by10%
- \else\advance\chb by#1%
- \fi%
- \advance\cha by\chb%
- #1%
- \fi%
- \next%
-}
-\makeatother
-\def\codxi#1{{
- \codxifnt
- \cha=0\chb=0%
- @\let\next\csumxi\expandafter\expandafter\expandafter\csumxi#1@@
-}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% misc things
-\font\codtnfnt=wlc39 scaled\magstep2
-\def\codxxxix#1{{\codtnfnt @#1@}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EAN stuff
-%% this code comes from Kalvis M. Jansons
-%% eMail: <kalvis@math.ucl.ac.uk>
-%%
-\font\eanfont=WLEAN scaled 2000
-\def\ean#1{\vbox{\vskip20pt\eanfont#1\vskip20pt}}
-\newcount\num
-\def\a#1{\num=#1 \advance\num by `A \char\num}
-\def\b#1{\num=#1 \advance\num by `a \char\num}
-\def\c#1{\num=#1 \advance\num by `K \char\num}
-\def\C#1#2#3#4#5#6{\c#1\c#2\c#3\c#4\c#5\c#6}
-\def\A#1#2#3#4#5#6#7{\ifcase #7
-{\a#1\a#2\a#3\a#4\a#5\a#6}%
-\or {\a#1\a#2\b#3\a#4\b#5\b#6}%
-\or {\a#1\a#2\b#3\b#4\a#5\b#6}%
-\or {\a#1\a#2\b#3\b#4\b#5\a#6}%
-\or {\a#1\b#2\a#3\a#4\b#5\b#6}%
-\or {\a#1\b#2\b#3\a#4\a#5\b#6}%
-\or {\a#1\b#2\b#3\b#4\a#5\a#6}%
-\or {\a#1\b#2\a#3\b#4\a#5\b#6}%
-\or {\a#1\b#2\a#3\b#4\b#5\a#6}%
-\or {\a#1\b#2\b#3\a#4\b#5\a#6}%
-\fi}
-\newcount\cha
-\newcount\chb
-\makeatletter
-\long\def\for{\@for}
-\makeatother
-\gdef\mysix#1#2#3#4#5#6{,#1#2,#3#4,#5#6}
-\gdef\mywork#1#2{\advance\cha by #1 \advance\chb by #2}
-\gdef\barch#1.#2.#3.{
-\xdef\mylist{0#1\mysix#2\mysix#3}
-\cha=0
-\chb=0
-\for \x:=\mylist\do{\expandafter\mywork\x}
-\multiply\cha by 3
-\advance\chb by \cha
-\cha=\chb
-\divide\cha by 10
-\multiply\cha by -10
-\advance\chb by \cha}
-\def\bar#1.#2.#3.{\barch#1.#2.#3.
- \ifnum\chb>0 #1#2#3 has a bad check sum!\\[20pt]
- \else \ean{#1 +\A#2#1-\C#3+}\fi}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % style file ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</bcsty>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % code 39 macro file starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*code39mac>
-%%% ====================================================================
-%%% @TeX-file{
-%%% author = "Peter Willadt",
-%%% version = "1",
-%%% date = "16 August 1997",
-%%% time = "10:00:00 GMT",
-%%% filename = "code39.tex",
-%%% address = "Peter Willadt
-%%% Heinrich-Wieland-Allee 5
-%%% 75177 Pforzheim
-%%% Germany",
-%%% email = "Willadt@t-online.de",
-%%% codetable = "ISO/ASCII",
-%%% keywords = "Barcode, Code39, TeX",
-%%% abstract = "This file contains macros to support the inclusion
-%%% of code 39 barcode in TeX documents.",
-%%% }
-%%% ====================================================================
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% This code supports barcodes in Code 39
-%% Usage:
-%% For alphanumerical barcodes:
-%% \begincodethirtynine followed by
-%% the stuff to code,
-%% ended with \endcodethirtynine
-%% For numerical only code:
-%% modify the code for pharamceuticals
-%% For german pharmaceutics:
-%% \pzncode1234562@ when 1234562 is the
-%% number to be coded as -1234562.
-%% this will also verify the checksum
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% This file may be freely used without any
-%% further permission.
-%% It comes with absolutely no warranty.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% this is the common stuff
-\newdimen\dick
-\newdimen\duenn
-\newdimen\duennbar
-\newdimen\dickbar
-\newdimen\antibleed
-\dick=1mm
-\duenn=0.5mm
-\antibleed=0mm
-\dickbar=\dick
-\advance\dickbar by -\antibleed
-\duennbar=\duenn
-\advance\duennbar by -\antibleed
-% b means bar
-\def\b{\vrule width\duennbar}
-\def\B{\vrule width\dickbar}
-% s means space
-\def\s{\hskip\duenn\hskip\antibleed}
-\def\S{\hskip\dick\hskip\antibleed}
-%%
- \def\tnzero{\b\s\b\S\B\s\B\s\b\s}
- \def\tnone{\B\s\b\S\b\s\b\s\B\s}
- \def\tntwo{\b\s\B\S\b\s\b\s\B\s}
-\def\tnthree{\B\s\B\S\b\s\b\s\b\s}
- \def\tnfour{\b\s\b\S\B\s\b\s\B\s}
- \def\tnfive{\B\s\b\S\B\s\b\s\b\s}
- \def\tnsix{\b\s\B\S\B\s\b\s\b\s}
-\def\tnseven{\b\s\b\S\b\s\B\s\B\s}
-\def\tneight{\B\s\b\S\b\s\B\s\b\s}
- \def\tnnine{\b\s\B\S\b\s\B\s\b\s}
- \def\tninestart{\b\S\b\s\B\s\B\s\b\s}
- \def\tnineminus{\b\S\b\s\b\s\B\s\B\s}
- \def\tnineplus{\b\S\b\s\b\S\b\S\b\s}
-\def\tninedollar{\b\S\b\S\b\S\b\s\b\s}
- \def\tnineslash{\b\S\b\S\b\s\b\S\b\s}
- \def\tninedot{\B\S\b\s\b\s\B\s\b\s}
-\def\tninepercnt{\b\s\b\S\b\S\b\S\b\s}
- \def\tninespace{\b\S\B\s\b\s\B\s\b\s}
-\def\tninelettera{\B\s\b\s\b\S\b\s\B\s}
-\def\tnineletterb{\b\s\B\s\b\S\b\s\B\s}
-\def\tnineletterc{\B\s\B\s\b\S\b\s\b\s}
-\def\tnineletterd{\b\s\b\s\B\S\b\s\B\s}
-\def\tninelettere{\B\s\b\s\B\S\b\s\b\s}
-\def\tnineletterf{\b\s\B\s\B\S\b\s\b\s}
-\def\tnineletterg{\b\s\b\s\b\S\B\s\B\s}
-\def\tnineletterh{\B\s\b\s\b\S\B\s\b\s}
-\def\tnineletteri{\b\s\B\s\b\S\B\s\b\s}
-\def\tnineletterj{\b\s\b\s\B\S\B\s\b\s}
-\def\tnineletterk{\B\s\b\s\b\s\b\S\B\s}
-\def\tnineletterl{\b\s\B\s\b\s\b\S\B\s}
-\def\tnineletterm{\B\s\B\s\b\s\b\S\b\s}
-\def\tninelettern{\b\s\b\s\B\s\b\S\B\s}
-\def\tninelettero{\B\s\b\s\B\s\b\S\b\s}
-\def\tnineletterp{\b\s\B\s\B\s\b\S\b\s}
-\def\tnineletterq{\b\s\b\s\b\s\B\S\B\s}
-\def\tnineletterr{\B\s\b\s\b\s\B\S\b\s}
-\def\tnineletters{\b\s\B\s\b\s\B\S\b\s}
-\def\tninelettert{\b\s\b\s\B\s\B\S\b\s}
-\def\tnineletteru{\B\S\b\s\b\s\b\s\B\s}
-\def\tnineletterv{\b\S\B\s\b\s\b\s\B\s}
-\def\tnineletterw{\B\S\B\s\b\s\b\s\b\s}
-\def\tnineletterx{\b\S\b\s\B\s\b\s\B\s}
-\def\tninelettery{\B\S\b\s\B\s\b\s\b\s}
-\def\tnineletterz{\b\S\B\s\B\s\b\s\b\s}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% this is the code for 39 mode
-\def\activatethemall{
- \catcode`\A=\active \catcode`\B=\active
- \catcode`\C=\active \catcode`\D=\active
- \catcode`\E=\active \catcode`\F=\active
- \catcode`\G=\active \catcode`\H=\active
- \catcode`\I=\active \catcode`\J=\active
- \catcode`\K=\active \catcode`\L=\active
- \catcode`\M=\active \catcode`\N=\active
- \catcode`\O=\active \catcode`\P=\active
- \catcode`\Q=\active \catcode`\R=\active
- \catcode`\S=\active \catcode`\T=\active
- \catcode`\U=\active \catcode`\V=\active
- \catcode`\W=\active \catcode`\X=\active
- \catcode`\Y=\active \catcode`\Z=\active
- \catcode`+=\active \catcode`-=\active
- \catcode`\ =\active \catcode`.=\active
- \catcode`\$=\active \catcode`\%=\active
- \catcode`\/=\active
- \catcode`\0=\active \catcode`\1=\active
- \catcode`\2=\active \catcode`\3=\active
- \catcode`\4=\active \catcode`\5=\active
- \catcode`\6=\active \catcode`\7=\active
- \catcode`\8=\active \catcode`\9=\active
-}
-{\activatethemall
-\gdef\begincodethirtynine{
- \bgroup\activatethemall\strut\tninestart
- \letA=\tninelettera \letB=\tnineletterb
- \letC=\tnineletterc \letD=\tnineletterd
- \letE=\tninelettere \letF=\tnineletterf
- \letG=\tnineletterg \letH=\tnineletterh
- \letI=\tnineletteri \letJ=\tnineletterj
- \letK=\tnineletterk \letL=\tnineletterl
- \letM=\tnineletterm \letN=\tninelettern
- \letO=\tninelettero \letP=\tnineletterp
- \letQ=\tnineletterq \letR=\tnineletterr
- \letS=\tnineletters \letT=\tninelettert
- \letU=\tnineletteru \letV=\tnineletterv
- \letW=\tnineletterw \letX=\tnineletterx
- \letY=\tninelettery \letZ=\tnineletterz
- \let+=\tnineplus \let-=\tnineminus
- \let =\tninespace \let.=\tninedot
- \let$=\tninedollar \let%=\tninepercnt
- \let/=\tnineslash
- \let0=\tnzero \let1=\tnone
- \let2=\tntwo \let3=\tnthree
- \let4=\tnfour \let5=\tnfive
- \let6=\tnsix \let7=\tnseven
- \let8=\tneight \let9=\tnnine
-}
-}
-\def\endcodethirtynine{
- \tninestart\egroup
-}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% this code is used for german pharmaceutics
-\newcount\ziffern
-\newcount\checksum
-\newcount\multreg
-\def\tndigit#1{%
- \ifcase#1\tnzero\or\tnone%
- \or\tntwo\or\tnthree%
- \or\tnfour\or\tnfive%
- \or\tnsix\or\tnseven%
- \or\tneight\or\tnnine%
- \fi}
-\def\endtncode{%
- \tninestart%
- \ifnum\ziffern=9
- \else\message{wrong digit count}
- \fi%
- \ifnum\checksum=0
- \else\message{wrong checksum}
- \fi%
- \egroup}
-\def\nexttn#1{%
- \advance\ziffern by1
- \if@#1\let\next\endtncode
- \else
- \tndigit#1%
-% begin checksum stuff
- \ifnum\ziffern=8
- \multreg=\checksum
- \divide\multreg by 11
- \multiply\multreg by 11
- \advance\checksum by-\multreg
- \multreg=#1
- \advance\checksum by-\multreg
- \ifnum\checksum=10
- \checksum=0
- \fi
- \else
- \multreg=#1
- \multiply\multreg by\ziffern
- \advance\checksum by\multreg
- \fi%
- \fi%
-% end checksum stuff
- \next}
-\def\pzncode{
- \bgroup
- \let\next\nexttn
- \ziffern=1\checksum=0\multreg=0
- \strut
- \tninestart\tnineminus%
- \next%
-}
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % code 39 macro file ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</code39mac>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 11 starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*code11mf>
-%% Code 11 in Metafont format
-%% Peter Willadt 1998-04-10
-%% For copyright and the like see the documentation
-%% to the barcode package, from which this file is part of.
-%% If you received only this file,
-%% then maybe someone fooled you.
-%%
-%% Code 11 requires one or two check digits.
-%% These check digtis are calculated using a weighted mod 11-checksum.
-%% You have to see the docs.
-%% Start and stop chars are mapped to @,
-%% codeable are 0--9 and the minus sign.
-
-mode_setup;
-
-bheight#:=5mm#;
-
-% high res: .264 mm#
-% med res: .33 mm#
-bwidth# :=.33 mm#;
-
-designsize :=bheight#;
-font_slant :=0;
-font_normal_space :=8*bwidth#;
-font_extra_space :=0;
-font_normal_stretch:=0;
-font_normal_shrink :=0;
-font_quad :=15*bwidth#;
-
-define_pixels(bheight, bwidth);
-
-def CODExichar(expr charnum, spex) =
- numeric mywid, asval, i;
- mywid=6;
- for i= 0 upto 4:
- asval:=ASCII(substring(i,i+1) of spex);
- asval:=asval-ASCII("0");
- mywid:=mywid+asval;
- endfor;
- beginchar(charnum, mywid*bwidth#,bheight#,0);
- y1=y2=0;
- y3=y4=bheight;
- numeric myright,myleft,barweight,spcweight;
- myright:=0;myleft:=0;barweight:=0;spcweight:=0;
- for i=0 upto 4:
- asval:=ASCII(substring(i,i+1) of spex);
- asval:=asval-ASCII("0");
- myright:=myright+(asval+1)*bwidth;
- if not odd (i):
- % actual drawing
- x1:=myleft-blacker;
- x4:=x1;
- x2:=myright+blacker;
- x3:=x2;
- fill (z1)--(z2)--(z3)--(z4)--cycle;
- fi
- myleft:=myright;
- endfor;
- endchar;
-enddef;
-
-CODExichar("-","00100");
-CODExichar("0","00001");
-CODExichar("1","10001");
-CODExichar("2","01001");
-CODExichar("3","11000");
-CODExichar("4","00101");
-CODExichar("5","10100");
-CODExichar("6","01100");
-CODExichar("7","00011");
-CODExichar("8","10010");
-CODExichar("9","10000");
-CODExichar("@","00110");
-
-end;% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 11 ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</code11mf>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 39 starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*code39mf>
-%% Code 39, in Metafont mode
-%% Willadt 1997-08-17
-mode_setup;
-
-bheight#:=5mm#;
-
-%% high res .2 mm,
-%% med res .3 mm,
-%% lo res .4 mm.
-
-bwidth# :=.3mm#;
-
-designsize :=bheight#;
-font_slant :=0;
-font_normal_space :=13*bwidth#;
-font_extra_space :=0;
-font_normal_stretch:=0;
-font_normal_shrink :=0;
-font_quad :=13*bwidth#;
-
-define_pixels(bheight, bwidth);
-
-def thirtyninechar(expr charnum, spex) =
- beginchar(charnum, 13*bwidth#,bheight#,0);
- numeric myright,myleft;
- numeric asval, i;
- myright:=0;myleft:=0;
- y1=y2=0;y3=y4=bheight;
- for i=0 upto 11:
- asval:=ASCII(substring(i,i+1) of spex);
- exitif asval=-1;
- asval:=asval-ASCII("0");
- myright:=myright+asval*bwidth;
- if not odd (i):
- % actual drawing
- x1:=myleft-blacker;
- x4:=x1;
- x2:=myright+blacker;
- x3:=x2;
- fill (z1)--(z2)--(z3)--(z4)--cycle;
- fi
- myleft:=myright;
- endfor;
- endchar;
-enddef;
-
-\thirtyninechar("0")("1112212111");
-\thirtyninechar("1")("2112111121");
-\thirtyninechar("2")("1122111121");
-\thirtyninechar("3")("2122111111");
-\thirtyninechar("4")("1112211121");
-\thirtyninechar("5")("2112211111");
-\thirtyninechar("6")("1122211111");
-\thirtyninechar("7")("1112112121");
-\thirtyninechar("8")("2112112111");
-\thirtyninechar("9")("1122112111");
-\thirtyninechar( 64)("1211212111"); % start = @
-\thirtyninechar("-")("1211112121");
-\thirtyninechar("+")("1211121211");
-\thirtyninechar("$")("1212121111");
-\thirtyninechar("/")("1212111211");
-\thirtyninechar(".")("2211112111");
-\thirtyninechar( 37)("1112121211"); % percent
-\thirtyninechar( 32)("1221112111"); % space
-\thirtyninechar("A")("2111121121");
-\thirtyninechar("B")("1121121121");
-\thirtyninechar("C")("2121121111");
-\thirtyninechar("D")("1111221121");
-\thirtyninechar("E")("2111221111");
-\thirtyninechar("F")("1121221111");
-\thirtyninechar("G")("1111122121");
-\thirtyninechar("H")("2111122111");
-\thirtyninechar("I")("1121122111");
-\thirtyninechar("J")("1111222111");
-\thirtyninechar("K")("2111111221");
-\thirtyninechar("L")("1121111221");
-\thirtyninechar("M")("2121111211");
-\thirtyninechar("N")("1111211221");
-\thirtyninechar("O")("2111211211");
-\thirtyninechar("P")("1121211211");
-\thirtyninechar("Q")("1111112221");
-\thirtyninechar("R")("2111112211");
-\thirtyninechar("S")("1121112211");
-\thirtyninechar("T")("1111212211");
-\thirtyninechar("U")("2211111121");
-\thirtyninechar("V")("1221111121");
-\thirtyninechar("W")("2221111111");
-\thirtyninechar("X")("1211211121");
-\thirtyninechar("Y")("2211211111");
-\thirtyninechar("Z")("1221211111");
-
-\end;
-
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 39 ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</code39mf>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 128 starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*code128mf>
-%% Code 128, in Metafont mode
-%% This gives a raw font, that should be mapped properly
-%% so read the docs!
-%% Willadt 1997-08-17
-
-mode_setup;
-
-bheight#:=5mm#;
-
-%% high res: .264 mm#
-%% med res: .33 mm#
-bwidth# :=.33 mm#;
-
-designsize :=bheight#;
-font_slant :=0;
-font_normal_space :=11*bwidth#;
-font_extra_space :=0;
-font_normal_stretch:=0;
-font_normal_shrink :=0;
-font_quad :=11*bwidth#;
-
-define_pixels(bheight, bwidth);
-
-def CXXVIIIchar(expr charnum, spex) =
- numeric mywid, asval, i;
- mywid=0;
-% for i = 0 upto 8:
-% asval:=ASCII(substring(i,i+1) of spex);
-% exitif asval=-1;
-% asval:=asval-ASCII("0");
-% mywid:=mywid+asval;
-% endfor
-% beginchar(charnum, mywid*bwidth#,bheight#,0);
- beginchar(charnum, 11*bwidth#,bheight#,0);
- y1=y2=0;
- y3=y4=bheight;
- numeric myright,myleft,barweight,spcweight;
- myright:=0;myleft:=0;barweight:=0;spcweight:=0;
- for i=0 upto 8:
- asval:=ASCII(substring(i,i+1) of spex);
- exitif asval=-1;
- asval:=asval-ASCII("0");
- myright:=myright+asval*bwidth;
- if not odd (i):
-% check for typos
-% barweight:=barweight+asval;
- % actual drawing
- x1:=myleft-blacker;
- x4:=x1;
- x2:=myright+blacker;
- x3:=x2;
- fill (z1)--(z2)--(z3)--(z4)--cycle;
-% check for typos
-% else:
-% spcweight:=spcweight+asval;
- fi
- myleft:=myright;
- endfor;
-% check for typos
-% if not odd(spcweight): message "error in spc cnt";
-% fi
-% if odd(barweight): message "error in bar cnt";
-% fi
- endchar;
-enddef;
-
-CXXVIIIchar(107,"212222"); % Ersatz fuer Null
-CXXVIIIchar( 0,"212222");
-CXXVIIIchar( 1,"222122");
-CXXVIIIchar( 2,"222221");
-CXXVIIIchar( 3,"121223");
-CXXVIIIchar( 4,"121322");
-CXXVIIIchar( 5,"131222");
-CXXVIIIchar( 6,"122213");
-CXXVIIIchar( 7,"122312");
-CXXVIIIchar( 8,"132212");
-CXXVIIIchar( 9,"221213");
-CXXVIIIchar( 10,"221312");
-CXXVIIIchar( 11,"231212");
-CXXVIIIchar( 12,"112232");
-CXXVIIIchar( 13,"122132");
-CXXVIIIchar( 14,"122231");
-CXXVIIIchar( 15,"113222");
-CXXVIIIchar( 16,"123122");
-CXXVIIIchar( 17,"123221");
-CXXVIIIchar( 18,"223211");
-CXXVIIIchar( 19,"221132");
-CXXVIIIchar( 20,"221231");
-CXXVIIIchar( 21,"213212");
-CXXVIIIchar( 22,"223112");
-CXXVIIIchar( 23,"312131");
-CXXVIIIchar( 24,"311222");
-CXXVIIIchar( 25,"321122");
-CXXVIIIchar( 26,"321221");
-CXXVIIIchar( 27,"312212");
-CXXVIIIchar( 28,"322112");
-CXXVIIIchar( 29,"322211");
-CXXVIIIchar( 30,"212123");
-CXXVIIIchar( 31,"212321");
-CXXVIIIchar( 32,"232121");
-CXXVIIIchar( 33,"111323");
-CXXVIIIchar( 34,"131123");
-CXXVIIIchar( 35,"131321");
-CXXVIIIchar( 36,"112313");
-CXXVIIIchar( 37,"132113");
-CXXVIIIchar( 38,"132311");
-CXXVIIIchar( 39,"211313");
-CXXVIIIchar( 40,"231113");
-CXXVIIIchar( 41,"231311");
-CXXVIIIchar( 42,"112133");
-CXXVIIIchar( 43,"112331");
-CXXVIIIchar( 44,"132131");
-CXXVIIIchar( 45,"113123");
-CXXVIIIchar( 46,"113321");
-CXXVIIIchar( 47,"133121");
-CXXVIIIchar( 48,"313121");
-CXXVIIIchar( 49,"211331");
-CXXVIIIchar( 50,"231131");
-CXXVIIIchar( 51,"213113");
-CXXVIIIchar( 52,"213311");
-CXXVIIIchar( 53,"213131");
-CXXVIIIchar( 54,"311123");
-CXXVIIIchar( 55,"311321");
-CXXVIIIchar( 56,"331121");
-CXXVIIIchar( 57,"312113");
-CXXVIIIchar( 58,"312311");
-CXXVIIIchar( 59,"332111");
-CXXVIIIchar( 60,"314111");
-CXXVIIIchar( 61,"221411");
-CXXVIIIchar( 62,"431111");
-CXXVIIIchar( 63,"111224");
-CXXVIIIchar( 64,"111422");
-CXXVIIIchar( 65,"121124");
-CXXVIIIchar( 66,"121421");
-CXXVIIIchar( 67,"141122");
-CXXVIIIchar( 68,"141221");
-CXXVIIIchar( 69,"112214");
-CXXVIIIchar( 70,"112412");
-CXXVIIIchar( 71,"122114");
-CXXVIIIchar( 72,"122411");
-CXXVIIIchar( 73,"142112");
-CXXVIIIchar( 74,"142211");
-CXXVIIIchar( 75,"241211");
-CXXVIIIchar( 76,"221114");
-CXXVIIIchar( 77,"413111");
-CXXVIIIchar( 78,"241112");
-CXXVIIIchar( 79,"134111");
-CXXVIIIchar( 80,"111242");
-CXXVIIIchar( 81,"121142");
-CXXVIIIchar( 82,"121241");
-CXXVIIIchar( 83,"114212");
-CXXVIIIchar( 84,"124112");
-CXXVIIIchar( 85,"124211");
-CXXVIIIchar( 86,"411212");
-CXXVIIIchar( 87,"421112");
-CXXVIIIchar( 88,"421211");
-CXXVIIIchar( 89,"212141");
-CXXVIIIchar( 90,"214121");
-CXXVIIIchar( 91,"412121");
-CXXVIIIchar( 92,"111143");
-CXXVIIIchar( 93,"111341");
-CXXVIIIchar( 94,"131141");
-CXXVIIIchar( 95,"114113");
-CXXVIIIchar( 96,"114311");
-CXXVIIIchar( 97,"411113");
-CXXVIIIchar( 98,"411311");
-CXXVIIIchar( 99,"113141");
-CXXVIIIchar(100,"114131");
-CXXVIIIchar(101,"311141");
-CXXVIIIchar(102,"411131");
-CXXVIIIchar(103,"211412");
-CXXVIIIchar(104,"211214");
-CXXVIIIchar(105,"211232");
-CXXVIIIchar(106,"2331112");
-
-end;
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for Code 128 ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</code128mf>
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for EAN starts here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%<*codeeanmf>
-%% Font for printing EAN Code
-%% For small sizes (on the Deskjet, < 1,0) you have to be
-%% very careful and test if the font is still machine readable.
-%% On write-black-printers, it may be necessary to reduce
-%% the width of black bars by fiddling with
-%% the definition of fb().
-%% For producing EAN Add-ons or codes with variable height,
-%% it would be a good idea to shorten the height of the bars and
-%% to leave the numbers out of the bars-definition, so that you
-%% could stack several bars above each other.
-%% Flexibility would increase, but---on the other hand---
-%% TeX macros for setting EAN code would become even more complicated.
-%
-%% Peter Willadt 1997, September, 21
-%
-% For more information about EAN-Codes, you may consult the Centrale
-% f\"ur Coorganisation in K\"oln, Germany, or one of the associated
-% organisations in your country. The complete EAN-Handbook costs
-% about a hundred german marks.
-%
-% Just some information:
-% EAN-Digits consist of seven elements that are either black or white.
-% Each element has the same width.
-% Fonts A, B, and C are differently coded.
-% The first half of the EAN-number is coded in fonts A and B, the second
-% half is coded in font C. The first digit of the EAN-number is not
-% directly coded but will be taken from the alternate uses of characters
-% from font A and font B for the first half.
-% This strange coding is a direct consequence of
-% the ancestry of the EAN-code---it is derived from the american UPC-code
-% (12 digits)---and there had to be a way of compatibly expanding the UPC.
-%
-% The first two digits of the EAN-number code the country of origin of
-% the product, the next five digits (mostly) code the manufacturer, the
-% remaining digits (with the exception of the last) code the product.
-% The last digit of the EAN-number is a checksum.
-% For In-House-Use, you may use EAN starting with 20 to 29.
-%
-% EAN numbers do not contain any qualifiers. From a number, you cannot say
-% which kind of product is coded, unless you contact the manufacturer.
-%
-% Eight digit EAN numbers consist of four digits from font A and four digits
-% from font C.
-%
-% UPC is EAN with the first digit equal to zero.
-%
-% Here is a table that shows which code to use for the digits 2 to 7
-% depending on the first digit.
-% The number on the right shows the first digit.
-% A zero in the array means to choose font A, a one means to choose font B.
-%
-% static UBYTE abtab[10][6]={
-% {0,0,0,0,0,0}, /* 0 */
-% {0,0,1,0,1,1}, /* 1 */
-% {0,0,1,1,0,1}, /* 2 */
-% {0,0,1,1,1,0}, /* 3 */
-% {0,1,0,0,1,1}, /* 4 */
-% {0,1,1,0,0,1}, /* 5 */
-% {0,1,1,1,0,0}, /* 6 */
-% {0,1,0,1,0,1}, /* 7 */
-% {0,1,0,1,1,0}, /* 8 */
-% {0,1,1,0,1,0} /* 9 */
-% };
-% This font is coded in a way that requires extensive preprocessing.
-% 0 to 9 yield the digits from 0 to 9
-% A to J yield the codes from charset A
-% a to j yield the codes from charset B
-% K to T yield the codes from charset C
-% + makes the start and stop sign and - the middle sign
-% So, to code the number 2099993098253, you have to write
-% {\eanfont2 +AJjjJd-KTSMPN+}. Please note that the last
-% digit is a checksum.
-% This font is free to be used without any further permission;
-% it comes with no warranty. I strongly recommend to test
-% the readability of barcodes before going into mass production.
-%
-% There should be a Perl routine delivered together with this font
-% that takes a TeX file and replaces EAN numbers by their encoded
-% equivalent. There also should be a file called EANDOC.TEX
-% that tells you more about that.
-%
-%% Author
-%% Peter Willadt
-%% Heinrich-Wieland-Allee 5
-%% 75177 Pforzheim
-%% Germany
-%% email: Willadt@t-online.de
-%
-
-mode_setup;
-
-%% EAN size 1 (100%)
-%
-bheight#:=22.85mm#;
-bdepth#:=1.65mm#;
-bwidth#:=0.33mm#;
-digheight#:=2.75mm#;
-numgap#=1mm#;
-digdiam#=0.9pt#;
-lgap#:= bwidth#+0.5 digdiam#;
-totheight#=bheight#+digheight#+numgap#;
-ndheight#:=totheight#-bheight#-bdepth#;
-define_pixels(ndheight,digheight,numgap,lgap,bwidth);
-define_blacker_pixels(bheight,totheight,digdiam);
-
-font_normal_space=7*bwidth#;
-font_size 10pt#;
-
-def fb(expr posn) =
- x20:=(posn-1)*bwidth;
- x21:=x20;
- x22:=posn*bwidth;
- x23:=x22;
- y20:=y22:=digheight+numgap;
- y21:=y23:=h;
- fill z20--z21--z23--z22--cycle;
-enddef;
-
-def klotz(expr posn) =
- x1:=(posn-1)*bwidth;x2:=posn*bwidth;
- x3:=x2;x4:=x1;
- y1:=y2:=ndheight;
- y3:=y4:=digheight+numgap;
- fill z1--z2--z3--z4--cycle;
-enddef;
-
-def nuller =
- x1=0.5w;
- y1=digheight;
- x2=lgap;
- y2=0.8y1;
- x3=x2;
- y3-y4=y1-y2;
- y4=0;
- x4=x1;
- x5=w-x3;
- y5=y3;
- x6=x5;
- y6=y2;
- pickup pencircle scaled digdiam;
- draw z1..{down}z2--z3{down}..z4..{up}z5--z6{up}..cycle;
-enddef;
-
-def einser =
- x1=x2=0.5w+lgap;
- x3=2*lgap;
- y1=0;
- y2=digheight;
- y3=0.8digheight;
- pickup pencircle scaled digdiam;
- draw z1--z2--z3;
-enddef;
-
-def zweier =
- x1=w-lgap;
- x2=lgap;
- y1=y2=0;
- x3=x2;
- y3=0.15 digheight;
- x4=w-lgap;
- y4=0.6 digheight;
- x5=x4;
- y5=0.9 digheight;
- x6=0.5w;
- y6=digheight;
- x7=x2;
- y7=y5;
- pickup pencircle scaled digdiam;
- draw z1--z2{up}..z3..z4..z5..z6..z7;
-enddef;
-
-def dreier =
- x1=lgap;
- w-x2=x1;
- y1=y2=digheight;
- x3=0.5w;
- y3=0.6digheight;
- y4=0.5y3;
- x4=x2;
-% y5=0.5digdiam;
- y5=0;
- x5=0.5w;
- x6=x1;
- y6=0.2 digheight;
- pickup pencircle scaled digdiam;
- draw z1--z2--z3{right}..z4..z5..z6;
-enddef;
-
-def vierer =
- x1=0.6w;y1=digheight;
- x2=lgap;
- y2=0.3digheight;
- y3=y2;
- w-x3=x2;
-% w-x4=x4-x1;
- x4=0.5[x1,x3];
- x5=x4;
- y4=0.5digheight;
- y5=0;
- pickup pencircle scaled digdiam;
- draw z1--z2--z3;
- draw z4--z5;
-enddef;
-
-def fuenfer =
- x2=lgap;
- x2=w-x1;
- y1=y2=digheight;
- x3=x2;
- y3=0.7digheight;
- x4=x1;
- y3-y4=y4;
- x5=x2;
- y5=0;
- pickup pencircle scaled digdiam;
- draw z1--z2--z3{right}..z4..{left}z5;
-enddef;
-
-def sechser =
- x1=0.6w;
- y1=digheight;
- x2=lgap;
- x4=w-x2;
-% y2=y4=0.3digheight;
- y2=y4=0.5y5;
- x3=x5=0.5w;
- y3=0;
-% y5=0.6 digheight;
- y5=x4-x2;
- pickup pencircle scaled digdiam;
- draw z2..z3..z4..z5..cycle;
- draw z1..{down}z2;
-enddef;
-def siebener =
- x1=lgap;
- x2=w-x1;
- y1=y2=digheight;
- x3=x4=0.5w;
- y3=0.3digheight;
- y4=0;
- pickup pencircle scaled digdiam;
- draw z1--z2;
- draw z2..z3...z4;
-enddef;
-def achter =
- x1=x3=x5=0.5w;
- y1=digheight;
- y3=0.6digheight;
- y5=0;
- x2=w-x7;
- x4=w-x6;
- y2=y7=0.5[y1,y3];
- y4=y6=0.5[y3,y5];
- x2=1.5lgap;
- x4=w-lgap;
- pickup pencircle scaled digdiam;
- draw z1..z2..z3..z7..cycle;
- draw z3..z4..z5..z6..cycle;
-enddef;
-def neuner =
- x1=0.4w;
- y1=0;
- x2=w-lgap;
- x4=w-x2;
-% y2=y4=0.7digheight;
- y2=y4=0.5[y5,y3];
- x3=x5=0.5w;
- y3=digheight;
- y5=0.4 digheight;
- pickup pencircle scaled digdiam;
- draw z1..{up}z2;
- draw z2..z3..z4..z5..cycle;
-enddef;
-beginchar("+",3*bwidth#,totheight#,0); "Das Randzeichen";
- fb(1); fb(3);
- klotz(1);
- klotz(3);
-endchar;
-beginchar("-",5*bwidth#,totheight#,0); "Das Mittenzeichen";
- fb(2); fb(4);
- klotz(2);
- klotz(4);
-endchar;
-
-beginchar("0",7*bwidth#,digheight#,0);
- nuller;
-endchar;
-
-beginchar("1",7*bwidth#,digheight#,0);
- einser;
-endchar;
-
-beginchar("2",7*bwidth#,digheight#,0);
- zweier;
-endchar;
-
-beginchar("3",7*bwidth#,digheight#,0);
- dreier;
-endchar;
-
-beginchar("4",7*bwidth#,digheight#,0);
- vierer;
-endchar;
-
-beginchar("5",7*bwidth#,digheight#,0);
- fuenfer;
-endchar;
-
-beginchar("6",7*bwidth#,digheight#,0);
- sechser;
-endchar;
-
-beginchar("7",7*bwidth#,digheight#,0);
- siebener;
-endchar;
-
-beginchar("8",7*bwidth#,digheight#,0);
- achter;
-endchar;
-
-beginchar("9",7*bwidth#,digheight#,0);
- neuner;
-endchar;
-
-% Zeichensatz A
-
-beginchar("A",7*bwidth#,totheight#,0); "Die Null (A)";
- fb(4);fb(5);fb(7);
- nuller;
-endchar;
-
-beginchar("B",7*bwidth#,totheight#,0); "Die Eins (A)";
- fb(3);fb(4);fb(7);
- einser;
-endchar;
-
-beginchar("C",7*bwidth#,totheight#,0); "Die Zwei (A)";
- fb(3);fb(6);fb(7);
- zweier;
-endchar;
-beginchar("D",7*bwidth#,totheight#,0); "Die Drei (A)";
- fb(2);fb(3);fb(4);fb(5);fb(7);
- dreier;
-endchar;
-beginchar("E",7*bwidth#,totheight#,0); "Die Vier (A)";
- fb(2);fb(6);fb(7);
- vierer;
-endchar;
-beginchar("F",7*bwidth#,totheight#,0); "Die Fuenf (A)";
- fb(2);fb(3);fb(7);
- fuenfer;
-endchar;
-beginchar("G",7*bwidth#,totheight#,0); "Die Sechs (A)";
- fb(2);fb(4);fb(5);fb(6);fb(7);
- sechser;
-endchar;
-beginchar("H",7*bwidth#,totheight#,0); "Die Sieben (A)";
- fb(2);fb(3);fb(4);fb(6);fb(7);
- siebener;
-endchar;
-
-beginchar("I",7*bwidth#,totheight#,0); "Die Acht (A)";
- fb(2);fb(3);fb(5);fb(6);fb(7);
- achter;
-endchar;
-
-beginchar("J",7*bwidth#,totheight#,0); "Die Neun (A)";
- fb(4);fb(6);fb(7);
- neuner;
-endchar;
-
-% Zeichensatz B
-
-beginchar("a",7*bwidth#,totheight#,0); "Die Null (B)";
- fb(2);fb(5);fb(6);fb(7);
- nuller;
-endchar;
-
-beginchar("b",7*bwidth#,totheight#,0); "Die Eins (B)";
- fb(2);fb(3);fb(6);fb(7);
- einser;
-endchar;
-
-beginchar("c",7*bwidth#,totheight#,0); "Die Zwei (B)";
- fb(3);fb(4);fb(6);fb(7);
- zweier;
-endchar;
-beginchar("d",7*bwidth#,totheight#,0); "Die Drei (B)";
- fb(2);fb(7);
- dreier;
-endchar;
-beginchar("e",7*bwidth#,totheight#,0); "Die Vier (B)";
- fb(3);fb(4);fb(5);fb(7);
- vierer;
-endchar;
-beginchar("f",7*bwidth#,totheight#,0); "Die Fuenf (B)";
- fb(2);fb(3);fb(4);fb(7);
- fuenfer;
-endchar;
-beginchar("g",7*bwidth#,totheight#,0); "Die Sechs (B)";
- fb(5);fb(7);
- sechser;
-endchar;
-beginchar("h",7*bwidth#,totheight#,0); "Die Sieben (B)";
- fb(3);fb(7);
- siebener;
-endchar;
-
-beginchar("i",7*bwidth#,totheight#,0); "Die Acht (B)";
- fb(4);fb(7);
- achter;
-endchar;
-
-beginchar("j",7*bwidth#,totheight#,0); "Die Neun (B)";
- fb(3);fb(5);fb(6);fb(7);
- neuner;
-endchar;
-
-% Zeichensatz C
-
-beginchar("K",7*bwidth#,totheight#,0); "Die Null (C)";
- fb(1);fb(2);fb(3);fb(6);
- nuller;
-endchar;
-
-beginchar("L",7*bwidth#,totheight#,0); "Die Eins (C)";
- fb(1);fb(2);fb(5);fb(6);
- einser;
-endchar;
-
-beginchar("M",7*bwidth#,totheight#,0); "Die Zwei (C)";
- fb(1);fb(2);fb(4);fb(5);
- zweier;
-endchar;
-beginchar("N",7*bwidth#,totheight#,0); "Die Drei (C)";
- fb(1);fb(6);
- dreier;
-endchar;
-beginchar("O",7*bwidth#,totheight#,0); "Die Vier (C)";
- fb(1);fb(3);fb(4);fb(5);
- vierer;
-endchar;
-beginchar("P",7*bwidth#,totheight#,0); "Die Fuenf (C)";
- fb(1);fb(4);fb(5);fb(6);
- fuenfer;
-endchar;
-beginchar("Q",7*bwidth#,totheight#,0); "Die Sechs (C)";
- fb(1);fb(3);
- sechser;
-endchar;
-beginchar("R",7*bwidth#,totheight#,0); "Die Sieben (C)";
- fb(1);fb(5);
- siebener;
-endchar;
-
-beginchar("S",7*bwidth#,totheight#,0); "Die Acht (C)";
- fb(1);fb(4);
- achter;
-endchar;
-
-beginchar("T",7*bwidth#,totheight#,0); "Die Neun (C)";
- fb(1);fb(2);fb(3);fb(5);
- neuner;
-endchar;
-
-end;
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% % MetaFont Code for EAN ends here %
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</codeeanmf>
-%<*wlcr39mf>
-% Code 39, in Metafont mode
-% $90^0$ rotated to the right,
-% make Barcodes run down instead of across.
-% Willadt 1998-04-28
-mode_setup;
-
-bwidth#:=5mm#;
-
-% high res .2 mm,
-% med res .3 mm,
-% lo res .4 mm.
-
-bheight# :=.3mm#;
-
-designsize :=13*bheight#;
-font_slant :=0;
-font_normal_space :=bwidth#;
-font_extra_space :=0;
-font_normal_stretch:=0;
-font_normal_shrink :=0;
-font_quad :=bwidth#;
-
-define_pixels(bheight, bwidth);
-
-def thirtyninechar(expr charnum, spex) =
- beginchar(charnum, bwidth#,12*bheight#,bheight#);
- numeric mytop,mybot;
- numeric asval, i;
- mytop:=12*bheight;mybot:=mytop;
- x1=x2=0;x3=x4=bwidth;
- for i=0 upto 11:
- asval:=ASCII(substring(i,i+1) of spex);
- exitif asval=-1;
- asval:=asval-ASCII("0");
- mybot:=mybot-asval*bheight;
- if not odd (i):
- % actual drawing
- y1:=mytop+blacker;
- y4:=y1;
- y2:=mybot-blacker;
- y3:=y2;
- fill (z1)--(z2)--(z3)--(z4)--cycle;
- fi
- mytop:=mybot;
- endfor;
- endchar;
-enddef;
-
-\thirtyninechar("0")("1112212111");
-\thirtyninechar("1")("2112111121");
-\thirtyninechar("2")("1122111121");
-\thirtyninechar("3")("2122111111");
-\thirtyninechar("4")("1112211121");
-\thirtyninechar("5")("2112211111");
-\thirtyninechar("6")("1122211111");
-\thirtyninechar("7")("1112112121");
-\thirtyninechar("8")("2112112111");
-\thirtyninechar("9")("1122112111");
-\thirtyninechar( 64)("1211212111"); % start = @
-\thirtyninechar("-")("1211112121");
-\thirtyninechar("+")("1211121211");
-\thirtyninechar("$")("1212121111");
-\thirtyninechar("/")("1212111211");
-\thirtyninechar(".")("2211112111");
-\thirtyninechar( 37)("1112121211"); % percent
-\thirtyninechar( 32)("1221112111"); % space
-\thirtyninechar("A")("2111121121");
-\thirtyninechar("B")("1121121121");
-\thirtyninechar("C")("2121121111");
-\thirtyninechar("D")("1111221121");
-\thirtyninechar("E")("2111221111");
-\thirtyninechar("F")("1121221111");
-\thirtyninechar("G")("1111122121");
-\thirtyninechar("H")("2111122111");
-\thirtyninechar("I")("1121122111");
-\thirtyninechar("J")("1111222111");
-\thirtyninechar("K")("2111111221");
-\thirtyninechar("L")("1121111221");
-\thirtyninechar("M")("2121111211");
-\thirtyninechar("N")("1111211221");
-\thirtyninechar("O")("2111211211");
-\thirtyninechar("P")("1121211211");
-\thirtyninechar("Q")("1111112221");
-\thirtyninechar("R")("2111112211");
-\thirtyninechar("S")("1121112211");
-\thirtyninechar("T")("1111212211");
-\thirtyninechar("U")("2211111121");
-\thirtyninechar("V")("1221111121");
-\thirtyninechar("W")("2221111111");
-\thirtyninechar("X")("1211211121");
-\thirtyninechar("Y")("2211211111");
-\thirtyninechar("Z")("1221211111");
-
-\end;
-%</wlcr39mf>
-%<*code93mf>
-% not complete, yet
-%% Code 93 in Metafont format
-%% Peter Willadt 1998-04-21
-%% For copyright and the like see the documentation
-%% to the barcode package, from which this file is part of.
-%% If you received only this file,
-%% then maybe someone fooled you.
-%%
-%% Code 93 requires one or two check digits.
-%% These check digtis are calculated using a weighted mod 11-checksum.
-%% You have to see the docs.
-%% Start and stop chars are mapped to < and >, respectively.
-%% codeable are 0--9 , A-Z, -,+, space, dot, $, /, and percent.
-%% To print full ascii, ordinary characters have to be preceeded with
-%% on of four shift characters. Thes shift characters are
-%% ($) mapped to =
-%% (%) mapped to [
-%% (/) mapped to |
-%% (+) mapped to ]
-
-mode_setup;
-
-bheight#:=5mm#;
-
-% high res: .264 mm#
-% med res: .33 mm#
-bwidth# :=.33 mm#;
-
-designsize :=bheight#;
-font_slant :=0;
-font_normal_space :=9*bwidth#;
-font_extra_space :=0;
-font_normal_stretch:=0;
-font_normal_shrink :=0;
-font_quad :=10*bwidth#;
-
-define_pixels(bheight, bwidth);
-
-def CODExciiichar(expr charnum, spex) =
- numeric mywid, asval, i;
- mywid=0;
- for i= 0 upto 5:
- asval:=ASCII(substring(i,i+1) of spex);
- asval:=asval-ASCII("0");
- mywid:=mywid+asval;
- endfor;
- beginchar(charnum, mywid*bwidth#,bheight#,0);
- y1=y2=0;
- y3=y4=bheight;
- numeric myright,myleft,barweight,spcweight;
- myright:=0;myleft:=0;barweight:=0;spcweight:=0;
- for i=0 upto 5:
- asval:=ASCII(substring(i,i+1) of spex);
- asval:=asval-ASCII("0");
- myright:=myright+asval*bwidth;
- if not odd (i):
- % actual drawing
- x1:=myleft-blacker;
- x4:=x1;
- x2:=myright+blacker;
- x3:=x2;
- fill (z1)--(z2)--(z3)--(z4)--cycle;
- fi
- myleft:=myright;
- endfor;
- endchar;
-enddef;
-
-CODExciiichar("0","131112");
-CODExciiichar("1","111213");
-CODExciiichar("2","111312");
-CODExciiichar("3","111411");
-CODExciiichar("4","121113");
-CODExciiichar("5","121212");
-CODExciiichar("6","121311");
-CODExciiichar("7","111114");
-CODExciiichar("8","131211");
-CODExciiichar("9","141111");
-CODExciiichar("A","211113");
-CODExciiichar("B","211212");
-CODExciiichar("C","211311");
-CODExciiichar("D","221112");
-CODExciiichar("E","221211");
-CODExciiichar("F","231111");
-CODExciiichar("G","112113");
-CODExciiichar("H","112212");
-CODExciiichar("I","112311");
-CODExciiichar("J","122112");
-CODExciiichar("K","132111");
-CODExciiichar("L","111123");
-CODExciiichar("M","111222");
-CODExciiichar("N","111321");
-CODExciiichar("O","121122");
-CODExciiichar("P","131121");
-CODExciiichar("Q","212112");
-CODExciiichar("R","212211");
-CODExciiichar("S","211122");
-CODExciiichar("T","211221");
-CODExciiichar("U","221121");
-CODExciiichar("V","222111");
-CODExciiichar("W","112122");
-CODExciiichar("X","112221");
-CODExciiichar("Y","122121");
-CODExciiichar("Z","123111");
-CODExciiichar("-","121131");
-CODExciiichar(".","311112");
-CODExciiichar( 32,"311211");% space
-CODExciiichar( 36,"321111");% dollar
-CODExciiichar("/","112131");
-CODExciiichar("+","113121");
-CODExciiichar( 37,"211131");% percent
-% % the four escape characters
-CODExciiichar("(","121221");% ought to be ($)
-CODExciiichar(")","312111");% ought to be (%)
-CODExciiichar("[","311121");% ought to be (/)
-CODExciiichar("]","122211");% ought to be (+)
-CODExciiichar("<","111141");% start sign
-CODExciiichar(">","1111411");% stop sign has extra bar
-
-end;
-%</code93mf>
diff --git a/Master/texmf-dist/source/fonts/barcode2/barcodes.ins b/Master/texmf-dist/source/fonts/barcode2/barcodes.ins
deleted file mode 100644
index ddccd09ea85..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/barcodes.ins
+++ /dev/null
@@ -1,55 +0,0 @@
-\input docstrip
-% Preamble gives hints for where the files come from
-\declarepreamble\foo
-As this is a generated file, you may perhaps not want to edit it.
-This file belongs to the barcode package.
-It may be of no great use without the rest of the barcode package.
-\endpreamble
-
-% empty postamble
-\declarepostamble\istpost
-\endpostamble
-% install without talking too much
-\keepsilent
-
-% All the \TeX files are contained within one source archive.
-\usepreamble\foo
-\generate{\file{bcfaq.tex}{\from{barcodes.dtx}{bcfaq}}
- \file{bcfaq.bbl}{\from{barcodes.dtx}{bcfaqbbl}}
- \file{barcodes.sty}{\from{barcodes.dtx}{bcsty}}
- \file{eandoc.tex}{\from{barcodes.dtx}{eandoc}}
- \file{examples.tex}{\from{barcodes.dtx}{example}}
- \file{code39.tex}{\from{barcodes.dtx}{code39mac}}
- \file{wlc11.mf}{\from{barcodes.dtx}{code11mf}}
- \file{wlc39.mf}{\from{barcodes.dtx}{code39mf}}
- \file{wlc128.mf}{\from{barcodes.dtx}{code128mf}}
- \file{wlean.mf}{\from{barcodes.dtx}{codeeanmf}}
- \file{wlcr39.mf}{\from{barcodes.dtx}{wlcr39mf}}
- \file{wlc93.mf}{\from{barcodes.dtx}{code93mf}}
-}
-
-\ifToplevel{
-\Msg{***********************************************************}
-\Msg{*}
-\Msg{* To finish the installation you have to move the following}
-\Msg{* files into a directory searched by TeX:}
-\Msg{*}
-\Msg{* \space\space barcodes.sty \space\space code39.tex}
-\Msg{*}
-\Msg{* You also have to move the following files into a}
-\Msg{* directory searched by MetaFont:}
-\Msg{*}
-\Msg{* \space\space wlc11.mf \space\space wlc39.mf}
-\Msg{* \space\space wlc128.mf \space wlean.mf}
-\Msg{* \space\space wlcr39.mf \space wlc93.mf}
-\Msg{*}
-\Msg{* For the more clumsy barcodes, you also need Perl and}
-\Msg{* you need to install the following perl script:}
-\Msg{*}
-\Msg{* \space\space codean.pl}
-\Msg{*}
-\Msg{***********************************************************}
-}
-
-
-\endbatchfile
diff --git a/Master/texmf-dist/source/fonts/barcode2/codean.pl b/Master/texmf-dist/source/fonts/barcode2/codean.pl
deleted file mode 100644
index 6d398fae515..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/codean.pl
+++ /dev/null
@@ -1,456 +0,0 @@
-# your shell command goes here
-#
-# Hacking EAN numbers to a form usable with WLEAN.MF.
-#
-# September 3, 1997
-# Peter Willadt
-#
-# Added hacking any text for coding with code 128
-# 1998-01-24
-#
-# Added checksumming for code 93
-# 1998-11-29
-#
-# This file is free to use without any further permissions.
-# This file comes with no warranty of any kind.
-#
-# The TeX file to be filtered may contain any number of lines
-# that have one of the following commands
-# starting at the leftmost position.
-#
-# \ean{12 or 13 digit number}
-# the number gets coded as EAN,
-# if it is only 12 digits long, the checksum gets calculated
-#
-# \embed{number}
-# the number is used as a base for embedding article numbers & c.
-# \eean{number}
-# a number to be embedded with an ean.
-#
-# \isbn{number}
-# an isbn to make an embedded ean of.
-#
-# \cxxviii{any 7 bit ascii values}
-# code as barcode 128 (see rules below!)
-#
-# \xciii{uppercase text or number}
-# text to be coded as code 128
-#
-# example:
-# You want the isbn 0-201-13448-9 to be embedded.
-# so you say \isbn{0201134489},
-# but you may also say \embed{9780000000000} and,
-# somewhere later in the file, \eean{020113448}
-# In this case you have to leave the last digit out,
-# as isbn loose their check digit in favour of the
-# ean check digit.
-# anyway you do it, you get your command replaced by
-# \EAN{13-digit-number-coded-strange}
-# in the output file.
-#
-#
-# code 128 rules:
-# you write a line starting with \cxxviii{
-# followed by arbitrary 7 bit characters, delimited by a right brace}.
-# as perl is greedy, it will be the rightmost right brace (no fence matching),
-# but as perl is also nice, you will be warned if there is another
-# right brace. Please note that even the percent character % will be
-# included. So it is better to write the \cxxviii{...} statement onto
-# a line of its own. You may replace any character by ^^00 and
-# similiar codes, preferably you will do this to non-printable ascii
-# characters, or right braces and the like. This routine will try to find
-# an efficent way to make code 128 (sorry, not necessarily the most
-# efficient way) out of your input and then it will
-# insert a line like \CXXVIII{3a 70 12 ... @@} in the output file.
-# The code 128 special characters can be included by the following codes:
-# ^^80 FNC3
-# ^^81 FNC2
-# ^^82 SHIFT
-# ^^83 CODE C/CODE C/99
-# ^^84 CODE B/FNC4/CODE B
-# ^^85 FNC4/CODE A/CODE A
-# ^^86 FNC1
-# ^^87 START A
-# ^^88 START B
-# ^^89 START C
-# ^^8a STOP
-
-# code switch table for ean
-
-@ABTAB=(0,0,0,0,0,0, #0
- 0,0,1,0,1,1, #1
- 0,0,1,1,0,1, #2
- 0,0,1,1,1,0, #3
- 0,1,0,0,1,1, #4 and so on
- 0,1,1,0,0,1,
- 0,1,1,1,0,0,
- 0,1,0,1,0,1,
- 0,1,0,1,1,0,
- 0,1,1,0,1,0,
- );
-
-# command line processing: Need input file
-
-if($ARGV[0]){
- $ifname=$ARGV[0];
-}else{
- print "Enter name of file to be processed: ";
- $ifname = <>;
- chomp($ifname);
-}
-
-# command line processing: need output file
-
-if($ARGV[1]){
- $ofname=">$ARGV[1]";
-}else{
- print "Enter name of output file: ";
- $ofname = <>;
- chomp($ofname);
-}
-
-# make an ean
-
-sub eancod{
- my $srcstr=shift;
- # first digits first
- my $precod=substr($srcstr,0,1);
- # Starting output string
- my $eastring=$precod . " +";
- # digits 2--7
- for($i=0;$i<6;$i++){
- my $disone=substr($srcstr,$i+1,1);
- $disone =~ tr/0123456789/ABCDEFGHIJ/;
- $disone= lc ($disone) if( @ABTAB[$precod*6 + $i]==1);
- $eastring .=$disone;
- }$eastring .= "-";
- # digits 8--13
- for($i=0;$i<6;$i++){
- # if checksum misses, do your own
- if(($i==5) && (length($srcstr)==12)){
- for($j=0,$checksum=0;$j<12;$j++){
- $checksum+=substr($srcstr,$j,1)*(1+($j&1)*2);
- };
- $checksum%=10;
- $checksum=10-$checksum;
- $checksum%=10;
- $disone="$checksum";
- }else {
- $disone=substr($srcstr,$i+7,1);
- }
- $disone =~ tr/0123456789/KLMNOPQRST/;
- $eastring .=$disone;
- }$eastring .="+";
- return $eastring;
-}
-
-##################################################
-# here starts the code 128 stuff
-#
-##################################################
-# get the numerical value of a hex character,
-# e.g. 65 from 41
-#
-sub hexchar{
- my $src=shift;
- my ($i, $j, $result);
- $src =~ tr/a-f/A-F/;
- $i=ord(substr($src,0,1));
- $j=ord(substr($src,1,1));
- if($i >= ord("A")){
- $i += (10-ord('A'));
- }else{
- $i -= ord("0");
- }
- if($j >= ord("A")){
- $j += (10-ord("A"));
- }else{
- $j -= ord("0");
- }
- $result=16*($i)+$j;
- return $result;
-}
-
-# globals:
-# @cxxchars holds the characters the user wants to code
-# @ctbl holds the possible codings for these chars
-# @cxxout holds the codes to be output for code 128
-
-##################################################
-# build up the switching table for code 128
-
-sub makectbl{
- # locals
- my $i;
- for($i=0;$i < $cxxlength; $i++){
- if(($cxxchars[$i] >= ord("0"))&&($cxxchars[$i] <= ord("9"))){
- # digits
- $ctbl[$i]=7;
- }elsif(($cxxchars[$i] >= ord(" "))&&($cxxchars[$i] <= ord("_"))){
- # common Chars
- $ctbl[$i]=3;
- }elsif($cxxchars[$i] < ord(" ")){
- # ascii control chars
- $ctbl[$i]=1;
- }elsif(($cxxchars[$i] >=ord("`"))&&($cxxchars[$i] <= ord("\x7f"))){
- # lowercase
- $ctbl[$i]=2;
- if($cxxchars[$i] == ord("}")){
- print "Encountered right brace in argument to cxxviii\n";
- }
- }else{ # Function Codes
- $ctbl[$i] =7;
- }
- }
- $ctbl[$i]=0;
-}
-
-##################################################
-# make a character array from a string
-# looking like aBc\x41def^^41 or so.
-#
-sub unhex{
- my ($i, $j, $b);
- my $srcstr=shift;
- $j=0;
- for($i=0;($b=ord(substr($srcstr,$i,1))) > 0;$i++){
- if($b == ord("\\")){
- if(substr($srcstr,$i+1,1) =~ /[xX]/){ # hex input
- $cxxchars[$j] = hexchar(substr($srcstr,$i+2,2));
- $i += 3;
- }else{
- $cxxchars[$j] = ord("\\");
- }
- }elsif($b == ord("^")){
- if(ord(substr($srcstr,$i+1,1)) == ord("^")){ # hex input
- $cxxchars[$j] = hexchar(substr($srcstr,$i+2,2));
- $i += 3;
- }else{
- $cxxchars[$j] = ord("^");
- }
- }else{
- $cxxchars[$j] = $b;
- }
- $j++;
- }
- return $j;
-}
-
-##################################################
-# write out a chunk of code 128 in hex symbols
-#
-sub cxxchunk{
- my $j=shift;
- my ($i, $sum, $k);
- $sum=7;
- for($i=0;$sum & $ctbl[$j+$i]; $i++){
- $sum &= $ctbl[$j+$i];
- }
- if($sum==1){
- $cxxout[$j]=101;
- }else{
- $cxxout[$j]=100;
- }
- for($k=0;$k<$i;$k++){
- if(($sum==1)&&($cxxchars[$j+$k] < ord(" "))){
- $cxxout[$j+$k+1]=$cxxchars[$j+$k] + 64;
- }else{
- $cxxout[$j+$k+1]=$cxxchars[$j+$k] - ord(" ");
- }
- }
- $k++;
- return $k;
-}
-
-##################################################
-# consecutive digits may perhaps be efficiently
-# coded with charset C
-#
-sub pastedigits{
- my $digitcount=shift;
- my $j=shift;
- my $firstdigit=shift;
- my $lastset=shift;
- my $k;
- if($digitcount==0){
- return $j;
- } # else: we've found consecutive digits
- elsif($digitcount<4){
- # but unfortunately not enough digits.
- for($k=0;$k<$digitcount;$k++){
- $cxxoutout[$j] = $cxxout[$firstdigit+$k];
- $j++;
- }
- return $j;
- }else{
- # is there an odd number of digits?
- if(($digitcount & 1)==1){
- $cxxoutout[$j] = $cxxout[$firstdigit];
- $firstdigit++;
- $digitcount--;
- $j++;
- }elsif(($cxxout[$j-1]>=99)&&($cxxout[$j-1]<=101)){
- # Switched immediately before digits.
- # so overwrite the switch
- $j--;
- }
- $cxxoutout[$j] = 99; # switch to set C
- $j++;
- # copy digits in compressed format
- for($k=0;$k<$digitcount;$k+=2){
- $cxxoutout[$j] = ($cxxout[$firstdigit+$k]-16)*10
- +$cxxout[$firstdigit+$k+1]-16;
- $j++;
- }
- # reset char set, if you have to
- if($lastset != 0){
- $cxxoutout[$j] = $lastset;
- $j++;
- }
- }
- return $j;
-}
-
-sub digitoptimize{
- # change to charset C if there are at least four numbers in a row.
- # copy to @cxxoutout
- my ($lastset, $firstdigit, $digitcount, $i,$j,$k);
- $firstdigit=0;
- $digitcount=0;
-zch:
- for($i=0, $j=0; $i < $cxxlength; $i++){
- if(($cxxout[$i]>=16)&&($cxxout[$i]<=25)){
- # it's a number
- if($digitcount == 0){
- $firstdigit=$i;
- }
- $digitcount++;
- next zch;
- }
- $j=pastedigits($digitcount,$j,$firstdigit,$lastset);
- $digitcount=0;
- $cxxoutout[$j] = $cxxout[$i];
- $j++;
- if(($cxxout[$i]>=99)&&($cxxout[$i]<=101)){
- # it's a code switch
- $lastset=$cxxout[$i];
- }
- }
- $j=pastedigits($digitcount,$j,$firstdigit, 0);
- return $j;
-}
-
-##################################################
-# code 128 is a little complicated
-# if you read till here, you already know.
-#
-sub codcxxviii{
- # locals
- my ($i,$j,$sum);
- my $srcstr=shift;
- # reset all arrays
- $cxxlength=0;
- # first step: unhexing
- $cxxlength = unhex($srcstr);
- # @cxxchars now holds the characters the user wants
- makectbl();
- # @ctbl now contains the possible tables for the chars in $j;
- for($i =0; $i < $cxxlength;){
- $i += cxxchunk($i);
- }
- # change codeset switch to start
- $cxxlength=$i;
- $j=digitoptimize();
- if($cxxoutout[0]==99){
- $cxxoutout[0]=105;
- }elsif($cxxoutout[0]==100){
- $cxxoutout[0]=104;
- }else{
- $cxxoutout[0]=103;
- }
- # calculate checksum and build output string
- for($i=1,$sum=$cxxoutout[0];$i<$j;$i++){
- $sum+=$cxxoutout[$i]*$i;
- }
- $sum %=103;
- $cxxoutout[$j]=$sum;
- $j++;
- $cxxoutout[$j]=106; #stop sign
- $srcstr="";
- for($i=0;$i<($j+1);$i++){
- $srcstr .= sprintf "%02X", $cxxoutout[$i];
- }
- $srcstr .= "@@";
- return $srcstr;
-}
-##################################################
-# do code 93 -- it's easy
-##################################################
-sub codxciii{
- my $srcstr=shift;
- my $cstbl='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%()[]';
- my ($i, $j, $sumc, $sumh);
- $sumc=$sumh=0;
- for ($i=0;$i<length($srcstr);$i++){
- $j=index($cstbl, substr($srcstr,$i,1),0);
- # $j is the check value of the character.
- $sumh=$sumh+$j;
- $sumc=$sumc+$sumh;
- }
- $srcstr=$srcstr . substr($cstbl,$sumc%47,1);
- $sumc=$sumc+$sumh+($sumc%47);
- $srcstr=$srcstr . substr($cstbl,$sumc%47,1);
- return $srcstr;
-}
-
-##################################################
-# we got both input and output file,
-# we defined all subroutines,
-# so here we go...
-#
-open(EINGABE, $ifname) or die "No file";
-open(AUSGABE, $ofname) or die "Can't open output file";
-while($line=<EINGABE>){
- if($line =~ /^\\embed{(\d+)\}/){
- $embedded=$1;
- print AUSGABE "$line";
- }elsif($line =~ /^\\eean\{(\d+)\}(.*)/){
- # embedded EAN
- $embtmp=substr($embedded,0,12-length($1));
- $mycod=$embtmp . $1;
- $eastring=eancod($mycod);
- print AUSGABE "\\EAN{$eastring}$2 % embedded($1)\n";
- }elsif ($line =~ /^\\ean\{(\d+)\}(.*)/){
- # normal ean
- $eastring=eancod($1);
- print AUSGABE "\\EAN{$eastring}$2 %($1)\n";
- }elsif($line =~ /^\\isbn\{([\dxX]+)\}(.*)/){
- # isbn to be embedded
- $embtmp=substr($1,0,9);
- $mycod='978' . $embtmp;
- $eastring=eancod($mycod);
- print AUSGABE "\\EAN{$eastring}$2 % ISBN($1)\n";
- }elsif($line =~ /^\\cxxviii\{(.+)\}(.*)/){
- # code 128
- $eastring=codcxxviii($1);
- print AUSGABE "\\CXXVIII $eastring $2 % Code128($1)\n";
- }elsif($line =~ /^\\xciii\{(.+)\}(.*)/){
- # code 93
- $eastring=codxciii($1);
- print AUSGABE "\\XCIII{$eastring}$2 % Code93($1)\n";
- }else {
- print AUSGABE $line
- };
-}
-
-##################################################
-# we're done, so we do some cleanup and quit.
-close (EINGABE);
-close (AUSGABE);
-print "Done.\n";
-
-##################################################
-# what we do here is called
-# 'falling off the edge of the world'
-# in the camel book.
-##################################################
diff --git a/Master/texmf-dist/source/fonts/barcode2/wlcdb.vpl b/Master/texmf-dist/source/fonts/barcode2/wlcdb.vpl
deleted file mode 100644
index 6beb186f4a9..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/wlcdb.vpl
+++ /dev/null
@@ -1,231 +0,0 @@
-(FAMILY BARCODE)
-(DESIGNSIZE D 12)
-(DESIGNUNITS D 14)
-(COMMENT written by Peter Willadt August 16, 1997)
-(COMMENT Sorry, e,n,t and star not coded)
-(COMMENT Use @ as delimiter)
-(FONTDIMEN
- (SLANT R 0)
- (SPACE D 10)
- (SHRINK D 0)
- (STRETCH D 0)
- (XHEIGHT R 10)
- (QUAD D 10)
- )
-(CHARACTER C 0
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 1
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 2
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 3
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 4
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 5
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 6
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 7
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 8
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C 9
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 45 (COMMENT Minus Sign)
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 36 (COMMENT Dollar)
- (CHARWD D 10) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 58 (COMMENT Colon)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 47 (COMMENT Slash)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 46 (COMMENT Dot)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 43 (COMMENT Plus Sign)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C a (COMMENT Start a)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C b (COMMENT Start b)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C c (COMMENT Start c)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C d (COMMENT Start d)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C t (COMMENT Stop t)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C n (COMMENT Stop n)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 42 (COMMENT Stop Star)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C e (COMMENT Stop e)
- (CHARWD D 11) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- (SETRULE R 16 R 1)(MOVERIGHT R 2)
- (SETRULE R 16 R 2)(MOVERIGHT R 2)
- (SETRULE R 16 R 1)(MOVERIGHT R 1)
- )
- )
-
diff --git a/Master/texmf-dist/source/fonts/barcode2/wlcf39.vpl b/Master/texmf-dist/source/fonts/barcode2/wlcf39.vpl
deleted file mode 100644
index d81f877a55b..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/wlcf39.vpl
+++ /dev/null
@@ -1,1334 +0,0 @@
-(COMMENT Code 39, full ascii version)
-(COMMENT written by Peter Willadt, 1998-04-22)
-(COMMENT Start-Stop sign is character 128, also mapped to @@)
-(FAMILY BARCODE)
-(DESIGNSIZE D 12)
-(DESIGNUNITS D 13)
-(CODINGSCHEME ASCII)
-(SEVENBITSAFEFLAG FALSE)
-(FONTDIMEN
- (SLANT R 0)
- (SPACE D 14)
- (SHRINK D 0)
- (STRETCH D 0)
- (XHEIGHT R 10)
- (QUAD D 14)
- )
-(MAPFONT D 0 (FONTNAME wlcf39))
-(LIGTABLE
- (LABEL C @)
- (LIG C @ D 128)
- (STOP)
- (LABEL C $)
- (LIG/> C A D 129) (COMMENT replace by char 129 if followed by A)
- (LIG/> C B D 129) (COMMENT replace by char 129 if followed by B)
- (LIG/> C C D 129)
- (LIG/> C D D 129)
- (LIG/> C E D 129)
- (LIG/> C F D 129)
- (LIG/> C G D 129)
- (LIG/> C H D 129)
- (LIG/> C I D 129)
- (LIG/> C J D 129)
- (LIG/> C K D 129)
- (LIG/> C L D 129)
- (LIG/> C M D 129)
- (LIG/> C N D 129)
- (LIG/> C O D 129)
- (LIG/> C P D 129)
- (LIG/> C Q D 129)
- (LIG/> C R D 129)
- (LIG/> C S D 129)
- (LIG/> C T D 129)
- (LIG/> C U D 129)
- (LIG/> C V D 129)
- (LIG/> C W D 129)
- (LIG/> C X D 129)
- (LIG/> C Y D 129)
- (LIG/> C Z D 129)
- (STOP)
- (LABEL C /)
- (LIG/> C A D 130) (COMMENT replace by char 130 if followed by A)
- (LIG/> C B D 130) (COMMENT replace by char 130 if followed by B)
- (LIG/> C C D 130)
- (LIG/> C D D 130)
- (LIG/> C E D 130)
- (LIG/> C F D 130)
- (LIG/> C G D 130)
- (LIG/> C H D 130)
- (LIG/> C I D 130)
- (LIG/> C J D 130)
- (LIG/> C K D 130)
- (LIG/> C L D 130)
- (LIG/> C M D 130)
- (LIG/> C N D 130)
- (LIG/> C O D 130)
- (LIG/> C P D 130)
- (LIG/> C Q D 130)
- (LIG/> C R D 130)
- (LIG/> C S D 130)
- (LIG/> C T D 130)
- (LIG/> C U D 130)
- (LIG/> C V D 130)
- (LIG/> C W D 130)
- (LIG/> C X D 130)
- (LIG/> C Y D 130)
- (LIG/> C Z D 130)
- (STOP)
- (LABEL C +)
- (LIG/> C A D 131) (COMMENT replace by char 131 if followed by A)
- (LIG/> C B D 131) (COMMENT replace by char 131 if followed by B)
- (LIG/> C C D 131)
- (LIG/> C D D 131)
- (LIG/> C E D 131)
- (LIG/> C F D 131)
- (LIG/> C G D 131)
- (LIG/> C H D 131)
- (LIG/> C I D 131)
- (LIG/> C J D 131)
- (LIG/> C K D 131)
- (LIG/> C L D 131)
- (LIG/> C M D 131)
- (LIG/> C N D 131)
- (LIG/> C O D 131)
- (LIG/> C P D 131)
- (LIG/> C Q D 131)
- (LIG/> C R D 131)
- (LIG/> C S D 131)
- (LIG/> C T D 131)
- (LIG/> C U D 131)
- (LIG/> C V D 131)
- (LIG/> C W D 131)
- (LIG/> C X D 131)
- (LIG/> C Y D 131)
- (LIG/> C Z D 131)
- (STOP)
- (LABEL C %)
- (LIG/> C A D 132) (COMMENT replace by char 132 if followed by A)
- (LIG/> C B D 132) (COMMENT replace by char 132 if followed by B)
- (LIG/> C C D 132)
- (LIG/> C D D 132)
- (LIG/> C E D 132)
- (LIG/> C F D 132)
- (LIG/> C G D 132)
- (LIG/> C H D 132)
- (LIG/> C I D 132)
- (LIG/> C J D 132)
- (LIG/> C K D 132)
- (LIG/> C L D 132)
- (LIG/> C M D 132)
- (LIG/> C N D 132)
- (LIG/> C O D 132)
- (LIG/> C P D 132)
- (LIG/> C Q D 132)
- (LIG/> C R D 132)
- (LIG/> C S D 132)
- (LIG/> C T D 132)
- (LIG/> C U D 132)
- (LIG/> C V D 132)
- (LIG/> C W D 132)
- (LIG/> C X D 132)
- (LIG/> C Y D 132)
- (LIG/> C Z D 132)
- (STOP)
- )
-(CHARACTER D 0
- (COMMENT NUL made from percent U)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C U )
- )
- )
-(CHARACTER D 1
- (COMMENT SOH made from dollar A)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C A )
- )
- )
-(CHARACTER D 2
- (COMMENT STX made from dollar B)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C B )
- )
- )
-(CHARACTER D 3
- (COMMENT ETX made from dollar C)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C C )
- )
- )
-(CHARACTER D 4
- (COMMENT EOT made from dollar D)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C D )
- )
- )
-(CHARACTER D 5
- (COMMENT ENQ made from dollar E)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C E )
- )
- )
-(CHARACTER D 6
- (COMMENT ACK made from dollar F)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C F )
- )
- )
-(CHARACTER D 7
- (COMMENT BEL made from dollar G)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C G )
- )
- )
-(CHARACTER D 8
- (COMMENT BS made from dollar H)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C H )
- )
- )
-(CHARACTER D 9
- (COMMENT Tab made from dollar I)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C I )
- )
- )
-(CHARACTER D 10
- (COMMENT LF made from dollar J)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C J )
- )
- )
-(CHARACTER D 11
- (COMMENT VTAB made from dollar K)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C K )
- )
- )
-(CHARACTER D 12
- (COMMENT FF made from dollar L)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C L )
- )
- )
-(CHARACTER D 13
- (COMMENT CR made from dollar M)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C M )
- )
- )
-(CHARACTER D 14
- (COMMENT SO made from dollar N)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C N )
- )
- )
-(CHARACTER D 15
- (COMMENT SI made from dollar O (O like Oppossum, not like zerO))
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR D 79)
- )
- )
-(CHARACTER D 16
- (COMMENT DLE made from dollar P)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C P )
- )
- )
-(CHARACTER D 17
- (COMMENT DC1 made from dollar Q)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C Q )
- )
- )
-(CHARACTER D 18
- (COMMENT DC2 made from dollar R)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C R )
- )
- )
-(CHARACTER D 19
- (COMMENT DC3 made from dollar S)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C S )
- )
- )
-(CHARACTER D 20
- (COMMENT DC4 made from dollar T)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C T )
- )
- )
-(CHARACTER D 21
- (COMMENT NAK made from dollar U)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C U )
- )
- )
-(CHARACTER D 22
- (COMMENT SY made from dollar V)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C V )
- )
- )
-(CHARACTER D 23
- (COMMENT EB made from dollar W)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C W )
- )
- )
-(CHARACTER D 24
- (COMMENT CN made from dollar X)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C X )
- )
- )
-(CHARACTER D 25
- (COMMENT EM made from dollar Y)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C Y )
- )
- )
-(CHARACTER D 26
- (COMMENT SB made from dollar Z)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 36)
- (SETCHAR C Z )
- )
- )
-(CHARACTER D 27
- (COMMENT ESC made from percent A)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C A )
- )
- )
-(CHARACTER D 28
- (COMMENT FS made from percent B)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C B )
- )
- )
-(CHARACTER D 29
- (COMMENT GS made from percent C)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C C )
- )
- )
-(CHARACTER D 30
- (COMMENT RS made from percent D)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C D )
- )
- )
-(CHARACTER D 31
- (COMMENT US made from percent E)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C E )
- )
- )
-(CHARACTER D 32
- (COMMENT SPC)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 33
- (COMMENT exclamation made from slash A)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C A )
- )
- )
-(CHARACTER D 34
- (COMMENT double quotes made from slash B)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C B )
- )
- )
-(CHARACTER D 35
- (COMMENT number sign made from slash C)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C C )
- )
- )
-(CHARACTER D 36
- (COMMENT dollar)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 37
- (COMMENT percent)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 38
- (COMMENT ampersand made from slash F)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C F )
- )
- )
-(CHARACTER D 39
- (COMMENT quote made from slash G)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C G )
- )
- )
-(CHARACTER D 40
- (COMMENT open brace made from slash H)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C H )
- )
- )
-(CHARACTER D 41
- (COMMENT close brace made from slash I)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C I )
- )
- )
-(CHARACTER D 42
- (COMMENT asterisk made from slash J)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C J )
- )
- )
-(CHARACTER D 43
- (COMMENT plus)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 44
- (COMMENT comma made from slash L)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C L )
- )
- )
-(CHARACTER D 45
- (COMMENT minus)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 46
- (COMMENT dot)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 47
- (COMMENT slash)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 48
- (COMMENT Digit 0)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 49
- (COMMENT digit 1)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 50
- (COMMENT digit 2)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 51
- (COMMENT digit 3)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 52
- (COMMENT digit 4)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 53
- (COMMENT digit 5)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 54
- (COMMENT digit 6)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 55
- (COMMENT digit 7)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 56
- (COMMENT digit 8)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 57
- (COMMENT digit 9)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 58
- (COMMENT colon made from slash Z)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 47)
- (SETCHAR C Z )
- )
- )
-(CHARACTER D 59
- (COMMENT semicolon made from percent F)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C F )
- )
- )
-(CHARACTER D 60
- (COMMENT less made from percent G)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C G )
- )
- )
-(CHARACTER D 61
- (COMMENT equal made from percent H)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C H )
- )
- )
-(CHARACTER D 62
- (COMMENT greater made from percent I)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C I )
- )
- )
-(CHARACTER D 63
- (COMMENT question mark made from percent J)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C J )
- )
- )
-(CHARACTER D 64
- (COMMENT @ made from percent V)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C V )
- )
- )
-(CHARACTER C A
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C B
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C C
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C D
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C E
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C F
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C G
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C H
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C I
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C J
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C K
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C L
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C M
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C N
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C O
- (COMMENT uppercase letter O like in Oppossum, not zerO)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C P
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C Q
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C R
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C S
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C T
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C U
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C V
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C W
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C X
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C Y
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 2)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER C Z
- (COMMENT uppercase letter)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 91
- (COMMENT open bracket made from percent K)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C K )
- )
- )
-(CHARACTER D 92
- (COMMENT backslash made from percent L)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C L )
- )
- )
-(CHARACTER D 93
- (COMMENT close bracket made from percent M)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C M )
- )
- )
-(CHARACTER D 94
- (COMMENT hat made from percent N)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C N )
- )
- )
-(CHARACTER D 95
- (COMMENT underbar made from percent Oh (like in Oppossum, not like zero))
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C O )
- )
- )
-(CHARACTER D 96
- (COMMENT open single quote made from percent W)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C W )
- )
- )
-(CHARACTER C a
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C A)
- )
- )
-(CHARACTER C b
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C B)
- )
- )
-(CHARACTER C c
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C C)
- )
- )
-(CHARACTER C d
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C D)
- )
- )
-(CHARACTER C e
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C E)
- )
- )
-(CHARACTER C f
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C F)
- )
- )
-(CHARACTER C g
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C G)
- )
- )
-(CHARACTER C h
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C H)
- )
- )
-(CHARACTER C i
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C I)
- )
- )
-(CHARACTER C j
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C J)
- )
- )
-(CHARACTER C k
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C K)
- )
- )
-(CHARACTER C l
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C L)
- )
- )
-(CHARACTER C m
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C M)
- )
- )
-(CHARACTER C n
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C N)
- )
- )
-(CHARACTER C o
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C O)
- )
- )
-(CHARACTER C p
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C P)
- )
- )
-(CHARACTER C q
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C Q)
- )
- )
-(CHARACTER C r
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C R)
- )
- )
-(CHARACTER C s
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C S)
- )
- )
-(CHARACTER C t
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C T)
- )
- )
-(CHARACTER C u
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C U)
- )
- )
-(CHARACTER C v
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C V)
- )
- )
-(CHARACTER C w
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C W)
- )
- )
-(CHARACTER C x
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C X)
- )
- )
-(CHARACTER C y
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C Y)
- )
- )
-(CHARACTER C z
- (COMMENT lowercase letter made from + and uppercase letter)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C +)
- (SETCHAR C Z)
- )
- )
-(CHARACTER D 123
- (COMMENT open curly made from percent P)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C P)
- )
- )
-(CHARACTER D 124
- (COMMENT pipeline made from percent Q)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C Q)
- )
- )
-(CHARACTER D 125
- (COMMENT close curly made from percent R)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C R)
- )
- )
-(CHARACTER D 126
- (COMMENT tilde made from percent S)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C S)
- )
- )
-(CHARACTER D 127
- (COMMENT DEL made from percent T)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR D 37)
- (SETCHAR C T)
- )
- )
-(CHARACTER D 128
- (COMMENT start/stop sign)
- (CHARWD D 13) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETRULE R 13 R 1)(MOVERIGHT R 2)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 2)(MOVERIGHT R 1)
- (SETRULE R 13 R 1)(MOVERIGHT R 1)
- )
- )
-(COMMENT the following characters are used instead of the
- real characters by the ligature program if use of the real
- characters would lead to a misinterpretation)
-(CHARACTER D 129
- (COMMENT dollar made from slash D)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C /)
- (SETCHAR C D)
- )
- )
-(CHARACTER D 130
- (COMMENT slash made from slash O (O like oppossum, not like zerO))
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C /)
- (SETCHAR C O)
- )
- )
-(CHARACTER D 131
- (COMMENT plus made from slash K)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C /)
- (SETCHAR C K)
- )
- )
-(CHARACTER D 132
- (COMMENT percent made from slash E)
- (CHARWD D 26) (CHARHT D 13) (CHARDP R 0) (CHARIC R 0)
- (MAP
- (SETCHAR C /)
- (SETCHAR C E)
- )
- )
-(COMMENT EndOfFile)
diff --git a/Master/texmf-dist/source/fonts/barcode2/wlitf.vpl b/Master/texmf-dist/source/fonts/barcode2/wlitf.vpl
deleted file mode 100644
index fe1e42ac6b0..00000000000
--- a/Master/texmf-dist/source/fonts/barcode2/wlitf.vpl
+++ /dev/null
@@ -1,1363 +0,0 @@
-(FAMILY BARCODE)
-(DESIGNSIZE D 12)
-(DESIGNUNITS D 14)
-(COMMENT written by Peter Willadt August 16, 1997)
-(COMMENT updated 1997-11-08 shrunk start/stop-signs)
-(COMMENT updated 1998-04-21 fixed 06 - 07 bug)
-(FONTDIMEN
- (SLANT R 0)
- (SPACE D 14)
- (SHRINK D 0)
- (STRETCH D 0)
- (XHEIGHT R 10)
- (QUAD D 14)
- )
-(LIGTABLE
- (LABEL C 0)
- (LIG C 0 D 1)
- (LIG C 1 D 2)
- (LIG C 2 D 3)
- (LIG C 3 D 4)
- (LIG C 4 D 5)
- (LIG C 5 D 6)
- (LIG C 6 D 7)
- (LIG C 7 D 8)
- (LIG C 8 D 9)
- (LIG C 9 D 10)
- (STOP)
- (LABEL C 1)
- (LIG C 0 D 11)
- (LIG C 1 D 12)
- (LIG C 2 D 13)
- (LIG C 3 D 14)
- (LIG C 4 D 15)
- (LIG C 5 D 16)
- (LIG C 6 D 17)
- (LIG C 7 D 18)
- (LIG C 8 D 19)
- (LIG C 9 D 20)
- (STOP)
- (LABEL C 2)
- (LIG C 0 D 21)
- (LIG C 1 D 22)
- (LIG C 2 D 23)
- (LIG C 3 D 24)
- (LIG C 4 D 25)
- (LIG C 5 D 26)
- (LIG C 6 D 27)
- (LIG C 7 D 28)
- (LIG C 8 D 29)
- (LIG C 9 D 30)
- (STOP)
- (LABEL C 3)
- (LIG C 0 D 31)
- (LIG C 1 D 32)
- (LIG C 2 D 33)
- (LIG C 3 D 34)
- (LIG C 4 D 35)
- (LIG C 5 D 36)
- (LIG C 6 D 37)
- (LIG C 7 D 38)
- (LIG C 8 D 39)
- (LIG C 9 D 40)
- (STOP)
- (LABEL C 4)
- (LIG C 0 D 61)
- (LIG C 1 D 62)
- (LIG C 2 D 63)
- (LIG C 3 D 64)
- (LIG C 4 D 65)
- (LIG C 5 D 66)
- (LIG C 6 D 67)
- (LIG C 7 D 68)
- (LIG C 8 D 69)
- (LIG C 9 D 70)
- (STOP)
- (LABEL C 5)
- (LIG C 0 D 71)
- (LIG C 1 D 72)
- (LIG C 2 D 73)
- (LIG C 3 D 74)
- (LIG C 4 D 75)
- (LIG C 5 D 76)
- (LIG C 6 D 77)
- (LIG C 7 D 78)
- (LIG C 8 D 79)
- (LIG C 9 D 80)
- (STOP)
- (LABEL C 6)
- (LIG C 0 D 81)
- (LIG C 1 D 82)
- (LIG C 2 D 83)
- (LIG C 3 D 84)
- (LIG C 4 D 85)
- (LIG C 5 D 86)
- (LIG C 6 D 87)
- (LIG C 7 D 88)
- (LIG C 8 D 89)
- (LIG C 9 D 90)
- (STOP)
- (LABEL C 7)
- (LIG C 0 D 91)
- (LIG C 1 D 92)
- (LIG C 2 D 93)
- (LIG C 3 D 94)
- (LIG C 4 D 95)
- (LIG C 5 D 96)
- (LIG C 6 D 97)
- (LIG C 7 D 98)
- (LIG C 8 D 99)
- (LIG C 9 D 100)
- (STOP)
- (LABEL C 8)
- (LIG C 0 D 101)
- (LIG C 1 D 102)
- (LIG C 2 D 103)
- (LIG C 3 D 104)
- (LIG C 4 D 105)
- (LIG C 5 D 106)
- (LIG C 6 D 107)
- (LIG C 7 D 108)
- (LIG C 8 D 109)
- (LIG C 9 D 110)
- (STOP)
- (LABEL C 9)
- (LIG C 0 D 111)
- (LIG C 1 D 112)
- (LIG C 2 D 113)
- (LIG C 3 D 114)
- (LIG C 4 D 115)
- (LIG C 5 D 116)
- (LIG C 6 D 117)
- (LIG C 7 D 118)
- (LIG C 8 D 119)
- (LIG C 9 D 120)
- (STOP)
- )
-(CHARACTER D 1
- (COMMENT 0 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 2
- (COMMENT 0 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 3
- (COMMENT 0 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 4
- (COMMENT 0 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 5
- (COMMENT 0 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 6
- (COMMENT 0 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 7
- (COMMENT 0 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 8
- (COMMENT 0 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 9
- (COMMENT 0 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 10
- (COMMENT 0 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 11
- (COMMENT 1 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 12
- (COMMENT 1 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 13
- (COMMENT 1 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 14
- (COMMENT 1 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 15
- (COMMENT 1 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 16
- (COMMENT 1 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 17
- (COMMENT 1 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 18
- (COMMENT 1 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 19
- (COMMENT 1 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 20
- (COMMENT 1 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 21
- (COMMENT 2 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 22
- (COMMENT 2 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 23
- (COMMENT 2 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 24
- (COMMENT 2 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 25
- (COMMENT 2 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 26
- (COMMENT 2 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 27
- (COMMENT 2 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 28
- (COMMENT 2 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 29
- (COMMENT 2 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 30
- (COMMENT 2 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 31
- (COMMENT 3 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 32
- (COMMENT 3 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 33
- (COMMENT 3 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 34
- (COMMENT 3 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 35
- (COMMENT 3 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 36
- (COMMENT 3 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 37
- (COMMENT 3 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 38
- (COMMENT 3 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 39
- (COMMENT 3 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 40
- (COMMENT 3 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 43
- (COMMENT Start+)
- (CHARWD D 5) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 45
- (COMMENT Stop-)
- (CHARWD D 5) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D48
- (COMMENT Fake numeric 0 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D49
- (COMMENT Fake numeric 1 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D50
- (COMMENT Fake numeric 2 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D51
- (COMMENT Fake numeric 3 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D52
- (COMMENT Fake numeric 4 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D53
- (COMMENT Fake numeric 5 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D54
- (COMMENT Fake numeric 6 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D55
- (COMMENT Fake numeric 7 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D56
- (COMMENT Fake numeric 8 for LIG Processing)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D57
- (COMMENT Fake numeric 9 for LIG Processing)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 61
- (COMMENT 4 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 62
- (COMMENT 4 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 63
- (COMMENT 4 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 64
- (COMMENT 4 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 65
- (COMMENT 4 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 66
- (COMMENT 4 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 67
- (COMMENT 4 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 68
- (COMMENT 4 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 69
- (COMMENT 4 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 70
- (COMMENT 4 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 71
- (COMMENT 5 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 72
- (COMMENT 5 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 73
- (COMMENT 5 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 74
- (COMMENT 5 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 75
- (COMMENT 5 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 76
- (COMMENT 5 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 77
- (COMMENT 5 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 78
- (COMMENT 5 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 79
- (COMMENT 5 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 80
- (COMMENT 5 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 81
- (COMMENT 6 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 82
- (COMMENT 6 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 83
- (COMMENT 6 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 84
- (COMMENT 6 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 85
- (COMMENT 6 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 86
- (COMMENT 6 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 87
- (COMMENT 6 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 88
- (COMMENT 6 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 89
- (COMMENT 6 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 90
- (COMMENT 6 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 91
- (COMMENT 7 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 92
- (COMMENT 7 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 93
- (COMMENT 7 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 94
- (COMMENT 7 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 95
- (COMMENT 7 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 96
- (COMMENT 7 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 97
- (COMMENT 7 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 98
- (COMMENT 7 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 99
- (COMMENT 7 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 100
- (COMMENT 7 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 101
- (COMMENT 8 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 102
- (COMMENT 8 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 103
- (COMMENT 8 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 104
- (COMMENT 8 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 105
- (COMMENT 8 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 106
- (COMMENT 8 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 107
- (COMMENT 8 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 108
- (COMMENT 8 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 109
- (COMMENT 8 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 110
- (COMMENT 8 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 111
- (COMMENT 9 and 0)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 112
- (COMMENT 9 and 1)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 113
- (COMMENT 9 and 2)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 114
- (COMMENT 9 and 3)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 115
- (COMMENT 9 and 4)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 116
- (COMMENT 9 and 5)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 117
- (COMMENT 9 and 6)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 118
- (COMMENT 9 and 7)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- )
- )
-(CHARACTER D 119
- (COMMENT 9 and 8)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 2)
- (SETRULE R 14 R 2)(MOVERIGHT R 1)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(CHARACTER D 120
- (COMMENT 9 and 9)
- (CHARWD D 14) (CHARHT R 14) (CHARDP R 0) (CHARIC R 0.0)
- (MAP
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- (SETRULE R 14 R 2)(MOVERIGHT R 2)
- (SETRULE R 14 R 1)(MOVERIGHT R 1)
- )
- )
-(COMMENT EndOfFile)