$PBExportHeader$f_tb_emscode.srf
global type f_tb_emscode from function_object
end type

forward prototypes
global function string f_tb_emscode (string p1, string p2, string p3)
end prototypes

global function string f_tb_emscode (string p1, string p2, string p3);String rslt = ''
rslt = p1 + p2

Long tmp = 0
tmp += Long(Mid(rslt,3,1)) * 8
tmp += Long(Mid(rslt,4,1)) * 6
tmp += Long(Mid(rslt,5,1)) * 4
tmp += Long(Mid(rslt,6,1)) * 2
tmp += Long(Mid(rslt,7,1)) * 3
tmp += Long(Mid(rslt,8,1)) * 5
tmp += Long(Mid(rslt,9,1)) * 9
tmp += Long(Mid(rslt,10,1)) * 7

tmp = 11 - Mod(tmp, 11)

IF tmp = 10 THEN
	tmp = 0
ELSEIF tmp = 11 THEN
	tmp = 5
END IF

rslt += string(tmp) + p3

RETURN rslt

end function