#define MyComPortNo	7

Sub Main()
	
	Dim qr As Object
	Dim cnt As Object
	Dim que As Object
    Dim index As Integer
	
	Set qr = cao.AddController( "QRC", "CaoProv.DENSO.QRCode", "", "Conn=com:" & Str(MyComPortNo) & ",Mode=6,Protocol=0:0:0" ) 
	
	Set cnt = qr.AddVariable("@QUEUE_SIZE")
	Set que = qr.AddVariable("@QUEUE")

    index = 0
    Do
	    If cnt.Value > 0 Then
		  S[index] = Que.Value
	      index = index + 1
	    End If
        Delay 100
    Loop

	'cao.Controllers.Remove "QRC"
	
End Sub