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 "data120.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(25752,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(25752,442,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_TYP= 0 ;
if(!qbevent)break;evnt(25752,443,"elements.bas");}while(r);
S_34434:;
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(25752,446,"elements.bas");if(r)goto S_34434;}
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(25752,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(25752,449,"elements.bas");}while(r);
S_34438:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(25752,450,"elements.bas");if(r)goto S_34438;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,450,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,450,"elements.bas");}while(r);
}
S_34442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(25752,451,"elements.bas");if(r)goto S_34442;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,451,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,451,"elements.bas");}while(r);
}
S_34446:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(25752,452,"elements.bas");if(r)goto S_34446;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,452,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,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(25752,453,"elements.bas");}while(r);
S_34451:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(25752,454,"elements.bas");if(r)goto S_34451;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,454,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,454,"elements.bas");}while(r);
}
S_34455:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(25752,455,"elements.bas");if(r)goto S_34455;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,455,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,455,"elements.bas");}while(r);
}
S_34459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(25752,456,"elements.bas");if(r)goto S_34459;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,456,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,456,"elements.bas");}while(r);
}
S_34463:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(25752,457,"elements.bas");if(r)goto S_34463;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,457,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,457,"elements.bas");}while(r);
}
S_34467:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(25752,458,"elements.bas");if(r)goto S_34467;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,458,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,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(25752,459,"elements.bas");}while(r);
S_34472:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(25752,460,"elements.bas");if(r)goto S_34472;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,460,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,460,"elements.bas");}while(r);
}
S_34476:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(25752,461,"elements.bas");if(r)goto S_34476;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,461,"elements.bas");}while(r);
do{
goto LABEL_HANDLEINTEGER;
if(!qbevent)break;evnt(25752,461,"elements.bas");}while(r);
}
S_34480:;
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(25752,464,"elements.bas");if(r)goto S_34480;}
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(25752,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(25752,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(25752,467,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,468,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,469,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,470,"elements.bas");}while(r);
}
S_34488:;
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(25752,474,"elements.bas");if(r)goto S_34488;}
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(25752,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(25752,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(25752,477,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,478,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,479,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,480,"elements.bas");}while(r);
}
S_34496:;
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(25752,484,"elements.bas");if(r)goto S_34496;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25752,485,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,486,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,487,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,489,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,490,"elements.bas");}while(r);
}
S_34503:;
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(25752,492,"elements.bas");if(r)goto S_34503;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25752,493,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,494,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,495,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,497,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,498,"elements.bas");}while(r);
}
S_34510:;
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(25752,500,"elements.bas");if(r)goto S_34510;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25752,501,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,502,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
if(!qbevent)break;evnt(25752,503,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,505,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25752,506,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25752,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(25752,511,"elements.bas");}while(r);
LABEL_HANDLEINTEGER:;
if(qbevent){evnt(25752,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(25752,514,"elements.bas");}while(r);
S_34520:;
if ((*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(25752,516,"elements.bas");if(r)goto S_34520;}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbs_val<uint64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25752,517,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL;
if(!qbevent)break;evnt(25752,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(25752,520,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,521,"elements.bas");}while(r);
}
do{
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
if(!qbevent)break;evnt(25752,524,"elements.bas");}while(r);
do{
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE;
if(!qbevent)break;evnt(25752,526,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free120.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;
}
