ขอคำแนะนำ ภาษาเบสิก เกี่ยวกับเครื่องสแกนบาร์โค๊ต ค่ะ

CLS
	
	LOCATE 1,4 
       	PRINT "READER TEST"
	ENABLE READER(1)
	ENABLE READER(2)
		OFF ESC
		ON ESC GOSUB ESCToGetInputData


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	

				OFF ESC
				ON ESC GOSUB ESCToGetInputData
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