Anyone have some code to arm the Symbol MC50 barcode scanner?

[chance]

tia,
chance.

[Mike]

Hi, I have the code to arm my Symbol PPT8800w, with
Pocketbuilder 1.5.2. However this doesnt work well for
Symbol MC50, even though SQL Anywhere 9 for CE is working
fine.

Hope to receive a solution here.

(Barcode Source Code)
integer li_rtn,li_qty
Datetime ldt_scandt
li_rtn=this.retrievedata()//set data
ldt_scandt=DateTime(Today(),Now())//get current date and
time
if li_rtn=1 then//no reading error
beep(1)
gs_data=trim(this.scanneddata)//read data
tab_1.tabpage_1.sle_printed.text=string(ldt_scandt)
IF LEFT(gs_data,1)='$' THEN/* PICK NO prefix */
is_pick=mid(gs_data,2)
tab_1.tabpage_1.sle_pick.Text=is_pick
ELSEIF LEFT(gs_data,1) = '%' THEN/* DO NO prefix*/
is_do=mid(gs_data,2)
tab_1.tabpage_1.sle_do.Text=is_do
is_orig_do=is_do
ii_cntr=0//read D/O
ELSEIF LEFT(gs_data,1) >= 'A' AND LEFT(gs_data,1) <= 'Z'
THEN/* parts */
is_parts=gs_data
tab_1.tabpage_1.sle_parts.Text=is_parts
if wf_parts_check(is_pick,is_do,is_parts)=1 then
ii_cntr = 1//read parts
else
messagebox(is_do,is_parts+' no part')//read parts again
end if
ELSE
if ii_cntr=1 THEN /* serial_no */
is_serial=gs_data
if wf_serial_check(is_pick,is_do,is_parts,is_serial)=1
then
ii_cntr = 2//read serial
else
messagebox(is_serial,'duplicate')
end if
tab_1.tabpage_1.sle_serial.Text=is_serial
elseif ii_cntr=2 THEN /* ref no*/
is_ref=gs_data
tab_1.tabpage_1.sle_ref.Text=is_ref
ii_cntr = 0//reset
end if
END IF
IF LEN(is_pick) = 10 AND LEN(is_do) >= 7 AND LEN(is_parts)
>= 5 AND LEN(is_serial) >= 1 AND LEN(is_ref) >= 1 THEN
timer(2)
END IF
end if
this.flush()
li_rtn=this.scannowait()