qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_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 "data111.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,407,"elements.bas");}while(r);
S_32888:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(24218,411,"elements.bas");if(r)goto S_32888;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,411,"elements.bas");}while(r);
}
do{
*_FUNC_ELEUCASE_LONG_I= 1 ;
if(!qbevent)break;evnt(24218,412,"elements.bas");}while(r);
S_32892:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||is_error_pending()){
if(qbevent){evnt(24218,413,"elements.bas");if(r)goto S_32892;}
do{
*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,414,"elements.bas");}while(r);
S_32894:;
if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||is_error_pending()){
if(qbevent){evnt(24218,415,"elements.bas");if(r)goto S_32894;}
do{
qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,415,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24218,415,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,416,"elements.bas");}while(r);
do{
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2;
if(!qbevent)break;evnt(24218,417,"elements.bas");}while(r);
}
do{
qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,420,"elements.bas");}while(r);
S_32902:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(24218,421,"elements.bas");if(r)goto S_32902;}
S_32903:;
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()){
if(qbevent){evnt(24218,422,"elements.bas");if(r)goto S_32903;}
do{
*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,423,"elements.bas");}while(r);
do{
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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,424,"elements.bas");}while(r);
do{
*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,425,"elements.bas");}while(r);
S_32907:;
if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||is_error_pending()){
if(qbevent){evnt(24218,425,"elements.bas");if(r)goto S_32907;}
do{
*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,425,"elements.bas");}while(r);
}else{
do{
*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ;
if(!qbevent)break;evnt(24218,425,"elements.bas");}while(r);
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,426,"elements.bas");}while(r);
do{
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ;
if(!qbevent)break;evnt(24218,427,"elements.bas");}while(r);
S_32914:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(24218,428,"elements.bas");if(r)goto S_32914;}
do{
goto dl_exit_3797;
if(!qbevent)break;evnt(24218,428,"elements.bas");}while(r);
}
dl_continue_3797:;
}
dl_exit_3797:;
}
do{
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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,431,"elements.bas");}while(r);
do{
qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24218,432,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free111.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;
qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE;
}
