int32 FUNC_ELEMENTGETNUMERICVALUE(qbs*_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE,long double*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING,int64*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL,uint64*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL){
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 "data112.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{
if(!qbevent)break;evnt(24218,441,"elements.bas");}while(r);
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,442,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_TYP= 0 ;
if(!qbevent)break;evnt(24218,443,"elements.bas");}while(r);
S_32924:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(",",1),0)))||is_error_pending()){
if(qbevent){evnt(24218,446,"elements.bas");if(r)goto S_32924;}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,func_mid(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(",",1),0)- 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,446,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,449,"elements.bas");}while(r);
S_32928:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(24218,450,"elements.bas");if(r)goto S_32928;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,450,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,450,"elements.bas");}while(r);
}
S_32932:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(24218,451,"elements.bas");if(r)goto S_32932;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,451,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,451,"elements.bas");}while(r);
}
S_32936:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(24218,452,"elements.bas");if(r)goto S_32936;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,452,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,452,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,453,"elements.bas");}while(r);
S_32941:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(24218,454,"elements.bas");if(r)goto S_32941;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,454,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,454,"elements.bas");}while(r);
}
S_32945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(24218,455,"elements.bas");if(r)goto S_32945;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,455,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,455,"elements.bas");}while(r);
}
S_32949:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(24218,456,"elements.bas");if(r)goto S_32949;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,456,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,456,"elements.bas");}while(r);
}
S_32953:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(24218,457,"elements.bas");if(r)goto S_32953;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,457,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,457,"elements.bas");}while(r);
}
S_32957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(24218,458,"elements.bas");if(r)goto S_32957;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,458,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,458,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,459,"elements.bas");}while(r);
S_32962:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(24218,460,"elements.bas");if(r)goto S_32962;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,460,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,460,"elements.bas");}while(r);
}
S_32966:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(24218,461,"elements.bas");if(r)goto S_32966;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,461,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(24218,461,"elements.bas");}while(r);
}
S_32970:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0)))||is_error_pending()){
if(qbevent){evnt(24218,464,"elements.bas");if(r)goto S_32970;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,465,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=qbr(*__LONG_UBITTYPE-*__LONG_ISPOINTER- 1 +qbs_val<long double>(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,466,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,467,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,468,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,469,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,470,"elements.bas");}while(r);
}
S_32978:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0)))||is_error_pending()){
if(qbevent){evnt(24218,474,"elements.bas");if(r)goto S_32978;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,475,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=qbr(*__LONG_BITTYPE-*__LONG_ISPOINTER- 1 +qbs_val<long double>(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,476,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,477,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,478,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,479,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,480,"elements.bas");}while(r);
}
S_32986:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("F",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 2 ),qbs_new_txt_len("##",2)))))||is_error_pending()){
if(qbevent){evnt(24218,484,"elements.bas");if(r)goto S_32986;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,485,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,486,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,487,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,489,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,490,"elements.bas");}while(r);
}
S_32993:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("E",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ),qbs_new_txt_len("!",1)))))||is_error_pending()){
if(qbevent){evnt(24218,492,"elements.bas");if(r)goto S_32993;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,493,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,494,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,495,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,497,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,498,"elements.bas");}while(r);
}
S_33000:;
if ((qbs_cleanup(qbs_tmp_base,(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("D",1),0))|(qbs_equal(qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ),qbs_new_txt_len("#",1)))|(func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(".",1),0))))||is_error_pending()){
if(qbevent){evnt(24218,500,"elements.bas");if(r)goto S_33000;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,501,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,502,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(24218,503,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,505,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,506,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(24218,510,"elements.bas");}while(r);
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,511,"elements.bas");}while(r);
LABEL_HANDLEINTEGER:;
if(qbevent){evnt(24218,513,"elements.bas");r=0;}
do{
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-_FUNC_ELEMENTGETNUMERICVALUE_STRING_E->len));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,514,"elements.bas");}while(r);
S_33010:;
if ((*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(24218,516,"elements.bas");if(r)goto S_33010;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbs_val<uint64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,517,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL;
if(!qbevent)break;evnt(24218,518,"elements.bas");}while(r);
}else{
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbs_val<int64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,520,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,521,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(24218,524,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE;
if(!qbevent)break;evnt(24218,526,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free112.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_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE;
}
