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