#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
void SUB_CLEARBUFFERS(qbs*_SUB_CLEARBUFFERS_STRING_SBNAME){
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
qbs *tqbs;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
ptrszint tmp_long;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
int32 tmp_fileno;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
uint32 tmp_cmem_sp=cmem_sp;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
#include "data233.txt"
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
mem_lock *sf_mem_lock;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
new_mem_lock();
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
sf_mem_lock=mem_lock_tmp;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
sf_mem_lock->type=3;
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
libqb_check_stack();
#line 148 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (is_error_pending()) goto exit_subfunc;
#line 150 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 150 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,150,"sb_qb64pe_extension.bm");}while(r);
#line 152 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40463:;
#line 152 "utilities/s-buffer/sb_qb64pe_extension.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CLEARBUFFERS_STRING_SBNAME,qbs_new_txt_len("",0))))||is_error_pending()){
#line 152 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,152,"sb_qb64pe_extension.bm");if(r)goto S_40463;}
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40464:;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_value4006= 0 ;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_finalvalue4006=func_ubound(__ARRAY_STRING_SBUFN,1,1);
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_step4006= 1 ;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_step4006<0) fornext_step_negative4006=1; else fornext_step_negative4006=0;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (is_error_pending()) goto fornext_error4006;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
goto fornext_entrylabel4006;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
while(1){
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_value4006=fornext_step4006+(*_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_entrylabel4006:
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value4006;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_step_negative4006){
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_value4006<fornext_finalvalue4006) break;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
}else{
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_value4006>fornext_finalvalue4006) break;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_error4006:;
#line 153 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,153,"sb_qb64pe_extension.bm");if(r)goto S_40464;}
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40465:;
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]),_SUB_CLEARBUFFERS_STRING_SBNAME)))||is_error_pending()){
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,154,"sb_qb64pe_extension.bm");if(r)goto S_40465;}
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
goto fornext_exit_4005;
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,154,"sb_qb64pe_extension.bm");}while(r);
#line 154 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 155 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_continue_4005:;
#line 155 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 155 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_exit_4005:;
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40469:;
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_CLEARBUFFERS_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||is_error_pending()){
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,156,"sb_qb64pe_extension.bm");if(r)goto S_40469;}
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
goto exit_subfunc;
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,156,"sb_qb64pe_extension.bm");}while(r);
#line 156 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,157,"sb_qb64pe_extension.bm");}while(r);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
SUB_SBUFNUNINDEX(_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,157,"sb_qb64pe_extension.bm");}while(r);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long],qbs_new_txt_len("",0));
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 157 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,157,"sb_qb64pe_extension.bm");}while(r);
#line 158 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 158 "utilities/s-buffer/sb_qb64pe_extension.bm"
tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_BYTE_SBUFCPPLINESTATUS[4],__ARRAY_BYTE_SBUFCPPLINESTATUS[5]);
#line 158 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_SBUFCPPLINESTATUS[0]))[tmp_long]= 0 ;
#line 158 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,158,"sb_qb64pe_extension.bm");}while(r);
#line 159 "utilities/s-buffer/sb_qb64pe_extension.bm"
}else{
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40477:;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_value4008= 0 ;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_finalvalue4008=func_ubound(__ARRAY_STRING_SBUFN,1,1);
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_step4008= 1 ;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_step4008<0) fornext_step_negative4008=1; else fornext_step_negative4008=0;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (is_error_pending()) goto fornext_error4008;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
goto fornext_entrylabel4008;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
while(1){
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_value4008=fornext_step4008+(*_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_entrylabel4008:
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value4008;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_step_negative4008){
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_value4008<fornext_finalvalue4008) break;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
}else{
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (fornext_value4008>fornext_finalvalue4008) break;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_error4008:;
#line 160 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,160,"sb_qb64pe_extension.bm");if(r)goto S_40477;}
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
S_40478:;
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((((qbs**)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]),qbs_new_txt_len("",0))))||is_error_pending()){
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(qbevent){evnt(28805,161,"sb_qb64pe_extension.bm");if(r)goto S_40478;}
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,161,"sb_qb64pe_extension.bm");}while(r);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
SUB_SBUFNUNINDEX(_SUB_CLEARBUFFERS_INTEGER_BUF);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,161,"sb_qb64pe_extension.bm");}while(r);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_SBUFN[0]))[tmp_long],qbs_new_txt_len("",0));
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,161,"sb_qb64pe_extension.bm");}while(r);
#line 161 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 162 "utilities/s-buffer/sb_qb64pe_extension.bm"
do{
#line 162 "utilities/s-buffer/sb_qb64pe_extension.bm"
tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_BYTE_SBUFCPPLINESTATUS[4],__ARRAY_BYTE_SBUFCPPLINESTATUS[5]);
#line 162 "utilities/s-buffer/sb_qb64pe_extension.bm"
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_SBUFCPPLINESTATUS[0]))[tmp_long]= 0 ;
#line 162 "utilities/s-buffer/sb_qb64pe_extension.bm"
if(!qbevent)break;evnt(28805,162,"sb_qb64pe_extension.bm");}while(r);
#line 163 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_continue_4007:;
#line 163 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 163 "utilities/s-buffer/sb_qb64pe_extension.bm"
fornext_exit_4007:;
#line 164 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
#line 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
exit_subfunc:;
#line 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
free_mem_lock(sf_mem_lock);
#line 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
#include "free233.txt"
#line 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
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 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
cmem_sp=tmp_cmem_sp;
#line 165 "utilities/s-buffer/sb_qb64pe_extension.bm"
}
