#line 418 "utilities/elements.bas"
qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_STRING_A){
#line 418 "utilities/elements.bas"
qbs *tqbs;
#line 418 "utilities/elements.bas"
ptrszint tmp_long;
#line 418 "utilities/elements.bas"
int32 tmp_fileno;
#line 418 "utilities/elements.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 418 "utilities/elements.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 418 "utilities/elements.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 418 "utilities/elements.bas"
#include "data182.txt"
#line 418 "utilities/elements.bas"
mem_lock *sf_mem_lock;
#line 418 "utilities/elements.bas"
new_mem_lock();
#line 418 "utilities/elements.bas"
sf_mem_lock=mem_lock_tmp;
#line 418 "utilities/elements.bas"
sf_mem_lock->type=3;
#line 418 "utilities/elements.bas"
libqb_check_stack();
#line 418 "utilities/elements.bas"
if (is_error_pending()) goto exit_subfunc;
#line 419 "utilities/elements.bas"
do{
#line 419 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,419,"elements.bas");}while(r);
#line 423 "utilities/elements.bas"
S_38765:;
#line 423 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||is_error_pending()){
#line 423 "utilities/elements.bas"
if(qbevent){evnt(28802,423,"elements.bas");if(r)goto S_38765;}
#line 423 "utilities/elements.bas"
do{
#line 423 "utilities/elements.bas"
goto exit_subfunc;
#line 423 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,423,"elements.bas");}while(r);
#line 423 "utilities/elements.bas"
}
#line 424 "utilities/elements.bas"
do{
#line 424 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I= 1 ;
#line 424 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,424,"elements.bas");}while(r);
#line 425 "utilities/elements.bas"
S_38769:;
#line 425 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||is_error_pending()){
#line 425 "utilities/elements.bas"
if(qbevent){evnt(28802,425,"elements.bas");if(r)goto S_38769;}
#line 426 "utilities/elements.bas"
do{
#line 426 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0);
#line 426 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 426 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,426,"elements.bas");}while(r);
#line 427 "utilities/elements.bas"
S_38771:;
#line 427 "utilities/elements.bas"
if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||is_error_pending()){
#line 427 "utilities/elements.bas"
if(qbevent){evnt(28802,427,"elements.bas");if(r)goto S_38771;}
#line 427 "utilities/elements.bas"
do{
#line 427 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A);
#line 427 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 427 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,427,"elements.bas");}while(r);
#line 427 "utilities/elements.bas"
do{
#line 427 "utilities/elements.bas"
goto exit_subfunc;
#line 427 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,427,"elements.bas");}while(r);
#line 427 "utilities/elements.bas"
}
#line 428 "utilities/elements.bas"
do{
#line 428 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 ));
#line 428 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 428 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,428,"elements.bas");}while(r);
#line 429 "utilities/elements.bas"
do{
#line 429 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2;
#line 429 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,429,"elements.bas");}while(r);
#line 430 "utilities/elements.bas"
}
#line 432 "utilities/elements.bas"
do{
#line 432 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 )));
#line 432 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 432 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,432,"elements.bas");}while(r);
#line 433 "utilities/elements.bas"
S_38779:;
#line 433 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
#line 433 "utilities/elements.bas"
if(qbevent){evnt(28802,433,"elements.bas");if(r)goto S_38779;}
#line 434 "utilities/elements.bas"
S_38780:;
#line 434 "utilities/elements.bas"
while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1)))||is_error_pending()){
#line 434 "utilities/elements.bas"
if(qbevent){evnt(28802,434,"elements.bas");if(r)goto S_38780;}
#line 435 "utilities/elements.bas"
do{
#line 435 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1);
#line 435 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 435 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,435,"elements.bas");}while(r);
#line 436 "utilities/elements.bas"
do{
#line 436 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,*_FUNC_ELEUCASE_LONG_I2-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1))));
#line 436 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 436 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,436,"elements.bas");}while(r);
#line 437 "utilities/elements.bas"
do{
#line 437 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0|1);
#line 437 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 437 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,437,"elements.bas");}while(r);
#line 437 "utilities/elements.bas"
S_38784:;
#line 437 "utilities/elements.bas"
if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||is_error_pending()){
#line 437 "utilities/elements.bas"
if(qbevent){evnt(28802,437,"elements.bas");if(r)goto S_38784;}
#line 437 "utilities/elements.bas"
do{
#line 437 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len;
#line 437 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 437 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,437,"elements.bas");}while(r);
#line 437 "utilities/elements.bas"
}else{
#line 437 "utilities/elements.bas"
do{
#line 437 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ;
#line 437 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,437,"elements.bas");}while(r);
#line 437 "utilities/elements.bas"
}
#line 438 "utilities/elements.bas"
do{
#line 438 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2+ 1 ,*_FUNC_ELEUCASE_LONG_I3-(*_FUNC_ELEUCASE_LONG_I2+ 1 )+ 1 ,0|1)));
#line 438 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 438 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,438,"elements.bas");}while(r);
#line 439 "utilities/elements.bas"
do{
#line 439 "utilities/elements.bas"
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ;
#line 439 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,439,"elements.bas");}while(r);
#line 440 "utilities/elements.bas"
S_38791:;
#line 440 "utilities/elements.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
#line 440 "utilities/elements.bas"
if(qbevent){evnt(28802,440,"elements.bas");if(r)goto S_38791;}
#line 440 "utilities/elements.bas"
do{
#line 440 "utilities/elements.bas"
goto dl_exit_3813;
#line 440 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,440,"elements.bas");}while(r);
#line 440 "utilities/elements.bas"
}
#line 441 "utilities/elements.bas"
dl_continue_3813:;
#line 441 "utilities/elements.bas"
}
#line 441 "utilities/elements.bas"
dl_exit_3813:;
#line 442 "utilities/elements.bas"
}
#line 443 "utilities/elements.bas"
do{
#line 443 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A->len-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1))));
#line 443 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 443 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,443,"elements.bas");}while(r);
#line 444 "utilities/elements.bas"
do{
#line 444 "utilities/elements.bas"
qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2);
#line 444 "utilities/elements.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 444 "utilities/elements.bas"
if(!qbevent)break;evnt(28802,444,"elements.bas");}while(r);
#line 445 "utilities/elements.bas"
exit_subfunc:;
#line 445 "utilities/elements.bas"
free_mem_lock(sf_mem_lock);
#line 445 "utilities/elements.bas"
#include "free182.txt"
#line 445 "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 445 "utilities/elements.bas"
cmem_sp=tmp_cmem_sp;
#line 445 "utilities/elements.bas"
qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE;
#line 445 "utilities/elements.bas"
}
