declare variable %d1 as integer
declare variable %d2 as integer
declare variable %d3 as integer
declare variable %tDirection as integer
declare variable %sns as object

set %sns = CreateObject("IchiTarodll.Taro" )

%sns.CjdllEnvSetCom(0)

%sns.CjdllJB6RegReadLongCOM(%d1, %d2, %d3,%tDirection)
Deposit("|", %tDirection)

set %sns=nil
end
