#line 1059 "utilities/const_eval.bas"
qbs* FUNC_DWD(qbs*_FUNC_DWD_STRING_EXP){
#line 1059 "utilities/const_eval.bas"
qbs *tqbs;
#line 1059 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 1059 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 1059 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 1059 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 1059 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 1059 "utilities/const_eval.bas"
#include "data269.txt"
#line 1059 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 1059 "utilities/const_eval.bas"
new_mem_lock();
#line 1059 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 1059 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 1059 "utilities/const_eval.bas"
libqb_check_stack();
#line 1059 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 1065 "utilities/const_eval.bas"
do{
#line 1065 "utilities/const_eval.bas"
qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP);
#line 1065 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1065 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1065,"const_eval.bas");}while(r);
#line 1066 "utilities/const_eval.bas"
S_41687:;
#line 1066 "utilities/const_eval.bas"
fornext_value4186= 1 ;
#line 1066 "utilities/const_eval.bas"
fornext_finalvalue4186=FUNC_NUMELEMENTS(_FUNC_DWD_STRING_T)- 1 ;
#line 1066 "utilities/const_eval.bas"
fornext_step4186= 1 ;
#line 1066 "utilities/const_eval.bas"
if (fornext_step4186<0) fornext_step_negative4186=1; else fornext_step_negative4186=0;
#line 1066 "utilities/const_eval.bas"
if (is_error_pending()) goto fornext_error4186;
#line 1066 "utilities/const_eval.bas"
goto fornext_entrylabel4186;
#line 1066 "utilities/const_eval.bas"
while(1){
#line 1066 "utilities/const_eval.bas"
fornext_value4186=fornext_step4186+(*_FUNC_DWD_LONG_L);
#line 1066 "utilities/const_eval.bas"
fornext_entrylabel4186:
#line 1066 "utilities/const_eval.bas"
*_FUNC_DWD_LONG_L=fornext_value4186;
#line 1066 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1066 "utilities/const_eval.bas"
if (fornext_step_negative4186){
#line 1066 "utilities/const_eval.bas"
if (fornext_value4186<fornext_finalvalue4186) break;
#line 1066 "utilities/const_eval.bas"
}else{
#line 1066 "utilities/const_eval.bas"
if (fornext_value4186>fornext_finalvalue4186) break;
#line 1066 "utilities/const_eval.bas"
}
#line 1066 "utilities/const_eval.bas"
fornext_error4186:;
#line 1066 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1066,"const_eval.bas");if(r)goto S_41687;}
#line 1067 "utilities/const_eval.bas"
do{
#line 1067 "utilities/const_eval.bas"
qbs_set(_FUNC_DWD_STRING_ELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L));
#line 1067 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1067 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1067,"const_eval.bas");}while(r);
#line 1068 "utilities/const_eval.bas"
do{
#line 1068 "utilities/const_eval.bas"
qbs_set(_FUNC_DWD_STRING_NEXTELE,FUNC_GETELEMENT(_FUNC_DWD_STRING_T,&(pass4187=*_FUNC_DWD_LONG_L+ 1 )));
#line 1068 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1068 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1068,"const_eval.bas");}while(r);
#line 1070 "utilities/const_eval.bas"
S_41690:;
#line 1070 "utilities/const_eval.bas"
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()){
#line 1070 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1070,"const_eval.bas");if(r)goto S_41690;}
#line 1071 "utilities/const_eval.bas"
do{
#line 1071 "utilities/const_eval.bas"
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
#line 1071 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1071 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1071,"const_eval.bas");}while(r);
#line 1072 "utilities/const_eval.bas"
do{
#line 1072 "utilities/const_eval.bas"
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
#line 1072 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1072,"const_eval.bas");}while(r);
#line 1073 "utilities/const_eval.bas"
S_41693:;
#line 1073 "utilities/const_eval.bas"
}else{
#line 1073 "utilities/const_eval.bas"
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))))){
#line 1073 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1073,"const_eval.bas");if(r)goto S_41693;}
#line 1074 "utilities/const_eval.bas"
do{
#line 1074 "utilities/const_eval.bas"
SUB_REMOVEELEMENTS(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L,&(pass4188=*_FUNC_DWD_LONG_L+ 1 ),&(pass4189= 0 ));
#line 1074 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1074 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1074,"const_eval.bas");}while(r);
#line 1075 "utilities/const_eval.bas"
do{
#line 1075 "utilities/const_eval.bas"
SUB_INSERTELEMENTS(_FUNC_DWD_STRING_T,&(pass4190=*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1));
#line 1075 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1075 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1075,"const_eval.bas");}while(r);
#line 1076 "utilities/const_eval.bas"
do{
#line 1076 "utilities/const_eval.bas"
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
#line 1076 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1076,"const_eval.bas");}while(r);
#line 1077 "utilities/const_eval.bas"
S_41697:;
#line 1077 "utilities/const_eval.bas"
}else{
#line 1077 "utilities/const_eval.bas"
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))))){
#line 1077 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1077,"const_eval.bas");if(r)goto S_41697;}
#line 1078 "utilities/const_eval.bas"
do{
#line 1078 "utilities/const_eval.bas"
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,&(pass4191=*_FUNC_DWD_LONG_L+ 1 ));
#line 1078 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1078 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1078,"const_eval.bas");}while(r);
#line 1079 "utilities/const_eval.bas"
do{
#line 1079 "utilities/const_eval.bas"
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
#line 1079 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1079,"const_eval.bas");}while(r);
#line 1080 "utilities/const_eval.bas"
S_41700:;
#line 1080 "utilities/const_eval.bas"
}else{
#line 1080 "utilities/const_eval.bas"
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))))){
#line 1080 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1080,"const_eval.bas");if(r)goto S_41700;}
#line 1081 "utilities/const_eval.bas"
do{
#line 1081 "utilities/const_eval.bas"
SUB_REMOVEELEMENT(_FUNC_DWD_STRING_T,_FUNC_DWD_LONG_L);
#line 1081 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1081 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1081,"const_eval.bas");}while(r);
#line 1082 "utilities/const_eval.bas"
do{
#line 1082 "utilities/const_eval.bas"
*_FUNC_DWD_LONG_L=*_FUNC_DWD_LONG_L- 1 ;
#line 1082 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1082,"const_eval.bas");}while(r);
#line 1083 "utilities/const_eval.bas"
}
#line 1083 "utilities/const_eval.bas"
}
#line 1083 "utilities/const_eval.bas"
}
#line 1083 "utilities/const_eval.bas"
}
#line 1084 "utilities/const_eval.bas"
fornext_continue_4185:;
#line 1084 "utilities/const_eval.bas"
}
#line 1084 "utilities/const_eval.bas"
fornext_exit_4185:;
#line 1085 "utilities/const_eval.bas"
do{
#line 1085 "utilities/const_eval.bas"
qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T);
#line 1085 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1085 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1085,"const_eval.bas");}while(r);
#line 1086 "utilities/const_eval.bas"
exit_subfunc:;
#line 1086 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 1086 "utilities/const_eval.bas"
#include "free269.txt"
#line 1086 "utilities/const_eval.bas"
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;
#line 1086 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 1086 "utilities/const_eval.bas"
qbs_maketmp(_FUNC_DWD_STRING_DWD);return _FUNC_DWD_STRING_DWD;
#line 1086 "utilities/const_eval.bas"
}
