Subj : barcodes
To   : Jasen Betts
From : mark lewis
Date : Wed Apr 09 2003 11:12 pm

 JB> {for a hard copy, redirect output to a printer capable of
 JB> printing IBM block
 JB>  graphics chars, under windows use "terminal" or one of the
 JB> "dos" fonts.}

 JB> const coding:array['0'..'9','A'..'D',1..6] of char=(
 JB>        {A}      {B}      {C}      {D}
 JB> {0} ('  ## #','#  ###','###  #','AAAAAA'),
 JB> {1} (' ##  #','##  ##','##  ##','AABABB'),
 JB> {2} (' #  ##',' ## ##','## ## ','AABBAB'),
 JB> {3} ('#### #','#    #','#    #','AABBBA'),
 JB> {4} ('#   ##',' ### #','# ### ','ABAABB'),
 JB> {5} ('##   #','###  #','#  ###','ABBAAB'),
 JB> {6} ('# ####','   # #','# #   ','ABBBAA'),
 JB> {7} ('### ##',' #   #','#   # ','ABABAB'),
 JB> {8} ('## ###','  #  #','#  #  ','ABABBA'),
 JB> {9} ('  # ##',' # ###','### # ','ABBABA'));

are these supposed to look like this?

)\/(ark

 
* Origin: (1:3634/12)

.