FUNCTION FC 2 : VOID
TITLE =read dbwx where x=iIndex * 2
VERSION : 0.1
VAR_INPUT
dbBlock : BLOCK_DB ;
iIndex : INT ;
END_VAR
VAR_OUTPUT
iResult : INT ;
END_VAR
BEGIN
NETWORK
TITLE =fetch dbwx where x=iIndex * 2
OPN #dbBlock;
L #iIndex;
SLD 4;
LAR1 ;
L DBW [AR1,P#0.0];
T #iResult;
SET ;
SAVE ;
END_FUNCTION