void SUB_DISPOSEBUF(int16*_SUB_DISPOSEBUF_INTEGER_HANDLE){
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 "data136.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{
if(!qbevent)break;evnt(24221,56,"simplebuffer.bm");}while(r);
S_34003:;
if ((~(FUNC_CHECKHANDLE(_SUB_DISPOSEBUF_INTEGER_HANDLE)))||is_error_pending()){
if(qbevent){evnt(24221,58,"simplebuffer.bm");if(r)goto S_34003;}
do{
error( 258 );
if(!qbevent)break;evnt(24221,58,"simplebuffer.bm");}while(r);
do{
close_program=1;
end();
if(!qbevent)break;evnt(24221,58,"simplebuffer.bm");}while(r);
}
do{
*_SUB_DISPOSEBUF_LONG_BUF=*_SUB_DISPOSEBUF_INTEGER_HANDLE* 106 ;
if(!qbevent)break;evnt(24221,59,"simplebuffer.bm");}while(r);
S_34008:;
fornext_value3932= 0 ;
fornext_finalvalue3932= 105 ;
fornext_step3932= 1 ;
if (fornext_step3932<0) fornext_step_negative3932=1; else fornext_step_negative3932=0;
if (is_error_pending()) goto fornext_error3932;
goto fornext_entrylabel3932;
while(1){
fornext_value3932=fornext_step3932+(*_SUB_DISPOSEBUF_INTEGER_IDX);
fornext_entrylabel3932:
*_SUB_DISPOSEBUF_INTEGER_IDX=fornext_value3932;
if (fornext_step_negative3932){
if (fornext_value3932<fornext_finalvalue3932) break;
}else{
if (fornext_value3932>fornext_finalvalue3932) break;
}
fornext_error3932:;
if(qbevent){evnt(24221,61,"simplebuffer.bm");if(r)goto S_34008;}
do{
tmp_long=array_check((*_SUB_DISPOSEBUF_LONG_BUF+*_SUB_DISPOSEBUF_INTEGER_IDX)-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24221,62,"simplebuffer.bm");}while(r);
fornext_continue_3931:;
}
fornext_exit_3931:;
do{
*_SUB_DISPOSEBUF_LONG_AUB=func_ubound(__ARRAY_STRING_SIMPLEBUFFER_ARRAY,1,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24221,65,"simplebuffer.bm");}while(r);
do{
*_SUB_DISPOSEBUF_LONG_OUB=*_SUB_DISPOSEBUF_LONG_AUB;
if(!qbevent)break;evnt(24221,65,"simplebuffer.bm");}while(r);
do{
*_SUB_DISPOSEBUF_LONG_BUF=*_SUB_DISPOSEBUF_LONG_AUB- 105 ;
if(!qbevent)break;evnt(24221,66,"simplebuffer.bm");}while(r);
S_34014:;
while((-(*_SUB_DISPOSEBUF_LONG_BUF>= 1060 ))||is_error_pending()){
if(qbevent){evnt(24221,67,"simplebuffer.bm");if(r)goto S_34014;}
S_34015:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_DISPOSEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(24221,68,"simplebuffer.bm");if(r)goto S_34015;}
do{
goto ww_exit_3933;
if(!qbevent)break;evnt(24221,68,"simplebuffer.bm");}while(r);
}
do{
*_SUB_DISPOSEBUF_LONG_BUF=*_SUB_DISPOSEBUF_LONG_BUF- 106 ;
if(!qbevent)break;evnt(24221,69,"simplebuffer.bm");}while(r);
ww_continue_3933:;
}
ww_exit_3933:;
S_34020:;
while((-((*_SUB_DISPOSEBUF_LONG_AUB- 1059 )>(*_SUB_DISPOSEBUF_LONG_BUF+ 105 )))||is_error_pending()){
if(qbevent){evnt(24221,71,"simplebuffer.bm");if(r)goto S_34020;}
do{
*_SUB_DISPOSEBUF_LONG_AUB=*_SUB_DISPOSEBUF_LONG_AUB- 1060 ;
if(!qbevent)break;evnt(24221,71,"simplebuffer.bm");}while(r);
ww_continue_3934:;
}
ww_exit_3934:;
S_34023:;
if ((-(*_SUB_DISPOSEBUF_LONG_AUB<*_SUB_DISPOSEBUF_LONG_OUB))||is_error_pending()){
if(qbevent){evnt(24221,72,"simplebuffer.bm");if(r)goto S_34023;}
do{

if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_STRING_SIMPLEBUFFER_ARRAY)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&1){
preserved_elements=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
}
else preserved_elements=0;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4]= 0 ;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]=(*_SUB_DISPOSEBUF_LONG_AUB)-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4]+1;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]);
}}
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=(ptrszint)realloc((void*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]),tmp_long2*8);
if (!__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]) error(257);
if (preserved_elements<tmp_long2){
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&4){
((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
}else{
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=(ptrszint)malloc(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]*8);
if (!__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]) error(257);
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]|=1;
tmp_long=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
}
if(!qbevent)break;evnt(24221,72,"simplebuffer.bm");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free136.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;
}
