'!TITLE "FD Provider"

Sub Main 
 Dim caoCtrl as Object
 Dim caoCode as Object
caoCtrl = cao.AddController("FD", "CaoProv.DENSO.FD", "", "conn=eth:192.168.0.10,format=0,trigger=2")
    caoCode = caoCtrl.AddVariable("@ONE_SHOT", "")

DoLoop:
 Do
On Error Goto ErrorProc
        S1 = caoCode.Value
        ' Delay 100
    Loop
Exit Sub
ErrorProc:
    PrintDbg HEX(Err.OriginalNumber)
    Goto DoLoop
End Sub