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

forward prototypes
global function boolean f_power_ind_bak (long argno)
end prototypes

global function boolean f_power_ind_bak (long argno);//f_power_ind
Int i

IF sys_power_issuper THEN RETURN TRUE
i = Integer(Mid(sys_right,argno,1))
IF i = 1 THEN	RETURN TRUE
RETURN FALSE


end function