#line 452 "utilities/elements.bas"
int32 FUNC_ELEMENTGETNUMERICVALUE(qbs*_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE,long double*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING,int64*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL,uint64*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL){
#line 452 "utilities/elements.bas"
qbs *tqbs;
#line 452 "utilities/elements.bas"
ptrszint tmp_long;
#line 452 "utilities/elements.bas"
int32 tmp_fileno;
#line 452 "utilities/elements.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 452 "utilities/elements.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 452 "utilities/elements.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 452 "utilities/elements.bas"
#include "data183.txt"
#line 452 "utilities/elements.bas"
mem_lock *sf_mem_lock;
#line 452 "utilities/elements.bas"
new_mem_lock();
#line 452 "utilities/elements.bas"
sf_mem_lock=mem_lock_tmp;
#line 452 "utilities/elements.bas"
sf_mem_lock->type=3;
#line 452 "utilities/elements.bas"
libqb_check_stack();
#line 452 "utilities/elements.bas"
if (is_error_pending()) goto exit_subfunc;
#line 453 "utilities/elements.bas"
do{
#line 453 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,453,"elements.bas");}while(r);
#line 454 "utilities/elements.bas"
do{
#line 454 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_ELE);
#line 454 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 454 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,454,"elements.bas");}while(r);
#line 455 "utilities/elements.bas"
do{
#line 455 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_TYP= 0 ;
#line 455 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,455,"elements.bas");}while(r);
#line 458 "utilities/elements.bas"
S_38801:;
#line 458 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len(",",1),0)))||is_error_pending()){
#line 458 "utilities/elements.bas"
if(qbevent){evnt(28802,458,"elements.bas");if(r)goto S_38801;}
#line 458 "utilities/elements.bas"
do{
#line 458 "utilities/elements.bas"
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));
#line 458 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 458 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,458,"elements.bas");}while(r);
#line 458 "utilities/elements.bas"
}
#line 461 "utilities/elements.bas"
do{
#line 461 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 3 ));
#line 461 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 461 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,461,"elements.bas");}while(r);
#line 462 "utilities/elements.bas"
S_38805:;
#line 462 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 462 "utilities/elements.bas"
if(qbevent){evnt(28802,462,"elements.bas");if(r)goto S_38805;}
#line 462 "utilities/elements.bas"
do{
#line 462 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 462 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,462,"elements.bas");}while(r);
#line 462 "utilities/elements.bas"
do{
#line 462 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 462 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,462,"elements.bas");}while(r);
#line 462 "utilities/elements.bas"
}
#line 463 "utilities/elements.bas"
S_38809:;
#line 463 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 463 "utilities/elements.bas"
if(qbevent){evnt(28802,463,"elements.bas");if(r)goto S_38809;}
#line 463 "utilities/elements.bas"
do{
#line 463 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
#line 463 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,463,"elements.bas");}while(r);
#line 463 "utilities/elements.bas"
do{
#line 463 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 463 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,463,"elements.bas");}while(r);
#line 463 "utilities/elements.bas"
}
#line 464 "utilities/elements.bas"
S_38813:;
#line 464 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 464 "utilities/elements.bas"
if(qbevent){evnt(28802,464,"elements.bas");if(r)goto S_38813;}
#line 464 "utilities/elements.bas"
do{
#line 464 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 464 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,464,"elements.bas");}while(r);
#line 464 "utilities/elements.bas"
do{
#line 464 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 464 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,464,"elements.bas");}while(r);
#line 464 "utilities/elements.bas"
}
#line 465 "utilities/elements.bas"
do{
#line 465 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 2 ));
#line 465 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 465 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,465,"elements.bas");}while(r);
#line 466 "utilities/elements.bas"
S_38818:;
#line 466 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 466 "utilities/elements.bas"
if(qbevent){evnt(28802,466,"elements.bas");if(r)goto S_38818;}
#line 466 "utilities/elements.bas"
do{
#line 466 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 466 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,466,"elements.bas");}while(r);
#line 466 "utilities/elements.bas"
do{
#line 466 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 466 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,466,"elements.bas");}while(r);
#line 466 "utilities/elements.bas"
}
#line 467 "utilities/elements.bas"
S_38822:;
#line 467 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 467 "utilities/elements.bas"
if(qbevent){evnt(28802,467,"elements.bas");if(r)goto S_38822;}
#line 467 "utilities/elements.bas"
do{
#line 467 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
#line 467 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,467,"elements.bas");}while(r);
#line 467 "utilities/elements.bas"
do{
#line 467 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 467 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,467,"elements.bas");}while(r);
#line 467 "utilities/elements.bas"
}
#line 468 "utilities/elements.bas"
S_38826:;
#line 468 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 468 "utilities/elements.bas"
if(qbevent){evnt(28802,468,"elements.bas");if(r)goto S_38826;}
#line 468 "utilities/elements.bas"
do{
#line 468 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 468 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,468,"elements.bas");}while(r);
#line 468 "utilities/elements.bas"
do{
#line 468 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 468 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,468,"elements.bas");}while(r);
#line 468 "utilities/elements.bas"
}
#line 469 "utilities/elements.bas"
S_38830:;
#line 469 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 469 "utilities/elements.bas"
if(qbevent){evnt(28802,469,"elements.bas");if(r)goto S_38830;}
#line 469 "utilities/elements.bas"
do{
#line 469 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
#line 469 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,469,"elements.bas");}while(r);
#line 469 "utilities/elements.bas"
do{
#line 469 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 469 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,469,"elements.bas");}while(r);
#line 469 "utilities/elements.bas"
}
#line 470 "utilities/elements.bas"
S_38834:;
#line 470 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 470 "utilities/elements.bas"
if(qbevent){evnt(28802,470,"elements.bas");if(r)goto S_38834;}
#line 470 "utilities/elements.bas"
do{
#line 470 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
#line 470 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,470,"elements.bas");}while(r);
#line 470 "utilities/elements.bas"
do{
#line 470 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 470 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,470,"elements.bas");}while(r);
#line 470 "utilities/elements.bas"
}
#line 471 "utilities/elements.bas"
do{
#line 471 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_right(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM, 1 ));
#line 471 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 471 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,471,"elements.bas");}while(r);
#line 472 "utilities/elements.bas"
S_38839:;
#line 472 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 472 "utilities/elements.bas"
if(qbevent){evnt(28802,472,"elements.bas");if(r)goto S_38839;}
#line 472 "utilities/elements.bas"
do{
#line 472 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
#line 472 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,472,"elements.bas");}while(r);
#line 472 "utilities/elements.bas"
do{
#line 472 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 472 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,472,"elements.bas");}while(r);
#line 472 "utilities/elements.bas"
}
#line 473 "utilities/elements.bas"
S_38843:;
#line 473 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 473 "utilities/elements.bas"
if(qbevent){evnt(28802,473,"elements.bas");if(r)goto S_38843;}
#line 473 "utilities/elements.bas"
do{
#line 473 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
#line 473 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,473,"elements.bas");}while(r);
#line 473 "utilities/elements.bas"
do{
#line 473 "utilities/elements.bas"
goto LABEL_HANDLEINTEGER;
#line 473 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,473,"elements.bas");}while(r);
#line 473 "utilities/elements.bas"
}
#line 476 "utilities/elements.bas"
S_38847:;
#line 476 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0)))||is_error_pending()){
#line 476 "utilities/elements.bas"
if(qbevent){evnt(28802,476,"elements.bas");if(r)goto S_38847;}
#line 477 "utilities/elements.bas"
do{
#line 477 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("~`",2),0);
#line 477 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 477 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,477,"elements.bas");}while(r);
#line 478 "utilities/elements.bas"
do{
#line 478 "utilities/elements.bas"
*_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 )));
#line 478 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 478 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,478,"elements.bas");}while(r);
#line 479 "utilities/elements.bas"
do{
#line 479 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
#line 479 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 479 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,479,"elements.bas");}while(r);
#line 480 "utilities/elements.bas"
do{
#line 480 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 480 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,480,"elements.bas");}while(r);
#line 481 "utilities/elements.bas"
do{
#line 481 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 481 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,481,"elements.bas");}while(r);
#line 482 "utilities/elements.bas"
do{
#line 482 "utilities/elements.bas"
goto exit_subfunc;
#line 482 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,482,"elements.bas");}while(r);
#line 483 "utilities/elements.bas"
}
#line 486 "utilities/elements.bas"
S_38855:;
#line 486 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0)))||is_error_pending()){
#line 486 "utilities/elements.bas"
if(qbevent){evnt(28802,486,"elements.bas");if(r)goto S_38855;}
#line 487 "utilities/elements.bas"
do{
#line 487 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X=func_instr(NULL,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_new_txt_len("`",1),0);
#line 487 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 487 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,487,"elements.bas");}while(r);
#line 488 "utilities/elements.bas"
do{
#line 488 "utilities/elements.bas"
*_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)));
#line 488 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 488 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,488,"elements.bas");}while(r);
#line 489 "utilities/elements.bas"
do{
#line 489 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(qbs_val<long double>(qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,*_FUNC_ELEMENTGETNUMERICVALUE_LONG_X- 1 )));
#line 489 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 489 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,489,"elements.bas");}while(r);
#line 490 "utilities/elements.bas"
do{
#line 490 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 490 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,490,"elements.bas");}while(r);
#line 491 "utilities/elements.bas"
do{
#line 491 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 491 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,491,"elements.bas");}while(r);
#line 492 "utilities/elements.bas"
do{
#line 492 "utilities/elements.bas"
goto exit_subfunc;
#line 492 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,492,"elements.bas");}while(r);
#line 493 "utilities/elements.bas"
}
#line 496 "utilities/elements.bas"
S_38863:;
#line 496 "utilities/elements.bas"
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()){
#line 496 "utilities/elements.bas"
if(qbevent){evnt(28802,496,"elements.bas");if(r)goto S_38863;}
#line 497 "utilities/elements.bas"
do{
#line 497 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
#line 497 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 497 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,497,"elements.bas");}while(r);
#line 498 "utilities/elements.bas"
do{
#line 498 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 498 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,498,"elements.bas");}while(r);
#line 499 "utilities/elements.bas"
do{
#line 499 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 499 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,499,"elements.bas");}while(r);
#line 501 "utilities/elements.bas"
do{
#line 501 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 501 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,501,"elements.bas");}while(r);
#line 502 "utilities/elements.bas"
do{
#line 502 "utilities/elements.bas"
goto exit_subfunc;
#line 502 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,502,"elements.bas");}while(r);
#line 503 "utilities/elements.bas"
}
#line 504 "utilities/elements.bas"
S_38870:;
#line 504 "utilities/elements.bas"
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()){
#line 504 "utilities/elements.bas"
if(qbevent){evnt(28802,504,"elements.bas");if(r)goto S_38870;}
#line 505 "utilities/elements.bas"
do{
#line 505 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
#line 505 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 505 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,505,"elements.bas");}while(r);
#line 506 "utilities/elements.bas"
do{
#line 506 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 506 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,506,"elements.bas");}while(r);
#line 507 "utilities/elements.bas"
do{
#line 507 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 507 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,507,"elements.bas");}while(r);
#line 509 "utilities/elements.bas"
do{
#line 509 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 509 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,509,"elements.bas");}while(r);
#line 510 "utilities/elements.bas"
do{
#line 510 "utilities/elements.bas"
goto exit_subfunc;
#line 510 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,510,"elements.bas");}while(r);
#line 511 "utilities/elements.bas"
}
#line 512 "utilities/elements.bas"
S_38877:;
#line 512 "utilities/elements.bas"
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()){
#line 512 "utilities/elements.bas"
if(qbevent){evnt(28802,512,"elements.bas");if(r)goto S_38877;}
#line 513 "utilities/elements.bas"
do{
#line 513 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=qbs_val<long double>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
#line 513 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 513 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,513,"elements.bas");}while(r);
#line 514 "utilities/elements.bas"
do{
#line 514 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 514 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,514,"elements.bas");}while(r);
#line 515 "utilities/elements.bas"
do{
#line 515 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbr(*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING);
#line 515 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,515,"elements.bas");}while(r);
#line 517 "utilities/elements.bas"
do{
#line 517 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 517 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,517,"elements.bas");}while(r);
#line 518 "utilities/elements.bas"
do{
#line 518 "utilities/elements.bas"
goto exit_subfunc;
#line 518 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,518,"elements.bas");}while(r);
#line 519 "utilities/elements.bas"
}
#line 522 "utilities/elements.bas"
do{
#line 522 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 522 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,522,"elements.bas");}while(r);
#line 523 "utilities/elements.bas"
do{
#line 523 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_E,qbs_new_txt_len("",0));
#line 523 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 523 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,523,"elements.bas");}while(r);
#line 525 "utilities/elements.bas"
LABEL_HANDLEINTEGER:;
#line 525 "utilities/elements.bas"
if(qbevent){evnt(28802,525,"elements.bas");r=0;}
#line 526 "utilities/elements.bas"
do{
#line 526 "utilities/elements.bas"
qbs_set(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,qbs_left(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM,_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM->len-_FUNC_ELEMENTGETNUMERICVALUE_STRING_E->len));
#line 526 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 526 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,526,"elements.bas");}while(r);
#line 528 "utilities/elements.bas"
S_38887:;
#line 528 "utilities/elements.bas"
if ((*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 528 "utilities/elements.bas"
if(qbevent){evnt(28802,528,"elements.bas");if(r)goto S_38887;}
#line 529 "utilities/elements.bas"
do{
#line 529 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=qbs_val<uint64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
#line 529 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 529 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,529,"elements.bas");}while(r);
#line 530 "utilities/elements.bas"
do{
#line 530 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL;
#line 530 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,530,"elements.bas");}while(r);
#line 531 "utilities/elements.bas"
}else{
#line 532 "utilities/elements.bas"
do{
#line 532 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL=qbs_val<int64_t>(_FUNC_ELEMENTGETNUMERICVALUE_STRING_NUM);
#line 532 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 532 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,532,"elements.bas");}while(r);
#line 533 "utilities/elements.bas"
do{
#line 533 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_UINTEGER64_UINTEGRAL=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 533 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,533,"elements.bas");}while(r);
#line 534 "utilities/elements.bas"
}
#line 536 "utilities/elements.bas"
do{
#line 536 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_FLOAT_FLOATING=*_FUNC_ELEMENTGETNUMERICVALUE_INTEGER64_INTEGRAL;
#line 536 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,536,"elements.bas");}while(r);
#line 538 "utilities/elements.bas"
do{
#line 538 "utilities/elements.bas"
*_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE=*_FUNC_ELEMENTGETNUMERICVALUE_LONG_RETURNVALUE;
#line 538 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,538,"elements.bas");}while(r);
#line 539 "utilities/elements.bas"
exit_subfunc:;
#line 539 "utilities/elements.bas"
free_mem_lock(sf_mem_lock);
#line 539 "utilities/elements.bas"
#include "free183.txt"
#line 539 "utilities/elements.bas"
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;
#line 539 "utilities/elements.bas"
cmem_sp=tmp_cmem_sp;
#line 539 "utilities/elements.bas"
return *_FUNC_ELEMENTGETNUMERICVALUE_LONG_ELEMENTGETNUMERICVALUE;
#line 539 "utilities/elements.bas"
}
