moveto(0,0)
define(&_DataSel_,string,'')
define(&_ValidLine_,boolean,true)
for(&current.line,21,1,23)
set(&_DataSel_,&_DataSel_ + strip('-', @(&current.line,1,15)))
endfor()
define(&_Y2_,measure,&height)
if(&height < 0)
set(&_Y2_,0)
endif()
define(&BarHeight,measure,&height)
define(&BarWidth,measure,0.0120)
define(&BarType,integer,1)
setfillcolor([0,0,0,100])
moveto(0,0)
showbarcode('\207')
showbarcode(&_DataSel_)
define(&_bci_,integer,0)
define(&_bcTotal_,integer,103)
define(&_check_,integer,0)
for(&_bci_,1,1,length(&_DataSel_))
&_bcTotal_ := &_bcTotal_ + (&_bci_ * (ord(mid(&_DataSel_,&_bci_,1)) - 32))
endfor()
&_check_ := mod(&_bcTotal_, 103)
showbarcode(char(&_check_ + 32))
showbarcode('\212')
&width := &current.x
moveto(&current.x / 2.0,&_Y2_+0.16)
showcenter(&_DataSel_)