ScriptName "Name"
ScriptAuthor "Author"
ScriptVersion "V x.yz"

// Device Control - Hardware : SetSerialInBufLen
// SetSerialInBufLen ( a_Source , w_NumberChar ) ;
// w_NumberChar: Min=2, Max=65535

SetErrorHandler ( :AddressErrror ) ;
SetSystemErrorHandler ( :AddressSysError ) ;

var wtemp : word;
var btemp : byte;
var aRxBuf : buffer[30];
var aRxMainBuf : buffer[30];
var w_NumberChar : word ;  moveconst (w_NumberChar, 10);  // Min=2, Max=65535
var w1: word;  moveconst (w1, 1);


SetSerialInBufLen ( aRxMainBuf[0] , w_NumberChar ) ;
// NOTE! number char to receive without RX-Overflow = 9 (w_NumberChar-1)

:main;
// user send data over RS232 to the UNIGATE
Get ( RSInputCharacter16 , wtemp ) ;
ReceiveSomeCharRS ( w1 , aRxBuf[0] , w1 ) ;
jump :main;


:AddressErrror;
Get ( errorCode , btemp ) ;
// TBD
return;

:AddressSysError;
Get ( systemError , btemp ) ;
// TBD
return;