#line 21152 "ide/ide_methods.bas"
int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A){
#line 21152 "ide/ide_methods.bas"
qbs *tqbs;
#line 21152 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 21152 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 21152 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 21152 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 21152 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 21152 "ide/ide_methods.bas"
#include "data484.txt"
#line 21152 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 21152 "ide/ide_methods.bas"
new_mem_lock();
#line 21152 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 21152 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 21152 "ide/ide_methods.bas"
libqb_check_stack();
#line 21152 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 21153 "ide/ide_methods.bas"
do{
#line 21153 "ide/ide_methods.bas"
qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_ucase(_FUNC_ISNUMBER_STRING___A));
#line 21153 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21153 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21153,"ide_methods.bas");}while(r);
#line 21154 "ide/ide_methods.bas"
S_68492:;
#line 21154 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||is_error_pending()){
#line 21154 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21154,"ide_methods.bas");if(r)goto S_68492;}
#line 21154 "ide/ide_methods.bas"
do{
#line 21154 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21154 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21154,"ide_methods.bas");}while(r);
#line 21154 "ide/ide_methods.bas"
}
#line 21156 "ide/ide_methods.bas"
S_68495:;
#line 21156 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@&H@&O@&B@",10),qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_left(_FUNC_ISNUMBER_STRING_A, 2 )),qbs_new_txt_len("@",1)),0)))||is_error_pending()){
#line 21156 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21156,"ide_methods.bas");if(r)goto S_68495;}
#line 21156 "ide/ide_methods.bas"
do{
#line 21156 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
#line 21156 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21156,"ide_methods.bas");}while(r);
#line 21156 "ide/ide_methods.bas"
do{
#line 21156 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21156 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21156,"ide_methods.bas");}while(r);
#line 21156 "ide/ide_methods.bas"
}
#line 21158 "ide/ide_methods.bas"
do{
#line 21158 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("~",1),0);
#line 21158 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21158 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21158,"ide_methods.bas");}while(r);
#line 21158 "ide/ide_methods.bas"
S_68500:;
#line 21158 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21158 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21158,"ide_methods.bas");if(r)goto S_68500;}
#line 21158 "ide/ide_methods.bas"
do{
#line 21158 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21158 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21158,"ide_methods.bas");}while(r);
#line 21158 "ide/ide_methods.bas"
}
#line 21159 "ide/ide_methods.bas"
do{
#line 21159 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("`",1),0);
#line 21159 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21159 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21159,"ide_methods.bas");}while(r);
#line 21159 "ide/ide_methods.bas"
S_68504:;
#line 21159 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21159 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21159,"ide_methods.bas");if(r)goto S_68504;}
#line 21159 "ide/ide_methods.bas"
do{
#line 21159 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21159 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21159,"ide_methods.bas");}while(r);
#line 21159 "ide/ide_methods.bas"
}
#line 21160 "ide/ide_methods.bas"
do{
#line 21160 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("%",1),0);
#line 21160 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21160 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21160,"ide_methods.bas");}while(r);
#line 21160 "ide/ide_methods.bas"
S_68508:;
#line 21160 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21160 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21160,"ide_methods.bas");if(r)goto S_68508;}
#line 21160 "ide/ide_methods.bas"
do{
#line 21160 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21160 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21160,"ide_methods.bas");}while(r);
#line 21160 "ide/ide_methods.bas"
}
#line 21161 "ide/ide_methods.bas"
do{
#line 21161 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("&",1),0);
#line 21161 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21161 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21161,"ide_methods.bas");}while(r);
#line 21161 "ide/ide_methods.bas"
S_68512:;
#line 21161 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21161 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21161,"ide_methods.bas");if(r)goto S_68512;}
#line 21161 "ide/ide_methods.bas"
do{
#line 21161 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21161 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21161,"ide_methods.bas");}while(r);
#line 21161 "ide/ide_methods.bas"
}
#line 21162 "ide/ide_methods.bas"
do{
#line 21162 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("!",1),0);
#line 21162 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21162 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21162,"ide_methods.bas");}while(r);
#line 21162 "ide/ide_methods.bas"
S_68516:;
#line 21162 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21162 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21162,"ide_methods.bas");if(r)goto S_68516;}
#line 21162 "ide/ide_methods.bas"
do{
#line 21162 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21162 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21162,"ide_methods.bas");}while(r);
#line 21162 "ide/ide_methods.bas"
}
#line 21163 "ide/ide_methods.bas"
do{
#line 21163 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("#",1),0);
#line 21163 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21163 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21163,"ide_methods.bas");}while(r);
#line 21163 "ide/ide_methods.bas"
S_68520:;
#line 21163 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21163 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21163,"ide_methods.bas");if(r)goto S_68520;}
#line 21163 "ide/ide_methods.bas"
do{
#line 21163 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21163 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21163,"ide_methods.bas");}while(r);
#line 21163 "ide/ide_methods.bas"
}
#line 21164 "ide/ide_methods.bas"
do{
#line 21164 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("$",1),0);
#line 21164 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21164 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21164,"ide_methods.bas");}while(r);
#line 21164 "ide/ide_methods.bas"
S_68524:;
#line 21164 "ide/ide_methods.bas"
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
#line 21164 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21164,"ide_methods.bas");if(r)goto S_68524;}
#line 21164 "ide/ide_methods.bas"
do{
#line 21164 "ide/ide_methods.bas"
goto LABEL_FOUNDSYMBOL;
#line 21164 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21164,"ide_methods.bas");}while(r);
#line 21164 "ide/ide_methods.bas"
}
#line 21165 "ide/ide_methods.bas"
do{
#line 21165 "ide/ide_methods.bas"
goto LABEL_PROCEEDWITHOUTSYMBOL;
#line 21165 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21165,"ide_methods.bas");}while(r);
#line 21166 "ide/ide_methods.bas"
LABEL_FOUNDSYMBOL:;
#line 21166 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21166,"ide_methods.bas");r=0;}
#line 21167 "ide/ide_methods.bas"
S_68528:;
#line 21167 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||is_error_pending()){
#line 21167 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21167,"ide_methods.bas");if(r)goto S_68528;}
#line 21167 "ide/ide_methods.bas"
do{
#line 21167 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21167 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21167,"ide_methods.bas");}while(r);
#line 21167 "ide/ide_methods.bas"
}
#line 21168 "ide/ide_methods.bas"
do{
#line 21168 "ide/ide_methods.bas"
qbs_set(_FUNC_ISNUMBER_STRING_SYMBOL,qbs_right(_FUNC_ISNUMBER_STRING_A,_FUNC_ISNUMBER_STRING_A->len-*_FUNC_ISNUMBER_LONG_I+ 1 ));
#line 21168 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21168 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21168,"ide_methods.bas");}while(r);
#line 21169 "ide/ide_methods.bas"
S_68532:;
#line 21169 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||is_error_pending()){
#line 21169 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21169,"ide_methods.bas");if(r)goto S_68532;}
#line 21169 "ide/ide_methods.bas"
do{
#line 21169 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21169 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21169,"ide_methods.bas");}while(r);
#line 21169 "ide/ide_methods.bas"
}
#line 21170 "ide/ide_methods.bas"
do{
#line 21170 "ide/ide_methods.bas"
qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_left(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I- 1 ));
#line 21170 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21170 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21170,"ide_methods.bas");}while(r);
#line 21172 "ide/ide_methods.bas"
LABEL_PROCEEDWITHOUTSYMBOL:;
#line 21172 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21172,"ide_methods.bas");r=0;}
#line 21173 "ide/ide_methods.bas"
do{
#line 21173 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_FF= 0 ;
#line 21173 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21173,"ide_methods.bas");}while(r);
#line 21174 "ide/ide_methods.bas"
do{
#line 21174 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_EE= 0 ;
#line 21174 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21174,"ide_methods.bas");}while(r);
#line 21175 "ide/ide_methods.bas"
do{
#line 21175 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_DD= 0 ;
#line 21175 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21175,"ide_methods.bas");}while(r);
#line 21176 "ide/ide_methods.bas"
do{
#line 21176 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_NEG= 0 ;
#line 21176 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21176,"ide_methods.bas");}while(r);
#line 21177 "ide/ide_methods.bas"
S_68540:;
#line 21177 "ide/ide_methods.bas"
fornext_value7032= 1 ;
#line 21177 "ide/ide_methods.bas"
fornext_finalvalue7032=_FUNC_ISNUMBER_STRING_A->len;
#line 21177 "ide/ide_methods.bas"
fornext_step7032= 1 ;
#line 21177 "ide/ide_methods.bas"
if (fornext_step7032<0) fornext_step_negative7032=1; else fornext_step_negative7032=0;
#line 21177 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error7032;
#line 21177 "ide/ide_methods.bas"
goto fornext_entrylabel7032;
#line 21177 "ide/ide_methods.bas"
while(1){
#line 21177 "ide/ide_methods.bas"
fornext_value7032=fornext_step7032+(*_FUNC_ISNUMBER_LONG_I);
#line 21177 "ide/ide_methods.bas"
fornext_entrylabel7032:
#line 21177 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_I=fornext_value7032;
#line 21177 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21177 "ide/ide_methods.bas"
if (fornext_step_negative7032){
#line 21177 "ide/ide_methods.bas"
if (fornext_value7032<fornext_finalvalue7032) break;
#line 21177 "ide/ide_methods.bas"
}else{
#line 21177 "ide/ide_methods.bas"
if (fornext_value7032>fornext_finalvalue7032) break;
#line 21177 "ide/ide_methods.bas"
}
#line 21177 "ide/ide_methods.bas"
fornext_error7032:;
#line 21177 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21177,"ide_methods.bas");if(r)goto S_68540;}
#line 21178 "ide/ide_methods.bas"
do{
#line 21178 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_A=qbs_asc(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I);
#line 21178 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21178 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21178,"ide_methods.bas");}while(r);
#line 21179 "ide/ide_methods.bas"
S_68542:;
#line 21179 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||is_error_pending()){
#line 21179 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21179,"ide_methods.bas");if(r)goto S_68542;}
#line 21180 "ide/ide_methods.bas"
S_68543:;
#line 21180 "ide/ide_methods.bas"
if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_ISNUMBER_LONG_I== 1 ))&(-(_FUNC_ISNUMBER_STRING_A->len> 1 )))|((-(*_FUNC_ISNUMBER_LONG_I> 1 ))&((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))))))||is_error_pending()){
#line 21180 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21180,"ide_methods.bas");if(r)goto S_68543;}
#line 21180 "ide/ide_methods.bas"
do{
#line 21180 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 ));
#line 21180 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21180,"ide_methods.bas");}while(r);
#line 21180 "ide/ide_methods.bas"
do{
#line 21180 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21180 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21180,"ide_methods.bas");}while(r);
#line 21180 "ide/ide_methods.bas"
}
#line 21181 "ide/ide_methods.bas"
do{
#line 21181 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21181 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21181,"ide_methods.bas");}while(r);
#line 21182 "ide/ide_methods.bas"
}
#line 21183 "ide/ide_methods.bas"
S_68549:;
#line 21183 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||is_error_pending()){
#line 21183 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21183,"ide_methods.bas");if(r)goto S_68549;}
#line 21184 "ide/ide_methods.bas"
S_68550:;
#line 21184 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||is_error_pending()){
#line 21184 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21184,"ide_methods.bas");if(r)goto S_68550;}
#line 21184 "ide/ide_methods.bas"
do{
#line 21184 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21184 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21184,"ide_methods.bas");}while(r);
#line 21184 "ide/ide_methods.bas"
}
#line 21185 "ide/ide_methods.bas"
do{
#line 21185 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_DP= 1 ;
#line 21185 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21185,"ide_methods.bas");}while(r);
#line 21186 "ide/ide_methods.bas"
do{
#line 21186 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21186 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21186,"ide_methods.bas");}while(r);
#line 21187 "ide/ide_methods.bas"
}
#line 21188 "ide/ide_methods.bas"
S_68556:;
#line 21188 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||is_error_pending()){
#line 21188 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21188,"ide_methods.bas");if(r)goto S_68556;}
#line 21189 "ide/ide_methods.bas"
S_68557:;
#line 21189 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
#line 21189 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21189,"ide_methods.bas");if(r)goto S_68557;}
#line 21189 "ide/ide_methods.bas"
do{
#line 21189 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21189 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21189,"ide_methods.bas");}while(r);
#line 21189 "ide/ide_methods.bas"
}
#line 21190 "ide/ide_methods.bas"
do{
#line 21190 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I;
#line 21190 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21190,"ide_methods.bas");}while(r);
#line 21191 "ide/ide_methods.bas"
S_68561:;
#line 21191 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||is_error_pending()){
#line 21191 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21191,"ide_methods.bas");if(r)goto S_68561;}
#line 21191 "ide/ide_methods.bas"
do{
#line 21191 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21191 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21191,"ide_methods.bas");}while(r);
#line 21191 "ide/ide_methods.bas"
}
#line 21192 "ide/ide_methods.bas"
do{
#line 21192 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21192 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21192,"ide_methods.bas");}while(r);
#line 21193 "ide/ide_methods.bas"
}
#line 21194 "ide/ide_methods.bas"
S_68566:;
#line 21194 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||is_error_pending()){
#line 21194 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21194,"ide_methods.bas");if(r)goto S_68566;}
#line 21195 "ide/ide_methods.bas"
S_68567:;
#line 21195 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
#line 21195 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21195,"ide_methods.bas");if(r)goto S_68567;}
#line 21195 "ide/ide_methods.bas"
do{
#line 21195 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21195 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21195,"ide_methods.bas");}while(r);
#line 21195 "ide/ide_methods.bas"
}
#line 21196 "ide/ide_methods.bas"
do{
#line 21196 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I;
#line 21196 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21196,"ide_methods.bas");}while(r);
#line 21197 "ide/ide_methods.bas"
S_68571:;
#line 21197 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||is_error_pending()){
#line 21197 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21197,"ide_methods.bas");if(r)goto S_68571;}
#line 21197 "ide/ide_methods.bas"
do{
#line 21197 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21197 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21197,"ide_methods.bas");}while(r);
#line 21197 "ide/ide_methods.bas"
}
#line 21198 "ide/ide_methods.bas"
do{
#line 21198 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21198 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21198,"ide_methods.bas");}while(r);
#line 21199 "ide/ide_methods.bas"
}
#line 21200 "ide/ide_methods.bas"
S_68576:;
#line 21200 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||is_error_pending()){
#line 21200 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21200,"ide_methods.bas");if(r)goto S_68576;}
#line 21201 "ide/ide_methods.bas"
S_68577:;
#line 21201 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
#line 21201 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21201,"ide_methods.bas");if(r)goto S_68577;}
#line 21201 "ide/ide_methods.bas"
do{
#line 21201 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21201 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21201,"ide_methods.bas");}while(r);
#line 21201 "ide/ide_methods.bas"
}
#line 21202 "ide/ide_methods.bas"
do{
#line 21202 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I;
#line 21202 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21202,"ide_methods.bas");}while(r);
#line 21203 "ide/ide_methods.bas"
S_68581:;
#line 21203 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||is_error_pending()){
#line 21203 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21203,"ide_methods.bas");if(r)goto S_68581;}
#line 21203 "ide/ide_methods.bas"
do{
#line 21203 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21203 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21203,"ide_methods.bas");}while(r);
#line 21203 "ide/ide_methods.bas"
}
#line 21204 "ide/ide_methods.bas"
do{
#line 21204 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21204 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21204,"ide_methods.bas");}while(r);
#line 21205 "ide/ide_methods.bas"
}
#line 21206 "ide/ide_methods.bas"
S_68586:;
#line 21206 "ide/ide_methods.bas"
if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||is_error_pending()){
#line 21206 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21206,"ide_methods.bas");if(r)goto S_68586;}
#line 21207 "ide/ide_methods.bas"
S_68587:;
#line 21207 "ide/ide_methods.bas"
if ((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))||is_error_pending()){
#line 21207 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21207,"ide_methods.bas");if(r)goto S_68587;}
#line 21207 "ide/ide_methods.bas"
do{
#line 21207 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21207 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21207,"ide_methods.bas");}while(r);
#line 21207 "ide/ide_methods.bas"
}
#line 21208 "ide/ide_methods.bas"
do{
#line 21208 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21208 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21208,"ide_methods.bas");}while(r);
#line 21209 "ide/ide_methods.bas"
}
#line 21211 "ide/ide_methods.bas"
S_68592:;
#line 21211 "ide/ide_methods.bas"
if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||is_error_pending()){
#line 21211 "ide/ide_methods.bas"
if(qbevent){evnt(28819,21211,"ide_methods.bas");if(r)goto S_68592;}
#line 21211 "ide/ide_methods.bas"
do{
#line 21211 "ide/ide_methods.bas"
goto fornext_continue_7031;
#line 21211 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21211,"ide_methods.bas");}while(r);
#line 21211 "ide/ide_methods.bas"
}
#line 21212 "ide/ide_methods.bas"
do{
#line 21212 "ide/ide_methods.bas"
goto exit_subfunc;
#line 21212 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21212,"ide_methods.bas");}while(r);
#line 21213 "ide/ide_methods.bas"
fornext_continue_7031:;
#line 21213 "ide/ide_methods.bas"
}
#line 21213 "ide/ide_methods.bas"
fornext_exit_7031:;
#line 21214 "ide/ide_methods.bas"
do{
#line 21214 "ide/ide_methods.bas"
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
#line 21214 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,21214,"ide_methods.bas");}while(r);
#line 21215 "ide/ide_methods.bas"
exit_subfunc:;
#line 21215 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 21215 "ide/ide_methods.bas"
#include "free484.txt"
#line 21215 "ide/ide_methods.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 21215 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 21215 "ide/ide_methods.bas"
return *_FUNC_ISNUMBER_LONG_ISNUMBER;
#line 21215 "ide/ide_methods.bas"
}
