qbs* FUNC_SCASE2(qbs*_FUNC_SCASE2_STRING_T){
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 "data77.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;
S_33836:;
if(qbevent){evnt(25688);if(r)goto S_33836;}
S_33837:;
if (((*__LONG_IDEAUTOLAYOUTKWSTYLE<( 0 )))||is_error_pending()){
if(qbevent){evnt(25689);if(r)goto S_33837;}
do{
qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_lcase(_FUNC_SCASE2_STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25689);}while(r);
sc_ec_105_end:;
goto sc_3897_end;
}
S_33839:;
if (((*__LONG_IDEAUTOLAYOUTKWSTYLE>( 0 )))||is_error_pending()){
if(qbevent){evnt(25690);if(r)goto S_33839;}
do{
qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_ucase(_FUNC_SCASE2_STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25690);}while(r);
sc_ec_106_end:;
goto sc_3897_end;
}
S_33842:;
qbs_set(sc_3898,qbs_ucase(_FUNC_SCASE2_STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25692);if(r)goto S_33842;}
S_33843:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3898,qbs_new_txt_len("_ANDALSO",8))))||is_error_pending()){
if(qbevent){evnt(25693);if(r)goto S_33843;}
do{
qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_new_txt_len("_AndAlso",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25693);}while(r);
sc_ec_107_end:;
goto sc_3898_end;
}
S_33845:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3898,qbs_new_txt_len("_ORELSE",7))))||is_error_pending()){
if(qbevent){evnt(25694);if(r)goto S_33845;}
do{
qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_new_txt_len("_OrElse",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25694);}while(r);
sc_ec_108_end:;
goto sc_3898_end;
}
do{
*_FUNC_SCASE2_LONG_NEWWORD= -1 ;
if(!qbevent)break;evnt(25696);}while(r);
do{
qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25697);}while(r);
S_33850:;
fornext_value3900= 1 ;
fornext_finalvalue3900=_FUNC_SCASE2_STRING_T->len;
fornext_step3900= 1 ;
if (fornext_step3900<0) fornext_step_negative3900=1; else fornext_step_negative3900=0;
if (is_error_pending()) goto fornext_error3900;
goto fornext_entrylabel3900;
while(1){
fornext_value3900=fornext_step3900+(*_FUNC_SCASE2_LONG_I);
fornext_entrylabel3900:
*_FUNC_SCASE2_LONG_I=fornext_value3900;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3900){
if (fornext_value3900<fornext_finalvalue3900) break;
}else{
if (fornext_value3900>fornext_finalvalue3900) break;
}
fornext_error3900:;
if(qbevent){evnt(25698);if(r)goto S_33850;}
do{
qbs_set(_FUNC_SCASE2_STRING_S,func_mid(_FUNC_SCASE2_STRING_T,*_FUNC_SCASE2_LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25699);}while(r);
S_33852:;
if ((*_FUNC_SCASE2_LONG_NEWWORD)||is_error_pending()){
if(qbevent){evnt(25700);if(r)goto S_33852;}
S_33853:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SCASE2_STRING_S,qbs_new_txt_len("_",1)))|(qbs_equal(_FUNC_SCASE2_STRING_S,__STRING1_SP))))||is_error_pending()){
if(qbevent){evnt(25701);if(r)goto S_33853;}
do{
qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_S));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25702);}while(r);
}else{
do{
qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_ucase(_FUNC_SCASE2_STRING_S)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25704);}while(r);
do{
*_FUNC_SCASE2_LONG_NEWWORD= 0 ;
if(!qbevent)break;evnt(25705);}while(r);
}
}else{
S_33860:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SCASE2_STRING_S,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(25708);if(r)goto S_33860;}
do{
qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25709);}while(r);
do{
*_FUNC_SCASE2_LONG_NEWWORD= -1 ;
if(!qbevent)break;evnt(25710);}while(r);
}else{
do{
qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_lcase(_FUNC_SCASE2_STRING_S)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25712);}while(r);
}
}
fornext_continue_3899:;
}
fornext_exit_3899:;
do{
qbs_set(_FUNC_SCASE2_STRING_SCASE2,_FUNC_SCASE2_STRING_TEMP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25716);}while(r);
sc_3898_end:;
sc_3897_end:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free77.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_SCASE2_STRING_SCASE2);return _FUNC_SCASE2_STRING_SCASE2;
}
