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 "data199.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{
qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1062,"const_eval.bas");}while(r);
S_35945:;
fornext_value4205= 1 ;
fornext_finalvalue4205=FUNC_NUMELEMENTS(_FUNC_DWD_STRING_T)- 1 ;
fornext_step4205= 1 ;
if (fornext_step4205<0) fornext_step_negative4205=1; else fornext_step_negative4205=0;
if (is_error_pending()) goto fornext_error4205;
goto fornext_entrylabel4205;
while(1){
fornext_value4205=fornext_step4205+(*_FUNC_DWD_LONG_L);
fornext_entrylabel4205:
*_FUNC_DWD_LONG_L=fornext_value4205;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4205){
if (fornext_value4205<fornext_finalvalue4205) break;
}else{
if (fornext_value4205>fornext_finalvalue4205) break;
}
fornext_error4205:;
if(qbevent){evnt(24222,1063,"const_eval.bas");if(r)goto S_35945;}
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(24222,1064,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_DWD_STRING_NEXTELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,&(pass4206=*_FUNC_DWD_LONG_L+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1065,"const_eval.bas");}while(r);
S_35948:;
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(24222,1067,"const_eval.bas");if(r)goto S_35948;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1068,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(24222,1069,"const_eval.bas");}while(r);
S_35951:;
}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(24222,1070,"const_eval.bas");if(r)goto S_35951;}
do{
SUB_REMOVEELEMENTS(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L,&(pass4207=*_FUNC_DWD_LONG_L+ 1 ),&(pass4208= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1071,"const_eval.bas");}while(r);
do{
SUB_INSERTELEMENTS(_FUNC_DWD_STRING_T,&(pass4209=*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1072,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(24222,1073,"const_eval.bas");}while(r);
S_35955:;
}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(24222,1074,"const_eval.bas");if(r)goto S_35955;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,&(pass4210=*_FUNC_DWD_LONG_L+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1075,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(24222,1076,"const_eval.bas");}while(r);
S_35958:;
}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(24222,1077,"const_eval.bas");if(r)goto S_35958;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1078,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(24222,1079,"const_eval.bas");}while(r);
}
}
}
}
fornext_continue_4204:;
}
fornext_exit_4204:;
do{
qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,1082,"const_eval.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free199.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;
}
