I have a program that is reading the table listed below )code339) and
printing code39 bar codes from these entries. It takes the SEQ of the
character to be printed, extracts the data from the corresponding field of
this table and the print a series of ESC characters and the result is a bar
code. What I need is to fill in the upper case alpha characters. This
table only has a *, 0-9 and B,C characters. Has anyone ever seen the code39
table below and do you have the upper case characters for that table?
Thanks in advance for your help.
TXT='*':TXT:'*' ; DC=LEN(TXT)
FOR CC=1 TO DC
N=SEQ(TXT[CC,1])
BNBR=CODE39<N> ; COLOR=1
FOR C=1 TO 10
WIDTH=FIELD(CODE39.WIDTHS,',',BNBR[C,1]) ; COLOR=NOT(COLOR)
PRINT ESC:'*c180B': ; * height
PRINT ESC:'*c':WIDTH:'A': ; * width
PRINT ESC:'*c':COLOR:'P': ; * fill
PRINT ESC:'*p+':WIDTH:'X': ; * move
NEXT C
NEXT CC
RETURN
This is code39 variable.
0042: 1211212111
----: P35
0042: 1211212111
0043:
0044:
0045:
0046:
0047:
0048: 1112212111
0049: 2112111121
0050: 1122111121
0051: 2122111111
0052: 1112211121
0053: 2112211111
0054: 1122211111
0055: 1112112121
0056: 2112112111
0057: 1122112111
0058:
0059:
0060:
0061:
0062:
0063:
0064:
0065:
0066: 1121121121
0067: 2121121111
0068:
0069:
0070:
0071:
0072:
0073:
0074:
0075: 2111111221
Tom Dodds
<mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
708-234-9608 Office
630-235-2975 Cell
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
