void SUB_CLEAR_UDT_WITH_VARSTRINGS(qbs*_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET){
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 "data239.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{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
if(!qbevent)break;evnt(25759,669,"type.bas");}while(r);
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET;
if(!qbevent)break;evnt(25759,670,"type.bas");}while(r);
S_38907:;
while((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)||is_error_pending()){
if(qbevent){evnt(25759,671,"type.bas");if(r)goto S_38907;}
S_38908:;
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
if(qbevent){evnt(25759,672,"type.bas");if(r)goto S_38908;}
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEM_BYTES=FUNC_UDT_ARRAY_MEMBER_BYTES(_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT);
if(!qbevent)break;evnt(25759,673,"type.bas");}while(r);
S_38910:;
if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(25759,674,"type.bas");if(r)goto S_38910;}
S_38911:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(25759,675,"type.bas");if(r)goto S_38911;}
S_38912:;
fornext_value4540= 0 ;
fornext_finalvalue4540=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step4540= 1 ;
if (fornext_step4540<0) fornext_step_negative4540=1; else fornext_step_negative4540=0;
if (is_error_pending()) goto fornext_error4540;
goto fornext_entrylabel4540;
while(1){
fornext_value4540=fornext_step4540+(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I);
fornext_entrylabel4540:
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I=fornext_value4540;
if (fornext_step_negative4540){
if (fornext_value4540<fornext_finalvalue4540) break;
}else{
if (fornext_value4540>fornext_finalvalue4540) break;
}
fornext_error4540:;
if(qbevent){evnt(25759,676,"type.bas");if(r)goto S_38912;}
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I**_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEM_BYTES);
if(!qbevent)break;evnt(25759,677,"type.bas");}while(r);
do{
SUB_WRITEBUFLINE(&(pass4541=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(((char*)",18),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_OFFSET))),qbs_new_txt_len("))->len=0;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,678,"type.bas");}while(r);
fornext_continue_4539:;
}
fornext_exit_4539:;
}else{
do{
SUB_WRITEBUFLINE(&(pass4542=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,681,"type.bas");}while(r);
}
S_38919:;
}else{
if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){
if(qbevent){evnt(25759,683,"type.bas");if(r)goto S_38919;}
S_38920:;
fornext_value4544= 0 ;
fornext_finalvalue4544=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step4544= 1 ;
if (fornext_step4544<0) fornext_step_negative4544=1; else fornext_step_negative4544=0;
if (is_error_pending()) goto fornext_error4544;
goto fornext_entrylabel4544;
while(1){
fornext_value4544=fornext_step4544+(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I);
fornext_entrylabel4544:
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I=fornext_value4544;
if (fornext_step_negative4544){
if (fornext_value4544<fornext_finalvalue4544) break;
}else{
if (fornext_value4544>fornext_finalvalue4544) break;
}
fornext_error4544:;
if(qbevent){evnt(25759,684,"type.bas");if(r)goto S_38920;}
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_I**_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEM_BYTES);
if(!qbevent)break;evnt(25759,685,"type.bas");}while(r);
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,&(pass4545=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ARRAY_OFFSET);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,686,"type.bas");}while(r);
fornext_continue_4543:;
}
fornext_exit_4543:;
}else{
do{
SUB_WRITEBUFLINE(&(pass4546=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,689,"type.bas");}while(r);
}
}
S_38927:;
}else{
if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING){
if(qbevent){evnt(25759,691,"type.bas");if(r)goto S_38927;}
S_38928:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(25759,692,"type.bas");if(r)goto S_38928;}
do{
SUB_WRITEBUFLINE(&(pass4547=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(((char*)",18),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("))->len=0;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,693,"type.bas");}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass4548=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,695,"type.bas");}while(r);
}
S_38933:;
}else{
if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){
if(qbevent){evnt(25759,697,"type.bas");if(r)goto S_38933;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,&(pass4549=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,698,"type.bas");}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass4550=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25759,700,"type.bas");}while(r);
}
}
}
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 );
if(!qbevent)break;evnt(25759,702,"type.bas");}while(r);
do{
*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
if(!qbevent)break;evnt(25759,703,"type.bas");}while(r);
dl_continue_4538:;
}
dl_exit_4538:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free239.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;
}
