|
|
Post by Rod on Apr 26, 2018 10:04:14 GMT -5
This is a corrected program for creating Code128 barcodes. I had the checkdigit routine wrong in earlier code. Also the printing needed to boxfilled rather than lines so that correctly sized printing gets thick black lines. I have a barcode wand so I know it works now.
'code128 barcode drawing
'http://www.barcodeisland.com/code128.phtml
nomainwin
'these are constants for symbols used to define which table is used,
'change of table mid code and the quiet starting zone and stop symbol.
quietZone$ = "00000000000"
startAsymbol$ = "11010000100" '103
startBsymbol$ = "11010010000" '104
startCsymbol$ = "11010011100" '105
codeCsymbol$ = "10111011110" '99
codeBsymbol$ = "10111101110" '100
codeAsymbol$ = "11101011110" '101
stopsymbol$ = "1100011101011"
'initial checksum values
startAvalue =103
startBvalue =104
startCvalue =105
'there are three tables a has uppercase alpha and control characters
'b has upper and lower case alpha, c is just for packing numeric
'data two characters to one byte
dim barcodeimage$(100)'barcode pattern
dim barcodevalues(100,2)'barcode value 'a,b,c table asc value
'load character set A,B and C
for i= 0 to 95
read a,b,c,b$
barcodeimage$(i)=b$
barcodevalues(i,0)=a
barcodevalues(i,1)=b
barcodevalues(i,2)=c
next
'open a small window
graphicbox #bc.gb1, 20, 20, 300, 30
graphicbox #bc.gb2, 20, 100, 300, 30
textbox #bc.tb1, 20, 60, 300, 25
textbox #bc.tb2, 20, 150, 300, 25
button #bc.b1, "Print",[print],UL 340, 20, 40,20
WindowWidth = 400
WindowHeight = 300
open "Code128 Bar Code" for window as #bc
print #bc, "trapclose [quit]"
'first lets build a simple, uncompressed barcode
'We are using mixed upper and lower case so we choose
'table B to encode the message.
'the checksum starts as the initial startsymbol value for startBvalue
'to that we add the value of every subsequent symbol, times
'its position in the message. Then mod 103 the total
message$="Wikipedia"
'start checksum calculation
checksum=startBvalue
barcode$=""
for n = 1 to len(message$)
'find the character in table B
for v=0 to 95
if barcodevalues(v,1)=asc(mid$(message$,n,1)) then
checksum = checksum + n * v
barcode$ = barcode$ + barcodeimage$(v)
exit for
end if
next
next
'calculate modulus checkdigit value
checksum = checksum mod 103
'create total barcode image
barcode$=quietZone$+startBsymbol$+barcode$+barcodeimage$(checksum)+stopsymbol$
'draw barcode
'use box filled so that size changes on printer get thick black lines
#bc.gb1 "down ; fill white ; backcolor black ; color black"
x=0
for n = 1 to len(barcode$)
if mid$(barcode$,n,1)="1" then
#bc.gb1 "place ";x;" 0 ; boxfilled ";x+1;" 40"
end if
x=x+1
next
#bc.gb1 "flush"
#bc.tb1 message$
'build a compressed image that packs numeric data
'this solution packs the numeric digits two digits to one byte, so we
'will choose table C
barcode$=""
message$="123456789123"
checksum=startCvalue
pos=1
'now add the numbers in pairs
for n = 1 to 11 step 2
checksum = checksum + pos* val(mid$(message$,n,2))
barcode$ = barcode$ + barcodeimage$(val(mid$(message$,n,2)))
pos=pos+1
next
'calculate modulus checkdigit value
checksum = checksum mod 103
'create total barcode image
barcode$=quietZone$+startCsymbol$+barcode$+barcodeimage$(checksum)+stopsymbol$
'draw barcode
#bc.gb2 "down ; fill white ; backcolor black ; color black"
x=0
for n = 1 to len(barcode$)
if mid$(barcode$,n,1)="1" then
#bc.gb2 "place ";x;" 0 ; boxfilled ";x+1;" 40"
end if
x=x+1
next
#bc.gb2 "flush"
#bc.tb2 message$
wait
[print]
#bc.gb1 "print 400"
#bc.gb2 "print 400"
wait
[quit]
close #bc
end
'barcode value and image table
' a b c barcode
data 32,32,0,"11011001100"'space
data 33,33,1,"11001101100"'!
data 34,34,2,"11001100110"'"
data 35,35,3,"10010011000"'#
data 36,36,4,"10010011000"'$
data 37,37,5,"10001001100"'%
data 38,38,6,"10011001000"'&
data 39,39,7,"10011000100"''
data 40,40,8,"10001100100"'(
data 41,41,9,"11001001000"')
data 42,42,10,"11001000100"'*
data 43,43,11,"11000100100"'+
data 44,44,12,"10110011100"',
data 45,45,13,"10011011100"'-
data 46,46,14,"10011001110"'.
data 47,47,15,"10111001100"'/
data 48,48,16,"10011101100"'0
data 49,49,17,"10011100110"'1
data 50,50,18,"11001110010"'2
data 51,51,19,"11001011100"'3
data 52,52,20,"11001001110"'4
data 53,53,21,"11011100100"'5
data 54,54,22,"11001110100"'6
data 55,55,23,"11101101110"'7
data 56,56,24,"11101001100"'8
data 57,57,25,"11100101100"'9
data 58,58,26,"11100100110"':
data 59,59,27,"11101100100"';
data 60,60,28,"11100110100"'<
data 61,61,29,"11100110010"'=
data 62,62,30,"11011011000"'>
data 63,63,31,"11011000110"'?
data 64,64,32,"11000110110"'@
data 65,65,33,"10100011000"'A
data 66,66,34,"10001011000"'B
data 67,67,35,"10001000110"'C
data 68,68,36,"10110001000"'D
data 69,69,37,"10001101000"'E
data 70,70,38,"10001100010"'F
data 71,71,39,"11010001000"'G
data 72,72,40,"11000101000"'H
data 73,73,41,"11000100010"'I
data 74,74,42,"10110111000"'J
data 75,75,43,"10110001110"'K
data 76,76,44,"10001101110"'L
data 77,77,45,"10111011000"'M
data 78,78,46,"10111000110"'N
data 79,79,47,"10001110110"'O
data 80,80,48,"11101110110"'P
data 81,81,49,"11010001110"'Q
data 82,82,50,"11000101110"'R
data 83,83,51,"11011101000"'S
data 84,84,52,"11011100010"'T
data 85,85,53,"11011101110"'U
data 86,86,54,"11101011000"'V
data 87,87,55,"11101000110"'W
data 88,88,56,"11100010110"'X
data 89,89,57,"11101101000"'Y
data 90,90,58,"11101100010"'Z
data 91,91,59,"11100011010"'[
data 92,92,60,"11101111010"'\
data 93,93,61,"11001000010"']
data 94,94,62,"11110001010"'^
data 95,95,63,"10100110000"'_
data 0,96,64,"10100001100"'NULL ` table a then table b
data 1,97,65,"10010110000"'SOH a
data 2,98,66,"10010000110"'STX b
data 3,99,67,"10000101100"'ETX c
data 4,100,68,"10000100110"'EOT d
data 5,101,69,"10110010000"'ENQ e
data 6,102,70,"10110000100"'ACK f
data 7,103,71,"10011010000"'BELL g
data 8,104,72,"10011000010"'BS h
data 9,105,73,"10000110100"'HT i
data 10,106,74,"10000110010"'LF j
data 11,107,75,"11000010010"'VT k
data 12,108,76,"11001010000"'FF l
data 13,109,77,"11110111010"'CR m
data 14,110,78,"11000010100"'SO n
data 15,111,79,"10001111010"'SI o
data 16,112,80,"10100111100"'DLE p
data 17,113,81,"10010111100"'DC1 q
data 18,114,82,"10010011110"'DC2 r
data 19,115,83,"10111100100"'DC3 s
data 20,116,84,"10011110100"'DC4 t
data 21,117,85,"10011110010"'NAK u
data 22,118,86,"11110100100"'SYN v
data 23,119,87,"11110010100"'ETB w
data 24,120,88,"11110010010"'CAN x
data 25,121,89,"11011011110"'EM y
data 26,122,90,"11011110110"'SUB z
data 27,123,91,"11110110110"'ESC {
data 28,124,92,"10101111000"'FS |
data 29,125,93,"10100011110"'GS }
data 30,126,94,"10001011110"'RS ~
data 31,127,95,"10111101000"'US DEL
'the remaining codes as constants in the program
'not all are implemented
'96=fnc3
'97=fnc2
'98=shift
'99=code c
'100=code b
'101=code a
'102=fnc1
'103=start a
'104=start b
'105=start c
|
|
Sver
Full Member
Posts: 145
|
Post by Sver on Jun 30, 2018 16:57:50 GMT -5
But reading in LB? UPC-A works.(12 char)
'decoding bar codes EAN13 & UPC by DaveG june 09
global oc10,woc1,woc2
prnt=0'indicator to print extra info 0=essetial info 1=print summary 2=all
dim lgr$(1,9)'0=1st 1=2nd groups 1st digit encoding
dim dcode$(2,9)'0=L 1=G 2=R remaining digit encoding
for n1=0 to 9 'get 1st digit data
for m1=0 to 1
read a$
lgr$(m1,n1)=a$
next m1
next n1
for n1=0 to 9 'get remaing digit data
for m1=0 to 2
read a$
dcode$(m1,n1)=a$
next m1
next n1
dim col(2,3) 'bit locations not reqd
dim bmpa(1,1) 'bit map array
dim erra(20) 'error report codes
erra$(1)="no start"
erra$(2)="no finish"
erra$(3)="start/middle/finish bar error"
erra$(4)="1st group error"
erra$(5)="2nd groub error"
pi =asn(1)*2 'pi
rads = 360/ pi /2 'deg in a radians
col(0,0)=4:col(0,1)=2:col(0,2)=1:col(0,3)=0'not reqd
col(1,0)=3:col(1,1)=2:col(1,2)=1:col(1,3)=0
'point=12
filedialog "Open file", "data\*.bmp" , fileName$'get file
if fileName$="" then print "finished":end
print "File chosen is ";fileName$
open fileName$ for binary as #10 :oc10=1'open file
gosub [GetBitMapDetails]
gosub [OpenWindowBmp]
gosub [PrintBitMap]
gosub [GetBitMap]
close #10 : oc10=0 'close file
gosub [PlotRGB]'plot rgb+white graphs
gosub [FindStartFinish]'finds start & finish positions
if err1<>0 then goto [error]
gosub [CheckSMF] 'checks start middle & finish bars
if err1<>0 then goto [error]
gosub [Decode2ndGroup]'get second group
if err1<>0 then goto [error]
gosub [Decode1stGroup]'get first group
if err1<>0 then goto [error]
print "code ";
if d1>0 then print d1;" ";
print g1$;" ";g2$
wait
end
[error]'print error report
print "error=";err1;" ";erra$(err1)
wait
end
[FindDLGR]'find remaing digits & lfg code
d1=99'set error
l1=99
for n10=0 to 2'scan thro array
for m10=0 to 9
if grp$=dcode$(n10,m10) then
d1=m10
l1=n10
end if
next m10
next n10
return
[Find1stDigit]'find first digit
d1=99'set error
l1=99
for n10=0 to 1'scan thro array
for m10=0 to 9
if lgr1$=lgr$(n10,m10) then
d1=m10
l1=n10
end if
next m10
next n10
return
[PlotRGB]'plot red green blue white 0-255
WindowWidth = bmpw+9'DisplayWidth
WindowHeight =128*4+27'DisplayHeight
UpperLeftX = bmpw+40 : UpperLeftY = 20
open "bar graph" for graphics_nf_nsb as #2:woc2=1
#2 "trapclose quit"
#2 "down"
#2 "fill black"
#2 "flush"
call timewait 50
n1=int(bmph/2)
for c1=0 to 2'plot rggb
select case c1
case 0:#2 "color red"
case 1:#2 "color green"
case 2:#2 "color blue"
end select
m1=0
v1=bmpa(c1,m1*bmph +bmph-1-n1)
#2 "place ";m1;" ";(c1+1)*128-v1/2
for m1=1 to bmpw-1
v1=bmpa(c1,m1*bmph +bmph-1-n1)
#2 "goto ";m1;" ";(c1+1)*128-v1/2
next m1
#2 "flush"
next c1
m1=0'plot white
c1=3
#2 "color white"
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
#2 "place ";m1;" ";(c1+1)*128-v1/6
if prnt=2 then
print "white value 0-255"
print "X Y"
end if
for m1=1 to bmpw-1
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
#2 "goto ";m1;" ";(c1+1)*128-v1/6
if prnt=2 then print m1;" ";int(v1/3)
next m1
#2 "flush"
return
[FindStartFinish]'find start and finish posn for bar code and calc details
n1=int(bmph/2)
c1=3
ind=0
m1=0
while ind<2 and m1<bmpw-1'find start
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2>200 and ind=0 then ind=1
if v2<70 and ind=1 then ind=2
m1=m1+1
wend
str=m1-2
if str>0 then
print "start=";str
else
err1=1
end if
ind=0
m1=bmpw-1
while ind<2 and m1>0'find finish
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2>200 and ind=0 then ind=1
if v2<70 and ind=1 then ind=2
m1=m1-1
wend
fin=m1+2
if str<bmpw-1 then
print "finish=";fin
else
err1=2
end if
codew=fin-str'bar code width
if str>0 then print "code width=";codew
barw=codew/95'width of 1 bar
if str>0 then print "bar width=";barw
return
[CheckSMF]'check start middle finish bars
n1=int(bmph/2)
str$=""
for m2=0 to 2'get start bars
m1=int(str+barw/2+m2*barw+.5)
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2<128 then
b$="1"
else
b$="0"
end if
if prnt=2 then print m2;" ";m1;" ";v2
str$=str$+b$
next m2
midd$=""
for m2=45 to 49'get middla bars
m1=int(str+barw/2+m2*barw+.5)
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2<128 then
b$="1"
else
b$="0"
end if
if prnt=2 then print m2;" ";m1;" ";v2
midd$=midd$+b$
next m2
fin$$=""
for m2=92 to 94'get finish bars
m1=int(str+barw/2+m2*barw+.5)
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2<128 then
b$="1"
else
b$="0"
end if
if prnt=2 then print m2;" ";m1;" ";v2
fin$=fin$+b$
next m2
if prnt>0 then print str$;" ";midd$;" ";fin$
if str$<>"101" or midd$<>"01010" or fin$<>"101" then err1=3'check to see if bars are correct
return
[Decode2ndGroup]'decode 2nd group of bars
n1=int(bmph/2)
g2$=""
for n3=0 to 5
grp2$(n3)=""
for m3= 0 to 6
m2=50+m3+n3*7
m1=int(str+barw/2+m2*barw+.5)
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2<128 then
b$="1"
else
b$="0"
end if
if prnt=2 then print m2;" ";m1;" ";v2
grp2$(n3)=grp2$(n3)+b$
next m3
grp$=grp2$(n3)
gosub [FindDLGR]
if prnt>0 then print grp2$(n3);" ";d1;" ";l1
if l1=99 then err1=4'check for error
g2$=g2$+str$(d1)
next n3
print "2nd group=";g2$
return
[Decode1stGroup]'decode 1st group of bars
n1=int(bmph/2)
g1$=""
lgr1$=""
for n3=0 to 5
grp2$(n3)=""
for m3= 0 to 6
m2=3+m3+n3*7
m1=int(str+barw/2+m2*barw+.5)
v1=bmpa(0,m1*bmph +bmph-1-n1)+bmpa(1,m1*bmph +bmph-1-n1)+bmpa(2,m1*bmph +bmph-1-n1)
v2=int(v1/3)
if v2<128 then
b$="1"
else
b$="0"
end if
if prnt=2 then print m2;" ";m1;" ";v2
grp1$(n3)=grp1$(n3)+b$
next m3
grp$=grp1$(n3)
gosub [FindDLGR]
select case l1
case 0:a$="L"
case 1:a$="G"
case 2:a$="R"
end select
if prnt>0 then print grp1$(n3);" ";d1;" ";l1;" ";a$
if l1=99 then err1=5'check for error
lgr1$=lgr1$+a$
g1$=g1$+str$(d1)
next n3
gosub [Find1stDigit]
print "1st group=";g1$;" ";lgr1$;" ";d1;" ";l1
return
[GetBitMapDetails]
'-----------------------------'read & print bit map header details----------------------------
seek #10,0
if str=2 then print "bit map header"
p1=header(2):if prnt=2 then print "bfType(19778) ";p1
p1=header(4):if prnt=2 then print "bfSize ";p1
p1=header(2):if prnt=2 then print "bfReserved1 (0) ";p1
p1=header(2):if prnt=2 then print "bfReserved2 (0) ";p1
p1=header(4):if prnt=2 then print "bfOffBits ";p1
bmps=p1
if prnt=2 then print : print "bitmap info"
p1=header(4):if prnt=2 then print "biSize ";p1
p1=header(4):if prnt=2 then print "biWidth ";p1
bmpw=p1
p1=header(4): if prnt=2 then print "biHeight ";p1
bmph=p1
p1=header(2): if prnt=2 then print "biPlanes(1) ";p1
p1=header(2): if prnt=2 then print "biBitCount ";p1
select case p1
case 32 : bmpt=0
case 24 : bmpt=1
case 16 : bmpt=2
case else : bmpt=99
end select
p1=header(4):if prnt=2 then print "biCompression ";p1
p1=header(4):if prnt=2 then print "biSizeImage ";p1
p1=header(4):if prnt=2 then print "biXpelsperMeter(0) ";p1
p1=header(4):if prnt=2 then print "biYpelsperMeter(0) ";p1
p1=header(4):if prnt=2 then print "biClrUsed ";p1
p1=header(4):if prnt=2 then print "biClrImportant ";p1
if prnt>0 then print : print "data for geting bitmap"
if prnt>0 then print "bmph ";bmph 'bit map height
if prnt>0 then print "bmpw ";bmpw 'bit map width
if prnt>0 then print "bmpt ";bmpt 'bit map type 0=32 bit 1 = 24 bit 2 = 16 bit
if prnt>0 then print "bmps ";bmps 'bit map start pos. in file
redim bmpa(2,bmph*(bmpw+4)) 'redim array for storing bmp
if bmpt=99 then'error for bmp's not supported
#1 "font ariel 12 bold" : #1 "place 20 20"
#1 "\failed bit map not 16/24/32 "
print "failed bit map not 16/24/32 "
wait
end if
return
[GetBitMap]
'-----------------------------get bit map and store in array---------------------------------------------
WindowWidth = 180'DisplayWidth
WindowHeight = 100'DisplayHeight
UpperLeftX = 40 : UpperLeftY = 60
open "bar graph" for graphics_nf_nsb as #2:woc2=1
#2 "trapclose quit"
#2 "down"
#2 "fill black"
#2 "flush"
call timewait 50
#2 "backcolor black"
#2 "color green"
#2 "place 15 20"
#2 "\getting bit map info"
#2 "color lightgray"
#2 "place 20 50"
#2 "box 122 62"
print "getting info"
p1=bmps 'get bit start
k=0
if bmpt=1 then 'to make up width to multiples of 4 for 16 bit
k1=bmpw*col(bmpt,0)
j1= k1 mod 4
k1=(4-j1) mod 4
end if
for n1= 0 to bmph-1
#2 "place 30 40"
per=int(n1/(bmph-1)*100)
#2 "color green"
#2 "\";per;"% complete"
#2 "color red"
#2 "place 21 51"
#2 "box ";21+per;" 61"
#2 "flush"
scan
if bmpt=2 then
k1=bmpw : j1 = bmpw mod 2 'to make up width to multiples of 4 for 24 bit
k1=k1+j1
for m1= 0 to k1-1 'for 16 bit map
seek #10,p1 : c1=asc(input$(#10,1))
seek #10,p1+1 : c1=asc(input$(#10,1))*256+c1
b1 = c1 mod 32 *8 : c1=int(c1/32)
g1 = c1 mod 64 *4 : c1=int(c1/64)
r1=c1*8
bmpa(0 , m1*bmph +bmph-1-n1 ) = r1 'place colour details in array
bmpa(1 , m1*bmph +bmph-1-n1 ) = g1
bmpa(2 , m1*bmph +bmph-1-n1 ) = b1
p1=p1+2
next m1
else
'm1=0
for m1= 0 to bmpw-1 'for 24/32 bit map
for o= 1 to 3 'place colour details in array
seek #10,p1+col(bmpt,o)
bmpa(o-1 , m1*bmph +bmph-1-n1 ) = asc(input$(#10 , 1 )) 'turn right way round ie flip horizotally
next o
'm1=m1+1
p1=p1+col(bmpt,0)
next m1
p1=p1+k1 'add on multiple padding
end if
next n1
close #2:woc2=0
return
[PrintBitMap]'load bmp and display
#1 "cls"
#1 "fill lightgray"
loadbmp "barcode" , fileName$
call timewait 50
#1 "drawbmp barcode 0 0"
#1 "flush"
unloadbmp "barcode"
return
'---------------misc routines------------------------------------------
[OpenWindowBmp]'open bmp window
WindowWidth = bmpw+9'DisplayWidth
WindowHeight = bmph+27'DisplayHeight
UpperLeftX = 20 : UpperLeftY = 20
open "bmp" for graphics_nf_nsb as #1:woc1=1
'#1 "home"
'#1 "posxy xpos ypos"
'print "width extra=";2*xpos-bmpw
'print "height extra=";2*ypos-bmph
#1 "trapclose quit" :#1 "font arial ";point;" bold"
#1 "color darkgreen" : #1 "backcolor lightgray"
#1 "down" : #1 "size 1"
#1 "fill lightgray"
return
[quit]
if woc1=1 then close #1
if woc1=2 then close #2
if oc10=1 then close #10
end
return
sub quit a$
if woc1=1 then close #1
if woc2=1 then close #2
if oc10=1 then close #10
end
end sub
function header(s1)
h1=0
for n1=0 to s1-1
h1=h1+asc(input$(#10 , 1 ))*256^n1
next n1
header=h1
end function
sub timewait n 'wait n milliseconds
timer n , [jump1]
wait
[jump1]
timer 0
end sub
sub clickwait w$ 'left click wait not used
#w$ "when leftButtonUp [jump2]"
wait
[jump2]
#w$ "when leftButtonUp"
end sub
data "LLLLLL" , "RRRRRR"'0 encoding of 1st digit
data "LLGLGG" , "RRRRRR"'1
data "LLGGLG" , "RRRRRR"'2
data "LLGGGL" , "RRRRRR"'3
data "LGLLGG" , "RRRRRR"'4
data "LGGLLG" , "RRRRRR"'5
data "LGGGLL" , "RRRRRR"'6
data "LGLGLG" , "RRRRRR"'7
data "LGLGGL" , "RRRRRR"'8
data "LGGLGL" , "RRRRRR"'9
data "0001101" , "0100111" , "1110010"'0 encoding of remaining digits
data "0011001" , "0110011" , "1100110"'1
data "0010011" , "0011011" , "1101100"'2
data "0111101" , "0100001" , "1000010"'3
data "0100011" , "0011101" , "1011100"'4
data "0110001" , "0111001" , "1001110"'5
data "0101111" , "0000101" , "1010000"'6
data "0111011" , "0010001" , "1000100"'7
data "0110111" , "0001001" , "1001000"'8
data "0001011" , "0010111" , "1110100"'9 |
|
