ช่วยหน่อยค่ะ!!!! เรื่องรับค่าบาร์โค๊ต เพื่อมาเปรียบเทียบ

CLS
   
   LOCATE 1,4 
          PRINT "READER TEST"
   ENABLE READER(1)
   ENABLE READER(2)


MainStart:
       ON READER(1) GOSUB GetDaTa1
       ON READER(2) GOSUB GetDaTa2
   GOTO MainStart

GetDaTa1:
       OFF READER(2)
       BEEP(1000,10)
       BcrData2$ = GET_READER_DATA$(2)
           ON READER(2) GOSUB GetDaTa2
               CLS
           IF BcrData1$ <> BcrData2$ THEN
               LOCATE 3,4
               PRINT " NO DATA !!"
               BEEP(2000,10,0,10,2000,10,0,10,2000,10)
               LOCATE 4,1
               PRINT "C1:"
               LOCATE 4,4
               PRINT BcrData1$
               LOCATE 5,1
               PRINT "C2:"
               LOCATE 5,4
               PRINT BcrData2$
               
           ELSE 
               CLS
               LOCATE 1,4 
                      PRINT "READER TEST"

               LOCATE 3,4
               PRINT "OK DATA !! "
               LOCATE 4,2
               PRINT BcrData1$
               LOCATE 5,2
               PRINT BcrData2$
               BEEP(2000,10)
           END IF    

GOTO MainStart
'RETURN

GetDaTa2:

       OFF READER(1)
       BEEP(1000,5)
       BcrData1$ = GET_READER_DATA$(1)
               CLS
               LOCATE 1,4 
                      PRINT "READER TEST"
               LOCATE 6,1
               PRINT "Input1: "
               LOCATE 7,1
               PRINT BcrData1$

RETURN