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 "data379.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
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(25769,20624,"ide_methods.bas");}while(r);
S_62682:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20625,"ide_methods.bas");if(r)goto S_62682;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20625,"ide_methods.bas");}while(r);
}
S_62685:;
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(25769,20627,"ide_methods.bas");if(r)goto S_62685;}
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(25769,20627,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20627,"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(25769,20629,"ide_methods.bas");}while(r);
S_62690:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20629,"ide_methods.bas");if(r)goto S_62690;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20629,"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(25769,20630,"ide_methods.bas");}while(r);
S_62694:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20630,"ide_methods.bas");if(r)goto S_62694;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20630,"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(25769,20631,"ide_methods.bas");}while(r);
S_62698:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20631,"ide_methods.bas");if(r)goto S_62698;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20631,"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(25769,20632,"ide_methods.bas");}while(r);
S_62702:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20632,"ide_methods.bas");if(r)goto S_62702;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20632,"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(25769,20633,"ide_methods.bas");}while(r);
S_62706:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20633,"ide_methods.bas");if(r)goto S_62706;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20633,"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(25769,20634,"ide_methods.bas");}while(r);
S_62710:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20634,"ide_methods.bas");if(r)goto S_62710;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20634,"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(25769,20635,"ide_methods.bas");}while(r);
S_62714:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(25769,20635,"ide_methods.bas");if(r)goto S_62714;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(25769,20635,"ide_methods.bas");}while(r);
}
do{
goto LABEL_PROCEEDWITHOUTSYMBOL;
if(!qbevent)break;evnt(25769,20636,"ide_methods.bas");}while(r);
LABEL_FOUNDSYMBOL:;
if(qbevent){evnt(25769,20637,"ide_methods.bas");r=0;}
S_62718:;
if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20638,"ide_methods.bas");if(r)goto S_62718;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20638,"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(25769,20639,"ide_methods.bas");}while(r);
S_62722:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20640,"ide_methods.bas");if(r)goto S_62722;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20640,"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(25769,20641,"ide_methods.bas");}while(r);
LABEL_PROCEEDWITHOUTSYMBOL:;
if(qbevent){evnt(25769,20643,"ide_methods.bas");r=0;}
do{
*_FUNC_ISNUMBER_LONG_FF= 0 ;
if(!qbevent)break;evnt(25769,20644,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_EE= 0 ;
if(!qbevent)break;evnt(25769,20645,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_DD= 0 ;
if(!qbevent)break;evnt(25769,20646,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_NEG= 0 ;
if(!qbevent)break;evnt(25769,20647,"ide_methods.bas");}while(r);
S_62730:;
fornext_value7068= 1 ;
fornext_finalvalue7068=_FUNC_ISNUMBER_STRING_A->len;
fornext_step7068= 1 ;
if (fornext_step7068<0) fornext_step_negative7068=1; else fornext_step_negative7068=0;
if (is_error_pending()) goto fornext_error7068;
goto fornext_entrylabel7068;
while(1){
fornext_value7068=fornext_step7068+(*_FUNC_ISNUMBER_LONG_I);
fornext_entrylabel7068:
*_FUNC_ISNUMBER_LONG_I=fornext_value7068;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative7068){
if (fornext_value7068<fornext_finalvalue7068) break;
}else{
if (fornext_value7068>fornext_finalvalue7068) break;
}
fornext_error7068:;
if(qbevent){evnt(25769,20648,"ide_methods.bas");if(r)goto S_62730;}
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(25769,20649,"ide_methods.bas");}while(r);
S_62732:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||is_error_pending()){
if(qbevent){evnt(25769,20650,"ide_methods.bas");if(r)goto S_62732;}
S_62733:;
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(25769,20651,"ide_methods.bas");if(r)goto S_62733;}
do{
*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 ));
if(!qbevent)break;evnt(25769,20651,"ide_methods.bas");}while(r);
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20651,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20652,"ide_methods.bas");}while(r);
}
S_62739:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||is_error_pending()){
if(qbevent){evnt(25769,20654,"ide_methods.bas");if(r)goto S_62739;}
S_62740:;
if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20655,"ide_methods.bas");if(r)goto S_62740;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20655,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DP= 1 ;
if(!qbevent)break;evnt(25769,20656,"ide_methods.bas");}while(r);
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20657,"ide_methods.bas");}while(r);
}
S_62746:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||is_error_pending()){
if(qbevent){evnt(25769,20659,"ide_methods.bas");if(r)goto S_62746;}
S_62747:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20660,"ide_methods.bas");if(r)goto S_62747;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20660,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(25769,20661,"ide_methods.bas");}while(r);
S_62751:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||is_error_pending()){
if(qbevent){evnt(25769,20662,"ide_methods.bas");if(r)goto S_62751;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20662,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20663,"ide_methods.bas");}while(r);
}
S_62756:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||is_error_pending()){
if(qbevent){evnt(25769,20665,"ide_methods.bas");if(r)goto S_62756;}
S_62757:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20666,"ide_methods.bas");if(r)goto S_62757;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20666,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(25769,20667,"ide_methods.bas");}while(r);
S_62761:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||is_error_pending()){
if(qbevent){evnt(25769,20668,"ide_methods.bas");if(r)goto S_62761;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20668,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20669,"ide_methods.bas");}while(r);
}
S_62766:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||is_error_pending()){
if(qbevent){evnt(25769,20671,"ide_methods.bas");if(r)goto S_62766;}
S_62767:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(25769,20672,"ide_methods.bas");if(r)goto S_62767;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20672,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(25769,20673,"ide_methods.bas");}while(r);
S_62771:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||is_error_pending()){
if(qbevent){evnt(25769,20674,"ide_methods.bas");if(r)goto S_62771;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20674,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20675,"ide_methods.bas");}while(r);
}
S_62776:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||is_error_pending()){
if(qbevent){evnt(25769,20677,"ide_methods.bas");if(r)goto S_62776;}
S_62777:;
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(25769,20678,"ide_methods.bas");if(r)goto S_62777;}
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20678,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20679,"ide_methods.bas");}while(r);
}
S_62782:;
if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||is_error_pending()){
if(qbevent){evnt(25769,20682,"ide_methods.bas");if(r)goto S_62782;}
do{
goto fornext_continue_7067;
if(!qbevent)break;evnt(25769,20682,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20683,"ide_methods.bas");}while(r);
fornext_continue_7067:;
}
fornext_exit_7067:;
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(25769,20685,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free379.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;
}
