| 12345678910111213141516171819202122 |
- $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
|
