qbs* FUNC_DWD(qbs*_FUNC_DWD_STRING_EXP){
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 "data235.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{
qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1065,"const_eval.bas");}while(r);
S_40193:;
fornext_value4866= 1 ;
fornext_finalvalue4866=FUNC_NUMELEMENTS(_FUNC_DWD_STRING_T)- 1 ;
fornext_step4866= 1 ;
if (fornext_step4866<0) fornext_step_negative4866=1; else fornext_step_negative4866=0;
if (is_error_pending()) goto fornext_error4866;
goto fornext_entrylabel4866;
while(1){
fornext_value4866=fornext_step4866+(*_FUNC_DWD_LONG_L);
fornext_entrylabel4866:
*_FUNC_DWD_LONG_L=fornext_value4866;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4866){
if (fornext_value4866<fornext_finalvalue4866) break;
}else{
if (fornext_value4866>fornext_finalvalue4866) break;
}
fornext_error4866:;
if(qbevent){evnt(28169,1066,"const_eval.bas");if(r)goto S_40193;}
do{
qbs_set(_FUNC_DWD_STRING_ELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1067,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_DWD_STRING_NEXTELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,&(pass4867=*_FUNC_DWD_LONG_L+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1068,"const_eval.bas");}while(r);
S_40196:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DWD_STRING_ELE,qbs_new_txt_len("+",1)))&(qbs_equal(_FUNC_DWD_STRING_NEXTELE,qbs_new_txt_len("+",1)))))||is_error_pending()){
if(qbevent){evnt(28169,1070,"const_eval.bas");if(r)goto S_40196;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1071,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(28169,1072,"const_eval.bas");}while(r);
S_40199:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DWD_STRING_ELE,qbs_new_txt_len("-",1)))&(qbs_equal(_FUNC_DWD_STRING_NEXTELE,qbs_new_txt_len("-",1))))){
if(qbevent){evnt(28169,1073,"const_eval.bas");if(r)goto S_40199;}
do{
SUB_REMOVEELEMENTS(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L,&(pass4868=*_FUNC_DWD_LONG_L+ 1 ),&(pass4869= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1074,"const_eval.bas");}while(r);
do{
SUB_INSERTELEMENTS(_FUNC_DWD_STRING_T,&(pass4870=*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1075,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(28169,1076,"const_eval.bas");}while(r);
S_40203:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DWD_STRING_ELE,qbs_new_txt_len("-",1)))&(qbs_equal(_FUNC_DWD_STRING_NEXTELE,qbs_new_txt_len("+",1))))){
if(qbevent){evnt(28169,1077,"const_eval.bas");if(r)goto S_40203;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,&(pass4871=*_FUNC_DWD_LONG_L+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1078,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(28169,1079,"const_eval.bas");}while(r);
S_40206:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DWD_STRING_ELE,qbs_new_txt_len("+",1)))&(qbs_equal(_FUNC_DWD_STRING_NEXTELE,qbs_new_txt_len("-",1))))){
if(qbevent){evnt(28169,1080,"const_eval.bas");if(r)goto S_40206;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1081,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(28169,1082,"const_eval.bas");}while(r);
}
}
}
}
fornext_continue_4865:;
}
fornext_exit_4865:;
do{
qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,1085,"const_eval.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free235.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_DWD_STRING_DWD);return _FUNC_DWD_STRING_DWD;
}
