int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data443.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_ucase(_FUNC_ISNUMBER_STRING___A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21145,"ide_methods.bas");}while(r);
S_67365:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,21146,"ide_methods.bas");if(r)goto S_67365;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21146,"ide_methods.bas");}while(r);
}
S_67368:;
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()){
if(qbevent){evnt(28182,21148,"ide_methods.bas");if(r)goto S_67368;}
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(28182,21148,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21148,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("~",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21150,"ide_methods.bas");}while(r);
S_67373:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21150,"ide_methods.bas");if(r)goto S_67373;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21150,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("`",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21151,"ide_methods.bas");}while(r);
S_67377:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21151,"ide_methods.bas");if(r)goto S_67377;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21151,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("%",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21152,"ide_methods.bas");}while(r);
S_67381:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21152,"ide_methods.bas");if(r)goto S_67381;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21152,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("&",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21153,"ide_methods.bas");}while(r);
S_67385:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21153,"ide_methods.bas");if(r)goto S_67385;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21153,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("!",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21154,"ide_methods.bas");}while(r);
S_67389:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21154,"ide_methods.bas");if(r)goto S_67389;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21154,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("#",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21155,"ide_methods.bas");}while(r);
S_67393:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21155,"ide_methods.bas");if(r)goto S_67393;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21155,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("$",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21156,"ide_methods.bas");}while(r);
S_67397:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(28182,21156,"ide_methods.bas");if(r)goto S_67397;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(28182,21156,"ide_methods.bas");}while(r);
}
do{
goto LABEL_PROCEEDWITHOUTSYMBOL;
if(!qbevent)break;evnt(28182,21157,"ide_methods.bas");}while(r);
LABEL_FOUNDSYMBOL:;
if(qbevent){evnt(28182,21158,"ide_methods.bas");r=0;}
S_67401:;
if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,21159,"ide_methods.bas");if(r)goto S_67401;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21159,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_ISNUMBER_STRING_SYMBOL,qbs_right(_FUNC_ISNUMBER_STRING_A,_FUNC_ISNUMBER_STRING_A->len-*_FUNC_ISNUMBER_LONG_I+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21160,"ide_methods.bas");}while(r);
S_67405:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||is_error_pending()){
if(qbevent){evnt(28182,21161,"ide_methods.bas");if(r)goto S_67405;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21161,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_left(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21162,"ide_methods.bas");}while(r);
LABEL_PROCEEDWITHOUTSYMBOL:;
if(qbevent){evnt(28182,21164,"ide_methods.bas");r=0;}
do{
*_FUNC_ISNUMBER_LONG_FF= 0 ;
if(!qbevent)break;evnt(28182,21165,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_EE= 0 ;
if(!qbevent)break;evnt(28182,21166,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_DD= 0 ;
if(!qbevent)break;evnt(28182,21167,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_NEG= 0 ;
if(!qbevent)break;evnt(28182,21168,"ide_methods.bas");}while(r);
S_67413:;
fornext_value7742= 1 ;
fornext_finalvalue7742=_FUNC_ISNUMBER_STRING_A->len;
fornext_step7742= 1 ;
if (fornext_step7742<0) fornext_step_negative7742=1; else fornext_step_negative7742=0;
if (is_error_pending()) goto fornext_error7742;
goto fornext_entrylabel7742;
while(1){
fornext_value7742=fornext_step7742+(*_FUNC_ISNUMBER_LONG_I);
fornext_entrylabel7742:
*_FUNC_ISNUMBER_LONG_I=fornext_value7742;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative7742){
if (fornext_value7742<fornext_finalvalue7742) break;
}else{
if (fornext_value7742>fornext_finalvalue7742) break;
}
fornext_error7742:;
if(qbevent){evnt(28182,21169,"ide_methods.bas");if(r)goto S_67413;}
do{
*_FUNC_ISNUMBER_LONG_A=qbs_asc(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,21170,"ide_methods.bas");}while(r);
S_67415:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||is_error_pending()){
if(qbevent){evnt(28182,21171,"ide_methods.bas");if(r)goto S_67415;}
S_67416:;
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()){
if(qbevent){evnt(28182,21172,"ide_methods.bas");if(r)goto S_67416;}
do{
*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 ));
if(!qbevent)break;evnt(28182,21172,"ide_methods.bas");}while(r);
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21172,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21173,"ide_methods.bas");}while(r);
}
S_67422:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||is_error_pending()){
if(qbevent){evnt(28182,21175,"ide_methods.bas");if(r)goto S_67422;}
S_67423:;
if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||is_error_pending()){
if(qbevent){evnt(28182,21176,"ide_methods.bas");if(r)goto S_67423;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21176,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DP= 1 ;
if(!qbevent)break;evnt(28182,21177,"ide_methods.bas");}while(r);
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21178,"ide_methods.bas");}while(r);
}
S_67429:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||is_error_pending()){
if(qbevent){evnt(28182,21180,"ide_methods.bas");if(r)goto S_67429;}
S_67430:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,21181,"ide_methods.bas");if(r)goto S_67430;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21181,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(28182,21182,"ide_methods.bas");}while(r);
S_67434:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,21183,"ide_methods.bas");if(r)goto S_67434;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21183,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21184,"ide_methods.bas");}while(r);
}
S_67439:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||is_error_pending()){
if(qbevent){evnt(28182,21186,"ide_methods.bas");if(r)goto S_67439;}
S_67440:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,21187,"ide_methods.bas");if(r)goto S_67440;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21187,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(28182,21188,"ide_methods.bas");}while(r);
S_67444:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,21189,"ide_methods.bas");if(r)goto S_67444;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21189,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21190,"ide_methods.bas");}while(r);
}
S_67449:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||is_error_pending()){
if(qbevent){evnt(28182,21192,"ide_methods.bas");if(r)goto S_67449;}
S_67450:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(28182,21193,"ide_methods.bas");if(r)goto S_67450;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21193,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(28182,21194,"ide_methods.bas");}while(r);
S_67454:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,21195,"ide_methods.bas");if(r)goto S_67454;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21195,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21196,"ide_methods.bas");}while(r);
}
S_67459:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||is_error_pending()){
if(qbevent){evnt(28182,21198,"ide_methods.bas");if(r)goto S_67459;}
S_67460:;
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()){
if(qbevent){evnt(28182,21199,"ide_methods.bas");if(r)goto S_67460;}
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21199,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21200,"ide_methods.bas");}while(r);
}
S_67465:;
if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||is_error_pending()){
if(qbevent){evnt(28182,21203,"ide_methods.bas");if(r)goto S_67465;}
do{
goto fornext_continue_7741;
if(!qbevent)break;evnt(28182,21203,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28182,21204,"ide_methods.bas");}while(r);
fornext_continue_7741:;
}
fornext_exit_7741:;
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(28182,21206,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free443.txt"
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;
cmem_sp=tmp_cmem_sp;
return *_FUNC_ISNUMBER_LONG_ISNUMBER;
}
