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

forward prototypes
global subroutine f_init_version ()
end prototypes

global subroutine f_init_version ();
sys_Version_arr[1] = "商业版"
sys_Version_arr[2] = "工业版"
sys_Version_arr[3] = "工业版+"
end subroutine