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 "data368.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(24235,20614,"ide_methods.bas");}while(r);
S_61003:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(24235,20615,"ide_methods.bas");if(r)goto S_61003;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20615,"ide_methods.bas");}while(r);
}
S_61006:;
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(24235,20617,"ide_methods.bas");if(r)goto S_61006;}
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(24235,20617,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20617,"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(24235,20619,"ide_methods.bas");}while(r);
S_61011:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20619,"ide_methods.bas");if(r)goto S_61011;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20619,"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(24235,20620,"ide_methods.bas");}while(r);
S_61015:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20620,"ide_methods.bas");if(r)goto S_61015;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20620,"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(24235,20621,"ide_methods.bas");}while(r);
S_61019:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20621,"ide_methods.bas");if(r)goto S_61019;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20621,"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(24235,20622,"ide_methods.bas");}while(r);
S_61023:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20622,"ide_methods.bas");if(r)goto S_61023;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20622,"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(24235,20623,"ide_methods.bas");}while(r);
S_61027:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20623,"ide_methods.bas");if(r)goto S_61027;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20623,"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(24235,20624,"ide_methods.bas");}while(r);
S_61031:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20624,"ide_methods.bas");if(r)goto S_61031;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20624,"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(24235,20625,"ide_methods.bas");}while(r);
S_61035:;
if ((*_FUNC_ISNUMBER_LONG_I)||is_error_pending()){
if(qbevent){evnt(24235,20625,"ide_methods.bas");if(r)goto S_61035;}
do{
goto LABEL_FOUNDSYMBOL;
if(!qbevent)break;evnt(24235,20625,"ide_methods.bas");}while(r);
}
do{
goto LABEL_PROCEEDWITHOUTSYMBOL;
if(!qbevent)break;evnt(24235,20626,"ide_methods.bas");}while(r);
LABEL_FOUNDSYMBOL:;
if(qbevent){evnt(24235,20627,"ide_methods.bas");r=0;}
S_61039:;
if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,20628,"ide_methods.bas");if(r)goto S_61039;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20628,"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(24235,20629,"ide_methods.bas");}while(r);
S_61043:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||is_error_pending()){
if(qbevent){evnt(24235,20630,"ide_methods.bas");if(r)goto S_61043;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20630,"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(24235,20631,"ide_methods.bas");}while(r);
LABEL_PROCEEDWITHOUTSYMBOL:;
if(qbevent){evnt(24235,20633,"ide_methods.bas");r=0;}
do{
*_FUNC_ISNUMBER_LONG_FF= 0 ;
if(!qbevent)break;evnt(24235,20634,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_EE= 0 ;
if(!qbevent)break;evnt(24235,20635,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_DD= 0 ;
if(!qbevent)break;evnt(24235,20636,"ide_methods.bas");}while(r);
do{
*_FUNC_ISNUMBER_LONG_NEG= 0 ;
if(!qbevent)break;evnt(24235,20637,"ide_methods.bas");}while(r);
S_61051:;
fornext_value6800= 1 ;
fornext_finalvalue6800=_FUNC_ISNUMBER_STRING_A->len;
fornext_step6800= 1 ;
if (fornext_step6800<0) fornext_step_negative6800=1; else fornext_step_negative6800=0;
if (is_error_pending()) goto fornext_error6800;
goto fornext_entrylabel6800;
while(1){
fornext_value6800=fornext_step6800+(*_FUNC_ISNUMBER_LONG_I);
fornext_entrylabel6800:
*_FUNC_ISNUMBER_LONG_I=fornext_value6800;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6800){
if (fornext_value6800<fornext_finalvalue6800) break;
}else{
if (fornext_value6800>fornext_finalvalue6800) break;
}
fornext_error6800:;
if(qbevent){evnt(24235,20638,"ide_methods.bas");if(r)goto S_61051;}
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(24235,20639,"ide_methods.bas");}while(r);
S_61053:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||is_error_pending()){
if(qbevent){evnt(24235,20640,"ide_methods.bas");if(r)goto S_61053;}
S_61054:;
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(24235,20641,"ide_methods.bas");if(r)goto S_61054;}
do{
*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 ));
if(!qbevent)break;evnt(24235,20641,"ide_methods.bas");}while(r);
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20641,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20642,"ide_methods.bas");}while(r);
}
S_61060:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||is_error_pending()){
if(qbevent){evnt(24235,20644,"ide_methods.bas");if(r)goto S_61060;}
S_61061:;
if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||is_error_pending()){
if(qbevent){evnt(24235,20645,"ide_methods.bas");if(r)goto S_61061;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20645,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DP= 1 ;
if(!qbevent)break;evnt(24235,20646,"ide_methods.bas");}while(r);
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20647,"ide_methods.bas");}while(r);
}
S_61067:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||is_error_pending()){
if(qbevent){evnt(24235,20649,"ide_methods.bas");if(r)goto S_61067;}
S_61068:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(24235,20650,"ide_methods.bas");if(r)goto S_61068;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20650,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(24235,20651,"ide_methods.bas");}while(r);
S_61072:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||is_error_pending()){
if(qbevent){evnt(24235,20652,"ide_methods.bas");if(r)goto S_61072;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20652,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20653,"ide_methods.bas");}while(r);
}
S_61077:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||is_error_pending()){
if(qbevent){evnt(24235,20655,"ide_methods.bas");if(r)goto S_61077;}
S_61078:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(24235,20656,"ide_methods.bas");if(r)goto S_61078;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20656,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(24235,20657,"ide_methods.bas");}while(r);
S_61082:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||is_error_pending()){
if(qbevent){evnt(24235,20658,"ide_methods.bas");if(r)goto S_61082;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20658,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20659,"ide_methods.bas");}while(r);
}
S_61087:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||is_error_pending()){
if(qbevent){evnt(24235,20661,"ide_methods.bas");if(r)goto S_61087;}
S_61088:;
if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||is_error_pending()){
if(qbevent){evnt(24235,20662,"ide_methods.bas");if(r)goto S_61088;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20662,"ide_methods.bas");}while(r);
}
do{
*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I;
if(!qbevent)break;evnt(24235,20663,"ide_methods.bas");}while(r);
S_61092:;
if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||is_error_pending()){
if(qbevent){evnt(24235,20664,"ide_methods.bas");if(r)goto S_61092;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20664,"ide_methods.bas");}while(r);
}
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20665,"ide_methods.bas");}while(r);
}
S_61097:;
if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||is_error_pending()){
if(qbevent){evnt(24235,20667,"ide_methods.bas");if(r)goto S_61097;}
S_61098:;
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(24235,20668,"ide_methods.bas");if(r)goto S_61098;}
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20668,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20669,"ide_methods.bas");}while(r);
}
S_61103:;
if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||is_error_pending()){
if(qbevent){evnt(24235,20672,"ide_methods.bas");if(r)goto S_61103;}
do{
goto fornext_continue_6799;
if(!qbevent)break;evnt(24235,20672,"ide_methods.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24235,20673,"ide_methods.bas");}while(r);
fornext_continue_6799:;
}
fornext_exit_6799:;
do{
*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ;
if(!qbevent)break;evnt(24235,20675,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free368.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;
}
