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 "data146.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(28165,407,"elements.bas");}while(r);
S_37117:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||is_error_pending()){
if(qbevent){evnt(28165,411,"elements.bas");if(r)goto S_37117;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,411,"elements.bas");}while(r);
}
do{
*_FUNC_ELEUCASE_LONG_I= 1 ;
if(!qbevent)break;evnt(28165,412,"elements.bas");}while(r);
S_37121:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||is_error_pending()){
if(qbevent){evnt(28165,413,"elements.bas");if(r)goto S_37121;}
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(28165,414,"elements.bas");}while(r);
S_37123:;
if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||is_error_pending()){
if(qbevent){evnt(28165,415,"elements.bas");if(r)goto S_37123;}
do{
qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,415,"elements.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28165,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(28165,416,"elements.bas");}while(r);
do{
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2;
if(!qbevent)break;evnt(28165,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(28165,420,"elements.bas");}while(r);
S_37131:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(28165,421,"elements.bas");if(r)goto S_37131;}
S_37132:;
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(28165,422,"elements.bas");if(r)goto S_37132;}
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(28165,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(28165,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(28165,425,"elements.bas");}while(r);
S_37136:;
if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||is_error_pending()){
if(qbevent){evnt(28165,425,"elements.bas");if(r)goto S_37136;}
do{
*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28165,425,"elements.bas");}while(r);
}else{
do{
*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ;
if(!qbevent)break;evnt(28165,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(28165,426,"elements.bas");}while(r);
do{
*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ;
if(!qbevent)break;evnt(28165,427,"elements.bas");}while(r);
S_37143:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(28165,428,"elements.bas");if(r)goto S_37143;}
do{
goto dl_exit_4458;
if(!qbevent)break;evnt(28165,428,"elements.bas");}while(r);
}
dl_continue_4458:;
}
dl_exit_4458:;
}
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(28165,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(28165,432,"elements.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free146.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;
}
