summaryrefslogtreecommitdiff
path: root/fonts/barcodes
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/barcodes
Initial commit
Diffstat (limited to 'fonts/barcodes')
-rw-r--r--fonts/barcodes/vulis/barcodes.mf269
-rw-r--r--fonts/barcodes/willadt/README82
-rw-r--r--fonts/barcodes/willadt/barcodes.dtx2590
-rw-r--r--fonts/barcodes/willadt/barcodes.ins55
-rw-r--r--fonts/barcodes/willadt/changes7
-rw-r--r--fonts/barcodes/willadt/codean.pl492
-rw-r--r--fonts/barcodes/willadt/eandoc.pdfbin0 -> 118806 bytes
-rw-r--r--fonts/barcodes/willadt/install.bat108
-rw-r--r--fonts/barcodes/willadt/wlcdb.vpl231
-rw-r--r--fonts/barcodes/willadt/wlcf39.vpl1334
-rw-r--r--fonts/barcodes/willadt/wlitf.vpl1363
11 files changed, 6531 insertions, 0 deletions
diff --git a/fonts/barcodes/vulis/barcodes.mf b/fonts/barcodes/vulis/barcodes.mf
new file mode 100644
index 0000000000..1e9f1fe679
--- /dev/null
+++ b/fonts/barcodes/vulis/barcodes.mf
@@ -0,0 +1,269 @@
+%NAME: barcodes.mf
+% 10-Nov-87 14:05:55-PST,10055;000000000000
+% Return-Path: <CLDLV%NASAGISS.BITNET@forsythe.stanford.edu>
+% Date: Tue, 10 Nov 87 15:46:49 EDT
+% From: Dimitri Vulis <CLDLV%NASAGISS.BITNET@forsythe.stanford.edu>
+% Subject: Foo (bar codes)
+%
+% Dear Malcolm: I believe that the following file would of general
+% interest, but I think it's too long for the digest:
+%
+% I was amazed to find out that business people pay enormous money for the
+% ability to produce bar codes. This ought to be TRIVIAL with \TeX.
+% So, I got hold of a public domain BASIC program that supposedly does that and
+% lifted the codes and put them into METAFONT (it was EASY). Caveat(s): I have
+% never tested these codes with an OCR. The BASIC program said it used `3 of 9'
+% encoding. I presume it's not the same as UPC. The sizes may be off---I
+% took them from the BASIC program that used HP LJ's 100dpi graphics mode.
+% Disclaimer: I haven't tested these codes. Use them at your own risk.
+% Remarks:
+% 1) White space is a displayable character.
+% 2) There are 9 significant strips, bwbwbwbwb; 3 of them are wide.
+% 3) The white_naro; at the end of each code is the inter-code spacing.
+% Credits: the original BASIC program was written by `Bill Wood Mil., WI' and
+% later re-written by `Bill Baines, Enfield, CT.'. METAFONT version is by
+% `Dimitri Vulis CLDLV@NASAGISS.BITNET'
+mode_setup;
+font_identifier "DVBar"; font_size .35in#;
+naro#:=.01in#; % narrow strip width
+wide#:=3naro#; % wide strip width
+wdth#:=3wide#+7naro#; % common width of all codes
+hght#:=.35in#; % common height of all codes
+define_pixels(naro,wide,wdth,hght);
+def white_naro=
+ wid:=wid+naro;
+enddef;
+def black_naro=
+ filldraw (wid,0)--(wid,hght)--(wid+naro,hght)--(wid+naro,0)--cycle;
+ wid:=wid+naro;
+enddef;
+def white_wide=
+ wid:=wid+wide;
+enddef;
+def black_wide=
+ filldraw (wid,0)--(wid,hght)--(wid+wide,hght)--(wid+wide,0)--cycle;
+ wid:=wid+wide;
+enddef;
+beginchar("1",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_wide; black_naro;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("2",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_wide; black_naro;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("3",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_wide; white_wide; black_naro;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("4",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_wide; black_wide;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("5",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_wide; black_wide;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("6",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_wide; black_wide;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("7",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_wide; black_naro;
+white_naro; black_wide; white_naro; black_wide; white_naro;
+endchar;
+beginchar("8",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_wide; black_naro;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("9",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_wide; black_naro;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("0",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_wide; black_wide;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("A",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_naro;
+white_wide; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("B",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_naro;
+white_wide; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("C",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_wide; white_naro; black_naro;
+white_wide; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("D",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_wide;
+white_wide; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("E",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_wide;
+white_wide; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("F",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_wide;
+white_wide; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("G",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_naro;
+white_wide; black_wide; white_naro; black_wide; white_naro;
+endchar;
+beginchar("H",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_naro;
+white_wide; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("I",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_naro;
+white_wide; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("J",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_wide;
+white_wide; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("K",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_naro;
+white_naro; black_naro; white_wide; black_wide; white_naro;
+endchar;
+beginchar("L",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_naro;
+white_naro; black_naro; white_wide; black_wide; white_naro;
+endchar;
+beginchar("M",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_wide; white_naro; black_naro;
+white_naro; black_naro; white_wide; black_naro; white_naro;
+endchar;
+beginchar("N",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_wide;
+white_naro; black_naro; white_wide; black_wide; white_naro;
+endchar;
+beginchar("O",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_wide;
+white_naro; black_naro; white_wide; black_naro; white_naro;
+endchar;
+beginchar("P",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_wide;
+white_naro; black_naro; white_wide; black_naro; white_naro;
+endchar;
+beginchar("Q",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_naro;
+white_naro; black_wide; white_wide; black_wide; white_naro;
+endchar;
+beginchar("R",wdth#,hght#,0);
+wid:=0;
+black_wide; white_naro; black_naro; white_naro; black_naro;
+white_naro; black_wide; white_wide; black_naro; white_naro;
+endchar;
+beginchar("S",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_wide; white_naro; black_naro;
+white_naro; black_wide; white_wide; black_naro; white_naro;
+endchar;
+beginchar("T",wdth#,hght#,0);
+wid:=0;
+black_naro; white_naro; black_naro; white_naro; black_wide;
+white_naro; black_wide; white_wide; black_naro; white_naro;
+endchar;
+beginchar("U",wdth#,hght#,0);
+wid:=0;
+black_wide; white_wide; black_naro; white_naro; black_naro;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("V",wdth#,hght#,0);
+wid:=0;
+black_naro; white_wide; black_wide; white_naro; black_naro;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("W",wdth#,hght#,0);
+wid:=0;
+black_wide; white_wide; black_wide; white_naro; black_naro;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("X",wdth#,hght#,0);
+wid:=0;
+black_naro; white_wide; black_naro; white_naro; black_wide;
+white_naro; black_naro; white_naro; black_wide; white_naro;
+endchar;
+beginchar("Y",wdth#,hght#,0);
+wid:=0;
+black_wide; white_wide; black_naro; white_naro; black_wide;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("Z",wdth#,hght#,0);
+wid:=0;
+black_naro; white_wide; black_wide; white_naro; black_wide;
+white_naro; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("-",wdth#,hght#,0); % minus
+wid:=0;
+black_naro; white_wide; black_naro; white_naro; black_naro;
+white_naro; black_wide; white_naro; black_wide; white_naro;
+endchar;
+beginchar(".",wdth#,hght#,0); %period
+wid:=0;
+black_wide; white_wide; black_naro; white_naro; black_naro;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar(" ",wdth#,hght#,0); %white space
+wid:=0;
+black_naro; white_wide; black_wide; white_naro; black_naro;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("*",wdth#,hght#,0); %ascii asterisk
+wid:=0;
+black_naro; white_wide; black_naro; white_naro; black_wide;
+white_naro; black_wide; white_naro; black_naro; white_naro;
+endchar;
+beginchar("$",wdth#,hght#,0); %dollar sign
+wid:=0;
+black_naro; white_wide; black_naro; white_wide; black_naro;
+white_wide; black_naro; white_naro; black_naro; white_naro;
+endchar;
+beginchar("/",wdth#,hght#,0); %forward slash
+wid:=0;
+black_naro; white_wide; black_naro; white_wide; black_naro;
+white_naro; black_naro; white_wide; black_naro; white_naro;
+endchar;
+beginchar("+",wdth#,hght#,0); %plus
+wid:=0;
+black_naro; white_wide; black_naro; white_naro; black_naro;
+white_wide; black_naro; white_wide; black_naro; white_naro;
+endchar;
+beginchar("%",wdth#,hght#,0); %percent sign
+wid:=0;
+black_naro; white_naro; black_naro; white_wide; black_naro;
+white_wide; black_naro; white_wide; black_naro; white_naro;
+endchar;
+end; %all done
+
+
diff --git a/fonts/barcodes/willadt/README b/fonts/barcodes/willadt/README
new file mode 100644
index 0000000000..4a55530975
--- /dev/null
+++ b/fonts/barcodes/willadt/README
@@ -0,0 +1,82 @@
+This package consists of
+ BCFAQ.TEX (* Some more documentation)
+ BARCODES.STY (* some macros for barcoding)
+ CODE39.TEX (* macros in TeX for producing code 39 barcode,
+ documented in itself)
+ CODEAN.PL ( Preprocessor for EAN, code 93 and code 128 (Perl code))
+ EANDOC.TEX (* Documentation for WLEAN.MF and CODEAN.PL)
+ EXAMPLES.TEX (* demo sheet showing the use of all barcode fonts)
+ INSTALL.BAT ( installation routine for dos/windows TDS systems)
+ WLC128.MF (* Raw Code 128 in Metafont format)
+ WLC39.MF (* Metafont source for Code 39)
+ WLC93.MF (* Metafont source for Code 93)
+ WLC11.MF (* Metafont source for Code 11)
+ WLEAN.MF (* Metafont source for EAN)
+ WLCR39.MF (* Metafont source for Code 39 rotated running down)
+ WLCDB.VPL ( virtual font for codabar barcode)
+ WLITF.VPL ( virtual font for ITF barcode---interleaved
+ 2 of 5)
+ WLCF39.VPL ( virtual full ascii code 39)
+ CHANGES ( text file listing the changes made)
+ README ( this file)
+ BARCODES.INS ( run this through TeX to make the files
+ ( marked above with a star*)
+ BARCODES.DTX ( required by barcodes.ins)
+
+Dos/windows users may run install.bat and skip the next two statements.
+
+At first you should run barcodes.ins through TeX to obtain the files
+marked above with an asterisk.
+
+To use wlitf and/or wlcdb, run it through vptovf, move the tfm and vf
+files, then in TeX say, e.g.
+
+\font\bcfont=wlitf scaled 2000
+{\bcfont+1234-}
+
+for ITF. The second line will print 1234 as ITF barcode.
++ and - make the itf start and stop sign, respectively. Please note
+that ITF requires an even number of digits.
+
+For Code 39, you may use something like
+
+\font\bcfont=wlc39 scaled 2000
+{\bcfont @Hello\char32{}12345@}
+
+This will yield the word Hello, a space and the digits from one to five.
+Please note that the @ is used as start/stop sign in this font.
+
+Code 128 requires wlc128.mf to be copied to a place where metafont can
+find it. Also you should use codean.pl to preprocess your input.
+Read the docs, code 128 is somewhat complicated.
+
+One last example:
+
+\font\bcfont=wlcdb scaled 2000
+{\bcfont a5678t \qquad b2345n \qquad c6789* \qquad d1234e}
+
+The last two code lines show the use of codabar.
+Please note that the start/stop signs for codabar get decoded, too.
+
+Usage ist freely permitted, comments are welcome, any warranty is
+void. If you may find any inconveniences, bugs, or improvements, do
+not hesitate to tell me.
+
+Please note, the package is still far from complete.
+Especially, barcodes.sty needs lots of refinement and some documentation.
+Also, code 93 is not thoroughly tested.
+
+May, 2003
+Peter Willadt
+(email: Willadt@t-online.de)
+
+Legal Notice
+
+This package may be distributed accoring to the terms in the
+LaTeX Project Public License, with the following two additions:
+
+1. If you distribute this package, you must make the LaTeX Project
+Public License available, too.
+
+2. If you find the barcode package useful, please support TUG or
+your local TeX user group.
diff --git a/fonts/barcodes/willadt/barcodes.dtx b/fonts/barcodes/willadt/barcodes.dtx
new file mode 100644
index 0000000000..d86058a657
--- /dev/null
+++ b/fonts/barcodes/willadt/barcodes.dtx
@@ -0,0 +1,2590 @@
+% \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}
+
+All the files in this package are subject to the \LaTeX\ Project Public
+License. Also I got a special wish: If you find this package useful,
+support TUG or your local \TeX\ user group.
+
+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
+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{2003-05-24}
+\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\\
+2003-05-24 & new release with some corrections to codean.pl\\
+ & Thanks to Jacek Ruzycka (uv\_centcom@yahoo.com)\\
+1999-05-29 & added license note to README\\
+1999-05-29 & added install.bat\\
+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\\
+1999-05-29 & added short info about install.bat\\
+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}. As TUGboat is making the elder articles available
+online, I recommend looking for it.
+
+\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{Which Code 39 should I use, there are different versions?}
+
+Well, you may \verb|\input code39| in your \TeX\ document to get the
+macro version. It is absolutely flexible in repect of barcode size and
+so on, but it is made of \TeX\ macros and there are probably
+situations where you may prefer a {\em real} font. So there is {\tt
+wlc39.mf} as a real font, {\tt wlcr39.mf} as a font running sideways,
+and{\tt wlcf39.vpl} as a full ascii code 39 in vpl format. The
+ltter two fonts are experimental, that means, they are not that much
+tested as the others.
+
+I recommend using either the \TeX\ macro or {\tt wlc39.mf}. The others
+are too special for normal use, rotation by the graohics driver is
+mor robust than building towers of letters, and full ascii code~39 is
+less than optimal.
+
+\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.
+
+For the EAN font, search for {\tt bheight\#} and change {\tt22.85
+mm\#} to the height you need. To get an EAN font without the digits
+(bars only), you also have to edit the character definitions by
+leaving out the last lines (saying {\tt nuller;}, e.g. and you have to
+change the formula for calculating {\tt totheight} to not include the
+height of the digits any more, also you should remove any references
+to {\tt klotz}.
+
+\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 the very, very first, check if you really have added start and stop
+codes. If you haven't, you're lost. Then check if you have enabled
+decoding of your special barcodes within your reading device. With
+modern scanners, you can disable almost any coding scheme.
+
+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}.
+
+\subsection{Can't run pdf\TeX\ with barcode fonts}
+
+Get a later version of pdf\TeX, and you're done.
+
+\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}
+
+\section{Installation}
+
+Installation is described within the README file, in short.
+Here I assume that you have a TDS compliant \TeX{} installation
+already running.
+
+Installation consists of several steps:
+
+\begin{enumerate}
+ \item unpack barcodes.dtx by running barcodes.ins through \TeX (I
+guess you have already done that, lest you would not be able to read
+this text), like {\tt tex barcodes.ins}
+\item run {\tt vptovf} on all the vpl files, e.g. type something like
+ {\tt vptovf wlitf.vpl wlitf.vf wlitf.tfm}
+\item if your \TeX\ system does not support automatic generation of
+{\tt tfm} files, run mf on all the .mf files.
+\item move all the files to appropriate locations
+\item install codean.pl for use with Perl
+\item run the documentation through \LaTeX{}
+\item clean up
+\end{enumerate}
+
+Items 1,2,4,6, and part of 7 can be automatically executed on ms-dos or
+ms windows systems by running {\tt install.bat}. If you do not supply
+any parameters, {\tt install} will install to {\tt C:\char92TeXMF}. If
+you do supply a parameter, it should be the path to your TEXMF tree
+(no trailing backslash, please).
+
+Here are the appropriate locations mentioned above -- all of them
+in the TEXMF tree:
+
+\begin{tabular}{ll}
+\em move & \em to\\
+\tt *.mf & \tt fonts/source/public/misc\\
+\tt *.tfm & \tt fonts/tfm/public/misc\\
+\tt *.vf & \tt fonts/vf/public\\
+\tt code39.tex &\tt tex/generic/misc\\
+\tt barcodes.sty &\tt tex/latex/misc\\
+\end{tabular}
+
+Of course other locations might also work, but to me it seems fine
+this way.
+
+Running plain \TeX{} on {\tt examples.tex} is the ultimate test: This
+will only work when all the installation is well done.
+
+The installation of Perl programs is beyond the scope of this
+documentation. If you do not need code 128, you can go without
+{\tt codean.pl}, especially if you use the macros described above.
+
+\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: Please note that for the macro version, you
+have to use the underbar if you want to have a space coded.
+
+\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\xlix=wlc39 scaled 2000
+\font\fntxciii=wlc93 scaled 2000
+\font\itf=wlitf scaled 2000
+\font\cdb=wlcdb scaled 2000
+\font\eanfont=wlean scaled 1200
+\font\fntcxx=wlc128 scaled \magstep3
+%% 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\XCIII#1{\bgroup\fntxciii #1}
+\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
+%%% 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
+%% 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/fonts/barcodes/willadt/barcodes.ins b/fonts/barcodes/willadt/barcodes.ins
new file mode 100644
index 0000000000..ddccd09ea8
--- /dev/null
+++ b/fonts/barcodes/willadt/barcodes.ins
@@ -0,0 +1,55 @@
+\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/fonts/barcodes/willadt/changes b/fonts/barcodes/willadt/changes
new file mode 100644
index 0000000000..48b0bf5cec
--- /dev/null
+++ b/fonts/barcodes/willadt/changes
@@ -0,0 +1,7 @@
+This file documents changes to the barcode package.
+Its purpose is to make updating easier.
+
+2003-05-22 corrections to documentation, fixed codean.pl
+1999-05-28 added install.bat
+1999-05-28 added license
+1998-04-21 fixed wlitf bug
diff --git a/fonts/barcodes/willadt/codean.pl b/fonts/barcodes/willadt/codean.pl
new file mode 100644
index 0000000000..0e3cd01015
--- /dev/null
+++ b/fonts/barcodes/willadt/codean.pl
@@ -0,0 +1,492 @@
+# 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
+#
+# 2003-05-24
+# cleaned up the code in several places and
+# corrected code 93 checksumming due to a hint by
+# Jacek Ruzyczka <uv_centcom@yahoo.com>
+#
+# 2003-05-24
+# removed an error introduced the same day
+#
+# 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
+
+use strict;
+
+use vars qw ( @ABTAB $ifname $ofname );
+# 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);
+ $ofname = '>' . $ofname;
+}
+
+# make an ean
+
+sub eancod{
+ my ($i, $j, $checksum, $disone);
+ 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
+# @cxxlength is the size of this array
+# @ctbl holds the possible codings for these chars
+# @cxxout holds the codes to be output for code 128
+# @cxxoutout holds the codes to be output for code 128
+
+use vars qw ( @cxxchars $cxxlength @ctbl @cxxout @cxxoutout);
+
+##################################################
+# 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; # makes a stop.
+}
+
+##################################################
+# 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){ # nothing to do
+ return $j;
+ }elsif($digitcount<4){
+ # digits here, but unfortunately not enough digits.
+ # so just copy them
+ 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);
+ $lastset =0;
+ $firstdigit=0;
+ $digitcount=0;
+ $j=0;
+ for($i = 0; $i < $cxxlength; $i++){
+ if(($cxxout[$i]>=16)&&($cxxout[$i]<=25)){
+ # it's a number
+ if($digitcount == 0){
+ $firstdigit=$i;
+ }
+ $digitcount++;
+ next;
+ }
+ if($digitcount >0){
+ $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];
+ }else {
+ $lastset=0;
+ }
+ }
+ # $lastset is zero here, as there is no further need
+ # to switch the char set any more - we're at the end
+ $j=pastedigits($digitcount,$j,$firstdigit, 0);
+ return $j;
+}
+
+##################################################
+# code 128 is a little complicated
+# if you have read till here, you already know.
+#
+sub codcxxviii{
+ # locals
+ my ($i, $j, $sum);
+ my $srcstr=shift;
+ # 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();
+ # Start symbols are different from switch symbols
+ 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, $checkchar);
+ $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);
+ $checkchar=substr($cstbl,$sumc%47,1);
+ $srcstr = $srcstr . $checkchar;
+ $srcstr =~ s/\$/\\\$/g;
+ $srcstr =~ s/%/\\%/g;
+ $srcstr =~ s/ /\\char\'040/g;
+ return $srcstr;
+}
+
+##################################################
+# we got both input and output file,
+# we defined all subroutines,
+# so here we go...
+#
+use vars qw ( $line $embedded $embtmp $mycod $eastring);
+
+open(EINGABE, $ifname) or die "No file";
+open(AUSGABE, $ofname) or die "Can't open output file";
+while($line=<EINGABE>){
+ # save 0.0005 (est.) % running time
+ unless ($line =~ /^\\/){
+ print AUSGABE $line;
+ next;
+ }
+ 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/fonts/barcodes/willadt/eandoc.pdf b/fonts/barcodes/willadt/eandoc.pdf
new file mode 100644
index 0000000000..5903a0c508
--- /dev/null
+++ b/fonts/barcodes/willadt/eandoc.pdf
Binary files differ
diff --git a/fonts/barcodes/willadt/install.bat b/fonts/barcodes/willadt/install.bat
new file mode 100644
index 0000000000..3713d0e24a
--- /dev/null
+++ b/fonts/barcodes/willadt/install.bat
@@ -0,0 +1,108 @@
+@echo off
+echo off
+rem Installation of the barcode fonts
+rem willadt 1999-05-29
+rem you have to set the following variable
+rem according to your system
+set TEXMF=C:\TEXMF
+rem further down, you need not change anything
+rem *******************************************
+rem under your TEXMF directory, there should be
+rem /fonts/source/public
+rem /fonts/tfm/public
+rem /fonts/vf/public
+rem /tex/generic/misc
+rem /tex/latex/misc
+rem plain TeX should be run by 'tex filename'
+rem latex2e should be run by 'latex filename'
+rem vptovf should be run by 'vptovf x y z'
+cls
+IF NOT %1a==a SET TEXMF=%1
+echo We are going to install the barcode fonts
+echo to the directory branch %TEXMF%
+echo If you don't want that,
+echo or if this is not correct, press CTRL-BREAK now,
+echo else
+pause
+echo Ok, we're going...
+echo *****************************************************
+echo checking/making directories..........................
+echo ...VF dir
+if not exist %TEXMF%\fonts\vf\public\NUL md %TEXMF%\fonts\vf\public
+if not exist %TEXMF%\fonts\vf\public\NUL goto error
+echo ...MF dir
+if not exist %TEXMF%\fonts\source\public\NUL md %TEXMF%\fonts\source\public
+if not exist %TEXMF%\fonts\source\public\misc\NUL md %TEXMF%\fonts\source\public\misc
+if not exist %TEXMF%\fonts\source\public\misc\NUL goto error
+echo ...TFM dir
+if not exist %TEXMF%\fonts\tfm\public\NUL md %TEXMF%\fonts\tfm\public
+if not exist %TEXMF%\fonts\tfm\public\misc\NUL md %TEXMF%\fonts\tfm\public\misc
+if not exist %TEXMF%\fonts\tfm\public\misc\NUL goto error
+echo ...sty dir
+if not exist %TEXMF%\tex\latex\misc\NUL md %TEXMF%\tex\latex\misc
+if not exist %TEXMF%\tex\latex\misc\NUL goto error
+echo ...tex (generic) dir
+if not exist %TEXMF%\tex\generic\misc\NUL md %TEXMF%\tex\generic\misc
+if not exist %TEXMF%\tex\generic\misc\NUL goto error
+echo *****************************************************
+echo Unpacking............................................
+call tex barcodes.ins
+rem *******************
+rem * at first the vf's
+echo *****************************************************
+echo Making and moving VF files...........................
+FOR %%a IN (wlcdb wlcf39 wlitf) DO vptovf %%a.vpl %%a.vf %%a.tfm
+copy *.vf %TEXMF%\fonts\vf\public
+del wl*.vf
+rem *******************
+rem * then the mf's
+echo *****************************************************
+echo Moving MF files......................................
+copy *.mf %TEXMF%\fonts\source\public\misc
+rem *******************
+rem * then the tfm's
+echo *****************************************************
+echo Moving tfm files.....................................
+copy *.tfm %TEXMF%\fonts\tfm\public\misc
+rem *******************
+rem * TeX files
+echo *****************************************************
+echo Moving .sty files....................................
+copy *.sty %TEXMF%\tex\latex\misc
+rem *******************
+rem * TeX files
+echo *****************************************************
+echo Moving TeX files.....................................
+copy code39.tex %TEXMF%\tex\generic\misc
+rem *******************
+rem * documentation
+echo *****************************************************
+echo Now running LaTeX on the documentation...............
+call latex bcfaq
+call latex bcfaq
+call latex eandoc
+call latex eandoc
+echo *****************************************************
+echo now comes the hardest part:
+echo running the examples file through TeX................
+call tex examples
+goto ende
+:error
+echo *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
+echo There was an error, sorry.
+echo Please install by hand.
+echo *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
+goto schluss
+:ende
+cls
+echo *****************************************************
+echo We're done. Have fun.
+echo You should update your filename database, by the way.
+echo and you will perhaps want to install codean.pl.
+echo If you do not want to have temporary files removed,
+echo press CTRL-BREAK now!
+echo else
+pause
+for %%a in (*.log wl*.vf wl*.tfm) do del %%a
+echo perhaps you can do more cleanup, I'm really done now.
+:schluss
diff --git a/fonts/barcodes/willadt/wlcdb.vpl b/fonts/barcodes/willadt/wlcdb.vpl
new file mode 100644
index 0000000000..6beb186f4a
--- /dev/null
+++ b/fonts/barcodes/willadt/wlcdb.vpl
@@ -0,0 +1,231 @@
+(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/fonts/barcodes/willadt/wlcf39.vpl b/fonts/barcodes/willadt/wlcf39.vpl
new file mode 100644
index 0000000000..d81f877a55
--- /dev/null
+++ b/fonts/barcodes/willadt/wlcf39.vpl
@@ -0,0 +1,1334 @@
+(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/fonts/barcodes/willadt/wlitf.vpl b/fonts/barcodes/willadt/wlitf.vpl
new file mode 100644
index 0000000000..fe1e42ac6b
--- /dev/null
+++ b/fonts/barcodes/willadt/wlitf.vpl
@@ -0,0 +1,1363 @@
+(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)