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

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

global function boolean f_power_ind_nomsg (long argno);//f_power_ind
Int i
Boolean lb_ifpower

lb_ifpower = FALSE

i = Integer(Mid(sys_right,argno,1))

IF i = 1 OR sys_power_issuper THEN
	lb_ifpower = TRUE
END IF
return lb_ifpower
end function