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 "data208.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(25756,1065,"const_eval.bas");}while(r);
S_37474:;
fornext_value4436= 1 ;
fornext_finalvalue4436=FUNC_NUMELEMENTS(_FUNC_DWD_STRING_T)- 1 ;
fornext_step4436= 1 ;
if (fornext_step4436<0) fornext_step_negative4436=1; else fornext_step_negative4436=0;
if (is_error_pending()) goto fornext_error4436;
goto fornext_entrylabel4436;
while(1){
fornext_value4436=fornext_step4436+(*_FUNC_DWD_LONG_L);
fornext_entrylabel4436:
*_FUNC_DWD_LONG_L=fornext_value4436;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4436){
if (fornext_value4436<fornext_finalvalue4436) break;
}else{
if (fornext_value4436>fornext_finalvalue4436) break;
}
fornext_error4436:;
if(qbevent){evnt(25756,1066,"const_eval.bas");if(r)goto S_37474;}
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(25756,1067,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_DWD_STRING_NEXTELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,&(pass4437=*_FUNC_DWD_LONG_L+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1068,"const_eval.bas");}while(r);
S_37477:;
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(25756,1070,"const_eval.bas");if(r)goto S_37477;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1071,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(25756,1072,"const_eval.bas");}while(r);
S_37480:;
}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(25756,1073,"const_eval.bas");if(r)goto S_37480;}
do{
SUB_REMOVEELEMENTS(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L,&(pass4438=*_FUNC_DWD_LONG_L+ 1 ),&(pass4439= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1074,"const_eval.bas");}while(r);
do{
SUB_INSERTELEMENTS(_FUNC_DWD_STRING_T,&(pass4440=*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1075,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(25756,1076,"const_eval.bas");}while(r);
S_37484:;
}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(25756,1077,"const_eval.bas");if(r)goto S_37484;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,&(pass4441=*_FUNC_DWD_LONG_L+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1078,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(25756,1079,"const_eval.bas");}while(r);
S_37487:;
}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(25756,1080,"const_eval.bas");if(r)goto S_37487;}
do{
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1081,"const_eval.bas");}while(r);
do{
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
if(!qbevent)break;evnt(25756,1082,"const_eval.bas");}while(r);
}
}
}
}
fornext_continue_4435:;
}
fornext_exit_4435:;
do{
qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1085,"const_eval.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free208.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;
}
