S_0:;
do{
sub__icon(NULL,NULL,0);
if(!qbevent)break;evnt(13);}while(r);
do{
if(!qbevent)break;evnt(24,1,"version.bas");}while(r);
do{
if(!qbevent)break;evnt(24,2,"version.bas");}while(r);
do{
qbs_set(__STRING_VERSION,qbs_new_txt_len("4.5.0",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,13,"version.bas");}while(r);
S_4:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("internal/version.txt",20))))||is_error_pending()){
if(qbevent){evnt(24,18,"version.bas");if(r)goto S_4;}
do{
*__LONG_VERSIONFILE=func_freefile();
if(!qbevent)break;evnt(24,19,"version.bas");}while(r);
do{
sub_open(qbs_new_txt_len("internal/version.txt",20), 3 ,NULL,NULL,*__LONG_VERSIONFILE,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,20,"version.bas");}while(r);
do{
tmp_fileno=*__LONG_VERSIONFILE;
if (is_error_pending()) goto skip1;
sub_file_line_input_string(tmp_fileno,__STRING_VERSIONLABEL);
if (is_error_pending()) goto skip1;
skip1:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,22,"version.bas");}while(r);
do{
qbs_set(__STRING_VERSION,qbs_add(__STRING_VERSION,__STRING_VERSIONLABEL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24,23,"version.bas");}while(r);
S_9:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_VERSIONLABEL,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_VERSIONLABEL,qbs_new_txt_len("-UNKNOWN",8)))))||is_error_pending()){
if(qbevent){evnt(24,25,"version.bas");if(r)goto S_9;}
do{
*__BYTE_ISCIVERSION= -1ll ;
if(!qbevent)break;evnt(24,26,"version.bas");}while(r);
}
do{
sub_close(*__LONG_VERSIONFILE,1);
if(!qbevent)break;evnt(24,29,"version.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,5,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP,qbs_new_txt_len("\015",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP2,qbs_new_txt_len("\012",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP3,qbs_new_txt_len("\032",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,6,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,7,"constants.bas");}while(r);
do{
*__LONG_SP_ASC= 13ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
do{
*__LONG_SP2_ASC= 10ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
do{
*__LONG_SP3_ASC= 26ll ;
if(!qbevent)break;evnt(26,8,"constants.bas");}while(r);
S_22:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(26,9,"constants.bas");if(r)goto S_22;}
do{
qbs_set(__STRING1_SP,func_chr( 250 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP2,func_chr( 249 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
do{
qbs_set(__STRING1_SP3,func_chr( 179 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,9,"constants.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
do{
qbs_set(__STRING1_CHR_QUOTE,qbs_new_txt_len("\042",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,11,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
do{
qbs_set(__STRING1_CHR_TAB,qbs_new_txt_len("\011",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,12,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
do{
qbs_set(__STRING_CRLF,qbs_new_txt_len("\015\012",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,13,"constants.bas");}while(r);
do{
if(!qbevent)break;evnt(26,15,"constants.bas");}while(r);
S_34:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(26,16,"constants.bas");if(r)goto S_34;}
do{
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\015\012",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
}else{
do{
qbs_set(__STRING_NATIVE_LINEENDING,qbs_new_txt_len("\012",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(26,16,"constants.bas");}while(r);
}
do{
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
do{
*__LONG_OS_BITS= 64 ;
if(!qbevent)break;evnt(26,18,"constants.bas");}while(r);
S_41:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||is_error_pending()){
if(qbevent){evnt(26,19,"constants.bas");if(r)goto S_41;}
do{
*__LONG_OS_BITS= 32 ;
if(!qbevent)break;evnt(26,19,"constants.bas");}while(r);
}
do{
if (__ARRAY_UDT_GL_COMMANDS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_GL_COMMANDS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_GL_COMMANDS[2]&1){
preserve_old_ptr=__ARRAY_UDT_GL_COMMANDS[0];
preserve_old_flags=__ARRAY_UDT_GL_COMMANDS[2];
preserve_old_total=__ARRAY_UDT_GL_COMMANDS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 2000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(216);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_GL_COMMANDS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_GL_COMMANDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257);
memset((void*)(__ARRAY_UDT_GL_COMMANDS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_GL_COMMANDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257);
}
}
__ARRAY_UDT_GL_COMMANDS[2]|=1;
__ARRAY_UDT_GL_COMMANDS[4]=alloc_new_desc[4];
__ARRAY_UDT_GL_COMMANDS[5]=alloc_new_desc[5];
__ARRAY_UDT_GL_COMMANDS[6]=alloc_new_desc[6];
__ARRAY_UDT_GL_COMMANDS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(27,9,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,10,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,11,"opengl_global.bas");}while(r);
do{
if (__ARRAY_STRING_GL_DEFINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_GL_DEFINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_GL_DEFINES[2]&1){
preserve_old_ptr=__ARRAY_STRING_GL_DEFINES[0];
preserve_old_flags=__ARRAY_STRING_GL_DEFINES[2];
preserve_old_total=__ARRAY_STRING_GL_DEFINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 2000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_GL_DEFINES[0]=preserve_new_ptr;
__ARRAY_STRING_GL_DEFINES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_GL_DEFINES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_GL_DEFINES[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_GL_DEFINES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_GL_DEFINES[0]) error(257);
__ARRAY_STRING_GL_DEFINES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_GL_DEFINES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_GL_DEFINES[4]=alloc_new_desc[4];
__ARRAY_STRING_GL_DEFINES[5]=alloc_new_desc[5];
__ARRAY_STRING_GL_DEFINES[6]=alloc_new_desc[6];
__ARRAY_STRING_GL_DEFINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(27,12,"opengl_global.bas");}while(r);
do{
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_GL_DEFINES_VALUE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&1){
preserve_old_ptr=__ARRAY_INTEGER64_GL_DEFINES_VALUE[0];
preserve_old_flags=__ARRAY_INTEGER64_GL_DEFINES_VALUE[2];
preserve_old_total=__ARRAY_INTEGER64_GL_DEFINES_VALUE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 2000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]) error(257);
}
}
__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]|=1;
__ARRAY_INTEGER64_GL_DEFINES_VALUE[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_GL_DEFINES_VALUE[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_GL_DEFINES_VALUE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(27,13,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,14,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
do{
*__LONG_GL_KIT= 0 ;
if(!qbevent)break;evnt(27,15,"opengl_global.bas");}while(r);
do{
if(!qbevent)break;evnt(28,8,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,9,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,10,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,11,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,12,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,13,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,14,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,15,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,16,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,17,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,18,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,19,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,20,"ini.bi");}while(r);
do{
if(!qbevent)break;evnt(28,21,"ini.bi");}while(r);
do{
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SIMPLEBUFFER_ARRAY)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&1){
preserve_old_ptr=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0];
preserve_old_flags=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2];
preserve_old_total=__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10599 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=preserve_new_ptr;
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
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);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]) error(257);
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
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);
}
}
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4]=alloc_new_desc[4];
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]=alloc_new_desc[5];
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[6]=alloc_new_desc[6];
__ARRAY_STRING_SIMPLEBUFFER_ARRAY[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(29,24,"simplebuffer.bi");}while(r);
do{
if (__ARRAY_STRING_SBUFN[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SBUFN)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SBUFN[2]&1){
preserve_old_ptr=__ARRAY_STRING_SBUFN[0];
preserve_old_flags=__ARRAY_STRING_SBUFN[2];
preserve_old_total=__ARRAY_STRING_SBUFN[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SBUFN[0]=preserve_new_ptr;
__ARRAY_STRING_SBUFN[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SBUFN[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SBUFN[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SBUFN[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SBUFN[0]) error(257);
__ARRAY_STRING_SBUFN[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SBUFN[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_SBUFN[4]=alloc_new_desc[4];
__ARRAY_STRING_SBUFN[5]=alloc_new_desc[5];
__ARRAY_STRING_SBUFN[6]=alloc_new_desc[6];
__ARRAY_STRING_SBUFN[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(29,6,"sb_qb64pe_extension.bi");}while(r);
do{
if (__ARRAY_UDT_CONSTFUNCS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_CONSTFUNCS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_CONSTFUNCS[2]&1){
preserve_old_ptr=__ARRAY_UDT_CONSTFUNCS[0];
preserve_old_flags=__ARRAY_UDT_CONSTFUNCS[2];
preserve_old_total=__ARRAY_UDT_CONSTFUNCS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(10);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_UDT_CONSTFUNCS[0]=preserve_new_ptr;
__ARRAY_UDT_CONSTFUNCS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long*10);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);}
__ARRAY_UDT_CONSTFUNCS[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_CONSTFUNCS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_CONSTFUNCS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_CONSTFUNCS[0]) error(257);
__ARRAY_UDT_CONSTFUNCS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long*10);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);}
}
__ARRAY_UDT_CONSTFUNCS[4]=alloc_new_desc[4];
__ARRAY_UDT_CONSTFUNCS[5]=alloc_new_desc[5];
__ARRAY_UDT_CONSTFUNCS[6]=alloc_new_desc[6];
__ARRAY_UDT_CONSTFUNCS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(30,7,"const_eval.bi");}while(r);
do{
SUB_SET_CONSTFUNCTIONS();
if(!qbevent)break;evnt(30,19,"const_eval.bi");}while(r);
do{
if(!qbevent)break;evnt(31,2,"give_error.bi");}while(r);
do{
if(!qbevent)break;evnt(31,3,"give_error.bi");}while(r);
do{
if(!qbevent)break;evnt(33,2,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,3,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,4,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,5,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,6,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,7,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,8,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,9,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,10,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,11,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,12,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,14,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,15,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,16,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,17,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,18,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,19,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,20,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,21,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,22,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,23,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,24,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,25,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,26,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,27,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,28,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,29,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,30,"type.bi");}while(r);
do{
*__LONG_ISSTRING= 1073741824 ;
if(!qbevent)break;evnt(33,32,"type.bi");}while(r);
do{
*__LONG_ISFLOAT= 536870912 ;
if(!qbevent)break;evnt(33,33,"type.bi");}while(r);
do{
*__LONG_ISUNSIGNED= 268435456 ;
if(!qbevent)break;evnt(33,34,"type.bi");}while(r);
do{
*__LONG_ISPOINTER= 134217728 ;
if(!qbevent)break;evnt(33,35,"type.bi");}while(r);
do{
*__LONG_ISFIXEDLENGTH= 67108864 ;
if(!qbevent)break;evnt(33,36,"type.bi");}while(r);
do{
*__LONG_ISINCONVENTIONALMEMORY= 33554432 ;
if(!qbevent)break;evnt(33,37,"type.bi");}while(r);
do{
*__LONG_ISOFFSETINBITS= 16777216 ;
if(!qbevent)break;evnt(33,38,"type.bi");}while(r);
do{
*__LONG_ISARRAY= 8388608 ;
if(!qbevent)break;evnt(33,39,"type.bi");}while(r);
do{
*__LONG_ISREFERENCE= 4194304 ;
if(!qbevent)break;evnt(33,40,"type.bi");}while(r);
do{
*__LONG_ISUDT= 2097152 ;
if(!qbevent)break;evnt(33,41,"type.bi");}while(r);
do{
*__LONG_ISOFFSET= 1048576 ;
if(!qbevent)break;evnt(33,42,"type.bi");}while(r);
do{
*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,44,"type.bi");}while(r);
do{
*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,45,"type.bi");}while(r);
do{
*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,46,"type.bi");}while(r);
do{
*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,47,"type.bi");}while(r);
do{
*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,48,"type.bi");}while(r);
do{
*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,49,"type.bi");}while(r);
do{
*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,50,"type.bi");}while(r);
do{
*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,51,"type.bi");}while(r);
do{
*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,52,"type.bi");}while(r);
do{
*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,53,"type.bi");}while(r);
do{
*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,54,"type.bi");}while(r);
do{
*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,55,"type.bi");}while(r);
do{
*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,56,"type.bi");}while(r);
do{
*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,57,"type.bi");}while(r);
do{
*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
S_126:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,58,"type.bi");if(r)goto S_126;}
do{
*__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
}
do{
*__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
S_130:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,59,"type.bi");if(r)goto S_130;}
do{
*__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
}
do{
*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,60,"type.bi");}while(r);
do{
if (__ARRAY_STRING256_UDTXNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTXNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTXNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTXNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTXNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTXNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTXNAME[2]|=1;
__ARRAY_STRING256_UDTXNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTXNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTXNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTXNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,62,"type.bi");}while(r);
do{
if (__ARRAY_STRING256_UDTXCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTXCNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTXCNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTXCNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTXCNAME[2]|=1;
__ARRAY_STRING256_UDTXCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTXCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTXCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTXCNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,63,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTXSIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTXSIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTXSIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTXSIZE[2];
preserve_old_total=__ARRAY_LONG_UDTXSIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTXSIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTXSIZE[2]|=1;
__ARRAY_LONG_UDTXSIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTXSIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTXSIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTXSIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,64,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTXNEXT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTXNEXT[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTXNEXT[0];
preserve_old_flags=__ARRAY_LONG_UDTXNEXT[2];
preserve_old_total=__ARRAY_LONG_UDTXNEXT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTXNEXT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
}
}
__ARRAY_LONG_UDTXNEXT[2]|=1;
__ARRAY_LONG_UDTXNEXT[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTXNEXT[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTXNEXT[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTXNEXT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,65,"type.bi");}while(r);
do{
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_UDTXVARIABLE[0];
preserve_old_flags=__ARRAY_INTEGER_UDTXVARIABLE[2];
preserve_old_total=__ARRAY_INTEGER_UDTXVARIABLE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_UDTXVARIABLE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_UDTXVARIABLE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
}
}
__ARRAY_INTEGER_UDTXVARIABLE[2]|=1;
__ARRAY_INTEGER_UDTXVARIABLE[4]=alloc_new_desc[4];
__ARRAY_INTEGER_UDTXVARIABLE[5]=alloc_new_desc[5];
__ARRAY_INTEGER_UDTXVARIABLE[6]=alloc_new_desc[6];
__ARRAY_INTEGER_UDTXVARIABLE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,66,"type.bi");}while(r);
do{
if (__ARRAY_STRING256_UDTENAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTENAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTENAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTENAME[2];
preserve_old_total=__ARRAY_STRING256_UDTENAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTENAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTENAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTENAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTENAME[2]|=1;
__ARRAY_STRING256_UDTENAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTENAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTENAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTENAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,68,"type.bi");}while(r);
do{
if (__ARRAY_STRING256_UDTECNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTECNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTECNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTECNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTECNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTECNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTECNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTECNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTECNAME[2]|=1;
__ARRAY_STRING256_UDTECNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTECNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTECNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTECNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,69,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTESIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTESIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTESIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTESIZE[2];
preserve_old_total=__ARRAY_LONG_UDTESIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTESIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTESIZE[2]|=1;
__ARRAY_LONG_UDTESIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTESIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTESIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTESIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,70,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTETYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTETYPE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTETYPE[0];
preserve_old_flags=__ARRAY_LONG_UDTETYPE[2];
preserve_old_total=__ARRAY_LONG_UDTETYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTETYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
}
}
__ARRAY_LONG_UDTETYPE[2]|=1;
__ARRAY_LONG_UDTETYPE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTETYPE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTETYPE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTETYPE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,71,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTETYPESIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTETYPESIZE[2];
preserve_old_total=__ARRAY_LONG_UDTETYPESIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTETYPESIZE[2]|=1;
__ARRAY_LONG_UDTETYPESIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTETYPESIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTETYPESIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTETYPESIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,72,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYELEMENTS[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYELEMENTS[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYELEMENTS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYELEMENTS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,73,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYBASE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYBASE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYBASE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYBASE[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYBASE[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYBASE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYBASE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYBASE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYBASE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYBASE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYBASE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYBASE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYBASE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYBASE[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYBASE[2]|=1;
__ARRAY_LONG_UDTEARRAYBASE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYBASE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYBASE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYBASE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,74,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYDIMS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYDIMS[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYDIMS[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYDIMS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYDIMS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYDIMS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYDIMS[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYDIMS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYDIMS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYDIMS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYDIMS[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYDIMS[2]|=1;
__ARRAY_LONG_UDTEARRAYDIMS[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYDIMS[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYDIMS[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYDIMS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,75,"type.bi");}while(r);
do{
if (__ARRAY_STRING_UDTEARRAYDESC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_UDTEARRAYDESC)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&1){
preserve_old_ptr=__ARRAY_STRING_UDTEARRAYDESC[0];
preserve_old_flags=__ARRAY_STRING_UDTEARRAYDESC[2];
preserve_old_total=__ARRAY_STRING_UDTEARRAYDESC[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_UDTEARRAYDESC[0]=preserve_new_ptr;
__ARRAY_STRING_UDTEARRAYDESC[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_UDTEARRAYDESC[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_UDTEARRAYDESC[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_UDTEARRAYDESC[0]) error(257);
__ARRAY_STRING_UDTEARRAYDESC[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_UDTEARRAYDESC[4]=alloc_new_desc[4];
__ARRAY_STRING_UDTEARRAYDESC[5]=alloc_new_desc[5];
__ARRAY_STRING_UDTEARRAYDESC[6]=alloc_new_desc[6];
__ARRAY_STRING_UDTEARRAYDESC[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,78,"type.bi");}while(r);
do{
if (__ARRAY_LONG_UDTENEXT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTENEXT[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTENEXT[0];
preserve_old_flags=__ARRAY_LONG_UDTENEXT[2];
preserve_old_total=__ARRAY_LONG_UDTENEXT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTENEXT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTENEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTENEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
}
}
__ARRAY_LONG_UDTENEXT[2]|=1;
__ARRAY_LONG_UDTENEXT[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTENEXT[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTENEXT[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTENEXT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(33,79,"type.bi");}while(r);
do{
sub__controlchr( 2 );
if(!qbevent)break;evnt(38,4,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,1,"wiki_global.bas");}while(r);
do{
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal\\help",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,2,"wiki_global.bas");}while(r);
S_152:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(38,3,"wiki_global.bas");if(r)goto S_152;}
do{
qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,3,"wiki_global.bas");}while(r);
}
S_155:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
if(qbevent){evnt(38,4,"wiki_global.bas");if(r)goto S_155;}
do{
goto LABEL_NOINTERNALFOLDER;
if(!qbevent)break;evnt(38,4,"wiki_global.bas");}while(r);
}
S_158:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||is_error_pending()){
if(qbevent){evnt(38,5,"wiki_global.bas");if(r)goto S_158;}
do{
sub_mkdir(__STRING_CACHE_FOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,5,"wiki_global.bas");}while(r);
}
do{
if(!qbevent)break;evnt(38,6,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,7,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,8,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_SX= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_SY= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_CX= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_CY= 1 ;
if(!qbevent)break;evnt(38,9,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,10,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,11,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,12,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,13,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,14,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,15,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,16,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,17,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
do{
qbs_set(__STRING_HELP_LINK_SEP,func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,18,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,19,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,24,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_NORMAL= 7 ;
if(!qbevent)break;evnt(38,25,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_LINK= 9 ;
if(!qbevent)break;evnt(38,26,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_BOLD= 15 ;
if(!qbevent)break;evnt(38,27,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_ITALIC= 3 ;
if(!qbevent)break;evnt(38,28,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_COL_SECTION= 8 ;
if(!qbevent)break;evnt(38,29,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,30,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,31,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,32,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,33,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,34,"wiki_global.bas");}while(r);
do{
if (__ARRAY_LONG_HELP_LINELEN[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_HELP_LINELEN)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_HELP_LINELEN[2]&1){
preserve_old_ptr=__ARRAY_LONG_HELP_LINELEN[0];
preserve_old_flags=__ARRAY_LONG_HELP_LINELEN[2];
preserve_old_total=__ARRAY_LONG_HELP_LINELEN[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_HELP_LINELEN[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HELP_LINELEN[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257);
memset((void*)(__ARRAY_LONG_HELP_LINELEN[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HELP_LINELEN[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257);
}
}
__ARRAY_LONG_HELP_LINELEN[2]|=1;
__ARRAY_LONG_HELP_LINELEN[4]=alloc_new_desc[4];
__ARRAY_LONG_HELP_LINELEN[5]=alloc_new_desc[5];
__ARRAY_LONG_HELP_LINELEN[6]=alloc_new_desc[6];
__ARRAY_LONG_HELP_LINELEN[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,35,"wiki_global.bas");}while(r);
do{
if (__ARRAY_STRING_BACK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_BACK[2]&1){
preserve_old_ptr=__ARRAY_STRING_BACK[0];
preserve_old_flags=__ARRAY_STRING_BACK[2];
preserve_old_total=__ARRAY_STRING_BACK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_BACK[0]=preserve_new_ptr;
__ARRAY_STRING_BACK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_BACK[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_BACK[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_BACK[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_BACK[0]) error(257);
__ARRAY_STRING_BACK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_BACK[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_BACK[4]=alloc_new_desc[4];
__ARRAY_STRING_BACK[5]=alloc_new_desc[5];
__ARRAY_STRING_BACK[6]=alloc_new_desc[6];
__ARRAY_STRING_BACK[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,36,"wiki_global.bas");}while(r);
do{
if (__ARRAY_STRING_BACK_NAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_BACK_NAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_BACK_NAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_BACK_NAME[0];
preserve_old_flags=__ARRAY_STRING_BACK_NAME[2];
preserve_old_total=__ARRAY_STRING_BACK_NAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_BACK_NAME[0]=preserve_new_ptr;
__ARRAY_STRING_BACK_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_BACK_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_BACK_NAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_BACK_NAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_BACK_NAME[0]) error(257);
__ARRAY_STRING_BACK_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_BACK_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_BACK_NAME[4]=alloc_new_desc[4];
__ARRAY_STRING_BACK_NAME[5]=alloc_new_desc[5];
__ARRAY_STRING_BACK_NAME[6]=alloc_new_desc[6];
__ARRAY_STRING_BACK_NAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,37,"wiki_global.bas");}while(r);
do{
if (__ARRAY_UDT_HELP_BACK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_HELP_BACK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_HELP_BACK[2]&1){
preserve_old_ptr=__ARRAY_UDT_HELP_BACK[0];
preserve_old_flags=__ARRAY_UDT_HELP_BACK[2];
preserve_old_total=__ARRAY_UDT_HELP_BACK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(16);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_HELP_BACK[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_HELP_BACK[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_HELP_BACK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_HELP_BACK[0]) error(257);
memset((void*)(__ARRAY_UDT_HELP_BACK[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_HELP_BACK[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_HELP_BACK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_HELP_BACK[0]) error(257);
}
}
__ARRAY_UDT_HELP_BACK[2]|=1;
__ARRAY_UDT_HELP_BACK[4]=alloc_new_desc[4];
__ARRAY_UDT_HELP_BACK[5]=alloc_new_desc[5];
__ARRAY_UDT_HELP_BACK[6]=alloc_new_desc[6];
__ARRAY_UDT_HELP_BACK[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,44,"wiki_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),qbs_new_txt_len("QB64 Help Menu",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,45,"wiki_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,46,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+0)))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+(((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)))= 1 ;
if(!qbevent)break;evnt(38,47,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,48,"wiki_global.bas");}while(r);
do{
*__LONG_HELP_BACK_POS= 1 ;
if(!qbevent)break;evnt(38,49,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,50,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,51,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,52,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,53,"wiki_global.bas");}while(r);
do{
if (__ARRAY_UDT_WPENTREPL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_UDT_WPENTREPL[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(16);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_UDT_WPENTREPL[2]&4){
__ARRAY_UDT_WPENTREPL[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_WPENTREPL[0]) error(257);
memset((void*)(__ARRAY_UDT_WPENTREPL[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_UDT_WPENTREPL[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_WPENTREPL[0]) error(257);
}
__ARRAY_UDT_WPENTREPL[2]|=1;
__ARRAY_UDT_WPENTREPL[4]=alloc_new_desc[4];
__ARRAY_UDT_WPENTREPL[5]=alloc_new_desc[5];
__ARRAY_UDT_WPENTREPL[6]=alloc_new_desc[6];
__ARRAY_UDT_WPENTREPL[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,67,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT= -1 ;
if(!qbevent)break;evnt(38,68,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&apos;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),qbs_new_txt_len("'",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,70,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&#91;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),qbs_new_txt_len("[",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,71,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&#93;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),qbs_new_txt_len("]",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,72,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&#123;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),qbs_new_txt_len("{",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&#125;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,74,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&pi;",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),func_chr( 227 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,75,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&theta;",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),func_chr( 233 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,76,"wiki_global.bas");}while(r);
do{
*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+0))),8,1),qbs_new_txt_len("&nbsp;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+(((array_check((*__LONG_WPENTREPLCNT)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8))),8,1),func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"wiki_global.bas");}while(r);
do{
if (__ARRAY_UDT_WPUTFREPL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_UDT_WPUTFREPL[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 65 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(12);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_UDT_WPUTFREPL[2]&4){
__ARRAY_UDT_WPUTFREPL[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_WPUTFREPL[0]) error(257);
memset((void*)(__ARRAY_UDT_WPUTFREPL[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_UDT_WPUTFREPL[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_WPUTFREPL[0]) error(257);
}
__ARRAY_UDT_WPUTFREPL[2]|=1;
__ARRAY_UDT_WPUTFREPL[4]=alloc_new_desc[4];
__ARRAY_UDT_WPUTFREPL[5]=alloc_new_desc[5];
__ARRAY_UDT_WPUTFREPL[6]=alloc_new_desc[6];
__ARRAY_UDT_WPUTFREPL[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,84,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT= -1 ;
if(!qbevent)break;evnt(38,85,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -18750 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 20 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -22590 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 21 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -22078 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),qbs_new_txt_len("(c)",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -22077 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 130 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -23869 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 131 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -24381 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 133 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -23101 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 134 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -22589 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 135 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -21821 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 136 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -21565 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 137 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -22333 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 138 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -20541 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 139 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -20797 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 140 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -23870 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 155 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -16958 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 171 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -17214 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 172 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -32561 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 227 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),i2string( -24382 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10911970 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),qbs_new_txt_len("...",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11439074 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 240 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11305698 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 238 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9213154 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 218 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9475298 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 191 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9737442 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 192 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9999586 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 217 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8426722 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 196 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8557794 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 179 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11834594 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 193 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11310306 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 194 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10786018 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 180 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10261730 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 195 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12358882 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 197 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11704034 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 30 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12359394 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 31 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8689634 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 17 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12228322 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 16 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9537250 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 24 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9668322 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 25 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9799394 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 18 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11044578 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 23 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,130,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9471714 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 27 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,131,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9602786 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 26 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,132,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9733858 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 29 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12228834 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,134,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12294370 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,135,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10852834 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,136,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10918370 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,137,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10721762 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,138,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10525154 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8559074 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 11 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,140,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8428002 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 12 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,141,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11180514 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,142,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11246050 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 14 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,143,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10649826 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,144,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10000354 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 8 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 9148386 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,146,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10065890 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 10 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,147,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 8951522 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 219 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,148,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12359906 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 15 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,149,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 12353762 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 19 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,150,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 11310818 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 22 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( 10455266 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),func_chr( 28 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,152,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( -2137481232 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),qbs_new_txt_len(":)",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,154,"wiki_global.bas");}while(r);
do{
*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ;
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+0))),4,1),l2string( -2003263504 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+(((array_check((*__LONG_WPUTFREPLCNT)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4))),8,1),qbs_new_txt_len(";)",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,155,"wiki_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,8,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,10,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,11,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,13,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_VWATCHRECEIVEDDATA[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_VWATCHRECEIVEDDATA[0]) error(257);
__ARRAY_STRING_VWATCHRECEIVEDDATA[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_VWATCHRECEIVEDDATA[4]=alloc_new_desc[4];
__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=alloc_new_desc[5];
__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=alloc_new_desc[6];
__ARRAY_STRING_VWATCHRECEIVEDDATA[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,14,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,15,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,17,"ide_global.bas");}while(r);
do{
*__LONG_IDESYSTEM= 1 ;
if(!qbevent)break;evnt(38,21,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,23,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,24,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_IDERECENTLINK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_IDERECENTLINK[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[8]= 1 ;
alloc_new_desc[9]=( 6 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 2 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_IDERECENTLINK[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_IDERECENTLINK[0]) error(257);
__ARRAY_STRING_IDERECENTLINK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_IDERECENTLINK[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_IDERECENTLINK[4]=alloc_new_desc[4];
__ARRAY_STRING_IDERECENTLINK[5]=alloc_new_desc[5];
__ARRAY_STRING_IDERECENTLINK[6]=alloc_new_desc[6];
__ARRAY_STRING_IDERECENTLINK[7]=alloc_new_desc[7];
__ARRAY_STRING_IDERECENTLINK[8]=alloc_new_desc[8];
__ARRAY_STRING_IDERECENTLINK[9]=alloc_new_desc[9];
__ARRAY_STRING_IDERECENTLINK[10]=alloc_new_desc[10];
__ARRAY_STRING_IDERECENTLINK[11]=alloc_new_desc[11];
}
}
if(!qbevent)break;evnt(38,26,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,27,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,28,"ide_global.bas");}while(r);
do{
if (__ARRAY_UDT_IDEBMK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_IDEBMK[2]&1){
preserve_old_ptr=__ARRAY_UDT_IDEBMK[0];
preserve_old_flags=__ARRAY_UDT_IDEBMK[2];
preserve_old_total=__ARRAY_UDT_IDEBMK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(16);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_IDEBMK[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_IDEBMK[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_IDEBMK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_IDEBMK[0]) error(257);
memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_IDEBMK[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_IDEBMK[0]) error(257);
}
}
__ARRAY_UDT_IDEBMK[2]|=1;
__ARRAY_UDT_IDEBMK[4]=alloc_new_desc[4];
__ARRAY_UDT_IDEBMK[5]=alloc_new_desc[5];
__ARRAY_UDT_IDEBMK[6]=alloc_new_desc[6];
__ARRAY_UDT_IDEBMK[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,36,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,37,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,43,"ide_global.bas");}while(r);
do{
if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 0 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(16);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){
__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257);
memset((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257);
}
__ARRAY_UDT_QUICKNAVHISTORY[2]|=1;
__ARRAY_UDT_QUICKNAVHISTORY[4]=alloc_new_desc[4];
__ARRAY_UDT_QUICKNAVHISTORY[5]=alloc_new_desc[5];
__ARRAY_UDT_QUICKNAVHISTORY[6]=alloc_new_desc[6];
__ARRAY_UDT_QUICKNAVHISTORY[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,44,"ide_global.bas");}while(r);
do{
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDEBREAKPOINTS[0];
preserve_old_flags=__ARRAY_BYTE_IDEBREAKPOINTS[2];
preserve_old_total=__ARRAY_BYTE_IDEBREAKPOINTS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
}
}
__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1;
__ARRAY_BYTE_IDEBREAKPOINTS[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDEBREAKPOINTS[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDEBREAKPOINTS[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDEBREAKPOINTS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,46,"ide_global.bas");}while(r);
do{
if (__ARRAY_BYTE_IDESKIPLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_IDESKIPLINES[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDESKIPLINES[0];
preserve_old_flags=__ARRAY_BYTE_IDESKIPLINES[2];
preserve_old_total=__ARRAY_BYTE_IDESKIPLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_IDESKIPLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
}
}
__ARRAY_BYTE_IDESKIPLINES[2]|=1;
__ARRAY_BYTE_IDESKIPLINES[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDESKIPLINES[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDESKIPLINES[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDESKIPLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(38,47,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,50,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,51,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,52,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,53,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,54,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,55,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,56,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,57,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,58,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,59,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,60,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,61,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,62,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,63,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,64,"ide_global.bas");}while(r);
do{
if (__ARRAY_INTEGER_BLOCK_CHR[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER_BLOCK_CHR[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER_BLOCK_CHR[2]&4){
__ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257);
memset((void*)(__ARRAY_INTEGER_BLOCK_CHR[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER_BLOCK_CHR[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257);
}
__ARRAY_INTEGER_BLOCK_CHR[2]|=1;
__ARRAY_INTEGER_BLOCK_CHR[4]=alloc_new_desc[4];
__ARRAY_INTEGER_BLOCK_CHR[5]=alloc_new_desc[5];
__ARRAY_INTEGER_BLOCK_CHR[6]=alloc_new_desc[6];
__ARRAY_INTEGER_BLOCK_CHR[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,66,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(38,67,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(38,68,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,71,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_IDECPNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_IDECPNAME[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 27 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_IDECPNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_IDECPNAME[0]) error(257);
__ARRAY_STRING_IDECPNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_IDECPNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_IDECPNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_IDECPNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_IDECPNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_IDECPNAME[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,73,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_IDECP[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_IDECP[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 27 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_IDECP[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_IDECP[0]) error(257);
__ARRAY_STRING_IDECP[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_IDECP[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_IDECP[4]=alloc_new_desc[4];
__ARRAY_STRING_IDECP[5]=alloc_new_desc[5];
__ARRAY_STRING_IDECP[6]=alloc_new_desc[6];
__ARRAY_STRING_IDECP[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,74,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp437",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,76,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,77,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp737",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,78,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,79,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp775",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,80,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,81,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp850",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,82,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,83,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp852",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,84,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,85,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp855",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,86,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,87,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp857",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,88,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,89,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp860",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,90,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp861",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,92,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,93,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp862",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,94,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,95,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp863",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,96,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp864",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,98,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,99,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp865",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,100,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,101,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp866",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,102,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp869",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,104,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,105,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp874",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,106,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,107,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1250",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,108,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1251",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,110,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,111,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1252",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,112,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,113,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1253",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,114,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1254",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,116,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,117,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1255",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,118,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,119,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1256",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,120,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1257",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,122,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,123,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1258",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,124,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,125,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp874",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,126,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("MIK",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,128,"ide_global.bas");}while(r);
do{
tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len(" ",2048));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,129,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,131,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,132,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,133,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,1,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_new_txt_len("$ASSERTS@$CHECKING@$COLOR@$CONSOLE@$DEBUG@$ELSE@$ELSEIF@$EMBED@$END@$ENDIF@$ERROR@$EXEICON@$IF@$INCLUDEONCE@$LET@$MIDISOUNDFONT@$NOPREFIX@$RESIZE@$SCREENHIDE@$SCREENSHOW@$UNSTABLE@$USELIBRARY@$VERSIONINFO@",205)),qbs_new_txt_len("$DYNAMIC@$FORMAT@$INCLUDE@$STATIC@",34)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,7,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ACCEPTFILEDROP@_ACOS@_ACOSH@_ADLER32@_ALL@_ALLOWFULLSCREEN@_ALPHA@_ALPHA32@_ANDALSO@_ANTICLOCKWISE@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ASSERT@_ATAN2@_ATANH@_AUTO@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@",201)),qbs_new_txt_len("ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@",48)),qbs_new_txt_len("_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@",61)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,13,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_BASE64DECODE$@_BASE64ENCODE$@_BEHIND@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BRIGHTNESS32@_BUTTON@_BUTTONCHANGE@_BYTE@",119)),qbs_new_txt_len("BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@",35)),qbs_new_txt_len("_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@",47)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,19,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_CAPSLOCK@_CAST@_CEIL@_CINP@_CLAMP@_CLEAR@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_CLOCKWISE@_COLORCHOOSERDIALOG@_COMMANDCOUNT@_COMPILEDATE$@_COMPILETIME$@_COMPILERVERSION$@_CONNECTED@_CONNECTIONADDRESS@_CONNECTIONADDRESS$@_CONSOLE@_CONSOLECURSOR@_CONSOLEFONT@_CONSOLEINPUT@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CRC32@_CSC@_CSCH@_CV@_CWD$@",385)),qbs_new_txt_len("CALL@CALLS@CASE@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONSOLE@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@",174)),qbs_new_txt_len("_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@",649)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,25,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_D2G@_D2R@_DECODEURL$@_DEFAULTCOLOR@_DEFINE@_DEFLATE$@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@_DROPPEDFILE@_DROPPEDFILE$@",228)),qbs_new_txt_len("DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@",85)),qbs_new_txt_len("_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@",164)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,31,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ECHO@_EMBEDDED$@_ENCODEURL$@_ENVIRONCOUNT@_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@",100)),qbs_new_txt_len("ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@",99)),qbs_new_txt_len("_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@",271)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,37,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_FILEEXISTS@_FILES$@_FILLBACKGROUND@_FINISHDROP@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FPS@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLPATH$@_FULLSCREEN@",144)),qbs_new_txt_len("FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@",59)),qbs_new_txt_len("_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@",95)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,43,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@",36)),qbs_new_txt_len("GET@GOSUB@GOTO@",15)),qbs_new_txt_len("_GLGENLISTS@_GLGENTEXTURES@_GLGETBOOLEANV@_GLGETCLIPPLANE@_GLGETDOUBLEV@_GLGETERROR@_GLGETFLOATV@_GLGETINTEGERV@_GLGETLIGHTFV@_GLGETLIGHTIV@_GLGETMAPDV@_GLGETMAPFV@_GLGETMAPIV@_GLGETMATERIALFV@_GLGETMATERIALIV@_GLGETPIXELMAPFV@_GLGETPIXELMAPUIV@_GLGETPIXELMAPUSV@_GLGETPOINTERV@_GLGETPOLYGONSTIPPLE@_GLGETSTRING@_GLGETTEXENVFV@_GLGETTEXENVIV@_GLGETTEXGENDV@_GLGETTEXGENFV@_GLGETTEXGENIV@_GLGETTEXIMAGE@_GLGETTEXLEVELPARAMETERFV@_GLGETTEXLEVELPARAMETERIV@_GLGETTEXPARAMETERFV@_GLGETTEXPARAMETERIV@",496)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,49,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_HARDWARE@_HARDWARE1@_HEIGHT@_HIDE@_HSB32@_HSBA32@_HUE32@_HYPOT@",64)),qbs_new_txt_len("HEX$@",5)),qbs_new_txt_len("_GLHINT@",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,55,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ICON@_IIF@_INCLERRORFILE$@_INCLERRORLINE@_INFLATE$@_INPUTBOX$@_INSTRREV@_INTEGER64@",84)),qbs_new_txt_len("IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@IS@",86)),qbs_new_txt_len("_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@",206)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,61,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,67,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_KEEPBACKGROUND@_KEYCLEAR@_KEYDOWN@_KEYHIT@",43)),qbs_new_txt_len("KEY@KILL@",9)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,73,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_LASTAXIS@_LASTBUTTON@_LASTHANDLER@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_LOGTRACE@_LOGINFO@_LOGWARN@_LOGERROR@_LOGMINLEVEL@",125)),qbs_new_txt_len("LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@",104)),qbs_new_txt_len("_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@",213)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,79,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_MAPTRIANGLE@_MAPUNICODE@_MAX@_MD5$@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMNEW@_MEMPUT@_MEMSOUND@_MESSAGEBOX@_MIDDLE@_MIDISOUNDBANK@_MIN@_MK$@_MOUSEBUTTON@_MOUSEHIDDEN@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@",311)),qbs_new_txt_len("MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@",51)),qbs_new_txt_len("_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@",186)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,85,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_NEGATE@_NEWHANDLER@_NEWIMAGE@_NONE@_NOTIFYPOPUP@_NUMLOCK@",58)),qbs_new_txt_len("NAME@NEXT@NOT@",14)),qbs_new_txt_len("_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@",153)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,91,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_OFF@_OFFSET@_ONLY@_ONLYBACKGROUND@_ONTOP@_OPENCLIENT@_OPENCONNECTION@_OPENFILEDIALOG$@_OPENHOST@_ORELSE@_OS$@",110)),qbs_new_txt_len("OCT$@OFF@ON@ONLY@OPEN@OPTION@OR@OUT@OUTPUT@",43)),qbs_new_txt_len("_GLORTHO@",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,97,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@",97)),qbs_new_txt_len("PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@?@PRINT@PSET@PUT@",78)),qbs_new_txt_len("_GLPASSTHROUGH@_GLUPERSPECTIVE@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@",355)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,103,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,109,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_R2D@_R2G@_READBIT@_READFILE$@_RED@_RED32@_RESETBIT@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RETAIN@_RGB@_RGB32@_RGBA@_RGBA32@_ROL@_ROR@_ROUND@",138)),qbs_new_txt_len("RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@",93)),qbs_new_txt_len("_GLRASTERPOS2D@_GLRASTERPOS2DV@_GLRASTERPOS2F@_GLRASTERPOS2FV@_GLRASTERPOS2I@_GLRASTERPOS2IV@_GLRASTERPOS2S@_GLRASTERPOS2SV@_GLRASTERPOS3D@_GLRASTERPOS3DV@_GLRASTERPOS3F@_GLRASTERPOS3FV@_GLRASTERPOS3I@_GLRASTERPOS3IV@_GLRASTERPOS3S@_GLRASTERPOS3SV@_GLRASTERPOS4D@_GLRASTERPOS4DV@_GLRASTERPOS4F@_GLRASTERPOS4FV@_GLRASTERPOS4I@_GLRASTERPOS4IV@_GLRASTERPOS4S@_GLRASTERPOS4SV@_GLREADBUFFER@_GLREADPIXELS@_GLRECTD@_GLRECTDV@_GLRECTF@_GLRECTFV@_GLRECTI@_GLRECTIV@_GLRECTS@_GLRECTSV@_GLRENDERMODE@_GLROTATED@_GLROTATEF@",512)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,115,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_SATURATION32@_SAVEFILEDIALOG$@_SAVEIMAGE@_SCALEDHEIGHT@_SCALEDWIDTH@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SCROLLLOCK@_SEAMLESS@_SEC@_SECH@_SELECTFOLDERDIALOG$@_SETALPHA@_SETBIT@_SHELLHIDE@_SHL@_SHOW@_SHR@_SINH@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDNEW@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWBATCH@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOFTWARE@_SOURCE@_SQUAREPIXELS@_STARTDIR$@_STATUSCODE@_STRCMP@_STRETCH@_STRICMP@",656)),qbs_new_txt_len("SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SMOOTH@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRETCH@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@",177)),qbs_new_txt_len("_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@",104)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,121,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_TANH@_TITLE@_TITLE$@_TOGGLE@_TOGGLEBIT@_TOSTR$@_TOTALDROPPEDFILES@_TRIM$@",74)),qbs_new_txt_len("TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@",44)),qbs_new_txt_len("_GLTEXCOORD1D@_GLTEXCOORD1DV@_GLTEXCOORD1F@_GLTEXCOORD1FV@_GLTEXCOORD1I@_GLTEXCOORD1IV@_GLTEXCOORD1S@_GLTEXCOORD1SV@_GLTEXCOORD2D@_GLTEXCOORD2DV@_GLTEXCOORD2F@_GLTEXCOORD2FV@_GLTEXCOORD2I@_GLTEXCOORD2IV@_GLTEXCOORD2S@_GLTEXCOORD2SV@_GLTEXCOORD3D@_GLTEXCOORD3DV@_GLTEXCOORD3F@_GLTEXCOORD3FV@_GLTEXCOORD3I@_GLTEXCOORD3IV@_GLTEXCOORD3S@_GLTEXCOORD3SV@_GLTEXCOORD4D@_GLTEXCOORD4DV@_GLTEXCOORD4F@_GLTEXCOORD4FV@_GLTEXCOORD4I@_GLTEXCOORD4IV@_GLTEXCOORD4S@_GLTEXCOORD4SV@_GLTEXCOORDPOINTER@_GLTEXENVF@_GLTEXENVFV@_GLTEXENVI@_GLTEXENVIV@_GLTEXGEND@_GLTEXGENDV@_GLTEXGENF@_GLTEXGENFV@_GLTEXGENI@_GLTEXGENIV@_GLTEXIMAGE1D@_GLTEXIMAGE2D@_GLTEXPARAMETERF@_GLTEXPARAMETERFV@_GLTEXPARAMETERI@_GLTEXPARAMETERIV@_GLTEXSUBIMAGE1D@_GLTEXSUBIMAGE2D@_GLTRANSLATED@_GLTRANSLATEF@",758)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,127,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_UCHARPOS@_UFONTHEIGHT@_ULINESPACING@_UNSIGNED@_UPRINTSTRING@_UPRINTWIDTH@",74)),qbs_new_txt_len("UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@",40)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,133,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("VAL@VARPTR@VARPTR$@VARSEG@VIEW@",31)),qbs_new_txt_len("_GLVERTEX2D@_GLVERTEX2DV@_GLVERTEX2F@_GLVERTEX2FV@_GLVERTEX2I@_GLVERTEX2IV@_GLVERTEX2S@_GLVERTEX2SV@_GLVERTEX3D@_GLVERTEX3DV@_GLVERTEX3F@_GLVERTEX3FV@_GLVERTEX3I@_GLVERTEX3IV@_GLVERTEX3S@_GLVERTEX3SV@_GLVERTEX4D@_GLVERTEX4DV@_GLVERTEX4F@_GLVERTEX4FV@_GLVERTEX4I@_GLVERTEX4IV@_GLVERTEX4S@_GLVERTEX4SV@_GLVERTEXPOINTER@_GLVIEWPORT@",329)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,139,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_WAVE@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_WRITEFILE@",61)),qbs_new_txt_len("WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@",35)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,145,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("XOR@",4)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,151,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,157,"syntax_highlighter_list.bas");}while(r);
do{
qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("",0)),qbs_new_txt_len("",0)),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(38,163,"syntax_highlighter_list.bas");}while(r);
do{
if(!qbevent)break;evnt(38,141,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,142,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,143,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,144,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,145,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,146,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,147,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,148,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,149,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,150,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,151,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,152,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_IDETXT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_IDETXT[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_IDETXT[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_IDETXT[0]) error(257);
__ARRAY_STRING_IDETXT[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_IDETXT[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_IDETXT[4]=alloc_new_desc[4];
__ARRAY_STRING_IDETXT[5]=alloc_new_desc[5];
__ARRAY_STRING_IDETXT[6]=alloc_new_desc[6];
__ARRAY_STRING_IDETXT[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,153,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,154,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,155,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,156,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,157,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,158,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,159,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,160,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,161,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,162,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,163,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,164,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,165,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,166,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,167,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,168,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,169,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_SUBFUNCLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_SUBFUNCLIST[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 0 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SUBFUNCLIST[0]) error(257);
__ARRAY_STRING_SUBFUNCLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SUBFUNCLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_SUBFUNCLIST[4]=alloc_new_desc[4];
__ARRAY_STRING_SUBFUNCLIST[5]=alloc_new_desc[5];
__ARRAY_STRING_SUBFUNCLIST[6]=alloc_new_desc[6];
__ARRAY_STRING_SUBFUNCLIST[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,170,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,171,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,172,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,173,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,174,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,175,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,176,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,177,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,178,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,179,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,215,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,216,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_MENU[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_MENU[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[8]= 1 ;
alloc_new_desc[9]=( 12 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 20 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_MENU[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_MENU[0]) error(257);
__ARRAY_STRING_MENU[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_MENU[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_MENU[4]=alloc_new_desc[4];
__ARRAY_STRING_MENU[5]=alloc_new_desc[5];
__ARRAY_STRING_MENU[6]=alloc_new_desc[6];
__ARRAY_STRING_MENU[7]=alloc_new_desc[7];
__ARRAY_STRING_MENU[8]=alloc_new_desc[8];
__ARRAY_STRING_MENU[9]=alloc_new_desc[9];
__ARRAY_STRING_MENU[10]=alloc_new_desc[10];
__ARRAY_STRING_MENU[11]=alloc_new_desc[11];
}
}
if(!qbevent)break;evnt(38,217,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_MENUDESC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_MENUDESC[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[8]= 1 ;
alloc_new_desc[9]=( 12 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 20 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_MENUDESC[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_MENUDESC[0]) error(257);
__ARRAY_STRING_MENUDESC[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_MENUDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_MENUDESC[4]=alloc_new_desc[4];
__ARRAY_STRING_MENUDESC[5]=alloc_new_desc[5];
__ARRAY_STRING_MENUDESC[6]=alloc_new_desc[6];
__ARRAY_STRING_MENUDESC[7]=alloc_new_desc[7];
__ARRAY_STRING_MENUDESC[8]=alloc_new_desc[8];
__ARRAY_STRING_MENUDESC[9]=alloc_new_desc[9];
__ARRAY_STRING_MENUDESC[10]=alloc_new_desc[10];
__ARRAY_STRING_MENUDESC[11]=alloc_new_desc[11];
}
}
if(!qbevent)break;evnt(38,218,"ide_global.bas");}while(r);
do{
if (__ARRAY_LONG_MENUSIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_MENUSIZE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 12 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_MENUSIZE[2]&4){
__ARRAY_LONG_MENUSIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_MENUSIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_MENUSIZE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_MENUSIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_MENUSIZE[0]) error(257);
}
__ARRAY_LONG_MENUSIZE[2]|=1;
__ARRAY_LONG_MENUSIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_MENUSIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_MENUSIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_MENUSIZE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,219,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,220,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,221,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,222,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,223,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,224,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,225,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,226,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,227,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,228,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,229,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,230,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,231,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,232,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,233,"ide_global.bas");}while(r);
do{
if (__ARRAY_STRING_COLORSCHEMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_COLORSCHEMES[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 0 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_COLORSCHEMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_COLORSCHEMES[0]) error(257);
__ARRAY_STRING_COLORSCHEMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_COLORSCHEMES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_COLORSCHEMES[4]=alloc_new_desc[4];
__ARRAY_STRING_COLORSCHEMES[5]=alloc_new_desc[5];
__ARRAY_STRING_COLORSCHEMES[6]=alloc_new_desc[6];
__ARRAY_STRING_COLORSCHEMES[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(38,234,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,235,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,236,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,237,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,238,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,239,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(38,240,"ide_global.bas");}while(r);
do{
if(!qbevent)break;evnt(40);}while(r);
do{
if(!qbevent)break;evnt(42);}while(r);
do{
qbs_set(__STRING_VWATCHERRORCALL,qbs_new_txt_len("if (stop_program) {*__LONG_VWATCH_LINENUMBER=0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);};if(new_error){bkp_new_error=new_error;new_error=0;*__LONG_VWATCH_LINENUMBER=-1; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);new_error=bkp_new_error;};",298));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(43);}while(r);
do{
qbs_set(__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@__LONG_VWATCH_LINENUMBER@__LONG_VWATCH_SUBLEVEL@__LONG_VWATCH_GOTO@",68),qbs_new_txt_len("@__STRING_VWATCH_SUBNAME@__STRING_VWATCH_CALLSTACK@__ARRAY_BYTE_VWATCH_BREAKPOINTS",82)),qbs_new_txt_len("@__ARRAY_BYTE_VWATCH_SKIPLINES@__STRING_VWATCH_INTERNALSUBNAME@__ARRAY_STRING_VWATCH_STACK@",91)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(46);}while(r);
do{
if(!qbevent)break;evnt(48);}while(r);
do{
qbs_set(__STRING_NATIVEDATATYPES,qbs_new_txt_len("@_OFFSET@_UNSIGNED _OFFSET@_BIT@_UNSIGNED _BIT@_BYTE@_UNSIGNED _BYTE@INTEGER@_UNSIGNED INTEGER@LONG@_UNSIGNED LONG@_INTEGER64@_UNSIGNED _INTEGER64@SINGLE@DOUBLE@_FLOAT@STRING@",175));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(49);}while(r);
do{
if (__ARRAY_LONG_EVERYCASESET[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_EVERYCASESET[2]&1){
preserve_old_ptr=__ARRAY_LONG_EVERYCASESET[0];
preserve_old_flags=__ARRAY_LONG_EVERYCASESET[2];
preserve_old_total=__ARRAY_LONG_EVERYCASESET[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_EVERYCASESET[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_EVERYCASESET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_EVERYCASESET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
}
}
__ARRAY_LONG_EVERYCASESET[2]|=1;
__ARRAY_LONG_EVERYCASESET[4]=alloc_new_desc[4];
__ARRAY_LONG_EVERYCASESET[5]=alloc_new_desc[5];
__ARRAY_LONG_EVERYCASESET[6]=alloc_new_desc[6];
__ARRAY_LONG_EVERYCASESET[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(51);}while(r);
do{
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
preserve_old_ptr=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0];
preserve_old_flags=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2];
preserve_old_total=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
}
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=alloc_new_desc[4];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=alloc_new_desc[5];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=alloc_new_desc[6];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(52);}while(r);
do{
if (__ARRAY_LONG_EXECLEVEL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_EXECLEVEL[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_EXECLEVEL[2]&4){
__ARRAY_LONG_EXECLEVEL[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_EXECLEVEL[0]) error(257);
memset((void*)(__ARRAY_LONG_EXECLEVEL[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_EXECLEVEL[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_EXECLEVEL[0]) error(257);
}
__ARRAY_LONG_EXECLEVEL[2]|=1;
__ARRAY_LONG_EXECLEVEL[4]=alloc_new_desc[4];
__ARRAY_LONG_EXECLEVEL[5]=alloc_new_desc[5];
__ARRAY_LONG_EXECLEVEL[6]=alloc_new_desc[6];
__ARRAY_LONG_EXECLEVEL[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(53);}while(r);
do{
if (__ARRAY_STRING_USERDEFINE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_USERDEFINE[2]&1){
preserve_old_ptr=__ARRAY_STRING_USERDEFINE[0];
preserve_old_flags=__ARRAY_STRING_USERDEFINE[2];
preserve_old_total=__ARRAY_STRING_USERDEFINE[5]*__ARRAY_STRING_USERDEFINE[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 1 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_USERDEFINE[0]=preserve_new_ptr;
__ARRAY_STRING_USERDEFINE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USERDEFINE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_USERDEFINE[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_USERDEFINE[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_USERDEFINE[0]) error(257);
__ARRAY_STRING_USERDEFINE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USERDEFINE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_USERDEFINE[4]=alloc_new_desc[4];
__ARRAY_STRING_USERDEFINE[5]=alloc_new_desc[5];
__ARRAY_STRING_USERDEFINE[6]=alloc_new_desc[6];
__ARRAY_STRING_USERDEFINE[7]=alloc_new_desc[7];
__ARRAY_STRING_USERDEFINE[8]=alloc_new_desc[8];
__ARRAY_STRING_USERDEFINE[9]=alloc_new_desc[9];
__ARRAY_STRING_USERDEFINE[10]=alloc_new_desc[10];
__ARRAY_STRING_USERDEFINE[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(54);}while(r);
do{
if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
preserve_old_ptr=__ARRAY_BYTE_INVALIDLINE[0];
preserve_old_flags=__ARRAY_BYTE_INVALIDLINE[2];
preserve_old_total=__ARRAY_BYTE_INVALIDLINE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
__ARRAY_BYTE_INVALIDLINE[4]=alloc_new_desc[4];
__ARRAY_BYTE_INVALIDLINE[5]=alloc_new_desc[5];
__ARRAY_BYTE_INVALIDLINE[6]=alloc_new_desc[6];
__ARRAY_BYTE_INVALIDLINE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(55);}while(r);
do{
if (__ARRAY_BYTE_DEFINEELSE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_BYTE_DEFINEELSE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_BYTE_DEFINEELSE[2]&4){
__ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257);
memset((void*)(__ARRAY_BYTE_DEFINEELSE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257);
}
__ARRAY_BYTE_DEFINEELSE[2]|=1;
__ARRAY_BYTE_DEFINEELSE[4]=alloc_new_desc[4];
__ARRAY_BYTE_DEFINEELSE[5]=alloc_new_desc[5];
__ARRAY_BYTE_DEFINEELSE[6]=alloc_new_desc[6];
__ARRAY_BYTE_DEFINEELSE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(56);}while(r);
do{
if(!qbevent)break;evnt(57);}while(r);
do{
qbs_set(__STRING_USERDEFINELISTPRESETS,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@_QB64PE_@_ARM_@",83));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(58);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WINDOWS",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(59);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(59);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("LINUX",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(60);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MAC",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(61);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MACOSX",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(61);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("32BIT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(62);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("64BIT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(62);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("VERSION",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(63);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 8 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("_QB64PE_",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(63);}while(r);
do{
tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("_ARM_",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(64);}while(r);
S_647:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(65);if(r)goto S_647;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(65);}while(r);
}
S_654:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
if(qbevent){evnt(66);if(r)goto S_654;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(66);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(66);}while(r);
}
S_659:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||is_error_pending()){
if(qbevent){evnt(67);if(r)goto S_659;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(67);}while(r);
}
S_666:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||is_error_pending()){
if(qbevent){evnt(68);if(r)goto S_666;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(68);}while(r);
}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_VERSION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(69);}while(r);
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 8 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(69);}while(r);
S_675:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
if(qbevent){evnt(70);if(r)goto S_675;}
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(70);}while(r);
}else{
do{
tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 9 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(70);}while(r);
}
do{
*__INTEGER_USERDEFINECOUNTPRESETS= 9 ;
if(!qbevent)break;evnt(73);}while(r);
do{
if(!qbevent)break;evnt(75);}while(r);
do{
*__DOUBLE_QB64_UPTIME=func_timer( 0.001E+0 ,0|1);
if(!qbevent)break;evnt(77);}while(r);
LABEL_NOINTERNALFOLDER:;
if(qbevent){evnt(79);r=0;}
S_683:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||is_error_pending()){
if(qbevent){evnt(80);if(r)goto S_683;}
do{
sub__screenshow();
if(!qbevent)break;evnt(81);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("QB64-PE cannot locate the 'internal' folder",43));
if (is_error_pending()) goto skip2;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(82);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip3:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(83);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Check that QB64-PE has been extracted properly.",47));
if (is_error_pending()) goto skip4;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip4:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(84);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64pe_start.command' or enter './qb64pe' in Terminal.",74));
if (is_error_pending()) goto skip5;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip5:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(85);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64pe'.",43));
if (is_error_pending()) goto skip6;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip6:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(86);}while(r);
S_690:;
do{
if(qbevent){evnt(87);if(r)goto S_690;}
do{
sub__limit( 1 );
if(!qbevent)break;evnt(88);}while(r);
S_692:;
dl_continue_7:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_7:;
if(qbevent){evnt(89);if(r)goto S_692;}
do{
if(qbevent){evnt(90);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(90);}while(r);
}
do{
if(!qbevent)break;evnt(93);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(94);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(95);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(96);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(97);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(98);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(99);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(100);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(101);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(102);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(103);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(104);}while(r);
do{
*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ;
if(!qbevent)break;evnt(105);}while(r);
do{
if (__ARRAY_LONG_DEPENDENCY[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_DEPENDENCY[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_DEPENDENCY_LAST)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_DEPENDENCY[2]&4){
__ARRAY_LONG_DEPENDENCY[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_DEPENDENCY[0]) error(257);
memset((void*)(__ARRAY_LONG_DEPENDENCY[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_DEPENDENCY[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_DEPENDENCY[0]) error(257);
}
__ARRAY_LONG_DEPENDENCY[2]|=1;
__ARRAY_LONG_DEPENDENCY[4]=alloc_new_desc[4];
__ARRAY_LONG_DEPENDENCY[5]=alloc_new_desc[5];
__ARRAY_LONG_DEPENDENCY[6]=alloc_new_desc[6];
__ARRAY_LONG_DEPENDENCY[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(109);}while(r);
do{
if(!qbevent)break;evnt(111);}while(r);
do{
if(!qbevent)break;evnt(114);}while(r);
S_711:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("ARM",3),0)))||is_error_pending()){
if(qbevent){evnt(116);if(r)goto S_711;}
do{
qbs_set(__STRING_WINDOWTITLE,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition ",21),((-(*__LONG_OS_BITS== 32 ))?(qbs_new_txt_len("(ARM)",5)):(qbs_new_txt_len("(ARM64)",7)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(117);}while(r);
}else{
do{
qbs_set(__STRING_WINDOWTITLE,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition ",21),((-(*__LONG_OS_BITS== 32 ))?(qbs_new_txt_len("(x86)",5)):(qbs_new_txt_len("(x64)",5)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(119);}while(r);
}
do{
sub__title(__STRING_WINDOWTITLE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(122);}while(r);
do{
if(!qbevent)break;evnt(126);}while(r);
do{
if(!qbevent)break;evnt(127);}while(r);
do{
if(!qbevent)break;evnt(128);}while(r);
do{
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){
preserve_old_ptr=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0];
preserve_old_flags=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2];
preserve_old_total=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(120);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_new_ptr;
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104));
qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257);
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
}
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]=alloc_new_desc[4];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=alloc_new_desc[5];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=alloc_new_desc[6];
__ARRAY_UDT_BACKUPUSEDVARIABLELIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(139);}while(r);
do{
if(!qbevent)break;evnt(140);}while(r);
do{
if(!qbevent)break;evnt(141);}while(r);
do{
if(!qbevent)break;evnt(142);}while(r);
do{
if(!qbevent)break;evnt(143);}while(r);
do{
if(!qbevent)break;evnt(144);}while(r);
do{
if(!qbevent)break;evnt(145);}while(r);
do{
if(!qbevent)break;evnt(146);}while(r);
do{
if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_EMBEDFILELIST[0];
preserve_old_flags=__ARRAY_STRING_EMBEDFILELIST[2];
preserve_old_total=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 3 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_EMBEDFILELIST[4]=alloc_new_desc[4];
__ARRAY_STRING_EMBEDFILELIST[5]=alloc_new_desc[5];
__ARRAY_STRING_EMBEDFILELIST[6]=alloc_new_desc[6];
__ARRAY_STRING_EMBEDFILELIST[7]=alloc_new_desc[7];
__ARRAY_STRING_EMBEDFILELIST[8]=alloc_new_desc[8];
__ARRAY_STRING_EMBEDFILELIST[9]=alloc_new_desc[9];
__ARRAY_STRING_EMBEDFILELIST[10]=alloc_new_desc[10];
__ARRAY_STRING_EMBEDFILELIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(149);}while(r);
do{
if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_USELIBLIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_USELIBLIST[0];
preserve_old_flags=__ARRAY_STRING_USELIBLIST[2];
preserve_old_total=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 4 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_USELIBLIST[4]=alloc_new_desc[4];
__ARRAY_STRING_USELIBLIST[5]=alloc_new_desc[5];
__ARRAY_STRING_USELIBLIST[6]=alloc_new_desc[6];
__ARRAY_STRING_USELIBLIST[7]=alloc_new_desc[7];
__ARRAY_STRING_USELIBLIST[8]=alloc_new_desc[8];
__ARRAY_STRING_USELIBLIST[9]=alloc_new_desc[9];
__ARRAY_STRING_USELIBLIST[10]=alloc_new_desc[10];
__ARRAY_STRING_USELIBLIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(153);}while(r);
do{
if(!qbevent)break;evnt(157);}while(r);
do{
if(!qbevent)break;evnt(158);}while(r);
do{
if(!qbevent)break;evnt(159);}while(r);
do{
if(!qbevent)break;evnt(160);}while(r);
do{
if(!qbevent)break;evnt(162);}while(r);
do{
if(!qbevent)break;evnt(163);}while(r);
do{
if(!qbevent)break;evnt(164);}while(r);
do{
if(!qbevent)break;evnt(165);}while(r);
do{
if(!qbevent)break;evnt(166);}while(r);
do{
if(!qbevent)break;evnt(167);}while(r);
do{
if(!qbevent)break;evnt(168);}while(r);
do{
if(!qbevent)break;evnt(169);}while(r);
do{
if(!qbevent)break;evnt(170);}while(r);
do{
if(!qbevent)break;evnt(171);}while(r);
do{
if(!qbevent)break;evnt(173);}while(r);
do{
*__LONG_OPTMAX= 256 ;
if(!qbevent)break;evnt(174);}while(r);
do{
if (__ARRAY_STRING256_OPT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_OPT)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_OPT[2]&1){
preserve_old_ptr=__ARRAY_STRING256_OPT[0];
preserve_old_flags=__ARRAY_STRING256_OPT[2];
preserve_old_total=__ARRAY_STRING256_OPT[5]*__ARRAY_STRING256_OPT[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 1 ;
alloc_new_desc[9]=(*__LONG_OPTMAX)-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_OPT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_OPT[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_OPT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_OPT[0]) error(257);
memset((void*)(__ARRAY_STRING256_OPT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_OPT[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_OPT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_OPT[0]) error(257);
}
}
__ARRAY_STRING256_OPT[2]|=1;
__ARRAY_STRING256_OPT[4]=alloc_new_desc[4];
__ARRAY_STRING256_OPT[5]=alloc_new_desc[5];
__ARRAY_STRING256_OPT[6]=alloc_new_desc[6];
__ARRAY_STRING256_OPT[7]=alloc_new_desc[7];
__ARRAY_STRING256_OPT[8]=alloc_new_desc[8];
__ARRAY_STRING256_OPT[9]=alloc_new_desc[9];
__ARRAY_STRING256_OPT[10]=alloc_new_desc[10];
__ARRAY_STRING256_OPT[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(175);}while(r);
do{
if (__ARRAY_INTEGER_OPTWORDS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_OPTWORDS)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_OPTWORDS[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_OPTWORDS[0];
preserve_old_flags=__ARRAY_INTEGER_OPTWORDS[2];
preserve_old_total=__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY_INTEGER_OPTWORDS[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 1 ;
alloc_new_desc[9]=(*__LONG_OPTMAX)-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_OPTWORDS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_OPTWORDS[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257);
memset((void*)(__ARRAY_INTEGER_OPTWORDS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_OPTWORDS[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257);
}
}
__ARRAY_INTEGER_OPTWORDS[2]|=1;
__ARRAY_INTEGER_OPTWORDS[4]=alloc_new_desc[4];
__ARRAY_INTEGER_OPTWORDS[5]=alloc_new_desc[5];
__ARRAY_INTEGER_OPTWORDS[6]=alloc_new_desc[6];
__ARRAY_INTEGER_OPTWORDS[7]=alloc_new_desc[7];
__ARRAY_INTEGER_OPTWORDS[8]=alloc_new_desc[8];
__ARRAY_INTEGER_OPTWORDS[9]=alloc_new_desc[9];
__ARRAY_INTEGER_OPTWORDS[10]=alloc_new_desc[10];
__ARRAY_INTEGER_OPTWORDS[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(179);}while(r);
do{
if (__ARRAY_INTEGER_T[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_T)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_T[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_T[0];
preserve_old_flags=__ARRAY_INTEGER_T[2];
preserve_old_total=__ARRAY_INTEGER_T[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_T[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_T[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_T[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_T[0]) error(257);
memset((void*)(__ARRAY_INTEGER_T[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_T[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_T[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_T[0]) error(257);
}
}
__ARRAY_INTEGER_T[2]|=1;
__ARRAY_INTEGER_T[4]=alloc_new_desc[4];
__ARRAY_INTEGER_T[5]=alloc_new_desc[5];
__ARRAY_INTEGER_T[6]=alloc_new_desc[6];
__ARRAY_INTEGER_T[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(183);}while(r);
do{
if (__ARRAY_INTEGER_LEV[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_LEV)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_LEV[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_LEV[0];
preserve_old_flags=__ARRAY_INTEGER_LEV[2];
preserve_old_total=__ARRAY_INTEGER_LEV[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_LEV[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_LEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_LEV[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_LEV[0]) error(257);
memset((void*)(__ARRAY_INTEGER_LEV[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_LEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_LEV[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_LEV[0]) error(257);
}
}
__ARRAY_INTEGER_LEV[2]|=1;
__ARRAY_INTEGER_LEV[4]=alloc_new_desc[4];
__ARRAY_INTEGER_LEV[5]=alloc_new_desc[5];
__ARRAY_INTEGER_LEV[6]=alloc_new_desc[6];
__ARRAY_INTEGER_LEV[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(188);}while(r);
do{
if (__ARRAY_INTEGER_ENTRYLEV[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ENTRYLEV)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_ENTRYLEV[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_ENTRYLEV[0];
preserve_old_flags=__ARRAY_INTEGER_ENTRYLEV[2];
preserve_old_total=__ARRAY_INTEGER_ENTRYLEV[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_ENTRYLEV[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ENTRYLEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_ENTRYLEV[0]) error(257);
memset((void*)(__ARRAY_INTEGER_ENTRYLEV[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ENTRYLEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ENTRYLEV[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_ENTRYLEV[0]) error(257);
}
}
__ARRAY_INTEGER_ENTRYLEV[2]|=1;
__ARRAY_INTEGER_ENTRYLEV[4]=alloc_new_desc[4];
__ARRAY_INTEGER_ENTRYLEV[5]=alloc_new_desc[5];
__ARRAY_INTEGER_ENTRYLEV[6]=alloc_new_desc[6];
__ARRAY_INTEGER_ENTRYLEV[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(189);}while(r);
do{
if (__ARRAY_INTEGER_DITCHLEV[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DITCHLEV)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_DITCHLEV[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_DITCHLEV[0];
preserve_old_flags=__ARRAY_INTEGER_DITCHLEV[2];
preserve_old_total=__ARRAY_INTEGER_DITCHLEV[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_DITCHLEV[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_DITCHLEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_DITCHLEV[0]) error(257);
memset((void*)(__ARRAY_INTEGER_DITCHLEV[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_DITCHLEV[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_DITCHLEV[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_DITCHLEV[0]) error(257);
}
}
__ARRAY_INTEGER_DITCHLEV[2]|=1;
__ARRAY_INTEGER_DITCHLEV[4]=alloc_new_desc[4];
__ARRAY_INTEGER_DITCHLEV[5]=alloc_new_desc[5];
__ARRAY_INTEGER_DITCHLEV[6]=alloc_new_desc[6];
__ARRAY_INTEGER_DITCHLEV[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(190);}while(r);
do{
if (__ARRAY_INTEGER_DONTPASS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_DONTPASS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_DONTPASS[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_DONTPASS[0];
preserve_old_flags=__ARRAY_INTEGER_DONTPASS[2];
preserve_old_total=__ARRAY_INTEGER_DONTPASS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_DONTPASS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_DONTPASS[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_DONTPASS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_DONTPASS[0]) error(257);
memset((void*)(__ARRAY_INTEGER_DONTPASS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_DONTPASS[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_DONTPASS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_DONTPASS[0]) error(257);
}
}
__ARRAY_INTEGER_DONTPASS[2]|=1;
__ARRAY_INTEGER_DONTPASS[4]=alloc_new_desc[4];
__ARRAY_INTEGER_DONTPASS[5]=alloc_new_desc[5];
__ARRAY_INTEGER_DONTPASS[6]=alloc_new_desc[6];
__ARRAY_INTEGER_DONTPASS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(191);}while(r);
do{
if (__ARRAY_INTEGER_TEMPLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_TEMPLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_TEMPLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_TEMPLIST[0];
preserve_old_flags=__ARRAY_INTEGER_TEMPLIST[2];
preserve_old_total=__ARRAY_INTEGER_TEMPLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_TEMPLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_TEMPLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_TEMPLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_TEMPLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_TEMPLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_TEMPLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_TEMPLIST[0]) error(257);
}
}
__ARRAY_INTEGER_TEMPLIST[2]|=1;
__ARRAY_INTEGER_TEMPLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_TEMPLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_TEMPLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_TEMPLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(193);}while(r);
do{
if (__ARRAY_LONG_PASSRULE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_PASSRULE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_PASSRULE[2]&1){
preserve_old_ptr=__ARRAY_LONG_PASSRULE[0];
preserve_old_flags=__ARRAY_LONG_PASSRULE[2];
preserve_old_total=__ARRAY_LONG_PASSRULE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_PASSRULE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_PASSRULE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_PASSRULE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_PASSRULE[0]) error(257);
memset((void*)(__ARRAY_LONG_PASSRULE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_PASSRULE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_PASSRULE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_PASSRULE[0]) error(257);
}
}
__ARRAY_LONG_PASSRULE[2]|=1;
__ARRAY_LONG_PASSRULE[4]=alloc_new_desc[4];
__ARRAY_LONG_PASSRULE[5]=alloc_new_desc[5];
__ARRAY_LONG_PASSRULE[6]=alloc_new_desc[6];
__ARRAY_LONG_PASSRULE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(194);}while(r);
do{
if (__ARRAY_LONG_LEVELENTERED[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_LEVELENTERED)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_LEVELENTERED[2]&1){
preserve_old_ptr=__ARRAY_LONG_LEVELENTERED[0];
preserve_old_flags=__ARRAY_LONG_LEVELENTERED[2];
preserve_old_total=__ARRAY_LONG_LEVELENTERED[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_OPTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_LEVELENTERED[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_LEVELENTERED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_LEVELENTERED[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_LEVELENTERED[0]) error(257);
memset((void*)(__ARRAY_LONG_LEVELENTERED[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_LEVELENTERED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_LEVELENTERED[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_LEVELENTERED[0]) error(257);
}
}
__ARRAY_LONG_LEVELENTERED[2]|=1;
__ARRAY_LONG_LEVELENTERED[4]=alloc_new_desc[4];
__ARRAY_LONG_LEVELENTERED[5]=alloc_new_desc[5];
__ARRAY_LONG_LEVELENTERED[6]=alloc_new_desc[6];
__ARRAY_LONG_LEVELENTERED[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(198);}while(r);
do{
if (__ARRAY_STRING_SEPARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SEPARGS[2]&1){
preserve_old_ptr=__ARRAY_STRING_SEPARGS[0];
preserve_old_flags=__ARRAY_STRING_SEPARGS[2];
preserve_old_total=__ARRAY_STRING_SEPARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_OPTMAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SEPARGS[0]=preserve_new_ptr;
__ARRAY_STRING_SEPARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGS[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SEPARGS[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SEPARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SEPARGS[0]) error(257);
__ARRAY_STRING_SEPARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGS[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_SEPARGS[4]=alloc_new_desc[4];
__ARRAY_STRING_SEPARGS[5]=alloc_new_desc[5];
__ARRAY_STRING_SEPARGS[6]=alloc_new_desc[6];
__ARRAY_STRING_SEPARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(199);}while(r);
do{
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&1){
preserve_old_ptr=__ARRAY_STRING_SEPARGSLAYOUT[0];
preserve_old_flags=__ARRAY_STRING_SEPARGSLAYOUT[2];
preserve_old_total=__ARRAY_STRING_SEPARGSLAYOUT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_OPTMAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SEPARGSLAYOUT[0]=preserve_new_ptr;
__ARRAY_STRING_SEPARGSLAYOUT[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SEPARGSLAYOUT[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SEPARGSLAYOUT[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SEPARGSLAYOUT[0]) error(257);
__ARRAY_STRING_SEPARGSLAYOUT[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGSLAYOUT[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_SEPARGSLAYOUT[4]=alloc_new_desc[4];
__ARRAY_STRING_SEPARGSLAYOUT[5]=alloc_new_desc[5];
__ARRAY_STRING_SEPARGSLAYOUT[6]=alloc_new_desc[6];
__ARRAY_STRING_SEPARGSLAYOUT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(200);}while(r);
do{
if (__ARRAY_STRING_SEPARGS2[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGS2)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SEPARGS2[2]&1){
preserve_old_ptr=__ARRAY_STRING_SEPARGS2[0];
preserve_old_flags=__ARRAY_STRING_SEPARGS2[2];
preserve_old_total=__ARRAY_STRING_SEPARGS2[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_OPTMAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SEPARGS2[0]=preserve_new_ptr;
__ARRAY_STRING_SEPARGS2[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGS2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SEPARGS2[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SEPARGS2[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SEPARGS2[0]) error(257);
__ARRAY_STRING_SEPARGS2[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGS2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_SEPARGS2[4]=alloc_new_desc[4];
__ARRAY_STRING_SEPARGS2[5]=alloc_new_desc[5];
__ARRAY_STRING_SEPARGS2[6]=alloc_new_desc[6];
__ARRAY_STRING_SEPARGS2[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(201);}while(r);
do{
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_SEPARGSLAYOUT2)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&1){
preserve_old_ptr=__ARRAY_STRING_SEPARGSLAYOUT2[0];
preserve_old_flags=__ARRAY_STRING_SEPARGSLAYOUT2[2];
preserve_old_total=__ARRAY_STRING_SEPARGSLAYOUT2[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_OPTMAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_SEPARGSLAYOUT2[0]=preserve_new_ptr;
__ARRAY_STRING_SEPARGSLAYOUT2[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_SEPARGSLAYOUT2[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_SEPARGSLAYOUT2[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_SEPARGSLAYOUT2[0]) error(257);
__ARRAY_STRING_SEPARGSLAYOUT2[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_SEPARGSLAYOUT2[4]=alloc_new_desc[4];
__ARRAY_STRING_SEPARGSLAYOUT2[5]=alloc_new_desc[5];
__ARRAY_STRING_SEPARGSLAYOUT2[6]=alloc_new_desc[6];
__ARRAY_STRING_SEPARGSLAYOUT2[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(202);}while(r);
do{
if(!qbevent)break;evnt(210);}while(r);
do{
if(!qbevent)break;evnt(212);}while(r);
do{
if(!qbevent)break;evnt(221);}while(r);
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(222);}while(r);
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(223);}while(r);
do{
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
preserve_old_ptr=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0];
preserve_old_flags=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2];
preserve_old_total=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]=alloc_new_desc[4];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=alloc_new_desc[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=alloc_new_desc[6];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(224);}while(r);
do{
if(!qbevent)break;evnt(230);}while(r);
do{
qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(231);}while(r);
S_768:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||is_error_pending()){
if(qbevent){evnt(232);if(r)goto S_768;}
do{
qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(232);}while(r);
}
do{
if(!qbevent)break;evnt(234);}while(r);
S_772:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(235);if(r)goto S_772;}
do{
*__LONG_MACOSX= 1 ;
if(!qbevent)break;evnt(235);}while(r);
}
do{
if(!qbevent)break;evnt(238);}while(r);
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(239);}while(r);
S_777:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(240);if(r)goto S_777;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(240);}while(r);
}
S_780:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(241);if(r)goto S_780;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(241);}while(r);
}
do{
if (__ARRAY_STRING_INLINEDATASTR[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_INLINEDATASTR[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_INLINEDATASTR[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_INLINEDATASTR[0]) error(257);
__ARRAY_STRING_INLINEDATASTR[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_INLINEDATASTR[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_INLINEDATASTR[4]=alloc_new_desc[4];
__ARRAY_STRING_INLINEDATASTR[5]=alloc_new_desc[5];
__ARRAY_STRING_INLINEDATASTR[6]=alloc_new_desc[6];
__ARRAY_STRING_INLINEDATASTR[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(244);}while(r);
S_784:;
fornext_value9= 0 ;
fornext_finalvalue9= 255 ;
fornext_step9= 1 ;
if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0;
if (is_error_pending()) goto fornext_error9;
goto fornext_entrylabel9;
while(1){
fornext_value9=fornext_step9+(*__LONG_I);
fornext_entrylabel9:
*__LONG_I=fornext_value9;
if (fornext_step_negative9){
if (fornext_value9<fornext_finalvalue9) break;
}else{
if (fornext_value9>fornext_finalvalue9) break;
}
fornext_error9:;
if(qbevent){evnt(245);if(r)goto S_784;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long])),qbs_add(qbs__tostr((int32)(*__LONG_I),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(246);}while(r);
fornext_continue_8:;
}
fornext_exit_8:;
do{
if(!qbevent)break;evnt(250);}while(r);
do{
if(!qbevent)break;evnt(251);}while(r);
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(252);}while(r);
S_790:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(253);if(r)goto S_790;}
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(253);}while(r);
}
do{
if(!qbevent)break;evnt(255);}while(r);
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(256);}while(r);
S_795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(257);if(r)goto S_795;}
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(257);}while(r);
}
do{
error_goto_line=1;
if(!qbevent)break;evnt(260);}while(r);
do{
if(!qbevent)break;evnt(262);}while(r);
S_800:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(263);if(r)goto S_800;}
do{
qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(263);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(263);}while(r);
}
S_804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(264);if(r)goto S_804;}
do{
qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(264);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(264);}while(r);
}
S_808:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||is_error_pending()){
if(qbevent){evnt(266);if(r)goto S_808;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(266);}while(r);
}
do{
*__LONG_THISINSTANCEPID=(  int32  )getpid();
if(!qbevent)break;evnt(272);}while(r);
do{
if(!qbevent)break;evnt(273);}while(r);
S_813:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
if(qbevent){evnt(275);if(r)goto S_813;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(276);}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\temp\\tempfoldersearch.bin",36), 1 ,NULL,NULL,*__LONG_FH,4,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(277);}while(r);
do{
*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4)));
if(!qbevent)break;evnt(278);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(279);}while(r);
S_818:;
if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||is_error_pending()){
if(qbevent){evnt(280);if(r)goto S_818;}
do{
sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1);
if(!qbevent)break;evnt(282);}while(r);
}else{
S_821:;
fornext_value14= 1 ;
fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS;
fornext_step14= 1 ;
if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0;
if (is_error_pending()) goto fornext_error14;
goto fornext_entrylabel14;
while(1){
fornext_value14=fornext_step14+(*__LONG_I);
fornext_entrylabel14:
*__LONG_I=fornext_value14;
if (fornext_step_negative14){
if (fornext_value14<fornext_finalvalue14) break;
}else{
if (fornext_value14>fornext_finalvalue14) break;
}
fornext_error14:;
if(qbevent){evnt(284);if(r)goto S_821;}
do{
sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1);
if(!qbevent)break;evnt(286);}while(r);
do{
sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("ps -p ",6),qbs_str((int32)(*__LONG_TEMPFOLDERSEARCH))),qbs_new_txt_len(" > /dev/null 2>&1; echo $? > internal/temp/checkpid.bin",55)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(288);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(289);}while(r);
do{
sub_open(qbs_new_txt_len("internal/temp/checkpid.bin",26), 2 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(290);}while(r);
do{
tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip16;
sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID);
if (is_error_pending()) goto skip16;
skip16:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(291);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(292);}while(r);
S_828:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_CHECKPID)== 1 )))||is_error_pending()){
if(qbevent){evnt(293);if(r)goto S_828;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1);
if(!qbevent)break;evnt(296);}while(r);
do{
goto fornext_exit_13;
if(!qbevent)break;evnt(297);}while(r);
}
fornext_continue_13:;
}
fornext_exit_13:;
S_833:;
if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||is_error_pending()){
if(qbevent){evnt(300);if(r)goto S_833;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1);
if(!qbevent)break;evnt(302);}while(r);
}
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(305);}while(r);
S_838:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(306);if(r)goto S_838;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(307);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(307);}while(r);
S_841:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||is_error_pending()){
if(qbevent){evnt(308);if(r)goto S_841;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(309);}while(r);
}
}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(312);}while(r);
}else{
do{
error_goto_line=2;
if(!qbevent)break;evnt(314);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(315);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(316);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(317);}while(r);
S_851:;
while((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(318);if(r)goto S_851;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(319);}while(r);
S_853:;
if ((-(*__LONG_I== 1000 ))||is_error_pending()){
if(qbevent){evnt(320);if(r)goto S_853;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38));
if (is_error_pending()) goto skip20;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip20:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(320);}while(r);
do{
if(qbevent){evnt(320);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(320);}while(r);
}
do{
sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(321);}while(r);
S_858:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(322);if(r)goto S_858;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(322);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("..\\\\temp",8),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\\\",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(322);}while(r);
}
S_862:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(323);if(r)goto S_862;}
do{
qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(323);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(323);}while(r);
}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(324);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(325);}while(r);
dl_continue_19:;
}
dl_exit_19:;
}
do{
*__LONG_TEMPFOLDERINDEX=*__LONG_I;
if(!qbevent)break;evnt(331);}while(r);
S_871:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(332);if(r)goto S_871;}
do{
sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\qbx",16),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".cpp",4)), 4 ,NULL,NULL, 2 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(334);}while(r);
do{
sub_open(qbs_new_txt_len(".\\internal\\c\\qbx.cpp",20), 2 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(335);}while(r);
S_874:;
while((!(func_eof( 1 )))||is_error_pending()){
if(qbevent){evnt(336);if(r)goto S_874;}
do{
tmp_fileno= 1 ;
if (is_error_pending()) goto skip22;
sub_file_line_input_string(tmp_fileno,__STRING_A);
if (is_error_pending()) goto skip22;
skip22:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(337);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("..\\\\temp\\\\",10),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(338);}while(r);
S_877:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(338);if(r)goto S_877;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("..\\\\temp",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\\\",2)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 9 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(338);}while(r);
}
do{
*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("../temp/",8),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(339);}while(r);
S_881:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(339);if(r)goto S_881;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("../temp",7)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("/",1)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 7 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(339);}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 2 ;
if (is_error_pending()) goto skip25;
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
if (is_error_pending()) goto skip25;
skip25:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(340);}while(r);
dl_continue_21:;
}
dl_exit_21:;
do{
sub_close( 1 ,1);
sub_close( 2 ,1);
if(!qbevent)break;evnt(342);}while(r);
}
S_888:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(345);if(r)goto S_888;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(345);}while(r);
}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(349);}while(r);
S_892:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("libraries",9))||func__direxists(qbs_new_txt_len("./libraries",11)))))||is_error_pending()){
if(qbevent){evnt(350);if(r)goto S_892;}
S_893:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("LibraryExplorer.exe",19))))||is_error_pending()){
if(qbevent){evnt(351);if(r)goto S_893;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("LibraryExplorer.exe",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(351);}while(r);
}
S_896:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./LibraryExplorer",17))))||is_error_pending()){
if(qbevent){evnt(352);if(r)goto S_896;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./LibraryExplorer",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(352);}while(r);
}
S_899:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("libraries\\LibraryExplorer.exe",29))))||is_error_pending()){
if(qbevent){evnt(353);if(r)goto S_899;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("libraries\\LibraryExplorer.exe",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(353);}while(r);
}
S_902:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./libraries/LibraryExplorer",27))))||is_error_pending()){
if(qbevent){evnt(354);if(r)goto S_902;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./libraries/LibraryExplorer",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(354);}while(r);
}
}
do{
error_goto_line=3;
if(!qbevent)break;evnt(357);}while(r);
do{
if(!qbevent)break;evnt(361);}while(r);
S_908:;
if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||is_error_pending()){
if(qbevent){evnt(362);if(r)goto S_908;}
do{
qbs_set(__STRING_TEMPFOLDERINDEXSTR,qbs_add(qbs_add(qbs_new_txt_len("(",1),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(362);}while(r);
}
do{
if(!qbevent)break;evnt(365);}while(r);
do{
if(!qbevent)break;evnt(366);}while(r);
do{
if(!qbevent)break;evnt(368);}while(r);
do{
if(!qbevent)break;evnt(370);}while(r);
do{
if(!qbevent)break;evnt(371);}while(r);
do{
if(!qbevent)break;evnt(374);}while(r);
do{
*__LONG_SYMBOLTYPE_SIZE= 0 ;
if(!qbevent)break;evnt(375);}while(r);
do{
if(!qbevent)break;evnt(377);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(378);}while(r);
do{
if(!qbevent)break;evnt(382);}while(r);
do{
if(!qbevent)break;evnt(383);}while(r);
do{
if(!qbevent)break;evnt(384);}while(r);
do{
if(!qbevent)break;evnt(385);}while(r);
do{
if(!qbevent)break;evnt(386);}while(r);
do{
if(!qbevent)break;evnt(387);}while(r);
do{
if(!qbevent)break;evnt(389);}while(r);
do{
if(!qbevent)break;evnt(392);}while(r);
do{
if(!qbevent)break;evnt(393);}while(r);
do{
if(!qbevent)break;evnt(394);}while(r);
do{
if(!qbevent)break;evnt(396,1,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,2,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,3,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,4,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,5,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,6,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,7,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,8,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,9,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,10,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,11,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,12,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,13,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,14,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,15,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,16,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,17,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,18,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,19,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,20,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,21,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,22,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,23,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,24,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,25,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,26,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,27,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,28,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,29,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,30,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,31,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,32,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,33,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,34,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,35,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,36,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,37,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,38,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,39,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,40,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(396,41,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CONFIGFOLDER,qbs_new_txt_len("settings",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,44,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CONFIGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("config.ini",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,45,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DEBUGFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("debug.ini",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,46,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_BOOKMARKSFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("bookmarks.bin",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,47,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_RECENTFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("recent.bin",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,48,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_SEARCHEDFILE,qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("searched.bin",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,49,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_AUTOSAVEFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("autosave",8)),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bin",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,50,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_UNDOFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CONFIGFOLDER,__STRING1_PATHSEP),qbs_new_txt_len("undo",4)),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bin",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,51,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= 0ll ;
if(!qbevent)break;evnt(396,53,"cfg_global.bas");}while(r);
S_980:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_CONFIGFOLDER))))||is_error_pending()){
if(qbevent){evnt(396,54,"cfg_global.bas");if(r)goto S_980;}
do{
sub_mkdir(__STRING_CONFIGFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,54,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= -1ll ;
if(!qbevent)break;evnt(396,54,"cfg_global.bas");}while(r);
}
do{
qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,58,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,59,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("IDE COLOR SCHEMES",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,60,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CUSTOM DICTIONARIES",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,61,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("MOUSE SETTINGS",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,62,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("GENERAL SETTINGS",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,63,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE DISPLAY SETTINGS",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,64,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("DEBUG SETTINGS",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,65,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("COMPILER SETTINGS",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,66,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_LOGGINGSETTINGSSECTION,qbs_new_txt_len("LOGGING SETTINGS",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,67,"cfg_global.bas");}while(r);
do{
qbs_set(__STRING_VWATCHPANELSECTION,qbs_add(qbs_new_txt_len("VWATCH PANEL",12),qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(396,69,"cfg_global.bas");}while(r);
do{
SUB_INISETADDQUOTES(&(pass26= 0ll ));
if(!qbevent)break;evnt(396,71,"cfg_global.bas");}while(r);
do{
SUB_INISETFORCERELOAD(&(pass27= -1ll ));
if(!qbevent)break;evnt(396,72,"cfg_global.bas");}while(r);
do{
SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1ll ));
if(!qbevent)break;evnt(396,73,"cfg_global.bas");}while(r);
do{
SUB_INISETAUTOCOMMIT(&(pass29= -1ll ));
if(!qbevent)break;evnt(396,74,"cfg_global.bas");}while(r);
do{
SUB_READINITIALCONFIG();
if(!qbevent)break;evnt(397);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,FUNC_PARSECMDLINEARGS());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(399);}while(r);
S_1001:;
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINESRCFILE->len> 0 ))&&(func__fileexists(qbs_add(func__startdir(),__STRING_CMDLINESRCFILE))))))||is_error_pending()){
if(qbevent){evnt(400);if(r)goto S_1001;}
do{
qbs_set(__STRING_CMDLINESRCFILE,qbs_add(func__startdir(),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(401);}while(r);
}
S_1004:;
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINEOUTFILE->len> 0 ))&&(func__direxists(qbs_add(func__startdir(),FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE)))))))||is_error_pending()){
if(qbevent){evnt(403);if(r)goto S_1004;}
do{
qbs_set(__STRING_CMDLINEOUTFILE,qbs_add(func__startdir(),__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(404);}while(r);
}
S_1007:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(407);if(r)goto S_1007;}
do{
sub__dest(func__console());
if(!qbevent)break;evnt(408);}while(r);
}else{
do{
sub__console( 2 );
if(!qbevent)break;evnt(410);}while(r);
do{
sub__screenshow();
if(!qbevent)break;evnt(411);}while(r);
do{
sub__icon(NULL,NULL,0);
if(!qbevent)break;evnt(412);}while(r);
}
do{
if(!qbevent)break;evnt(415,11,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,12,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,13,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,14,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,15,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,16,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,17,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,18,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,19,"hash.bi");}while(r);
do{
if (__ARRAY_INTEGER_HASH1CHAR[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER_HASH1CHAR[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER_HASH1CHAR[2]&4){
__ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257);
memset((void*)(__ARRAY_INTEGER_HASH1CHAR[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER_HASH1CHAR[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257);
}
__ARRAY_INTEGER_HASH1CHAR[2]|=1;
__ARRAY_INTEGER_HASH1CHAR[4]=alloc_new_desc[4];
__ARRAY_INTEGER_HASH1CHAR[5]=alloc_new_desc[5];
__ARRAY_INTEGER_HASH1CHAR[6]=alloc_new_desc[6];
__ARRAY_INTEGER_HASH1CHAR[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(415,21,"hash.bi");}while(r);
do{
if (__ARRAY_INTEGER_HASH2CHAR[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER_HASH2CHAR[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 65535 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER_HASH2CHAR[2]&4){
__ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257);
memset((void*)(__ARRAY_INTEGER_HASH2CHAR[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER_HASH2CHAR[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257);
}
__ARRAY_INTEGER_HASH2CHAR[2]|=1;
__ARRAY_INTEGER_HASH2CHAR[4]=alloc_new_desc[4];
__ARRAY_INTEGER_HASH2CHAR[5]=alloc_new_desc[5];
__ARRAY_INTEGER_HASH2CHAR[6]=alloc_new_desc[6];
__ARRAY_INTEGER_HASH2CHAR[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(415,22,"hash.bi");}while(r);
S_1025:;
fornext_value33= 1 ;
fornext_finalvalue33= 26 ;
fornext_step33= 1 ;
if (fornext_step33<0) fornext_step_negative33=1; else fornext_step_negative33=0;
if (is_error_pending()) goto fornext_error33;
goto fornext_entrylabel33;
while(1){
fornext_value33=fornext_step33+(*__LONG_X);
fornext_entrylabel33:
*__LONG_X=fornext_value33;
if (fornext_step_negative33){
if (fornext_value33<fornext_finalvalue33) break;
}else{
if (fornext_value33>fornext_finalvalue33) break;
}
fornext_error33:;
if(qbevent){evnt(415,23,"hash.bi");if(r)goto S_1025;}
do{
tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
if(!qbevent)break;evnt(415,24,"hash.bi");}while(r);
do{
tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X;
if(!qbevent)break;evnt(415,25,"hash.bi");}while(r);
fornext_continue_32:;
}
fornext_exit_32:;
do{
tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ;
if(!qbevent)break;evnt(415,27,"hash.bi");}while(r);
do{
tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ;
if(!qbevent)break;evnt(415,28,"hash.bi");}while(r);
do{
tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ;
if(!qbevent)break;evnt(415,29,"hash.bi");}while(r);
do{
tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ;
if(!qbevent)break;evnt(415,30,"hash.bi");}while(r);
do{
tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ;
if(!qbevent)break;evnt(415,31,"hash.bi");}while(r);
do{
tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ;
if(!qbevent)break;evnt(415,32,"hash.bi");}while(r);
do{
tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ;
if(!qbevent)break;evnt(415,33,"hash.bi");}while(r);
do{
tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ;
if(!qbevent)break;evnt(415,34,"hash.bi");}while(r);
do{
tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ;
if(!qbevent)break;evnt(415,35,"hash.bi");}while(r);
do{
tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ;
if(!qbevent)break;evnt(415,36,"hash.bi");}while(r);
do{
tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ;
if(!qbevent)break;evnt(415,37,"hash.bi");}while(r);
S_1040:;
fornext_value35= 0 ;
fornext_finalvalue35= 255 ;
fornext_step35= 1 ;
if (fornext_step35<0) fornext_step_negative35=1; else fornext_step_negative35=0;
if (is_error_pending()) goto fornext_error35;
goto fornext_entrylabel35;
while(1){
fornext_value35=fornext_step35+(*__LONG_C1);
fornext_entrylabel35:
*__LONG_C1=fornext_value35;
if (fornext_step_negative35){
if (fornext_value35<fornext_finalvalue35) break;
}else{
if (fornext_value35>fornext_finalvalue35) break;
}
fornext_error35:;
if(qbevent){evnt(415,38,"hash.bi");if(r)goto S_1040;}
S_1041:;
fornext_value37= 0 ;
fornext_finalvalue37= 255 ;
fornext_step37= 1 ;
if (fornext_step37<0) fornext_step_negative37=1; else fornext_step_negative37=0;
if (is_error_pending()) goto fornext_error37;
goto fornext_entrylabel37;
while(1){
fornext_value37=fornext_step37+(*__LONG_C2);
fornext_entrylabel37:
*__LONG_C2=fornext_value37;
if (fornext_step_negative37){
if (fornext_value37<fornext_finalvalue37) break;
}else{
if (fornext_value37>fornext_finalvalue37) break;
}
fornext_error37:;
if(qbevent){evnt(415,39,"hash.bi");if(r)goto S_1041;}
do{
tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[tmp_long]=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C1)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C2)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 32 );
if(!qbevent)break;evnt(415,40,"hash.bi");}while(r);
fornext_continue_36:;
}
fornext_exit_36:;
fornext_continue_34:;
}
fornext_exit_34:;
do{
*__LONG_HASHLISTSIZE= 65536 ;
if(!qbevent)break;evnt(415,44,"hash.bi");}while(r);
do{
*__LONG_HASHLISTNEXT= 1 ;
if(!qbevent)break;evnt(415,45,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREESIZE= 1024 ;
if(!qbevent)break;evnt(415,46,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREELAST= 0 ;
if(!qbevent)break;evnt(415,47,"hash.bi");}while(r);
do{
if (__ARRAY_UDT_HASHLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_HASHLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_HASHLIST[2]&1){
preserve_old_ptr=__ARRAY_UDT_HASHLIST[0];
preserve_old_flags=__ARRAY_UDT_HASHLIST[2];
preserve_old_total=__ARRAY_UDT_HASHLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_HASHLISTSIZE)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(20);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_HASHLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_HASHLIST[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_HASHLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_HASHLIST[0]) error(257);
memset((void*)(__ARRAY_UDT_HASHLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_HASHLIST[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_HASHLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_HASHLIST[0]) error(257);
}
}
__ARRAY_UDT_HASHLIST[2]|=1;
__ARRAY_UDT_HASHLIST[4]=alloc_new_desc[4];
__ARRAY_UDT_HASHLIST[5]=alloc_new_desc[5];
__ARRAY_UDT_HASHLIST[6]=alloc_new_desc[6];
__ARRAY_UDT_HASHLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,48,"hash.bi");}while(r);
do{
if (__ARRAY_STRING256_HASHLISTNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_HASHLISTNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_HASHLISTNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_HASHLISTNAME[0];
preserve_old_flags=__ARRAY_STRING256_HASHLISTNAME[2];
preserve_old_total=__ARRAY_STRING256_HASHLISTNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_HASHLISTSIZE)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_HASHLISTNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_HASHLISTNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_HASHLISTNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_HASHLISTNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257);
}
}
__ARRAY_STRING256_HASHLISTNAME[2]|=1;
__ARRAY_STRING256_HASHLISTNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_HASHLISTNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_HASHLISTNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_HASHLISTNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,49,"hash.bi");}while(r);
do{
if (__ARRAY_LONG_HASHLISTFREE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHLISTFREE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_HASHLISTFREE[2]&1){
preserve_old_ptr=__ARRAY_LONG_HASHLISTFREE[0];
preserve_old_flags=__ARRAY_LONG_HASHLISTFREE[2];
preserve_old_total=__ARRAY_LONG_HASHLISTFREE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_HASHLISTFREESIZE)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_HASHLISTFREE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HASHLISTFREE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257);
memset((void*)(__ARRAY_LONG_HASHLISTFREE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HASHLISTFREE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HASHLISTFREE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257);
}
}
__ARRAY_LONG_HASHLISTFREE[2]|=1;
__ARRAY_LONG_HASHLISTFREE[4]=alloc_new_desc[4];
__ARRAY_LONG_HASHLISTFREE[5]=alloc_new_desc[5];
__ARRAY_LONG_HASHLISTFREE[6]=alloc_new_desc[6];
__ARRAY_LONG_HASHLISTFREE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,50,"hash.bi");}while(r);
do{
if (__ARRAY_LONG_HASHTABLE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_HASHTABLE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_HASHTABLE[2]&1){
preserve_old_ptr=__ARRAY_LONG_HASHTABLE[0];
preserve_old_flags=__ARRAY_LONG_HASHTABLE[2];
preserve_old_total=__ARRAY_LONG_HASHTABLE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 16777215 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_HASHTABLE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HASHTABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_HASHTABLE[0]) error(257);
memset((void*)(__ARRAY_LONG_HASHTABLE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HASHTABLE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HASHTABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_HASHTABLE[0]) error(257);
}
}
__ARRAY_LONG_HASHTABLE[2]|=1;
__ARRAY_LONG_HASHTABLE[4]=alloc_new_desc[4];
__ARRAY_LONG_HASHTABLE[5]=alloc_new_desc[5];
__ARRAY_LONG_HASHTABLE[6]=alloc_new_desc[6];
__ARRAY_LONG_HASHTABLE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,51,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,69,"hash.bi");}while(r);
do{
*__LONG_CONSTMAX= 100 ;
if(!qbevent)break;evnt(415,70,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(415,71,"hash.bi");}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(415,72,"hash.bi");}while(r);
do{
if (__ARRAY_STRING_CONSTNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,73,"hash.bi");}while(r);
do{
if (__ARRAY_STRING_CONSTCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTCNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTCNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTCNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTCNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTCNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,74,"hash.bi");}while(r);
do{
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAMESYMBOL[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAMESYMBOL[2];
preserve_old_total=__ARRAY_STRING_CONSTNAMESYMBOL[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAMESYMBOL[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAMESYMBOL[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAMESYMBOL[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAMESYMBOL[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,75,"hash.bi");}while(r);
do{
if (__ARRAY_LONG_CONSTTYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTTYPE[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTTYPE[0];
preserve_old_flags=__ARRAY_LONG_CONSTTYPE[2];
preserve_old_total=__ARRAY_LONG_CONSTTYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTTYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
}
}
__ARRAY_LONG_CONSTTYPE[2]|=1;
__ARRAY_LONG_CONSTTYPE[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTTYPE[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTTYPE[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTTYPE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,77,"hash.bi");}while(r);
do{
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){
preserve_old_ptr=__ARRAY_INTEGER64_CONSTINTEGER[0];
preserve_old_flags=__ARRAY_INTEGER64_CONSTINTEGER[2];
preserve_old_total=__ARRAY_INTEGER64_CONSTINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
}
}
__ARRAY_INTEGER64_CONSTINTEGER[2]|=1;
__ARRAY_INTEGER64_CONSTINTEGER[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_CONSTINTEGER[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_CONSTINTEGER[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_CONSTINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,79,"hash.bi");}while(r);
do{
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){
preserve_old_ptr=__ARRAY_UINTEGER64_CONSTUINTEGER[0];
preserve_old_flags=__ARRAY_UINTEGER64_CONSTUINTEGER[2];
preserve_old_total=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
}
}
__ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1;
__ARRAY_UINTEGER64_CONSTUINTEGER[4]=alloc_new_desc[4];
__ARRAY_UINTEGER64_CONSTUINTEGER[5]=alloc_new_desc[5];
__ARRAY_UINTEGER64_CONSTUINTEGER[6]=alloc_new_desc[6];
__ARRAY_UINTEGER64_CONSTUINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,80,"hash.bi");}while(r);
do{
if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){
preserve_old_ptr=__ARRAY_FLOAT_CONSTFLOAT[0];
preserve_old_flags=__ARRAY_FLOAT_CONSTFLOAT[2];
preserve_old_total=__ARRAY_FLOAT_CONSTFLOAT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(32);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
}
}
__ARRAY_FLOAT_CONSTFLOAT[2]|=1;
__ARRAY_FLOAT_CONSTFLOAT[4]=alloc_new_desc[4];
__ARRAY_FLOAT_CONSTFLOAT[5]=alloc_new_desc[5];
__ARRAY_FLOAT_CONSTFLOAT[6]=alloc_new_desc[6];
__ARRAY_FLOAT_CONSTFLOAT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,81,"hash.bi");}while(r);
do{
if (__ARRAY_STRING_CONSTSTRING[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTSTRING[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTSTRING[0];
preserve_old_flags=__ARRAY_STRING_CONSTSTRING[2];
preserve_old_total=__ARRAY_STRING_CONSTSTRING[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTSTRING[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTSTRING[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTSTRING[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTSTRING[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,82,"hash.bi");}while(r);
do{
if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTSUBFUNC[0];
preserve_old_flags=__ARRAY_LONG_CONSTSUBFUNC[2];
preserve_old_total=__ARRAY_LONG_CONSTSUBFUNC[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
}
}
__ARRAY_LONG_CONSTSUBFUNC[2]|=1;
__ARRAY_LONG_CONSTSUBFUNC[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTSUBFUNC[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTSUBFUNC[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTSUBFUNC[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,83,"hash.bi");}while(r);
do{
if (__ARRAY_LONG_CONSTDEFINED[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTDEFINED[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTDEFINED[0];
preserve_old_flags=__ARRAY_LONG_CONSTDEFINED[2];
preserve_old_total=__ARRAY_LONG_CONSTDEFINED[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
}
}
__ARRAY_LONG_CONSTDEFINED[2]|=1;
__ARRAY_LONG_CONSTDEFINED[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTDEFINED[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTDEFINED[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTDEFINED[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(415,84,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(427);}while(r);
do{
*__LONG_LABELS_UBOUND= 100 ;
if(!qbevent)break;evnt(428);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(429);}while(r);
do{
if(!qbevent)break;evnt(430);}while(r);
do{
if(!qbevent)break;evnt(432);}while(r);
do{
if(!qbevent)break;evnt(433);}while(r);
do{
if(!qbevent)break;evnt(434);}while(r);
do{
if(!qbevent)break;evnt(436);}while(r);
do{
if(!qbevent)break;evnt(438);}while(r);
do{
if(!qbevent)break;evnt(440);}while(r);
do{
if(!qbevent)break;evnt(443);}while(r);
do{
if(!qbevent)break;evnt(445);}while(r);
do{
if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 10000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&4){
__ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257);
memset((void*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_REVERTMAYMUSTHAVE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257);
}
__ARRAY_LONG_REVERTMAYMUSTHAVE[2]|=1;
__ARRAY_LONG_REVERTMAYMUSTHAVE[4]=alloc_new_desc[4];
__ARRAY_LONG_REVERTMAYMUSTHAVE[5]=alloc_new_desc[5];
__ARRAY_LONG_REVERTMAYMUSTHAVE[6]=alloc_new_desc[6];
__ARRAY_LONG_REVERTMAYMUSTHAVE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(447);}while(r);
do{
if(!qbevent)break;evnt(448);}while(r);
do{
if(!qbevent)break;evnt(450);}while(r);
do{
if(!qbevent)break;evnt(452);}while(r);
do{
if(!qbevent)break;evnt(455);}while(r);
do{
if (__ARRAY_STRING_INCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_INCNAME[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_INCNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_INCNAME[0]) error(257);
__ARRAY_STRING_INCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_INCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_INCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_INCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_INCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_INCNAME[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(456);}while(r);
do{
if (__ARRAY_LONG_INCLINENUMBER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_INCLINENUMBER[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_INCLINENUMBER[2]&4){
__ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257);
memset((void*)(__ARRAY_LONG_INCLINENUMBER[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_INCLINENUMBER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257);
}
__ARRAY_LONG_INCLINENUMBER[2]|=1;
__ARRAY_LONG_INCLINENUMBER[4]=alloc_new_desc[4];
__ARRAY_LONG_INCLINENUMBER[5]=alloc_new_desc[5];
__ARRAY_LONG_INCLINENUMBER[6]=alloc_new_desc[6];
__ARRAY_LONG_INCLINENUMBER[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(457);}while(r);
do{
if(!qbevent)break;evnt(458);}while(r);
do{
if(!qbevent)break;evnt(461);}while(r);
do{
qbs_set(__STRING_FIX046,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("__",2),qbs_new_txt_len("ASCII",5)),qbs_new_txt_len("_",1)),qbs_new_txt_len("CHR",3)),qbs_new_txt_len("_",1)),qbs_new_txt_len("046",3)),qbs_new_txt_len("__",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(462);}while(r);
do{
if(!qbevent)break;evnt(464);}while(r);
do{
if(!qbevent)break;evnt(465);}while(r);
do{
if(!qbevent)break;evnt(467);}while(r);
do{
if(!qbevent)break;evnt(468);}while(r);
do{
if(!qbevent)break;evnt(470);}while(r);
do{
if(!qbevent)break;evnt(471);}while(r);
do{
if(!qbevent)break;evnt(474);}while(r);
do{
if (__ARRAY_LONG_ISALPHA[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_ISALPHA[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_ISALPHA[2]&4){
__ARRAY_LONG_ISALPHA[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_ISALPHA[0]) error(257);
memset((void*)(__ARRAY_LONG_ISALPHA[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_ISALPHA[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_ISALPHA[0]) error(257);
}
__ARRAY_LONG_ISALPHA[2]|=1;
__ARRAY_LONG_ISALPHA[4]=alloc_new_desc[4];
__ARRAY_LONG_ISALPHA[5]=alloc_new_desc[5];
__ARRAY_LONG_ISALPHA[6]=alloc_new_desc[6];
__ARRAY_LONG_ISALPHA[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(476);}while(r);
do{
if (__ARRAY_LONG_ISNUMERIC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_ISNUMERIC[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_ISNUMERIC[2]&4){
__ARRAY_LONG_ISNUMERIC[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_ISNUMERIC[0]) error(257);
memset((void*)(__ARRAY_LONG_ISNUMERIC[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_ISNUMERIC[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_ISNUMERIC[0]) error(257);
}
__ARRAY_LONG_ISNUMERIC[2]|=1;
__ARRAY_LONG_ISNUMERIC[4]=alloc_new_desc[4];
__ARRAY_LONG_ISNUMERIC[5]=alloc_new_desc[5];
__ARRAY_LONG_ISNUMERIC[6]=alloc_new_desc[6];
__ARRAY_LONG_ISNUMERIC[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(477);}while(r);
do{
if (__ARRAY_LONG_ALPHANUMERIC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_ALPHANUMERIC[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_ALPHANUMERIC[2]&4){
__ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257);
memset((void*)(__ARRAY_LONG_ALPHANUMERIC[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_ALPHANUMERIC[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257);
}
__ARRAY_LONG_ALPHANUMERIC[2]|=1;
__ARRAY_LONG_ALPHANUMERIC[4]=alloc_new_desc[4];
__ARRAY_LONG_ALPHANUMERIC[5]=alloc_new_desc[5];
__ARRAY_LONG_ALPHANUMERIC[6]=alloc_new_desc[6];
__ARRAY_LONG_ALPHANUMERIC[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(478);}while(r);
S_1099:;
fornext_value39= 48 ;
fornext_finalvalue39= 57 ;
fornext_step39= 1 ;
if (fornext_step39<0) fornext_step_negative39=1; else fornext_step_negative39=0;
if (is_error_pending()) goto fornext_error39;
goto fornext_entrylabel39;
while(1){
fornext_value39=fornext_step39+(*__LONG_I);
fornext_entrylabel39:
*__LONG_I=fornext_value39;
if (fornext_step_negative39){
if (fornext_value39<fornext_finalvalue39) break;
}else{
if (fornext_value39>fornext_finalvalue39) break;
}
fornext_error39:;
if(qbevent){evnt(479);if(r)goto S_1099;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(480);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(481);}while(r);
fornext_continue_38:;
}
fornext_exit_38:;
S_1103:;
fornext_value41= 65 ;
fornext_finalvalue41= 90 ;
fornext_step41= 1 ;
if (fornext_step41<0) fornext_step_negative41=1; else fornext_step_negative41=0;
if (is_error_pending()) goto fornext_error41;
goto fornext_entrylabel41;
while(1){
fornext_value41=fornext_step41+(*__LONG_I);
fornext_entrylabel41:
*__LONG_I=fornext_value41;
if (fornext_step_negative41){
if (fornext_value41<fornext_finalvalue41) break;
}else{
if (fornext_value41>fornext_finalvalue41) break;
}
fornext_error41:;
if(qbevent){evnt(483);if(r)goto S_1103;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(484);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(485);}while(r);
fornext_continue_40:;
}
fornext_exit_40:;
S_1107:;
fornext_value43= 97 ;
fornext_finalvalue43= 122 ;
fornext_step43= 1 ;
if (fornext_step43<0) fornext_step_negative43=1; else fornext_step_negative43=0;
if (is_error_pending()) goto fornext_error43;
goto fornext_entrylabel43;
while(1){
fornext_value43=fornext_step43+(*__LONG_I);
fornext_entrylabel43:
*__LONG_I=fornext_value43;
if (fornext_step_negative43){
if (fornext_value43<fornext_finalvalue43) break;
}else{
if (fornext_value43>fornext_finalvalue43) break;
}
fornext_error43:;
if(qbevent){evnt(487);if(r)goto S_1107;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(488);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(489);}while(r);
fornext_continue_42:;
}
fornext_exit_42:;
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(492);}while(r);
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1ll ;
if(!qbevent)break;evnt(493);}while(r);
do{
if (__ARRAY_LONG_LFSINGLECHAR[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_LFSINGLECHAR[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 255 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_LFSINGLECHAR[2]&4){
__ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257);
memset((void*)(__ARRAY_LONG_LFSINGLECHAR[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_LFSINGLECHAR[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257);
}
__ARRAY_LONG_LFSINGLECHAR[2]|=1;
__ARRAY_LONG_LFSINGLECHAR[4]=alloc_new_desc[4];
__ARRAY_LONG_LFSINGLECHAR[5]=alloc_new_desc[5];
__ARRAY_LONG_LFSINGLECHAR[6]=alloc_new_desc[6];
__ARRAY_LONG_LFSINGLECHAR[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(496);}while(r);
do{
tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(497);}while(r);
do{
tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(498);}while(r);
do{
tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(499);}while(r);
do{
tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(500);}while(r);
do{
tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(501);}while(r);
do{
tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(502);}while(r);
do{
tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(503);}while(r);
do{
tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(504);}while(r);
do{
tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(505);}while(r);
do{
tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(506);}while(r);
do{
tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(507);}while(r);
do{
tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(509);}while(r);
do{
tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(510);}while(r);
do{
tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(511);}while(r);
do{
tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(512);}while(r);
do{
tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(514);}while(r);
do{
tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(515);}while(r);
do{
tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(516);}while(r);
do{
tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(517);}while(r);
do{
if(!qbevent)break;evnt(528);}while(r);
do{
if(!qbevent)break;evnt(530);}while(r);
do{
if(!qbevent)break;evnt(531);}while(r);
do{
if(!qbevent)break;evnt(533);}while(r);
do{
if(!qbevent)break;evnt(535);}while(r);
do{
if(!qbevent)break;evnt(536);}while(r);
do{
if(!qbevent)break;evnt(537);}while(r);
do{
if(!qbevent)break;evnt(538);}while(r);
do{
if(!qbevent)break;evnt(542);}while(r);
do{
if(!qbevent)break;evnt(543);}while(r);
do{
if(!qbevent)break;evnt(593);}while(r);
do{
if(!qbevent)break;evnt(595);}while(r);
do{
if(!qbevent)break;evnt(596);}while(r);
do{
*__LONG_IDS_MAX= 1024 ;
if(!qbevent)break;evnt(597);}while(r);
do{
if (__ARRAY_UDT_IDS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_IDS[2]&1){
preserve_old_ptr=__ARRAY_UDT_IDS[0];
preserve_old_flags=__ARRAY_UDT_IDS[2];
preserve_old_total=__ARRAY_UDT_IDS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2869);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_UDT_IDS[0]=preserve_new_ptr;
__ARRAY_UDT_IDS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_IDS[0]),tmp_long*2869);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_IDS[0]+2869*tmp_long+ 2861)=qbs_new(0,0);}
__ARRAY_UDT_IDS[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(__ARRAY_UDT_IDS[0]+2869*tmp_long+ 2861));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_IDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_IDS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_IDS[0]) error(257);
__ARRAY_UDT_IDS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_IDS[0]),tmp_long*2869);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_IDS[0]+2869*tmp_long+ 2861)=qbs_new(0,0);}
}
__ARRAY_UDT_IDS[4]=alloc_new_desc[4];
__ARRAY_UDT_IDS[5]=alloc_new_desc[5];
__ARRAY_UDT_IDS[6]=alloc_new_desc[6];
__ARRAY_UDT_IDS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(598);}while(r);
do{
if (__ARRAY_INTEGER_CMEMLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_CMEMLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_CMEMLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_CMEMLIST[0];
preserve_old_flags=__ARRAY_INTEGER_CMEMLIST[2];
preserve_old_total=__ARRAY_INTEGER_CMEMLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_CMEMLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_CMEMLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_CMEMLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_CMEMLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257);
}
}
__ARRAY_INTEGER_CMEMLIST[2]|=1;
__ARRAY_INTEGER_CMEMLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_CMEMLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_CMEMLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_CMEMLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(599);}while(r);
do{
if (__ARRAY_STRING100_SFCMEMARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING100_SFCMEMARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING100_SFCMEMARGS[2]&1){
preserve_old_ptr=__ARRAY_STRING100_SFCMEMARGS[0];
preserve_old_flags=__ARRAY_STRING100_SFCMEMARGS[2];
preserve_old_total=__ARRAY_STRING100_SFCMEMARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(100);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING100_SFCMEMARGS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING100_SFCMEMARGS[0]=preserve_new_ptr;
}else{
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257);
memset((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING100_SFCMEMARGS[0]=preserve_new_ptr;
}else{
__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257);
}
}
__ARRAY_STRING100_SFCMEMARGS[2]|=1;
__ARRAY_STRING100_SFCMEMARGS[4]=alloc_new_desc[4];
__ARRAY_STRING100_SFCMEMARGS[5]=alloc_new_desc[5];
__ARRAY_STRING100_SFCMEMARGS[6]=alloc_new_desc[6];
__ARRAY_STRING100_SFCMEMARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(600);}while(r);
do{
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_ARRAYELEMENTSLIST[0];
preserve_old_flags=__ARRAY_INTEGER_ARRAYELEMENTSLIST[2];
preserve_old_total=__ARRAY_INTEGER_ARRAYELEMENTSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_IDS_MAX+ 1 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257);
}
}
__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_ARRAYELEMENTSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(601);}while(r);
do{
if(!qbevent)break;evnt(605);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+256))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(606);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+0))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(607);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+520))),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(608);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+528))),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(609);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+550))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(610);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+813))),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(611);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1213))),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(612);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1613))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(613);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1869))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(614);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2125))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(615);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2385))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(616);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2647))),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(617);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2747))),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(618);}while(r);
do{
if(!qbevent)break;evnt(620);}while(r);
do{
if(!qbevent)break;evnt(621);}while(r);
do{
if(!qbevent)break;evnt(622);}while(r);
do{
if(!qbevent)break;evnt(623);}while(r);
do{
if(!qbevent)break;evnt(624);}while(r);
do{
if(!qbevent)break;evnt(625);}while(r);
do{
if(!qbevent)break;evnt(626);}while(r);
do{
if(!qbevent)break;evnt(630);}while(r);
do{
if(!qbevent)break;evnt(631);}while(r);
do{
if(!qbevent)break;evnt(635);}while(r);
do{
if(!qbevent)break;evnt(636);}while(r);
do{
if(!qbevent)break;evnt(637);}while(r);
do{
if(!qbevent)break;evnt(638);}while(r);
do{
if(!qbevent)break;evnt(639);}while(r);
do{
if(!qbevent)break;evnt(640);}while(r);
do{
if(!qbevent)break;evnt(641);}while(r);
do{
if(!qbevent)break;evnt(642);}while(r);
do{
if(!qbevent)break;evnt(643);}while(r);
do{
if(!qbevent)break;evnt(644);}while(r);
do{
if(!qbevent)break;evnt(645);}while(r);
do{
if(!qbevent)break;evnt(647);}while(r);
do{
if(!qbevent)break;evnt(648);}while(r);
do{
if(!qbevent)break;evnt(649);}while(r);
do{
if(!qbevent)break;evnt(650);}while(r);
do{
if(!qbevent)break;evnt(651);}while(r);
do{
if(!qbevent)break;evnt(654);}while(r);
do{
if(!qbevent)break;evnt(663);}while(r);
do{
if(!qbevent)break;evnt(666);}while(r);
do{
if(!qbevent)break;evnt(667);}while(r);
do{
if(!qbevent)break;evnt(668);}while(r);
do{
if(!qbevent)break;evnt(669);}while(r);
do{
if(!qbevent)break;evnt(670);}while(r);
do{
if(!qbevent)break;evnt(672);}while(r);
do{
if(!qbevent)break;evnt(674);}while(r);
do{
if(!qbevent)break;evnt(675);}while(r);
do{
if(!qbevent)break;evnt(676);}while(r);
do{
if(!qbevent)break;evnt(677);}while(r);
do{
if(!qbevent)break;evnt(679);}while(r);
do{
if(!qbevent)break;evnt(680);}while(r);
do{
if(!qbevent)break;evnt(681);}while(r);
do{
if(!qbevent)break;evnt(684);}while(r);
do{
if(!qbevent)break;evnt(688);}while(r);
do{
if(!qbevent)break;evnt(689);}while(r);
do{
if(!qbevent)break;evnt(690);}while(r);
do{
if(!qbevent)break;evnt(691);}while(r);
do{
if(!qbevent)break;evnt(701);}while(r);
do{
if (__ARRAY_INTEGER64_BITMASK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER64_BITMASK[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 64 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER64_BITMASK[2]&4){
__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_BITMASK[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_BITMASK[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_BITMASK[0]) error(257);
}
__ARRAY_INTEGER64_BITMASK[2]|=1;
__ARRAY_INTEGER64_BITMASK[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_BITMASK[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_BITMASK[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_BITMASK[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(706);}while(r);
do{
if (__ARRAY_INTEGER64_BITMASKINV[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER64_BITMASKINV[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 64 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER64_BITMASKINV[2]&4){
__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_BITMASKINV[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257);
}
__ARRAY_INTEGER64_BITMASKINV[2]|=1;
__ARRAY_INTEGER64_BITMASKINV[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_BITMASKINV[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_BITMASKINV[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_BITMASKINV[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(707);}while(r);
do{
if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 27 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_DEFINEEXTAZ[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_DEFINEEXTAZ[0]) error(257);
__ARRAY_STRING_DEFINEEXTAZ[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_DEFINEEXTAZ[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_DEFINEEXTAZ[4]=alloc_new_desc[4];
__ARRAY_STRING_DEFINEEXTAZ[5]=alloc_new_desc[5];
__ARRAY_STRING_DEFINEEXTAZ[6]=alloc_new_desc[6];
__ARRAY_STRING_DEFINEEXTAZ[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(709);}while(r);
do{
if (__ARRAY_STRING_DEFINEAZ[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_STRING_DEFINEAZ[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 27 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
__ARRAY_STRING_DEFINEAZ[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_DEFINEAZ[0]) error(257);
__ARRAY_STRING_DEFINEAZ[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_DEFINEAZ[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
__ARRAY_STRING_DEFINEAZ[4]=alloc_new_desc[4];
__ARRAY_STRING_DEFINEAZ[5]=alloc_new_desc[5];
__ARRAY_STRING_DEFINEAZ[6]=alloc_new_desc[6];
__ARRAY_STRING_DEFINEAZ[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(710);}while(r);
do{
if(!qbevent)break;evnt(718);}while(r);
do{
if(!qbevent)break;evnt(719);}while(r);
do{
if(!qbevent)break;evnt(724);}while(r);
do{
if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){
__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257);
memset((void*)(__ARRAY_INTEGER_CONTROLTYPE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257);
}
__ARRAY_INTEGER_CONTROLTYPE[2]|=1;
__ARRAY_INTEGER_CONTROLTYPE[4]=alloc_new_desc[4];
__ARRAY_INTEGER_CONTROLTYPE[5]=alloc_new_desc[5];
__ARRAY_INTEGER_CONTROLTYPE[6]=alloc_new_desc[6];
__ARRAY_INTEGER_CONTROLTYPE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(725);}while(r);
do{
if (__ARRAY_LONG_CONTROLID[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_CONTROLID[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_CONTROLID[2]&4){
__ARRAY_LONG_CONTROLID[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONTROLID[0]) error(257);
memset((void*)(__ARRAY_LONG_CONTROLID[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_CONTROLID[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONTROLID[0]) error(257);
}
__ARRAY_LONG_CONTROLID[2]|=1;
__ARRAY_LONG_CONTROLID[4]=alloc_new_desc[4];
__ARRAY_LONG_CONTROLID[5]=alloc_new_desc[5];
__ARRAY_LONG_CONTROLID[6]=alloc_new_desc[6];
__ARRAY_LONG_CONTROLID[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(743);}while(r);
do{
if (__ARRAY_LONG_CONTROLVALUE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_CONTROLVALUE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_CONTROLVALUE[2]&4){
__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257);
memset((void*)(__ARRAY_LONG_CONTROLVALUE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257);
}
__ARRAY_LONG_CONTROLVALUE[2]|=1;
__ARRAY_LONG_CONTROLVALUE[4]=alloc_new_desc[4];
__ARRAY_LONG_CONTROLVALUE[5]=alloc_new_desc[5];
__ARRAY_LONG_CONTROLVALUE[6]=alloc_new_desc[6];
__ARRAY_LONG_CONTROLVALUE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(744);}while(r);
do{
if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){
__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257);
memset((void*)(__ARRAY_INTEGER_CONTROLSTATE[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257);
}
__ARRAY_INTEGER_CONTROLSTATE[2]|=1;
__ARRAY_INTEGER_CONTROLSTATE[4]=alloc_new_desc[4];
__ARRAY_INTEGER_CONTROLSTATE[5]=alloc_new_desc[5];
__ARRAY_INTEGER_CONTROLSTATE[6]=alloc_new_desc[6];
__ARRAY_INTEGER_CONTROLSTATE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(745);}while(r);
do{
if (__ARRAY_LONG_CONTROLREF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (__ARRAY_LONG_CONTROLREF[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (__ARRAY_LONG_CONTROLREF[2]&4){
__ARRAY_LONG_CONTROLREF[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONTROLREF[0]) error(257);
memset((void*)(__ARRAY_LONG_CONTROLREF[0]),0,(size_t)alloc_req_bytes);
}else{
__ARRAY_LONG_CONTROLREF[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONTROLREF[0]) error(257);
}
__ARRAY_LONG_CONTROLREF[2]|=1;
__ARRAY_LONG_CONTROLREF[4]=alloc_new_desc[4];
__ARRAY_LONG_CONTROLREF[5]=alloc_new_desc[5];
__ARRAY_LONG_CONTROLREF[6]=alloc_new_desc[6];
__ARRAY_LONG_CONTROLREF[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(746);}while(r);
do{
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_UNSTABLEFLAGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_UNSTABLEFLAGS[0];
preserve_old_flags=__ARRAY_BYTE_UNSTABLEFLAGS[2];
preserve_old_total=__ARRAY_BYTE_UNSTABLEFLAGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 2 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_UNSTABLEFLAGS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_UNSTABLEFLAGS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_UNSTABLEFLAGS[0]) error(257);
memset((void*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_UNSTABLEFLAGS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_UNSTABLEFLAGS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_UNSTABLEFLAGS[0]) error(257);
}
}
__ARRAY_BYTE_UNSTABLEFLAGS[2]|=1;
__ARRAY_BYTE_UNSTABLEFLAGS[4]=alloc_new_desc[4];
__ARRAY_BYTE_UNSTABLEFLAGS[5]=alloc_new_desc[5];
__ARRAY_BYTE_UNSTABLEFLAGS[6]=alloc_new_desc[6];
__ARRAY_BYTE_UNSTABLEFLAGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(751);}while(r);
do{
if(!qbevent)break;evnt(752);}while(r);
do{
*__LONG_UNSTABLE_MIDI= 1 ;
if(!qbevent)break;evnt(752);}while(r);
do{
if(!qbevent)break;evnt(753);}while(r);
do{
*__LONG_UNSTABLE_HTTP= 2 ;
if(!qbevent)break;evnt(753);}while(r);
do{
error_goto_line=4;
if(!qbevent)break;evnt(757);}while(r);
do{
*__INTEGER64_I2= 1 ;
if(!qbevent)break;evnt(759);}while(r);
S_1230:;
fornext_value45= 1 ;
fornext_finalvalue45= 64 ;
fornext_step45= 1 ;
if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0;
if (is_error_pending()) goto fornext_error45;
goto fornext_entrylabel45;
while(1){
fornext_value45=fornext_step45+(*__INTEGER64_I);
fornext_entrylabel45:
*__INTEGER64_I=fornext_value45;
if (fornext_step_negative45){
if (fornext_value45<fornext_finalvalue45) break;
}else{
if (fornext_value45>fornext_finalvalue45) break;
}
fornext_error45:;
if(qbevent){evnt(760);if(r)goto S_1230;}
do{
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2;
if(!qbevent)break;evnt(761);}while(r);
do{
tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2);
if(!qbevent)break;evnt(762);}while(r);
do{
*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I)));
if(!qbevent)break;evnt(763);}while(r);
fornext_continue_44:;
}
fornext_exit_44:;
do{
if(!qbevent)break;evnt(766);}while(r);
do{
qbs_set(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(768);}while(r);
do{
if (__ARRAY_LONG_SFIDLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_SFIDLIST[2]&1){
preserve_old_ptr=__ARRAY_LONG_SFIDLIST[0];
preserve_old_flags=__ARRAY_LONG_SFIDLIST[2];
preserve_old_total=__ARRAY_LONG_SFIDLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_SFIDLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SFIDLIST[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SFIDLIST[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
}
}
__ARRAY_LONG_SFIDLIST[2]|=1;
__ARRAY_LONG_SFIDLIST[4]=alloc_new_desc[4];
__ARRAY_LONG_SFIDLIST[5]=alloc_new_desc[5];
__ARRAY_LONG_SFIDLIST[6]=alloc_new_desc[6];
__ARRAY_LONG_SFIDLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(770);}while(r);
do{
if (__ARRAY_INTEGER_SFARGLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_SFARGLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_SFARGLIST[0];
preserve_old_flags=__ARRAY_INTEGER_SFARGLIST[2];
preserve_old_total=__ARRAY_INTEGER_SFARGLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_SFARGLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFARGLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFARGLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFARGLIST[2]|=1;
__ARRAY_INTEGER_SFARGLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_SFARGLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_SFARGLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_SFARGLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(771);}while(r);
do{
if (__ARRAY_INTEGER_SFELELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_SFELELIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_SFELELIST[0];
preserve_old_flags=__ARRAY_INTEGER_SFELELIST[2];
preserve_old_total=__ARRAY_INTEGER_SFELELIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_SFELELIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFELELIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFELELIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFELELIST[2]|=1;
__ARRAY_INTEGER_SFELELIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_SFELELIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_SFELELIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_SFELELIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(772);}while(r);
do{
SUB_GL_SCAN_HEADER();
if(!qbevent)break;evnt(789);}while(r);
S_1241:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(800);if(r)goto S_1241;}
do{
*__BYTE_IDEAUTOPOSITION= 0ll ;
if(!qbevent)break;evnt(800);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(800);}while(r);
}
do{
if(!qbevent)break;evnt(801);}while(r);
S_1246:;
if ((~(*__BYTE_FILEDROPENABLED))||is_error_pending()){
if(qbevent){evnt(802);if(r)goto S_1246;}
do{
*__BYTE_FILEDROPENABLED= -1ll ;
if(!qbevent)break;evnt(802);}while(r);
do{
sub__filedrop(NULL);
if(!qbevent)break;evnt(802);}while(r);
}
S_1250:;
if ((*__BYTE_IDEAUTOPOSITION&(~(*__BYTE_IDEBYPASSAUTOPOSITION)))||is_error_pending()){
if(qbevent){evnt(804);if(r)goto S_1250;}
do{
sub__screenmove(*__INTEGER_IDELEFTPOSITION,*__INTEGER_IDETOPPOSITION,2);
if(!qbevent)break;evnt(804);}while(r);
}
do{
*__LONG_IDEMODE= 1 ;
if(!qbevent)break;evnt(805);}while(r);
do{
qbs_set(__STRING_SENDC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(806);}while(r);
S_1255:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(807);if(r)goto S_1255;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(807);}while(r);
}
LABEL_SENDCOMMAND:;
if(qbevent){evnt(808);r=0;}
do{
qbs_set(__STRING_IDECOMMAND,__STRING_SENDC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(809);}while(r);
do{
*__LONG_C=FUNC_IDE(&(pass46= 0 ));
if(!qbevent)break;evnt(810);}while(r);
do{
*__LONG_IDEERROR= 0 ;
if(!qbevent)break;evnt(811);}while(r);
S_1261:;
if ((-(*__LONG_C== 0 ))||is_error_pending()){
if(qbevent){evnt(812);if(r)goto S_1261;}
do{
*__LONG_IDEMODE= 0 ;
if(!qbevent)break;evnt(812);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(812);}while(r);
}
do{
qbs_set(__STRING_C,__STRING_IDERETURN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(813);}while(r);
S_1266:;
if ((-(*__LONG_C== 2 ))||is_error_pending()){
if(qbevent){evnt(815);if(r)goto S_1266;}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(816);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(817);}while(r);
do{
goto LABEL_FULLRECOMPILE;
if(!qbevent)break;evnt(818);}while(r);
LABEL_IDERET1:;
if(qbevent){evnt(819);r=0;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(820);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(821);}while(r);
LABEL_IDERET2:;
if(qbevent){evnt(822);r=0;}
S_1272:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(823);if(r)goto S_1272;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(823);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(824);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(825);}while(r);
}
S_1278:;
if ((-(*__LONG_C== 4 ))||is_error_pending()){
if(qbevent){evnt(828);if(r)goto S_1278;}
S_1279:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(829);if(r)goto S_1279;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(830);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(831);}while(r);
}
do{
qbs_set(__STRING_A3,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(835);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(836);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(837);}while(r);
LABEL_IDERET4:;
if(qbevent){evnt(838);r=0;}
S_1286:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(839);if(r)goto S_1286;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(839);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(840);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(841);}while(r);
}
S_1292:;
if ((-(*__LONG_C== 5 ))||is_error_pending()){
if(qbevent){evnt(844);if(r)goto S_1292;}
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(845);}while(r);
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(846);}while(r);
S_1295:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(847);if(r)goto S_1295;}
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(848);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(849);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(853);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(854);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(855);}while(r);
LABEL_LASTLINERETURN:;
if(qbevent){evnt(856);r=0;}
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(857);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(858);}while(r);
S_1304:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(860);if(r)goto S_1304;}
do{
*__LONG_IDEPASS= 2 ;
if(!qbevent)break;evnt(862);}while(r);
do{
goto LABEL_IDE3;
if(!qbevent)break;evnt(863);}while(r);
LABEL_IDERET3:;
if(qbevent){evnt(864);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(865);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(866);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(867);}while(r);
}
do{
goto LABEL_IDE5;
if(!qbevent)break;evnt(871);}while(r);
LABEL_IDERET5:;
if(qbevent){evnt(872);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(873);}while(r);
do{
*__LONG_IDECOMPILED= 0 ;
if(!qbevent)break;evnt(874);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(875);}while(r);
}
S_1316:;
if ((-(*__LONG_C== 9 ))||is_error_pending()){
if(qbevent){evnt(878);if(r)goto S_1316;}
S_1317:;
if ((-(*__LONG_IDECOMPILED== 0 ))||is_error_pending()){
if(qbevent){evnt(880);if(r)goto S_1317;}
do{
qbs_set(__STRING_FILE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(881);}while(r);
do{
qbs_set(__STRING_F,__STRING_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(884);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(886);}while(r);
S_1321:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(887);if(r)goto S_1321;}
S_1322:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(888);if(r)goto S_1322;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(888);}while(r);
}
}
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(891);}while(r);
LABEL_NEXTEXEINDEX:;
if(qbevent){evnt(892);r=0;}
S_1327:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(893);if(r)goto S_1327;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(894);}while(r);
do{
error_goto_line=5;
if(!qbevent)break;evnt(895);}while(r);
do{
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(896);}while(r);
do{
error_goto_line=6;
if(!qbevent)break;evnt(897);}while(r);
S_1332:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(898);if(r)goto S_1332;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(899);}while(r);
do{
qbs_set(__STRING_FILE,qbs_add(qbs_add(qbs_add(__STRING_F,qbs_new_txt_len("(",1)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(900);}while(r);
do{
goto LABEL_NEXTEXEINDEX;
if(!qbevent)break;evnt(901);}while(r);
}
}
S_1338:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(906);if(r)goto S_1338;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(907);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(908);}while(r);
}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(911);}while(r);
do{
goto LABEL_IDE6;
if(!qbevent)break;evnt(912);}while(r);
LABEL_IDERET6:;
if(qbevent){evnt(913);r=0;}
do{
*__LONG_IDECOMPILED= 1 ;
if(!qbevent)break;evnt(914);}while(r);
}
S_1346:;
if ((-(*__LONG_IDERUNMODE== 2 ))||is_error_pending()){
if(qbevent){evnt(917);if(r)goto S_1346;}
do{
qbs_set(__STRING_SENDC,func_chr( 11 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(918);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(919);}while(r);
}
S_1350:;
if ((*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(924);if(r)goto S_1350;}
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17),__STRING_LOGMINLEVEL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(925);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18),__STRING_LOGSCOPES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(926);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20),__STRING_LOGHANDLERS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(927);}while(r);
do{
sub_environ(qbs_add(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21),__STRING_LOGFILENAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(928);}while(r);
}else{
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(930);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(931);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(932);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(933);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(936);}while(r);
S_1362:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(938);if(r)goto S_1362;}
S_1363:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(939);if(r)goto S_1363;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(939);}while(r);
}
S_1366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(941);if(r)goto S_1366;}
do{
qbs_set(__STRING_EXECUTENAME,func__fullpath(__STRING_LASTBINARYGENERATED));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(942);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTENAME,func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(944);}while(r);
}
S_1371:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(947);if(r)goto S_1371;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(947);}while(r);
}
S_1374:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(949);if(r)goto S_1374;}
do{
SUB_GENERATEMACOSLOGSCRIPT(__STRING_EXECUTENAME,__STRING_MODIFYCOMMAND,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("log.command",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(951);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("open -b com.apple.terminal ",27),qbs_new_txt_len("\042",1)),__STRING_TMPDIR),qbs_new_txt_len("log.command",11)),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(955);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(__STRING_EXECUTELINE,((*__BYTE_LOGTOCONSOLE)?(qbs_new_txt_len(" && read -rsn1 -p 'Press any key...'; echo",42)):(qbs_new_txt_len("",0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(956);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(__STRING_EXECUTENAME),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(958);}while(r);
}
S_1381:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))){
if(qbevent){evnt(960);if(r)goto S_1381;}
S_1382:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(961);if(r)goto S_1382;}
do{
qbs_set(__STRING_PREFIX,qbs_add(qbs_new_txt_len("cmd /c ",7),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(962);}while(r);
do{
qbs_set(__STRING_SUFFIX,((*__BYTE_LOGTOCONSOLE)?(qbs_add(qbs_new_txt_len("\042",1),qbs_new_txt_len(" & pause",8))):(qbs_new_txt_len("\042",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(962);}while(r);
}else{
do{
qbs_set(__STRING_PREFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(964);}while(r);
do{
qbs_set(__STRING_SUFFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(964);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(qbs_add(qbs_add(__STRING_PREFIX,FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED))),__STRING_MODIFYCOMMAND),__STRING_SUFFIX));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(967);}while(r);
S_1390:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))){
if(qbevent){evnt(968);if(r)goto S_1390;}
S_1391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(969);if(r)goto S_1391;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(969);}while(r);
}
S_1394:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(971);if(r)goto S_1394;}
do{
qbs_set(__STRING_EXECUTELINE,__STRING_DEFAULTTERMINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(972);}while(r);
S_1396:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(974);if(r)goto S_1396;}
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$$",2),FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(975);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$$",2),FUNC_QUOTEDFILENAME(func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(977);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,FUNC_STRREPLACE(__STRING_EXECUTELINE,qbs_new_txt_len("$@",2),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(980);}while(r);
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(__STRING_EXECUTELINE,((*__BYTE_LOGTOCONSOLE)?(qbs_new_txt_len(" && read -rsn1 -p 'Press any key...'; echo",42)):(qbs_new_txt_len("",0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(981);}while(r);
}else{
S_1404:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(983);if(r)goto S_1404;}
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(func__fullpath(__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(984);}while(r);
}else{
do{
qbs_set(__STRING_EXECUTELINE,qbs_add(FUNC_QUOTEDFILENAME(func__fullpath(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED))),__STRING_MODIFYCOMMAND));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(986);}while(r);
}
}
S_1410:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(990);if(r)goto S_1410;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(990);}while(r);
}
}
}
}
S_1414:;
if ((-(*__LONG_IDERUNMODE== 1 ))||is_error_pending()){
if(qbevent){evnt(993);if(r)goto S_1414;}
S_1415:;
if ((*__BYTE_NOEXESAVED)||is_error_pending()){
if(qbevent){evnt(994);if(r)goto S_1415;}
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(999);}while(r);
S_1417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(1001);if(r)goto S_1417;}
do{
sub_shell2(qbs_add(qbs_new_txt_len("del ",4),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 )))),3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1002);}while(r);
}
S_1420:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1004);if(r)goto S_1420;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1004);}while(r);
}
S_1423:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(1005);if(r)goto S_1423;}
S_1424:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||is_error_pending()){
if(qbevent){evnt(1006);if(r)goto S_1424;}
do{
sub_kill(__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1007);}while(r);
}else{
do{
sub_kill(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1009);}while(r);
}
}
S_1430:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||is_error_pending()){
if(qbevent){evnt(1012);if(r)goto S_1430;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1012);}while(r);
}
do{
*__BYTE_NOEXESAVED= 0ll ;
if(!qbevent)break;evnt(1013);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1014);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1015);}while(r);
}
do{
sub_shell3(__STRING_EXECUTELINE,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1018);}while(r);
}else{
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1020);}while(r);
S_1440:;
do{
if(qbevent){evnt(1022);if(r)goto S_1440;}
S_1441:;
dl_continue_52:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!is_error_pending()));
dl_exit_52:;
if(qbevent){evnt(1022);if(r)goto S_1441;}
S_1442:;
do{
if(qbevent){evnt(1023);if(r)goto S_1442;}
S_1443:;
dl_continue_53:;
}while((!(-(func__keyhit()== 0 )))&&(!is_error_pending()));
dl_exit_53:;
if(qbevent){evnt(1023);if(r)goto S_1443;}
}
S_1445:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1026);if(r)goto S_1445;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass54= 0 ));
if(!qbevent)break;evnt(1028);}while(r);
}
S_1448:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(1031);if(r)goto S_1448;}
do{
qbs_set(__STRING_SENDC,func_chr( 254 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1032);}while(r);
}else{
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1034);}while(r);
}
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1036);}while(r);
}
S_1455:;
if ((-(*__LONG_C== 14 ))||is_error_pending()){
if(qbevent){evnt(1039);if(r)goto S_1455;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX is a deprecated feature, QB64(PE) specific keywords MUST have the underscore",86));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1040);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1041);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19));
if (is_error_pending()) goto skip55;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip55:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1044);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(1044);}while(r);
LABEL_IDEERROR:;
if(qbevent){evnt(1046);r=0;}
S_1461:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||is_error_pending()){
if(qbevent){evnt(1047);if(r)goto S_1461;}
do{
qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1050);}while(r);
S_1463:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||is_error_pending()){
if(qbevent){evnt(1051);if(r)goto S_1463;}
do{
qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1051);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),__STRING_TERRMSG),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1052);}while(r);
S_1467:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(1053);if(r)goto S_1467;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1053);}while(r);
}
S_1470:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(1054);if(r)goto S_1470;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1054);}while(r);
}
S_1473:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(1055);if(r)goto S_1473;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),qbs__tostr((int32)(func__inclerrorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1055);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1056);}while(r);
S_1477:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(1057);if(r)goto S_1477;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1057);}while(r);
}
}
do{
qbs_set(__STRING_SENDC,qbs_add(qbs_add(func_chr( 8 ),__STRING_IDEMESSAGE),l2string(*__LONG_IDEERRORLINE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1060);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1061);}while(r);
LABEL_NOIDE:;
if(qbevent){evnt(1064);r=0;}
S_1483:;
if (((((~(*__BYTE_QB64VERSIONPRINTED))|(~(*__BYTE_CONSOLEMODE))))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1065);if(r)goto S_1483;}
do{
*__BYTE_QB64VERSIONPRINTED= -1ll ;
if(!qbevent)break;evnt(1066);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64-PE Compiler V",18),__STRING_VERSION));
if (is_error_pending()) goto skip56;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip56:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1067);}while(r);
}
S_1487:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1070);if(r)goto S_1487;}
do{
qbs_print(qbs_new_txt_len("COMPILE (.bas)>",15),0);
qbs_input_variabletypes[1]=ISSTRING+512;
qbs_input_variableoffsets[1]=__STRING_F;
qbs_input(1,0);
if (stop_program) end();
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1071);}while(r);
}else{
do{
qbs_set(__STRING_F,__STRING_CMDLINESRCFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1073);}while(r);
}
do{
qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1076);}while(r);
S_1493:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||is_error_pending()){
if(qbevent){evnt(1078);if(r)goto S_1493;}
do{
qbs_set(__STRING_F,qbs_add(__STRING_F,qbs_new_txt_len(".bas",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1078);}while(r);
}
do{
qbs_set(__STRING_SOURCEFILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1080);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1081);}while(r);
do{
qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1083);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1085);}while(r);
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1086);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1087);}while(r);
S_1502:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||is_error_pending()){
if(qbevent){evnt(1088);if(r)goto S_1502;}
S_1503:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1089);if(r)goto S_1503;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip58:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1090);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
if (is_error_pending()) goto skip59;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip59:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1091);}while(r);
S_1506:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1092);if(r)goto S_1506;}
do{
if(qbevent){evnt(1092);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1092);}while(r);
}
do{
if(qbevent){evnt(1093);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1093);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1095);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1096);}while(r);
S_1513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
if(qbevent){evnt(1097);if(r)goto S_1513;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,qbs_add(__STRING_PATH__ASCII_CHR_046__SOURCE,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1097);}while(r);
}
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1098);}while(r);
}
S_1518:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(1100);if(r)goto S_1518;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1100);}while(r);
}
S_1521:;
fornext_value61=__STRING_F->len;
fornext_finalvalue61= 1 ;
fornext_step61= -1 ;
if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0;
if (is_error_pending()) goto fornext_error61;
goto fornext_entrylabel61;
while(1){
fornext_value61=fornext_step61+(*__LONG_X);
fornext_entrylabel61:
*__LONG_X=fornext_value61;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative61){
if (fornext_value61<fornext_finalvalue61) break;
}else{
if (fornext_value61>fornext_finalvalue61) break;
}
fornext_error61:;
if(qbevent){evnt(1102);if(r)goto S_1521;}
do{
qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1103);}while(r);
S_1523:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(__STRING_A,qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(1104);if(r)goto S_1523;}
do{
qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1105);}while(r);
do{
goto fornext_exit_60;
if(!qbevent)break;evnt(1106);}while(r);
}
fornext_continue_60:;
}
fornext_exit_60:;
do{
qbs_set(__STRING_FILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1109);}while(r);
LABEL_FULLRECOMPILE:;
if(qbevent){evnt(1114);r=0;}
S_1529:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1116);if(r)goto S_1529;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip64:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1117);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39));
if (is_error_pending()) goto skip65;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip65:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1118);}while(r);
}
S_1533:;
fornext_value67= 1 ;
fornext_finalvalue67=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1);
fornext_step67= 1 ;
if (fornext_step67<0) fornext_step_negative67=1; else fornext_step_negative67=0;
if (is_error_pending()) goto fornext_error67;
goto fornext_entrylabel67;
while(1){
fornext_value67=fornext_step67+(*__LONG_I);
fornext_entrylabel67:
*__LONG_I=fornext_value67;
if (fornext_step_negative67){
if (fornext_value67<fornext_finalvalue67) break;
}else{
if (fornext_value67>fornext_finalvalue67) break;
}
fornext_error67:;
if(qbevent){evnt(1121);if(r)goto S_1533;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1121);}while(r);
fornext_continue_66:;
}
fornext_exit_66:;
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1123);}while(r);
S_1537:;
fornext_value69= 1 ;
fornext_finalvalue69= 300 ;
fornext_step69= 1 ;
if (fornext_step69<0) fornext_step_negative69=1; else fornext_step_negative69=0;
if (is_error_pending()) goto fornext_error69;
goto fornext_entrylabel69;
while(1){
fornext_value69=fornext_step69+(*__LONG_CLOSEALL);
fornext_entrylabel69:
*__LONG_CLOSEALL=fornext_value69;
if (fornext_step_negative69){
if (fornext_value69<fornext_finalvalue69) break;
}else{
if (fornext_value69>fornext_finalvalue69) break;
}
fornext_error69:;
if(qbevent){evnt(1125);if(r)goto S_1537;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1125);}while(r);
fornext_continue_68:;
}
fornext_exit_68:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1127);}while(r);
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1129);}while(r);
S_1542:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1131);if(r)goto S_1542;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1131);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1131);}while(r);
}
S_1546:;
fornext_value71= 1 ;
fornext_finalvalue71=*__LONG_IDS_MAX+ 1 ;
fornext_step71= 1 ;
if (fornext_step71<0) fornext_step_negative71=1; else fornext_step_negative71=0;
if (is_error_pending()) goto fornext_error71;
goto fornext_entrylabel71;
while(1){
fornext_value71=fornext_step71+(*__LONG_I);
fornext_entrylabel71:
*__LONG_I=fornext_value71;
if (fornext_step_negative71){
if (fornext_value71<fornext_finalvalue71) break;
}else{
if (fornext_value71>fornext_finalvalue71) break;
}
fornext_error71:;
if(qbevent){evnt(1133);if(r)goto S_1546;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1134);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1135);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[tmp_long*100],100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1136);}while(r);
fornext_continue_70:;
}
fornext_exit_70:;
do{
*__LONG_LASTUNRESOLVED= -1 ;
if(!qbevent)break;evnt(1142);}while(r);
do{
*__INTEGER_SFLISTN= -1 ;
if(!qbevent)break;evnt(1143);}while(r);
do{
qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1145);}while(r);
do{
if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_USELIBLIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_USELIBLIST[0];
preserve_old_flags=__ARRAY_STRING_USELIBLIST[2];
preserve_old_total=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 4 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_USELIBLIST[4]=alloc_new_desc[4];
__ARRAY_STRING_USELIBLIST[5]=alloc_new_desc[5];
__ARRAY_STRING_USELIBLIST[6]=alloc_new_desc[6];
__ARRAY_STRING_USELIBLIST[7]=alloc_new_desc[7];
__ARRAY_STRING_USELIBLIST[8]=alloc_new_desc[8];
__ARRAY_STRING_USELIBLIST[9]=alloc_new_desc[9];
__ARRAY_STRING_USELIBLIST[10]=alloc_new_desc[10];
__ARRAY_STRING_USELIBLIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(1148);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
if(!qbevent)break;evnt(1151);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
if(!qbevent)break;evnt(1152);}while(r);
S_1557:;
if ((*__BYTE_FORCEOPTEXPL)||is_error_pending()){
if(qbevent){evnt(1152);if(r)goto S_1557;}
do{
SUB_FORCERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass72= 1 ));
if(!qbevent)break;evnt(1152);}while(r);
}
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
if(!qbevent)break;evnt(1153);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
if(!qbevent)break;evnt(1154);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
if(!qbevent)break;evnt(1155);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
if(!qbevent)break;evnt(1156);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
if(!qbevent)break;evnt(1157);}while(r);
LABEL_RECOMPILE:;
if(qbevent){evnt(1160);r=0;}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(1161);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
if(!qbevent)break;evnt(1163);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
if(!qbevent)break;evnt(1164);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
if(!qbevent)break;evnt(1165);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
if(!qbevent)break;evnt(1166);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
if(!qbevent)break;evnt(1167);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
if(!qbevent)break;evnt(1168);}while(r);
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass73= -1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1169);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
if(!qbevent)break;evnt(1170);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(1172);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(1173);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(1174);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(1175);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1176);}while(r);
do{
*__LONG_USEGL= 0 ;
if(!qbevent)break;evnt(1178);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1180);}while(r);
do{
SUB_HASHCLEAR();
if(!qbevent)break;evnt(1182);}while(r);
do{
*__LONG_F= 4ll + 8ll ;
if(!qbevent)break;evnt(1186);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass74= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1187);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass75= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1188);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass76= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1189);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass77= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1190);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass78= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1191);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass79= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1192);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass80= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1193);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass81= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1194);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass82= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1195);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass83= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1196);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass84= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1197);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass85= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1198);}while(r);
do{
*__LONG_F= 16ll + 8ll ;
if(!qbevent)break;evnt(1200);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass86= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1201);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass87= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1202);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass88= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1203);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass89= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1204);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass90= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1205);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass91= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1206);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass92= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1207);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_NEGATE",7),__LONG_F,&(pass93= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1208);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_ANDALSO",8),__LONG_F,&(pass94= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1209);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_ORELSE",7),__LONG_F,&(pass95= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1210);}while(r);
do{
*__LONG_F= 8ll + 32ll ;
if(!qbevent)break;evnt(1212);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass96= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1213);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass97= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1214);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass98= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1215);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_EXPLICITARRAY",14),__LONG_F,&(pass99= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1216);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass100= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1217);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass101= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1218);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass102= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1219);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass103= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1220);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass104= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1221);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass105= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1222);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass106= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1223);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass107= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1225);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass108= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1226);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass109= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1228);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass110= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1229);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass111= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1230);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass112= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1231);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass113= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1232);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass114= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1233);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass115= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1234);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass116= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1235);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass117= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1236);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass118= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1237);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass119= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1239);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass120= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1241);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass121= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1243);}while(r);
do{
*__LONG_F= 8ll + 8192ll + 16384ll ;
if(!qbevent)break;evnt(1245);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass122= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1249);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass123= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1250);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass124=*__LONG_F- 8192ll ),&(pass125= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1251);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass126= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1252);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass127= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1253);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass128= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1255);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass129= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1256);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass130= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1257);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass131= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1258);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass132= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1259);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass133= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1260);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass134= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1261);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass135= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1262);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass136= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1263);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass137=*__LONG_F- 8192ll ),&(pass138= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1264);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass139=*__LONG_F- 8192ll ),&(pass140= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1266);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass141= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1267);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass142= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1268);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass143= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1269);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass144=*__LONG_F- 8192ll ),&(pass145= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1270);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass146=*__LONG_F- 8192ll ),&(pass147= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1272);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass148= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1273);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass149= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1275);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass150= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1276);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass151=*__LONG_F- 8192ll - 16384ll ),&(pass152= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1279);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass153= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1280);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass154=*__LONG_F- 8192ll - 16384ll ),&(pass155= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1282);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass156=*__LONG_F- 8192ll ),&(pass157= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1284);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass158=*__LONG_F- 8192ll ),&(pass159= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1285);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass160=*__LONG_F- 8192ll ),&(pass161= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1286);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass162=*__LONG_F- 8192ll ),&(pass163= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1289);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass164=*__LONG_F- 8192ll - 16384ll ),&(pass165= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1292);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass166=*__LONG_F- 8192ll - 16384ll ),&(pass167= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1293);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass168= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1296);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass169= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1297);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass170=*__LONG_F- 8192ll ),&(pass171= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1298);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass172=*__LONG_F- 8192ll ),&(pass173= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1299);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass174=*__LONG_F- 8192ll ),&(pass175= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1300);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass176=*__LONG_F- 8192ll ),&(pass177= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1301);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass178= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1303);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass179= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1304);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass180= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1305);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass181=*__LONG_F- 8192ll - 16384ll ),&(pass182= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1306);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass183= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1307);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass184=*__LONG_F- 8192ll - 16384ll ),&(pass185= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1308);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass186= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1310);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass187=*__LONG_F- 8192ll - 16384ll ),&(pass188= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1311);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass189=*__LONG_F- 8192ll ),&(pass190= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1312);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass191= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1314);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass192= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1315);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass193= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1318);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass194= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1319);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(1331);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(1332);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(1333);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(1333);}while(r);
do{
*__LONG_RESOLVESTATICFUNCTIONS= 0 ;
if(!qbevent)break;evnt(1334);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(1335);}while(r);
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(1336);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(1337);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(1338);}while(r);
do{
qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1339);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(1340);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(1341);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(1341);}while(r);
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(1341);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(1341);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(1341);}while(r);
do{
qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1342);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1342);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(1343);}while(r);
do{
*__LONG_NLABELS= 0 ;
if(!qbevent)break;evnt(1344);}while(r);
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(1345);}while(r);
do{
*__LONG_ELSEFOLLOWUP= 0 ;
if(!qbevent)break;evnt(1346);}while(r);
do{
*__LONG_ONTIMERID= 0 ;
if(!qbevent)break;evnt(1347);}while(r);
do{
*__LONG_ONKEYID= 0 ;
if(!qbevent)break;evnt(1347);}while(r);
do{
*__LONG_ONSTRIGID= 0 ;
if(!qbevent)break;evnt(1347);}while(r);
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1348);}while(r);
do{
*__LONG_COMMONARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1348);}while(r);
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1349);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1349);}while(r);
do{
*__LONG_FOOINDWEL= 0 ;
if(!qbevent)break;evnt(1350);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1351);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1352);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(1353);}while(r);
do{
*__LONG_ERRORLINEININCLUDE= 0 ;
if(!qbevent)break;evnt(1354);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1355);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX= 1 ;
if(!qbevent)break;evnt(1356);}while(r);
do{
*__LONG_LASTTYPE= 0 ;
if(!qbevent)break;evnt(1357);}while(r);
do{
*__LONG_LASTTYPEELEMENT= 0 ;
if(!qbevent)break;evnt(1358);}while(r);
do{
if (__ARRAY_STRING256_UDTXNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTXNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTXNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTXNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTXNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTXNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTXNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTXNAME[2]|=1;
__ARRAY_STRING256_UDTXNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTXNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTXNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTXNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1359);}while(r);
do{
if (__ARRAY_STRING256_UDTXCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTXCNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTXCNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTXCNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTXCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTXCNAME[2]|=1;
__ARRAY_STRING256_UDTXCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTXCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTXCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTXCNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1360);}while(r);
do{
if (__ARRAY_LONG_UDTXSIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTXSIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTXSIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTXSIZE[2];
preserve_old_total=__ARRAY_LONG_UDTXSIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTXSIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTXSIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTXSIZE[2]|=1;
__ARRAY_LONG_UDTXSIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTXSIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTXSIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTXSIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1361);}while(r);
do{
if (__ARRAY_LONG_UDTXNEXT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTXNEXT[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTXNEXT[0];
preserve_old_flags=__ARRAY_LONG_UDTXNEXT[2];
preserve_old_total=__ARRAY_LONG_UDTXNEXT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTXNEXT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTXNEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTXNEXT[0]) error(257);
}
}
__ARRAY_LONG_UDTXNEXT[2]|=1;
__ARRAY_LONG_UDTXNEXT[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTXNEXT[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTXNEXT[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTXNEXT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1362);}while(r);
do{
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_UDTXVARIABLE[0];
preserve_old_flags=__ARRAY_INTEGER_UDTXVARIABLE[2];
preserve_old_total=__ARRAY_INTEGER_UDTXVARIABLE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_UDTXVARIABLE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_UDTXVARIABLE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257);
}
}
__ARRAY_INTEGER_UDTXVARIABLE[2]|=1;
__ARRAY_INTEGER_UDTXVARIABLE[4]=alloc_new_desc[4];
__ARRAY_INTEGER_UDTXVARIABLE[5]=alloc_new_desc[5];
__ARRAY_INTEGER_UDTXVARIABLE[6]=alloc_new_desc[6];
__ARRAY_INTEGER_UDTXVARIABLE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1363);}while(r);
do{
if (__ARRAY_STRING256_UDTENAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTENAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTENAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTENAME[2];
preserve_old_total=__ARRAY_STRING256_UDTENAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTENAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTENAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTENAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTENAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTENAME[2]|=1;
__ARRAY_STRING256_UDTENAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTENAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTENAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTENAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1434);}while(r);
do{
if (__ARRAY_STRING256_UDTECNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING256_UDTECNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING256_UDTECNAME[0];
preserve_old_flags=__ARRAY_STRING256_UDTECNAME[2];
preserve_old_total=__ARRAY_STRING256_UDTECNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(256);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_STRING256_UDTECNAME[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTECNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_STRING256_UDTECNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_STRING256_UDTECNAME[0]) error(257);
}
}
__ARRAY_STRING256_UDTECNAME[2]|=1;
__ARRAY_STRING256_UDTECNAME[4]=alloc_new_desc[4];
__ARRAY_STRING256_UDTECNAME[5]=alloc_new_desc[5];
__ARRAY_STRING256_UDTECNAME[6]=alloc_new_desc[6];
__ARRAY_STRING256_UDTECNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1435);}while(r);
do{
if (__ARRAY_LONG_UDTESIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTESIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTESIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTESIZE[2];
preserve_old_total=__ARRAY_LONG_UDTESIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTESIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTESIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTESIZE[2]|=1;
__ARRAY_LONG_UDTESIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTESIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTESIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTESIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1436);}while(r);
do{
if (__ARRAY_LONG_UDTETYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTETYPE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTETYPE[0];
preserve_old_flags=__ARRAY_LONG_UDTETYPE[2];
preserve_old_total=__ARRAY_LONG_UDTETYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTETYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTETYPE[0]) error(257);
}
}
__ARRAY_LONG_UDTETYPE[2]|=1;
__ARRAY_LONG_UDTETYPE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTETYPE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTETYPE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTETYPE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1437);}while(r);
do{
if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTETYPESIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTETYPESIZE[2];
preserve_old_total=__ARRAY_LONG_UDTETYPESIZE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTETYPESIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTETYPESIZE[2]|=1;
__ARRAY_LONG_UDTETYPESIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTETYPESIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTETYPESIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTETYPESIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1438);}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYELEMENTS[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYELEMENTS[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYELEMENTS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYELEMENTS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1439);}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYBASE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYBASE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYBASE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYBASE[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYBASE[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYBASE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYBASE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYBASE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYBASE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYBASE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYBASE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYBASE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYBASE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYBASE[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYBASE[2]|=1;
__ARRAY_LONG_UDTEARRAYBASE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYBASE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYBASE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYBASE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1440);}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYDIMS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYDIMS[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYDIMS[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYDIMS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTEARRAYDIMS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYDIMS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYDIMS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYDIMS[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYDIMS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTEARRAYDIMS[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYDIMS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYDIMS[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYDIMS[2]|=1;
__ARRAY_LONG_UDTEARRAYDIMS[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYDIMS[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYDIMS[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYDIMS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1441);}while(r);
do{
if (__ARRAY_STRING_UDTEARRAYDESC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_UDTEARRAYDESC)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&1){
preserve_old_ptr=__ARRAY_STRING_UDTEARRAYDESC[0];
preserve_old_flags=__ARRAY_STRING_UDTEARRAYDESC[2];
preserve_old_total=__ARRAY_STRING_UDTEARRAYDESC[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_UDTEARRAYDESC[0]=preserve_new_ptr;
__ARRAY_STRING_UDTEARRAYDESC[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_UDTEARRAYDESC[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_UDTEARRAYDESC[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_UDTEARRAYDESC[0]) error(257);
__ARRAY_STRING_UDTEARRAYDESC[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_UDTEARRAYDESC[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_UDTEARRAYDESC[4]=alloc_new_desc[4];
__ARRAY_STRING_UDTEARRAYDESC[5]=alloc_new_desc[5];
__ARRAY_STRING_UDTEARRAYDESC[6]=alloc_new_desc[6];
__ARRAY_STRING_UDTEARRAYDESC[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1442);}while(r);
do{
if (__ARRAY_LONG_UDTENEXT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_UDTENEXT[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTENEXT[0];
preserve_old_flags=__ARRAY_LONG_UDTENEXT[2];
preserve_old_total=__ARRAY_LONG_UDTENEXT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_UDTENEXT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTENEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_UDTENEXT[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTENEXT[0]) error(257);
}
}
__ARRAY_LONG_UDTENEXT[2]|=1;
__ARRAY_LONG_UDTENEXT[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTENEXT[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTENEXT[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTENEXT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1443);}while(r);
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(1444);}while(r);
do{
*__LONG_DEFININGTYPEERROR= 0 ;
if(!qbevent)break;evnt(1445);}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(1446);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(1447);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(1448);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(1449);}while(r);
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(1450);}while(r);
do{
*__INTEGER_UDTPARSE_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(1451);}while(r);
do{
*__LONG_EXEICONSET= 0 ;
if(!qbevent)break;evnt(1452);}while(r);
do{
*__BYTE_VERSIONINFOSET= 0ll ;
if(!qbevent)break;evnt(1453);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1454);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1454);}while(r);
do{
qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1454);}while(r);
do{
qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1455);}while(r);
do{
qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1455);}while(r);
do{
qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1455);}while(r);
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1456);}while(r);
do{
qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1456);}while(r);
do{
qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1456);}while(r);
do{
qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1457);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1457);}while(r);
do{
qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1457);}while(r);
do{
qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1457);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(1458);}while(r);
do{
*__LONG_STATEMENTN= 0 ;
if(!qbevent)break;evnt(1459);}while(r);
do{
*__LONG_EVERYCASENEWCASE= 0 ;
if(!qbevent)break;evnt(1460);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1461);}while(r);
do{
*__INTEGER_QBERRORCODE= 0 ;
if(!qbevent)break;evnt(1461);}while(r);
do{
*__INTEGER_QBERRORLINE= 0 ;
if(!qbevent)break;evnt(1461);}while(r);
S_1768:;
fornext_value196= 1 ;
fornext_finalvalue196= 27 ;
fornext_step196= 1 ;
if (fornext_step196<0) fornext_step_negative196=1; else fornext_step_negative196=0;
if (is_error_pending()) goto fornext_error196;
goto fornext_entrylabel196;
while(1){
fornext_value196=fornext_step196+(*__LONG_I);
fornext_entrylabel196:
*__LONG_I=fornext_value196;
if (fornext_step_negative196){
if (fornext_value196<fornext_finalvalue196) break;
}else{
if (fornext_value196>fornext_finalvalue196) break;
}
fornext_error196:;
if(qbevent){evnt(1462);if(r)goto S_1768;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1462);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1462);}while(r);
fornext_continue_195:;
}
fornext_exit_195:;
do{
*__INTEGER_CONTROLLEVEL= 0 ;
if(!qbevent)break;evnt(1463);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1464);}while(r);
do{
*__INTEGER_FINDANOTHERID= 0 ;
if(!qbevent)break;evnt(1464);}while(r);
do{
*__LONG_FINDIDINTERNAL= 0 ;
if(!qbevent)break;evnt(1464);}while(r);
do{
*__LONG_CURRENTID= 0 ;
if(!qbevent)break;evnt(1464);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(1465);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1466);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1467);}while(r);
do{
*__LONG_IDN= 0 ;
if(!qbevent)break;evnt(1468);}while(r);
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1469);}while(r);
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1470);}while(r);
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(1471);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(1472);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(1473);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1474);}while(r);
do{
*__ULONG_SELECTCASECOUNTER= 0 ;
if(!qbevent)break;evnt(1475);}while(r);
do{
*__INTEGER_EXECCOUNTER= 0 ;
if(!qbevent)break;evnt(1476);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1477);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(1478);}while(r);
do{
*__LONG_TOTALVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1479);}while(r);
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1480);}while(r);
do{
*__LONG_TOTALMAINVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1481);}while(r);
do{
if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){
preserve_old_ptr=__ARRAY_UDT_USEDVARIABLELIST[0];
preserve_old_flags=__ARRAY_UDT_USEDVARIABLELIST[2];
preserve_old_total=__ARRAY_UDT_USEDVARIABLELIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(120);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_UDT_USEDVARIABLELIST[0]=preserve_new_ptr;
__ARRAY_UDT_USEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
__ARRAY_UDT_USEDVARIABLELIST[0]=preserve_old_ptr;
tmp_long=preserve_old_total;
while(tmp_long--){

qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 32));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 40));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 48));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 56));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 64));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 72));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 80));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 88));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 96));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 104));
qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 112));}
free((void*)(preserve_old_ptr));
__ARRAY_UDT_USEDVARIABLELIST[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_USEDVARIABLELIST[0]) error(257);
__ARRAY_UDT_USEDVARIABLELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0]),tmp_long*120);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 32)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 40)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 48)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 56)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 64)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 72)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 80)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 88)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 96)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 104)=qbs_new(0,0);
*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+120*tmp_long+ 112)=qbs_new(0,0);}
}
__ARRAY_UDT_USEDVARIABLELIST[4]=alloc_new_desc[4];
__ARRAY_UDT_USEDVARIABLELIST[5]=alloc_new_desc[5];
__ARRAY_UDT_USEDVARIABLELIST[6]=alloc_new_desc[6];
__ARRAY_UDT_USEDVARIABLELIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1482);}while(r);
do{
*__LONG_TOTALWARNINGS= 0 ;
if(!qbevent)break;evnt(1483);}while(r);
do{
*__BYTE_DUPLICATECONSTWARNING= 0 ;
if(!qbevent)break;evnt(1484);}while(r);
do{
*__BYTE_EMPTYSCWARNING= 0 ;
if(!qbevent)break;evnt(1485);}while(r);
do{
*__LONG_WARNINGLISTITEMS= 0 ;
if(!qbevent)break;evnt(1486);}while(r);
do{
qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1487);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1488);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1489);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(1490);}while(r);
do{
if (__ARRAY_STRING_WARNING[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_WARNING[2]&1){
preserve_old_ptr=__ARRAY_STRING_WARNING[0];
preserve_old_flags=__ARRAY_STRING_WARNING[2];
preserve_old_total=__ARRAY_STRING_WARNING[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_WARNING[0]=preserve_new_ptr;
__ARRAY_STRING_WARNING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_WARNING[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_WARNING[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_WARNING[0]) error(257);
__ARRAY_STRING_WARNING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_WARNING[4]=alloc_new_desc[4];
__ARRAY_STRING_WARNING[5]=alloc_new_desc[5];
__ARRAY_STRING_WARNING[6]=alloc_new_desc[6];
__ARRAY_STRING_WARNING[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1491);}while(r);
do{
if (__ARRAY_LONG_WARNINGLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_WARNINGLINES[2]&1){
preserve_old_ptr=__ARRAY_LONG_WARNINGLINES[0];
preserve_old_flags=__ARRAY_LONG_WARNINGLINES[2];
preserve_old_total=__ARRAY_LONG_WARNINGLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_WARNINGLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_WARNINGLINES[0]) error(257);
memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_WARNINGLINES[0]) error(257);
}
}
__ARRAY_LONG_WARNINGLINES[2]|=1;
__ARRAY_LONG_WARNINGLINES[4]=alloc_new_desc[4];
__ARRAY_LONG_WARNINGLINES[5]=alloc_new_desc[5];
__ARRAY_LONG_WARNINGLINES[6]=alloc_new_desc[6];
__ARRAY_LONG_WARNINGLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1492);}while(r);
do{
if (__ARRAY_LONG_WARNINGINCLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_WARNINGINCLINES[2]&1){
preserve_old_ptr=__ARRAY_LONG_WARNINGINCLINES[0];
preserve_old_flags=__ARRAY_LONG_WARNINGINCLINES[2];
preserve_old_total=__ARRAY_LONG_WARNINGINCLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGINCLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257);
memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGINCLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257);
}
}
__ARRAY_LONG_WARNINGINCLINES[2]|=1;
__ARRAY_LONG_WARNINGINCLINES[4]=alloc_new_desc[4];
__ARRAY_LONG_WARNINGINCLINES[5]=alloc_new_desc[5];
__ARRAY_LONG_WARNINGINCLINES[6]=alloc_new_desc[6];
__ARRAY_LONG_WARNINGINCLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1493);}while(r);
do{
if (__ARRAY_STRING_WARNINGINCFILES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_WARNINGINCFILES[2]&1){
preserve_old_ptr=__ARRAY_STRING_WARNINGINCFILES[0];
preserve_old_flags=__ARRAY_STRING_WARNINGINCFILES[2];
preserve_old_total=__ARRAY_STRING_WARNINGINCFILES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_WARNINGINCFILES[0]=preserve_new_ptr;
__ARRAY_STRING_WARNINGINCFILES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNINGINCFILES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_WARNINGINCFILES[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_WARNINGINCFILES[0]) error(257);
__ARRAY_STRING_WARNINGINCFILES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNINGINCFILES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_WARNINGINCFILES[4]=alloc_new_desc[4];
__ARRAY_STRING_WARNINGINCFILES[5]=alloc_new_desc[5];
__ARRAY_STRING_WARNINGINCFILES[6]=alloc_new_desc[6];
__ARRAY_STRING_WARNINGINCFILES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1494);}while(r);
do{
*__LONG_MAXLINENUMBER= 0 ;
if(!qbevent)break;evnt(1495);}while(r);
do{
*__LONG_UNIQUENUMBERN= 0 ;
if(!qbevent)break;evnt(1496);}while(r);
do{
*__LONG_PTRSZ=*__LONG_OS_BITS/  8 ;
if(!qbevent)break;evnt(1499);}while(r);
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(1501);}while(r);
do{
*__LONG_I=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(1501);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1502);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1503);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 2 )+(( 8 )* 1 ))* 8 ;
if(!qbevent)break;evnt(1504);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1505);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1505);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1506);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1507);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1508);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1508);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1509);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1510);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1511);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1512);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1512);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1513);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1514);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1515);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1515);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1516);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1517);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1518);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1519);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1519);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1520);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1521);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE;
if(!qbevent)break;evnt(1522);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 64 ;
if(!qbevent)break;evnt(1522);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1523);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1524);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1525);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1526);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1526);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1527);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1528);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1529);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1529);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1530);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1531);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1532);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1533);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1533);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1534);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1535);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1536);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1536);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1537);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1538);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1539);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1540);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1540);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1541);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1542);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE;
if(!qbevent)break;evnt(1543);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ;
if(!qbevent)break;evnt(1543);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1544);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1545);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1546);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1547);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1548);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1548);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1549);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1550);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(1551);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(1551);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1552);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1553);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1554);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1555);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1556);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1556);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1557);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1558);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE;
if(!qbevent)break;evnt(1559);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(1559);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1560);}while(r);
do{
tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(1561);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1562);}while(r);
S_1889:;
fornext_value198= 1 ;
fornext_finalvalue198=func_ubound(__ARRAY_BYTE_UNSTABLEFLAGS,1,1);
fornext_step198= 1 ;
if (fornext_step198<0) fornext_step_negative198=1; else fornext_step_negative198=0;
if (is_error_pending()) goto fornext_error198;
goto fornext_entrylabel198;
while(1){
fornext_value198=fornext_step198+(*__LONG_I);
fornext_entrylabel198:
*__LONG_I=fornext_value198;
if (fornext_step_negative198){
if (fornext_value198<fornext_finalvalue198) break;
}else{
if (fornext_value198>fornext_finalvalue198) break;
}
fornext_error198:;
if(qbevent){evnt(1565);if(r)goto S_1889;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1565);}while(r);
fornext_continue_197:;
}
fornext_exit_197:;
do{
if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_EMBEDFILELIST[0];
preserve_old_flags=__ARRAY_STRING_EMBEDFILELIST[2];
preserve_old_total=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 3 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_EMBEDFILELIST[4]=alloc_new_desc[4];
__ARRAY_STRING_EMBEDFILELIST[5]=alloc_new_desc[5];
__ARRAY_STRING_EMBEDFILELIST[6]=alloc_new_desc[6];
__ARRAY_STRING_EMBEDFILELIST[7]=alloc_new_desc[7];
__ARRAY_STRING_EMBEDFILELIST[8]=alloc_new_desc[8];
__ARRAY_STRING_EMBEDFILELIST[9]=alloc_new_desc[9];
__ARRAY_STRING_EMBEDFILELIST[10]=alloc_new_desc[10];
__ARRAY_STRING_EMBEDFILELIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(1568);}while(r);
do{
if(!qbevent)break;evnt(1571);}while(r);
do{
*__LONG_EXTDEPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("extdep.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1571);}while(r);
do{
if(!qbevent)break;evnt(1574);}while(r);
do{
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1574);}while(r);
do{
if(!qbevent)break;evnt(1577);}while(r);
do{
*__LONG_FORMATBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("format.out",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1577);}while(r);
S_1899:;
fornext_value200= 1 ;
fornext_finalvalue200= 300 ;
fornext_step200= 1 ;
if (fornext_step200<0) fornext_step_negative200=1; else fornext_step_negative200=0;
if (is_error_pending()) goto fornext_error200;
goto fornext_entrylabel200;
while(1){
fornext_value200=fornext_step200+(*__LONG_CLOSEALL);
fornext_entrylabel200:
*__LONG_CLOSEALL=fornext_value200;
if (fornext_step_negative200){
if (fornext_value200<fornext_finalvalue200) break;
}else{
if (fornext_value200>fornext_finalvalue200) break;
}
fornext_error200:;
if(qbevent){evnt(1580);if(r)goto S_1899;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1580);}while(r);
fornext_continue_199:;
}
fornext_exit_199:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1581);}while(r);
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1583);}while(r);
S_1904:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1585);if(r)goto S_1904;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1585);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 5 ,NULL,NULL, 9 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1585);}while(r);
}
S_1908:;
if ((-(*__LONG_IDEMODE== 0 ))||is_error_pending()){
if(qbevent){evnt(1587);if(r)goto S_1908;}
do{
*__INTEGER_QBERRORHAPPENED= -1 ;
if(!qbevent)break;evnt(1588);}while(r);
do{
sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1589);}while(r);
LABEL_QBERRORHAPPENED1:;
if(qbevent){evnt(1590);r=0;}
S_1911:;
if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(1591);if(r)goto S_1911;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip201:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1592);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE));
if (is_error_pending()) goto skip202;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip202:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1593);}while(r);
S_1914:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1594);if(r)goto S_1914;}
do{
if(qbevent){evnt(1594);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1594);}while(r);
}
do{
if(qbevent){evnt(1595);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1595);}while(r);
}else{
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(1597);}while(r);
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1599);}while(r);
}
do{
SUB_REGINTERNAL();
if(!qbevent)break;evnt(1602);}while(r);
do{
if(!qbevent)break;evnt(1604);}while(r);
do{
*__LONG_GLOBTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1604);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(1605);}while(r);
S_1927:;
if ((*__LONG_IDERECOMPILE)||is_error_pending()){
if(qbevent){evnt(1607);if(r)goto S_1927;}
do{
*__LONG_IDERECOMPILE= 0 ;
if(!qbevent)break;evnt(1608);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(1609);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1610);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1611);}while(r);
}
S_1933:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1614);if(r)goto S_1933;}
do{
goto LABEL_IDERET1;
if(!qbevent)break;evnt(1614);}while(r);
}
do{
SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1616);}while(r);
do{
goto LABEL_STARTPREPASS;
if(!qbevent)break;evnt(1617);}while(r);
LABEL_SETPRECOMPFLAGS:;
if(qbevent){evnt(1620);r=0;}
do{
SUB_SETPRELET(qbs_new_txt_len("_EXPLICIT_",10),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1621);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_EXPLICITARRAY_",15),qbs__tostr((int64)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))|FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1622);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1623);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1624);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1625);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_SOCKETS_",9),qbs__tostr((int8)(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1629);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1630);}while(r);
LABEL_AUTOINCLUDEMANAGER:;
if(qbevent){evnt(1632);r=0;}
do{
*__LONG_AUTOINCLUDEBUFFER=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1633);}while(r);
S_1946:;
if ((-(*__LONG_FIRSTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1635);if(r)goto S_1946;}
S_1947:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18))))||is_error_pending()){
if(qbevent){evnt(1636);if(r)goto S_1947;}
do{
SUB_WRITEBUFLINE(&(pass203=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\beforefirstline.bi",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1637);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass204= 6ll ));
if(!qbevent)break;evnt(1639);}while(r);
}
S_1952:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color0.bi",9)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color32.bi",10)))))||is_error_pending()){
if(qbevent){evnt(1641);if(r)goto S_1952;}
do{
SUB_WRITEBUFLINE(&(pass205=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color0.bi",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1642);}while(r);
S_1954:;
}else{
if (qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 2 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color0.bi",9)))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("color32.bi",10))))){
if(qbevent){evnt(1643);if(r)goto S_1954;}
do{
SUB_WRITEBUFLINE(&(pass206=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color32.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1644);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1647);}while(r);
S_1958:;
fornext_value208=*__LONG_ULLUB;
fornext_finalvalue208= 0 ;
fornext_step208= -1 ;
if (fornext_step208<0) fornext_step_negative208=1; else fornext_step_negative208=0;
if (is_error_pending()) goto fornext_error208;
goto fornext_entrylabel208;
while(1){
fornext_value208=fornext_step208+(*__LONG_I);
fornext_entrylabel208:
*__LONG_I=fornext_value208;
if (fornext_step_negative208){
if (fornext_value208<fornext_finalvalue208) break;
}else{
if (fornext_value208>fornext_finalvalue208) break;
}
fornext_error208:;
if(qbevent){evnt(1648);if(r)goto S_1958;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 2ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1649);}while(r);
S_1960:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1650);if(r)goto S_1960;}
do{
SUB_WRITEBUFLINE(&(pass210=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1650);}while(r);
}
fornext_continue_207:;
}
fornext_exit_207:;
S_1964:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))|(qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bm",9)))))||is_error_pending()){
if(qbevent){evnt(1654);if(r)goto S_1964;}
S_1965:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bi",9))))||is_error_pending()){
if(qbevent){evnt(1655);if(r)goto S_1965;}
do{
SUB_WRITEBUFLINE(&(pass211=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1656);}while(r);
}
}
do{
*__LONG_FIRSTLINE= 2 ;
if(!qbevent)break;evnt(1659);}while(r);
}
S_1971:;
if ((-(*__LONG_MAINENDLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1661);if(r)goto S_1971;}
do{
SUB_WRITEBUFLINE(&(pass212=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\aftermain.bas",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1662);}while(r);
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1664);}while(r);
S_1974:;
fornext_value214= 0 ;
fornext_finalvalue214=*__LONG_ULLUB;
fornext_step214= 1 ;
if (fornext_step214<0) fornext_step_negative214=1; else fornext_step_negative214=0;
if (is_error_pending()) goto fornext_error214;
goto fornext_entrylabel214;
while(1){
fornext_value214=fornext_step214+(*__LONG_I);
fornext_entrylabel214:
*__LONG_I=fornext_value214;
if (fornext_step_negative214){
if (fornext_value214<fornext_finalvalue214) break;
}else{
if (fornext_value214>fornext_finalvalue214) break;
}
fornext_error214:;
if(qbevent){evnt(1665);if(r)goto S_1974;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 3ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1666);}while(r);
S_1976:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1667);if(r)goto S_1976;}
do{
SUB_WRITEBUFLINE(&(pass216=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1667);}while(r);
}
fornext_continue_213:;
}
fornext_exit_213:;
do{
*__LONG_MAINENDLINE= 2 ;
if(!qbevent)break;evnt(1671);}while(r);
}
S_1982:;
if ((-(*__LONG_LASTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1673);if(r)goto S_1982;}
do{
SUB_WRITEBUFLINE(&(pass217=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("-----",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1676);}while(r);
S_1984:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(1677);if(r)goto S_1984;}
S_1985:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
if(qbevent){evnt(1678);if(r)goto S_1985;}
do{
SUB_WRITEBUFLINE(&(pass218=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1678);}while(r);
}
}else{
S_1989:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEPROGNAME, 6 ),qbs_new_txt_len("vwatch",6))))||is_error_pending()){
if(qbevent){evnt(1680);if(r)goto S_1989;}
do{
SUB_WRITEBUFLINE(&(pass219=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1680);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1683);}while(r);
S_1994:;
fornext_value221= 0 ;
fornext_finalvalue221=*__LONG_ULLUB;
fornext_step221= 1 ;
if (fornext_step221<0) fornext_step_negative221=1; else fornext_step_negative221=0;
if (is_error_pending()) goto fornext_error221;
goto fornext_entrylabel221;
while(1){
fornext_value221=fornext_step221+(*__LONG_I);
fornext_entrylabel221:
*__LONG_I=fornext_value221;
if (fornext_step_negative221){
if (fornext_value221<fornext_finalvalue221) break;
}else{
if (fornext_value221>fornext_finalvalue221) break;
}
fornext_error221:;
if(qbevent){evnt(1684);if(r)goto S_1994;}
do{
qbs_set(__STRING_ULL,((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 4ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1685);}while(r);
S_1996:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1686);if(r)goto S_1996;}
do{
SUB_WRITEBUFLINE(&(pass223=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1686);}while(r);
}
fornext_continue_220:;
}
fornext_exit_220:;
S_2000:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16))))||is_error_pending()){
if(qbevent){evnt(1690);if(r)goto S_2000;}
do{
SUB_WRITEBUFLINE(&(pass224=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\afterlastline.bm",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1691);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass225= 6ll ));
if(!qbevent)break;evnt(1693);}while(r);
}
do{
*__LONG_LASTLINE= 2 ;
if(!qbevent)break;evnt(1695);}while(r);
}
S_2007:;
if ((-(FUNC_GETBUFLEN(&(pass226=*__LONG_AUTOINCLUDEBUFFER))> 0 ))||is_error_pending()){
if(qbevent){evnt(1697);if(r)goto S_2007;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass227=*__LONG_AUTOINCLUDEBUFFER),&(pass228= 0 ),&(pass229= -22ll ));
if(!qbevent)break;evnt(1698);}while(r);
do{
ongo_230=func_abs((int32)(func_sgn((int32)(*__LONG_PREPASS))))+ 1 ;
if (ongo_230==1){
return_point[next_return_point++]=1;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE;
RETURN_1:;
goto ongo_230_skip;
}
if (ongo_230==2){
return_point[next_return_point++]=2;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE_PREPASS;
RETURN_2:;
goto ongo_230_skip;
}
if (ongo_230<0) error(5);
ongo_230_skip:;
if(!qbevent)break;evnt(1699);}while(r);
}
S_2011:;
if ((-(*__LONG_FIRSTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1702);if(r)goto S_2011;}
do{
*__LONG_FIRSTLINE= 3 ;
if(!qbevent)break;evnt(1702);}while(r);
}
S_2014:;
if ((-(*__LONG_MAINENDLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1703);if(r)goto S_2014;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(1703);}while(r);
}
S_2017:;
if ((-(*__LONG_LASTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1704);if(r)goto S_2017;}
do{
*__LONG_LASTLINE= 3 ;
if(!qbevent)break;evnt(1704);}while(r);
}
do{
SUB_CLEARBUFFERS(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autoinc.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1705);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1705);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1706);}while(r);
LABEL_STARTPREPASS:;
if(qbevent){evnt(1709);r=0;}
S_2023:;
do{
if(qbevent){evnt(1710);if(r)goto S_2023;}
LABEL_IDEPREPASS:;
if(qbevent){evnt(1711);r=0;}
do{
*__LONG_PREPASS= 1 ;
if(!qbevent)break;evnt(1712);}while(r);
S_2025:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1715);if(r)goto S_2025;}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1716);}while(r);
S_2027:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(1717);if(r)goto S_2027;}
do{
goto dl_exit_231;
if(!qbevent)break;evnt(1717);}while(r);
}
}
S_2031:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1719);if(r)goto S_2031;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(1719);}while(r);
}
S_2034:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(1721);if(r)goto S_2034;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1722);}while(r);
do{
return_point[next_return_point++]=3;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SETPRECOMPFLAGS;
RETURN_3:;
if(!qbevent)break;evnt(1723);}while(r);
do{
return_point[next_return_point++]=4;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDEMANAGER;
RETURN_4:;
if(!qbevent)break;evnt(1724);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1725);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1728);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1729);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(1731);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(1732);}while(r);
S_2044:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1734);if(r)goto S_2044;}
do{
if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
preserve_old_ptr=__ARRAY_BYTE_INVALIDLINE[0];
preserve_old_flags=__ARRAY_BYTE_INVALIDLINE[2];
preserve_old_total=__ARRAY_BYTE_INVALIDLINE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
__ARRAY_BYTE_INVALIDLINE[4]=alloc_new_desc[4];
__ARRAY_BYTE_INVALIDLINE[5]=alloc_new_desc[5];
__ARRAY_BYTE_INVALIDLINE[6]=alloc_new_desc[6];
__ARRAY_BYTE_INVALIDLINE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1735);}while(r);
dl_continue_232:;
}
dl_exit_232:;
do{
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1737);}while(r);
S_2048:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_WHOLELINE->len))||is_error_pending()){
if(qbevent){evnt(1739);if(r)goto S_2048;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1741);}while(r);
S_2050:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
if(qbevent){evnt(1743);if(r)goto S_2050;}
S_2051:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(1744);if(r)goto S_2051;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1744);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1744);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1745);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1746);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1747);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(1748);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1749);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(1750);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1751);}while(r);
S_2062:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1752);if(r)goto S_2062;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1752);}while(r);
}
S_2065:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1753);if(r)goto S_2065;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1754);}while(r);
S_2067:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1755);if(r)goto S_2067;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(1755);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1757);}while(r);
}
S_2073:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(1760);if(r)goto S_2073;}
S_2074:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1761);if(r)goto S_2074;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1761);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1761);}while(r);
}
S_2078:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(1762);if(r)goto S_2078;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1762);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1762);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ;
if(!qbevent)break;evnt(1763);}while(r);
S_2083:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(1764);if(r)goto S_2083;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1765);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1767);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1769);}while(r);
}
S_2090:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(1772);if(r)goto S_2090;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1773);}while(r);
S_2092:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
if(qbevent){evnt(1774);if(r)goto S_2092;}
S_2093:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1775);if(r)goto S_2093;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1775);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1775);}while(r);
}
S_2097:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(1776);if(r)goto S_2097;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1776);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1776);}while(r);
}
S_2101:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(1777);if(r)goto S_2101;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1777);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1777);}while(r);
}
S_2105:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(1778);if(r)goto S_2105;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1779);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1780);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1782);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1783);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1784);}while(r);
S_2112:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1785);if(r)goto S_2112;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1785);}while(r);
}
S_2115:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1786);if(r)goto S_2115;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(1787);}while(r);
S_2117:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1788);if(r)goto S_2117;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(1788);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1790);}while(r);
}
}
S_2124:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ENDIF",6)))))||is_error_pending()){
if(qbevent){evnt(1794);if(r)goto S_2124;}
S_2125:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(1795);if(r)goto S_2125;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1795);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1795);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(1796);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(1797);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1798);}while(r);
}
S_2133:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(1801);if(r)goto S_2133;}
S_2134:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1802);if(r)goto S_2134;}
do{
if (__ARRAY_BYTE_INVALIDLINE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_BYTE_INVALIDLINE[2]&1){
preserve_old_ptr=__ARRAY_BYTE_INVALIDLINE[0];
preserve_old_flags=__ARRAY_BYTE_INVALIDLINE[2];
preserve_old_total=__ARRAY_BYTE_INVALIDLINE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(1);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_BYTE_INVALIDLINE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_INVALIDLINE[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257);
}
}
__ARRAY_BYTE_INVALIDLINE[2]|=1;
__ARRAY_BYTE_INVALIDLINE[4]=alloc_new_desc[4];
__ARRAY_BYTE_INVALIDLINE[5]=alloc_new_desc[5];
__ARRAY_BYTE_INVALIDLINE[6]=alloc_new_desc[6];
__ARRAY_BYTE_INVALIDLINE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1803);}while(r);
dl_continue_236:;
}
dl_exit_236:;
do{
tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1806);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1807);}while(r);
}
S_2140:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(1810);if(r)goto S_2140;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass237= 1 ));
if(!qbevent)break;evnt(1811);}while(r);
S_2142:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1812);if(r)goto S_2142;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1812);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1813);}while(r);
}
S_2147:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(1816);if(r)goto S_2147;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass238= 2 ));
if(!qbevent)break;evnt(1817);}while(r);
S_2149:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1818);if(r)goto S_2149;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1818);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1819);}while(r);
}
S_2154:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
if(qbevent){evnt(1822);if(r)goto S_2154;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $USELIBRARY:'author/library'",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1823);}while(r);
do{
*__LONG_BRA=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1825);}while(r);
S_2157:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(1825);if(r)goto S_2157;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1825);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_TEMP,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1826);}while(r);
S_2161:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(1826);if(r)goto S_2161;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1826);}while(r);
}
do{
qbs_set(__STRING_USELIB,qbs__trim(func_mid(qbs__trim(__STRING_WHOLELINE),*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1827);}while(r);
S_2165:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIB->len== 0 )))||is_error_pending()){
if(qbevent){evnt(1828);if(r)goto S_2165;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1828);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Library descriptor for '",24),__STRING_USELIB),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1830);}while(r);
do{
qbs_set(__STRING_USELIBFILE,qbs_add(qbs_add(qbs_new_txt_len("libraries/descriptors/",22),__STRING_USELIB),qbs_new_txt_len(".ini",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1831);}while(r);
S_2170:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1832);if(r)goto S_2170;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1832);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Library source for '",20),__STRING_USELIB),qbs_new_txt_len("' not found (",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1834);}while(r);
do{
qbs_set(__STRING_USELIBSRC,qbs_add(qbs_add(qbs_new_txt_len("libraries/includes/",19),__STRING_USELIB),qbs_new_txt_len("/",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1835);}while(r);
do{
qbs_set(__STRING_USELIBSECT,qbs_new_txt_len("[LIBRARY INCLUDES]",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1835);}while(r);
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtTop",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1836);}while(r);
do{
qbs_set(__STRING_USELIBTOP,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1836);}while(r);
S_2178:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBTOP->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1837);if(r)goto S_2178;}
do{
qbs_set(__STRING_USELIBTOP,qbs_add(__STRING_USELIBSRC,__STRING_USELIBTOP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1838);}while(r);
S_2180:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBTOP)== 0 )))||is_error_pending()){
if(qbevent){evnt(1839);if(r)goto S_2180;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1839);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1839);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAfterMain",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1841);}while(r);
do{
qbs_set(__STRING_USELIBMAIN,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1841);}while(r);
S_2187:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBMAIN->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1842);if(r)goto S_2187;}
do{
qbs_set(__STRING_USELIBMAIN,qbs_add(__STRING_USELIBSRC,__STRING_USELIBMAIN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1843);}while(r);
S_2189:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBMAIN)== 0 )))||is_error_pending()){
if(qbevent){evnt(1844);if(r)goto S_2189;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1844);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1844);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtBottom",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1846);}while(r);
do{
qbs_set(__STRING_USELIBBOTTOM,FUNC_READSETTING(__STRING_USELIBFILE,__STRING_USELIBSECT,__STRING_USELIBENTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1846);}while(r);
S_2196:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBBOTTOM->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1847);if(r)goto S_2196;}
do{
qbs_set(__STRING_USELIBBOTTOM,qbs_add(__STRING_USELIBSRC,__STRING_USELIBBOTTOM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1848);}while(r);
S_2198:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBBOTTOM)== 0 )))||is_error_pending()){
if(qbevent){evnt(1849);if(r)goto S_2198;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING_USELIBENTR),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1849);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1849);}while(r);
}
}
S_2203:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(1852);if(r)goto S_2203;}
S_2204:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(1853);if(r)goto S_2204;}
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_SOURCEFILE,qbs_str((int32)(*__LONG_LINENUMBER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1854);}while(r);
}else{
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_IDEPROGNAME,qbs_str((int32)(*__LONG_LINENUMBER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1856);}while(r);
}
}else{
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_str((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1859);}while(r);
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1862);}while(r);
do{
*__LONG_ULLND= -1 ;
if(!qbevent)break;evnt(1862);}while(r);
S_2214:;
fornext_value244= 0 ;
fornext_finalvalue244=*__LONG_ULLUB;
fornext_step244= 1 ;
if (fornext_step244<0) fornext_step_negative244=1; else fornext_step_negative244=0;
if (is_error_pending()) goto fornext_error244;
goto fornext_entrylabel244;
while(1){
fornext_value244=fornext_step244+(*__LONG_I);
fornext_entrylabel244:
*__LONG_I=fornext_value244;
if (fornext_step_negative244){
if (fornext_value244<fornext_finalvalue244) break;
}else{
if (fornext_value244>fornext_finalvalue244) break;
}
fornext_error244:;
if(qbevent){evnt(1863);if(r)goto S_2214;}
S_2215:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),__STRING_USELIB)))||is_error_pending()){
if(qbevent){evnt(1864);if(r)goto S_2215;}
S_2216:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 1ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),__STRING_USELIBNEEDY)))||is_error_pending()){
if(qbevent){evnt(1865);if(r)goto S_2216;}
do{
*__LONG_ULLND= 0 ;
if(!qbevent)break;evnt(1865);}while(r);
}
}
fornext_continue_243:;
}
fornext_exit_243:;
S_2221:;
if ((~(*__LONG_ULLND))||is_error_pending()){
if(qbevent){evnt(1868);if(r)goto S_2221;}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1868);}while(r);
}
S_2224:;
fornext_value246= 0 ;
fornext_finalvalue246=*__LONG_ULLUB;
fornext_step246= 1 ;
if (fornext_step246<0) fornext_step_negative246=1; else fornext_step_negative246=0;
if (is_error_pending()) goto fornext_error246;
goto fornext_entrylabel246;
while(1){
fornext_value246=fornext_step246+(*__LONG_I);
fornext_entrylabel246:
*__LONG_I=fornext_value246;
if (fornext_step_negative246){
if (fornext_value246<fornext_finalvalue246) break;
}else{
if (fornext_value246>fornext_finalvalue246) break;
}
fornext_error246:;
if(qbevent){evnt(1870);if(r)goto S_2224;}
S_2225:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6]])),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1871);if(r)goto S_2225;}
do{
goto fornext_exit_245;
if(!qbevent)break;evnt(1871);}while(r);
}
fornext_continue_245:;
}
fornext_exit_245:;
S_2229:;
if ((-(*__LONG_I>*__LONG_ULLUB))||is_error_pending()){
if(qbevent){evnt(1873);if(r)goto S_2229;}
do{
if (__ARRAY_STRING_USELIBLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_USELIBLIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_USELIBLIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_USELIBLIST[0];
preserve_old_flags=__ARRAY_STRING_USELIBLIST[2];
preserve_old_total=__ARRAY_STRING_USELIBLIST[5]*__ARRAY_STRING_USELIBLIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 4 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_ULLUB+ 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_USELIBLIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_USELIBLIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_USELIBLIST[0]) error(257);
__ARRAY_STRING_USELIBLIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_USELIBLIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_USELIBLIST[4]=alloc_new_desc[4];
__ARRAY_STRING_USELIBLIST[5]=alloc_new_desc[5];
__ARRAY_STRING_USELIBLIST[6]=alloc_new_desc[6];
__ARRAY_STRING_USELIBLIST[7]=alloc_new_desc[7];
__ARRAY_STRING_USELIBLIST[8]=alloc_new_desc[8];
__ARRAY_STRING_USELIBLIST[9]=alloc_new_desc[9];
__ARRAY_STRING_USELIBLIST[10]=alloc_new_desc[10];
__ARRAY_STRING_USELIBLIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(1874);}while(r);
do{
*__LONG_I=*__LONG_ULLUB+ 1 ;
if(!qbevent)break;evnt(1875);}while(r);
}
do{
tmp_long=array_check(( 0ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIB);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1877);}while(r);
do{
tmp_long=array_check(( 1ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBNEEDY);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1878);}while(r);
do{
tmp_long=array_check(( 2ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBTOP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1879);}while(r);
do{
tmp_long=array_check(( 3ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBMAIN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1880);}while(r);
do{
tmp_long=array_check(( 4ll )-__ARRAY_STRING_USELIBLIST[8],__ARRAY_STRING_USELIBLIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_USELIBLIST[4],__ARRAY_STRING_USELIBLIST[5])*__ARRAY_STRING_USELIBLIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USELIBLIST[0]))[tmp_long])),__STRING_USELIBBOTTOM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1881);}while(r);
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1882);}while(r);
}
S_2240:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(1885);if(r)goto S_2240;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass247= 1 ));
if(!qbevent)break;evnt(1886);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1887);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1888);}while(r);
}
S_2245:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(1891);if(r)goto S_2245;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass248= 1 ));
if(!qbevent)break;evnt(1892);}while(r);
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass249= 1 ));
if(!qbevent)break;evnt(1893);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_ASSERTS_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1894);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1895);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1896);}while(r);
}
S_2252:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(1899);if(r)goto S_2252;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass250= 1 ));
if(!qbevent)break;evnt(1900);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1901);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1902);}while(r);
}
S_2257:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(1905);if(r)goto S_2257;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass251= 2 ));
if(!qbevent)break;evnt(1906);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_CONSOLE_",9),qbs_new_txt_len("2",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1907);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1908);}while(r);
}
S_2262:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(1911);if(r)goto S_2262;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ),&(pass252= 1 ));
if(!qbevent)break;evnt(1912);}while(r);
do{
SUB_SETPRELET(qbs_new_txt_len("_DEBUG_",7),qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1913);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1914);}while(r);
}
S_2267:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$NOPREFIX",9))))||is_error_pending()){
if(qbevent){evnt(1917);if(r)goto S_2267;}
S_2268:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1918);if(r)goto S_2268;}
do{
qbs_set(__STRING_SENDC,func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1920);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1921);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("$NOPREFIX is a deprecated feature, QB64(PE) specific keywords MUST have the underscore. To convert this program, open it in the IDE.",132));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1923);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1924);}while(r);
}
}
S_2276:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 7 ),qbs_new_txt_len("$ERROR ",7))))||is_error_pending()){
if(qbevent){evnt(1928);if(r)goto S_2276;}
do{
qbs_set(__STRING_TEMP,FUNC_REMOVESTRINGENCLOSINGPAIR(qbs_ltrim(func_mid(__STRING_TEMP, 7 ,NULL,0)),qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1929);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Compilation check failed: ",26),__STRING_TEMP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1930);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1931);}while(r);
}
S_2281:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
if(qbevent){evnt(1934);if(r)goto S_2281;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1935);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1937);}while(r);
S_2284:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(1938);if(r)goto S_2284;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax.  $LET <flag> = <value>",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1938);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1938);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1939);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1939);}while(r);
S_2290:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(1941);if(r)goto S_2290;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1941);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1941);}while(r);
}
S_2294:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1942);if(r)goto S_2294;}
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1942);}while(r);
}
S_2297:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1943);if(r)goto S_2297;}
do{
qbs_set(__STRING_R,qbs_rtrim(qbs_left(__STRING_R,__STRING_R->len- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1943);}while(r);
}
S_2300:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(1944);if(r)goto S_2300;}
do{
qbs_set(__STRING_R1,qbs_new_txt_len("-",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1945);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1946);}while(r);
}else{
do{
qbs_set(__STRING_R1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1948);}while(r);
}
S_2306:;
fornext_value255= 1 ;
fornext_finalvalue255=__STRING_R->len;
fornext_step255= 1 ;
if (fornext_step255<0) fornext_step_negative255=1; else fornext_step_negative255=0;
if (is_error_pending()) goto fornext_error255;
goto fornext_entrylabel255;
while(1){
fornext_value255=fornext_step255+(*__LONG_I);
fornext_entrylabel255:
*__LONG_I=fornext_value255;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative255){
if (fornext_value255<fornext_finalvalue255) break;
}else{
if (fornext_value255>fornext_finalvalue255) break;
}
fornext_error255:;
if(qbevent){evnt(1951);if(r)goto S_2306;}
do{
*__LONG_A=qbs_asc(__STRING_R,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1952);}while(r);
S_2308:;
if(qbevent){evnt(1953);if(r)goto S_2308;}
S_2309:;
if (((*__LONG_A==( 32 )))||is_error_pending()){
if(qbevent){evnt(1954);if(r)goto S_2309;}
sc_ec_1_end:;
goto sc_257_end;
}
S_2310:;
if (((*__LONG_A==( 46 )))||is_error_pending()){
if(qbevent){evnt(1955);if(r)goto S_2310;}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1956);}while(r);
sc_ec_2_end:;
goto sc_257_end;
}
S_2312:;
if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||is_error_pending()){
if(qbevent){evnt(1957);if(r)goto S_2312;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1958);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1958);}while(r);
sc_ec_3_end:;
goto sc_257_end;
}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1960);}while(r);
sc_257_end:;
fornext_continue_254:;
}
fornext_exit_254:;
do{
qbs_set(__STRING_R,__STRING_R1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1963);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1964);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1965);}while(r);
}
S_2323:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
if(qbevent){evnt(1970);if(r)goto S_2323;}
do{
qbs_set(__STRING_TOKEN,qbs_ucase(qbs_ltrim(qbs_rtrim(func_mid(__STRING_TEMP, 11 ,NULL,0)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1971);}while(r);
S_2325:;
if(qbevent){evnt(1973);if(r)goto S_2325;}
S_2326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(1974);if(r)goto S_2326;}
do{
tmp_long=array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1975);}while(r);
sc_ec_4_end:;
goto sc_258_end;
}
S_2328:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(1977);if(r)goto S_2328;}
do{
tmp_long=array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(1978);}while(r);
sc_ec_5_end:;
goto sc_258_end;
}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Unrecognized unstable flag ",27),FUNC_ADDQUOTES(__STRING_TOKEN)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1981);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1982);}while(r);
sc_258_end:;
}
S_2335:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 15 ),qbs_new_txt_len("$MIDISOUNDFONT:",15))))||is_error_pending()){
if(qbevent){evnt(1986);if(r)goto S_2335;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$MIDISOUNDFONT is a deprecated keyword, use _MIDISOUNDBANK instead",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1987);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1988);}while(r);
}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1991);}while(r);
S_2340:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(1992);if(r)goto S_2340;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1992);}while(r);
}
do{
qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1994);}while(r);
do{
qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1995);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(1998);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(1998);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1999);}while(r);
S_2348:;
if ((*__LONG_WHOLELINEN)||is_error_pending()){
if(qbevent){evnt(2001);if(r)goto S_2348;}
do{
*__LONG_WHOLELINEI= 1 ;
if(!qbevent)break;evnt(2003);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass259= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2006);}while(r);
S_2351:;
if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||is_error_pending()){
if(qbevent){evnt(2007);if(r)goto S_2351;}
do{
*__LONG_WHOLELINEI= 2 ;
if(!qbevent)break;evnt(2007);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(2007);}while(r);
}
S_2355:;
if ((-(*__LONG_WHOLELINEN>= 2 ))||is_error_pending()){
if(qbevent){evnt(2010);if(r)goto S_2355;}
do{
*__LONG_X2=func_instr(NULL,__STRING_WHOLELINE,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2011);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(2011);}while(r);
S_2358:;
if ((-(*__LONG_X2== 0 ))||is_error_pending()){
if(qbevent){evnt(2012);if(r)goto S_2358;}
S_2359:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_WHOLELINE, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1))))))||is_error_pending()){
if(qbevent){evnt(2013);if(r)goto S_2359;}
do{
*__LONG_X2=__STRING_WHOLELINE->len- 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2013);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(2013);}while(r);
}
}
S_2364:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(2016);if(r)goto S_2364;}
do{
qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2017);}while(r);
S_2366:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(2018);if(r)goto S_2366;}
do{
qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2019);}while(r);
do{
qbs_set(__STRING_CWHOLELINE,qbs_right(__STRING_CWHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2020);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2021);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(2022);}while(r);
}
}
}
LABEL_PPSKPL:;
if(qbevent){evnt(2027);r=0;}
S_2374:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(2028);if(r)goto S_2374;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2030);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2031);}while(r);
LABEL_PPBLDA:;
if(qbevent){evnt(2032);r=0;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2033);}while(r);
do{
qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2034);}while(r);
S_2379:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(":",1)))|(qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2035);if(r)goto S_2379;}
S_2380:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(2036);if(r)goto S_2380;}
S_2381:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2037);if(r)goto S_2381;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip264;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("PP[",3),__STRING_A),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip264;
skip264:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2037);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2038);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass265= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2039);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass266= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2040);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass267= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2041);}while(r);
S_2388:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 2 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8)))))))||is_error_pending()){
if(qbevent){evnt(2044);if(r)goto S_2388;}
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(2045);}while(r);
}
S_2391:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2049);if(r)goto S_2391;}
S_2392:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(2051);if(r)goto S_2392;}
S_2393:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
if(qbevent){evnt(2052);if(r)goto S_2393;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2052);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2052);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(2053);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2054);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(2057);}while(r);
S_2401:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||is_error_pending()){
if(qbevent){evnt(2059);if(r)goto S_2401;}
do{
goto LABEL_DECLARESUBFUNC;
if(!qbevent)break;evnt(2059);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE (#2)",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2061);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2061);}while(r);
}
S_2407:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(2068);if(r)goto S_2407;}
S_2408:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(2069);if(r)goto S_2408;}
S_2409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(2070);if(r)goto S_2409;}
S_2410:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_THIRDELEMENT,qbs_new_txt_len("0",1)))|(qbs_equal(__STRING_THIRDELEMENT,qbs_new_txt_len("1",1)))))||is_error_pending()){
if(qbevent){evnt(2071);if(r)goto S_2410;}
do{
*__INTEGER_UDTPARSE_OPTIONBASE=qbr_float_to_long(qbs_val<long double>(__STRING_THIRDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2072);}while(r);
}
}
}
}
S_2416:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(2079);if(r)goto S_2416;}
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(2080);}while(r);
S_2418:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(2082);if(r)goto S_2418;}
S_2419:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(2083);if(r)goto S_2419;}
S_2420:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
if(qbevent){evnt(2084);if(r)goto S_2420;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2084);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2084);}while(r);
}
S_2424:;
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(2085);if(r)goto S_2424;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("No elements defined in TYPE",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2085);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2085);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(2086);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2089);}while(r);
do{
SUB_WRITEBUFLINE(&(pass268=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("char *g_tmp_udt_",16),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))),qbs_new_txt_len("=(char*)malloc(",15)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2090);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2091);}while(r);
}
}
S_2434:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(2095);if(r)goto S_2434;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2095);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2095);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2096);}while(r);
S_2439:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2098);if(r)goto S_2439;}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(2100);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(2101);}while(r);
S_2442:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2102);if(r)goto S_2442;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2102);}while(r);
ww_continue_269:;
}
ww_exit_269:;
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2103);}while(r);
do{
*__LONG_II= 2 ;
if(!qbevent)break;evnt(2105);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2110);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2111);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2112);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2113);}while(r);
S_2451:;
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2115);if(r)goto S_2451;}
S_2452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2116);if(r)goto S_2452;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(2117);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2118);}while(r);
S_2455:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2119);if(r)goto S_2455;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2120);}while(r);
S_2457:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2121);if(r)goto S_2457;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(2121);}while(r);
}
S_2460:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2122);if(r)goto S_2460;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(2123);}while(r);
S_2462:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(2124);if(r)goto S_2462;}
do{
goto dl_exit_270;
if(!qbevent)break;evnt(2124);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2126);}while(r);
dl_continue_270:;
}
dl_exit_270:;
S_2468:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(2128);if(r)goto S_2468;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2128);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2128);}while(r);
}
S_2472:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_A,&(pass271=*__LONG_II+ 1 ),&(pass272=*__LONG_I3- 1 )),&(pass273=*__INTEGER_UDTPARSE_OPTIONBASE),(&(((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])))== 0 )))||is_error_pending()){
if(qbevent){evnt(2133);if(r)goto S_2472;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2133);}while(r);
}
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2134);}while(r);
}
}
S_2478:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(2138);if(r)goto S_2478;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2138);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2138);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass274=*__LONG_II+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2139);}while(r);
S_2483:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(2141);if(r)goto S_2483;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2141);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2141);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2142);}while(r);
S_2488:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2143);if(r)goto S_2488;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2143);}while(r);
}
S_2491:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(2144);if(r)goto S_2491;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2144);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2144);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2145);}while(r);
S_2496:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2147);if(r)goto S_2496;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2147);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2147);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2148);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass275= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2149);}while(r);
LABEL_NORMALTYPEBLOCK:;
if(qbevent){evnt(2150);r=0;}
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(*__LONG_I2)),l2string(__STRING_N->len)),__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2151);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP;
if(!qbevent)break;evnt(2152);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE;
if(!qbevent)break;evnt(2153);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2155);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 512ll ;
if(!qbevent)break;evnt(2158);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2159);}while(r);
S_2508:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2160);if(r)goto S_2508;}
S_2509:;
if ((*__LONG_HASHRESFLAGS& 512ll )||is_error_pending()){
if(qbevent){evnt(2161);if(r)goto S_2509;}
S_2510:;
if ((-(*__LONG_HASHRESREF==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(2162);if(r)goto S_2510;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2162);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2162);}while(r);
}
}
S_2515:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2164);if(r)goto S_2515;}
S_2516:;
if ((*__LONG_HASHRESFLAGS&( 4ll + 32ll + 16ll + 8192ll ))||is_error_pending()){
if(qbevent){evnt(2165);if(r)goto S_2516;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2165);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2165);}while(r);
}
}
S_2521:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2167);if(r)goto S_2521;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2167);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2167);}while(r);
}
dl_continue_277:;
}
dl_exit_277:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass278= 512ll ),__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2170);}while(r);
S_2528:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(2173);if(r)goto S_2528;}
do{
*__LONG_U=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(2174);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(2175);}while(r);
S_2531:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(2176);if(r)goto S_2531;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2176);}while(r);
}
S_2534:;
}else{
if (*__LONG_TYP&*__LONG_ISSTRING){
if(qbevent){evnt(2177);if(r)goto S_2534;}
S_2535:;
if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(2178);if(r)goto S_2535;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 511 ;
if(!qbevent)break;evnt(2179);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2180);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ;
if(!qbevent)break;evnt(2182);}while(r);
}
S_2541:;
}else{
if (*__LONG_TYP&*__LONG_ISOFFSETINBITS){
if(qbevent){evnt(2184);if(r)goto S_2541;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot use _BIT inside user defined types",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2185);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2185);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(2187);}while(r);
}
}
}
S_2547:;
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
if(qbevent){evnt(2192);if(r)goto S_2547;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]*((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])];
if(!qbevent)break;evnt(2193);}while(r);
}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])];
if(!qbevent)break;evnt(2197);}while(r);
S_2551:;
if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(2200);if(r)goto S_2551;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(2201);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(2203);}while(r);
}
S_2556:;
if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||is_error_pending()){
if(qbevent){evnt(2207);if(r)goto S_2556;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(2207);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2208);}while(r);
}else{
do{
*__LONG_DECLSTART= 0 ;
if(!qbevent)break;evnt(2214);}while(r);
S_2562:;
fornext_value280= 3 ;
fornext_finalvalue280=*__LONG_N;
fornext_step280= 1 ;
if (fornext_step280<0) fornext_step_negative280=1; else fornext_step_negative280=0;
if (is_error_pending()) goto fornext_error280;
goto fornext_entrylabel280;
while(1){
fornext_value280=fornext_step280+(*__LONG_I3);
fornext_entrylabel280:
*__LONG_I3=fornext_value280;
if (fornext_step_negative280){
if (fornext_value280<fornext_finalvalue280) break;
}else{
if (fornext_value280>fornext_finalvalue280) break;
}
fornext_error280:;
if(qbevent){evnt(2215);if(r)goto S_2562;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2216);}while(r);
S_2564:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_N)))||is_error_pending()){
if(qbevent){evnt(2217);if(r)goto S_2564;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass281= 2 ),&(pass282=*__LONG_I3- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2218);}while(r);
S_2566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(2219);if(r)goto S_2566;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2219);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2219);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2220);}while(r);
S_2571:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2221);if(r)goto S_2571;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2221);}while(r);
}
S_2574:;
if ((*__LONG_TYP)||is_error_pending()){
if(qbevent){evnt(2222);if(r)goto S_2574;}
do{
*__LONG_DECLSTART=*__LONG_I3;
if(!qbevent)break;evnt(2223);}while(r);
do{
goto fornext_exit_279;
if(!qbevent)break;evnt(2224);}while(r);
}
}
fornext_continue_279:;
}
fornext_exit_279:;
S_2580:;
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
if(qbevent){evnt(2228);if(r)goto S_2580;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2228);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2228);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2229);}while(r);
do{
*__LONG_II=*__LONG_DECLSTART;
if(!qbevent)break;evnt(2231);}while(r);
S_2586:;
do{
if(qbevent){evnt(2232);if(r)goto S_2586;}
S_2587:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2233);if(r)goto S_2587;}
do{
goto dl_exit_283;
if(!qbevent)break;evnt(2233);}while(r);
}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2234);}while(r);
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2235);}while(r);
S_2592:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2236);if(r)goto S_2592;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2236);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2236);}while(r);
}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(2238);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(2239);}while(r);
S_2598:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2240);if(r)goto S_2598;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2240);}while(r);
ww_continue_284:;
}
ww_exit_284:;
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2241);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2242);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2243);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2244);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2245);}while(r);
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2247);}while(r);
S_2607:;
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2248);if(r)goto S_2607;}
S_2608:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2249);if(r)goto S_2608;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(2250);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2251);}while(r);
S_2611:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2252);if(r)goto S_2611;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2253);}while(r);
S_2613:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2254);if(r)goto S_2613;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(2254);}while(r);
}
S_2616:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2255);if(r)goto S_2616;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(2256);}while(r);
S_2618:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(2257);if(r)goto S_2618;}
do{
goto dl_exit_285;
if(!qbevent)break;evnt(2257);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2259);}while(r);
dl_continue_285:;
}
dl_exit_285:;
S_2624:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(2261);if(r)goto S_2624;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2261);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2261);}while(r);
}
S_2628:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_A,&(pass286=*__LONG_II+ 1 ),&(pass287=*__LONG_I3- 1 )),&(pass288=*__INTEGER_UDTPARSE_OPTIONBASE),(&(((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])))== 0 )))||is_error_pending()){
if(qbevent){evnt(2262);if(r)goto S_2628;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2262);}while(r);
}
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2263);}while(r);
}
}
S_2634:;
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2267);if(r)goto S_2634;}
S_2635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2268);if(r)goto S_2635;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2268);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2268);}while(r);
}
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2271);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),__STRING_CN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2272);}while(r);
S_2642:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2273);if(r)goto S_2642;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2273);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2273);}while(r);
}
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ;
if(!qbevent)break;evnt(2275);}while(r);
do{
return_point[next_return_point++]=5;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALTYPEBLOCK;
RETURN_5:;
if(!qbevent)break;evnt(2276);}while(r);
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ;
if(!qbevent)break;evnt(2277);}while(r);
S_2649:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2279);if(r)goto S_2649;}
do{
goto dl_exit_283;
if(!qbevent)break;evnt(2279);}while(r);
}
S_2652:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(2280);if(r)goto S_2652;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2280);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2280);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2281);}while(r);
S_2657:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2282);if(r)goto S_2657;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2282);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2282);}while(r);
}
dl_continue_283:;
}while(1);
dl_exit_283:;
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2284);}while(r);
}
}
S_2665:;
if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||is_error_pending()){
if(qbevent){evnt(2288);if(r)goto S_2665;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2288);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2288);}while(r);
}
S_2669:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(2290);if(r)goto S_2669;}
S_2670:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(2291);if(r)goto S_2670;}
S_2671:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(2292);if(r)goto S_2671;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2292);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2292);}while(r);
}
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(2293);}while(r);
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string( -1 )),l2string(*__LONG_LASTTYPE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2294);}while(r);
do{
*__LONG_DEFININGTYPE=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(2295);}while(r);
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(2296);}while(r);
S_2679:;
while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2297);if(r)goto S_2679;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2297);}while(r);
ww_continue_289:;
}
ww_exit_289:;
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2298);}while(r);
S_2683:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||is_error_pending()){
if(qbevent){evnt(2299);if(r)goto S_2683;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2299);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2299);}while(r);
}
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(__STRING_SECONDELEMENT->len)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2300);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),__STRING_SECONDELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2301);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass291= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2302);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2303);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2304);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2305);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2307);}while(r);
do{
*__LONG_HASHFLAGS= 256ll ;
if(!qbevent)break;evnt(2308);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 256ll ;
if(!qbevent)break;evnt(2310);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2311);}while(r);
S_2697:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2312);if(r)goto S_2697;}
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2313);}while(r);
S_2699:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2314);if(r)goto S_2699;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2315);}while(r);
}
S_2702:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2317);if(r)goto S_2702;}
S_2703:;
if ((-((*__LONG_HASHRESFLAGS&( 4ll + 16ll + 32ll + 16384ll ))== 0 ))||is_error_pending()){
if(qbevent){evnt(2318);if(r)goto S_2703;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2318);}while(r);
}
}
S_2707:;
if ((-(*__LONG_ALLOW== 0 ))||is_error_pending()){
if(qbevent){evnt(2320);if(r)goto S_2707;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2320);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2320);}while(r);
}
S_2711:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2321);if(r)goto S_2711;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2321);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2321);}while(r);
}
dl_continue_292:;
}
dl_exit_292:;
do{
SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2325);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2327);}while(r);
}
}
S_2721:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
if(qbevent){evnt(2335);if(r)goto S_2721;}
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2341);}while(r);
S_2723:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2342);if(r)goto S_2723;}
S_2724:;
do{
if(qbevent){evnt(2343);if(r)goto S_2724;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2344);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2345);}while(r);
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2346);}while(r);
S_2728:;
dl_continue_293:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_293:;
if(qbevent){evnt(2347);if(r)goto S_2728;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2348);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass296= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2349);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass297= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2349);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass298= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2349);}while(r);
}
S_2734:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(2352);if(r)goto S_2734;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2352);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2352);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(2353);}while(r);
LABEL_CONSTDEFPENDINGPP:;
if(qbevent){evnt(2354);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(2355);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2357);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2357);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(2358);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2359);}while(r);
S_2744:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2360);if(r)goto S_2744;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2360);}while(r);
}
S_2747:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2361);if(r)goto S_2747;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2362);}while(r);
S_2749:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2363);if(r)goto S_2749;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2363);}while(r);
}
S_2752:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(2364);if(r)goto S_2752;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2364);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2364);}while(r);
}
S_2756:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(2365);if(r)goto S_2756;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2365);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2365);}while(r);
}
}
S_2761:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(2368);if(r)goto S_2761;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2368);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2368);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2369);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2372);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2373);}while(r);
S_2768:;
fornext_value300=*__LONG_I;
fornext_finalvalue300=*__LONG_N;
fornext_step300= 1 ;
if (fornext_step300<0) fornext_step_negative300=1; else fornext_step_negative300=0;
if (is_error_pending()) goto fornext_error300;
goto fornext_entrylabel300;
while(1){
fornext_value300=fornext_step300+(*__LONG_I2);
fornext_entrylabel300:
*__LONG_I2=fornext_value300;
if (fornext_step_negative300){
if (fornext_value300<fornext_finalvalue300) break;
}else{
if (fornext_value300>fornext_finalvalue300) break;
}
fornext_error300:;
if(qbevent){evnt(2374);if(r)goto S_2768;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2375);}while(r);
S_2770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2376);if(r)goto S_2770;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2376);}while(r);
}
S_2773:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2377);if(r)goto S_2773;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2377);}while(r);
}
S_2776:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2378);if(r)goto S_2776;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(2379);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2380);}while(r);
S_2779:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(2381);if(r)goto S_2779;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2381);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2381);}while(r);
}
do{
goto fornext_exit_299;
if(!qbevent)break;evnt(2382);}while(r);
}
S_2785:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2385);if(r)goto S_2785;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2385);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2385);}while(r);
}
fornext_continue_299:;
}
fornext_exit_299:;
do{
if(!qbevent)break;evnt(2390);}while(r);
do{
qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_E,(void*)( ((char*)(__UDT_TEMPNUM)) + ((0+0)) ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2391);}while(r);
S_2793:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP1, 8 ),qbs_new_txt_len("ERROR - ",8))))||is_error_pending()){
if(qbevent){evnt(2393);if(r)goto S_2793;}
do{
qbs_set(__STRING_A,func_mid(__STRING_TEMP1, 9 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2394);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2395);}while(r);
}
do{
*__LONG_T=*(int32*)(((char*)__UDT_TEMPNUM)+((0+56)));
if(!qbevent)break;evnt(2398);}while(r);
S_2798:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2399);if(r)goto S_2798;}
S_2799:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2400);if(r)goto S_2799;}
S_2800:;
if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2401);if(r)goto S_2800;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2401);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2401);}while(r);
}
}
do{
qbs_set(__STRING_E,__STRING_TEMP1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2404);}while(r);
}else{
S_2807:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2406);if(r)goto S_2807;}
S_2808:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2407);if(r)goto S_2808;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2407);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2407);}while(r);
}
}
S_2813:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2410);if(r)goto S_2813;}
do{
*__FLOAT_CONSTVAL=*(long double*)(((char*)__UDT_TEMPNUM)+((0+0)));
if(!qbevent)break;evnt(2411);}while(r);
do{
*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL);
if(!qbevent)break;evnt(2412);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2413);}while(r);
}else{
S_2818:;
if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||is_error_pending()){
if(qbevent){evnt(2415);if(r)goto S_2818;}
do{
*__UINTEGER64_CONSTVAL=*(uint64*)(((char*)__UDT_TEMPNUM)+((0+40)));
if(!qbevent)break;evnt(2416);}while(r);
do{
*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2417);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2418);}while(r);
}else{
do{
*__INTEGER64_CONSTVAL=*(int64*)(((char*)__UDT_TEMPNUM)+((0+32)));
if(!qbevent)break;evnt(2420);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2421);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2422);}while(r);
}
}
S_2828:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2427);if(r)goto S_2828;}
do{
*__LONG_T=*__LONG_TYPEOVERRIDE;
if(!qbevent)break;evnt(2429);}while(r);
}
}
do{
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
if(!qbevent)break;evnt(2433);}while(r);
S_2833:;
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
if(qbevent){evnt(2434);if(r)goto S_2833;}
do{
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
if(!qbevent)break;evnt(2435);}while(r);
do{
if (__ARRAY_STRING_CONSTNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAME[0]) error(257);
__ARRAY_STRING_CONSTNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2436);}while(r);
do{
if (__ARRAY_STRING_CONSTCNAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTCNAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTCNAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTCNAME[0];
preserve_old_flags=__ARRAY_STRING_CONSTCNAME[2];
preserve_old_total=__ARRAY_STRING_CONSTCNAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTCNAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTCNAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTCNAME[0]) error(257);
__ARRAY_STRING_CONSTCNAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTCNAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTCNAME[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTCNAME[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTCNAME[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTCNAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2437);}while(r);
do{
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTNAMESYMBOL)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTNAMESYMBOL[0];
preserve_old_flags=__ARRAY_STRING_CONSTNAMESYMBOL[2];
preserve_old_total=__ARRAY_STRING_CONSTNAMESYMBOL[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTNAMESYMBOL[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTNAMESYMBOL[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTNAMESYMBOL[0]) error(257);
__ARRAY_STRING_CONSTNAMESYMBOL[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTNAMESYMBOL[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTNAMESYMBOL[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTNAMESYMBOL[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTNAMESYMBOL[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2438);}while(r);
do{
if (__ARRAY_LONG_CONSTTYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTTYPE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTTYPE[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTTYPE[0];
preserve_old_flags=__ARRAY_LONG_CONSTTYPE[2];
preserve_old_total=__ARRAY_LONG_CONSTTYPE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTTYPE[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTTYPE[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTTYPE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTTYPE[0]) error(257);
}
}
__ARRAY_LONG_CONSTTYPE[2]|=1;
__ARRAY_LONG_CONSTTYPE[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTTYPE[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTTYPE[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTTYPE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2439);}while(r);
do{
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER64_CONSTINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&1){
preserve_old_ptr=__ARRAY_INTEGER64_CONSTINTEGER[0];
preserve_old_flags=__ARRAY_INTEGER64_CONSTINTEGER[2];
preserve_old_total=__ARRAY_INTEGER64_CONSTINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER64_CONSTINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
memset((void*)(__ARRAY_INTEGER64_CONSTINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER64_CONSTINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257);
}
}
__ARRAY_INTEGER64_CONSTINTEGER[2]|=1;
__ARRAY_INTEGER64_CONSTINTEGER[4]=alloc_new_desc[4];
__ARRAY_INTEGER64_CONSTINTEGER[5]=alloc_new_desc[5];
__ARRAY_INTEGER64_CONSTINTEGER[6]=alloc_new_desc[6];
__ARRAY_INTEGER64_CONSTINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2440);}while(r);
do{
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UINTEGER64_CONSTUINTEGER)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&1){
preserve_old_ptr=__ARRAY_UINTEGER64_CONSTUINTEGER[0];
preserve_old_flags=__ARRAY_UINTEGER64_CONSTUINTEGER[2];
preserve_old_total=__ARRAY_UINTEGER64_CONSTUINTEGER[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
memset((void*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*8);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=preserve_new_ptr;
}else{
__ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257);
}
}
__ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1;
__ARRAY_UINTEGER64_CONSTUINTEGER[4]=alloc_new_desc[4];
__ARRAY_UINTEGER64_CONSTUINTEGER[5]=alloc_new_desc[5];
__ARRAY_UINTEGER64_CONSTUINTEGER[6]=alloc_new_desc[6];
__ARRAY_UINTEGER64_CONSTUINTEGER[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2441);}while(r);
do{
if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_FLOAT_CONSTFLOAT)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&1){
preserve_old_ptr=__ARRAY_FLOAT_CONSTFLOAT[0];
preserve_old_flags=__ARRAY_FLOAT_CONSTFLOAT[2];
preserve_old_total=__ARRAY_FLOAT_CONSTFLOAT[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(32);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_FLOAT_CONSTFLOAT[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*32);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
memset((void*)(__ARRAY_FLOAT_CONSTFLOAT[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*32);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_FLOAT_CONSTFLOAT[0]=preserve_new_ptr;
}else{
__ARRAY_FLOAT_CONSTFLOAT[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257);
}
}
__ARRAY_FLOAT_CONSTFLOAT[2]|=1;
__ARRAY_FLOAT_CONSTFLOAT[4]=alloc_new_desc[4];
__ARRAY_FLOAT_CONSTFLOAT[5]=alloc_new_desc[5];
__ARRAY_FLOAT_CONSTFLOAT[6]=alloc_new_desc[6];
__ARRAY_FLOAT_CONSTFLOAT[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2442);}while(r);
do{
if (__ARRAY_STRING_CONSTSTRING[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_CONSTSTRING)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_CONSTSTRING[2]&1){
preserve_old_ptr=__ARRAY_STRING_CONSTSTRING[0];
preserve_old_flags=__ARRAY_STRING_CONSTSTRING[2];
preserve_old_total=__ARRAY_STRING_CONSTSTRING[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_CONSTSTRING[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_CONSTSTRING[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_CONSTSTRING[0]) error(257);
__ARRAY_STRING_CONSTSTRING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_CONSTSTRING[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_CONSTSTRING[4]=alloc_new_desc[4];
__ARRAY_STRING_CONSTSTRING[5]=alloc_new_desc[5];
__ARRAY_STRING_CONSTSTRING[6]=alloc_new_desc[6];
__ARRAY_STRING_CONSTSTRING[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2443);}while(r);
do{
if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTSUBFUNC)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTSUBFUNC[0];
preserve_old_flags=__ARRAY_LONG_CONSTSUBFUNC[2];
preserve_old_total=__ARRAY_LONG_CONSTSUBFUNC[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTSUBFUNC[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTSUBFUNC[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTSUBFUNC[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTSUBFUNC[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257);
}
}
__ARRAY_LONG_CONSTSUBFUNC[2]|=1;
__ARRAY_LONG_CONSTSUBFUNC[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTSUBFUNC[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTSUBFUNC[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTSUBFUNC[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2444);}while(r);
do{
if (__ARRAY_LONG_CONSTDEFINED[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_CONSTDEFINED[2]&1){
preserve_old_ptr=__ARRAY_LONG_CONSTDEFINED[0];
preserve_old_flags=__ARRAY_LONG_CONSTDEFINED[2];
preserve_old_total=__ARRAY_LONG_CONSTDEFINED[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_CONSTMAX)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_CONSTDEFINED[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
memset((void*)(__ARRAY_LONG_CONSTDEFINED[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_CONSTDEFINED[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257);
}
}
__ARRAY_LONG_CONSTDEFINED[2]|=1;
__ARRAY_LONG_CONSTDEFINED[4]=alloc_new_desc[4];
__ARRAY_LONG_CONSTDEFINED[5]=alloc_new_desc[5];
__ARRAY_LONG_CONSTDEFINED[6]=alloc_new_desc[6];
__ARRAY_LONG_CONSTDEFINED[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(2445);}while(r);
}
do{
*__LONG_I2=*__LONG_CONSTLAST;
if(!qbevent)break;evnt(2448);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(2450);}while(r);
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2452);}while(r);
S_2849:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2453);if(r)goto S_2849;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2453);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2453);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_ucase(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2454);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2456);}while(r);
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2459);}while(r);
LABEL_CONST_RECHECK:;
if(qbevent){evnt(2460);r=0;}
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 1024ll ;
if(!qbevent)break;evnt(2461);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2462);}while(r);
S_2858:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2463);if(r)goto S_2858;}
S_2859:;
if ((*__LONG_HASHRESFLAGS& 1024ll )||is_error_pending()){
if(qbevent){evnt(2464);if(r)goto S_2859;}
S_2860:;
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(2465);if(r)goto S_2860;}
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(2468);}while(r);
S_2862:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2469);if(r)goto S_2862;}
S_2863:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])])),__STRING_E)))||is_error_pending()){
if(qbevent){evnt(2470);if(r)goto S_2863;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2470);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2470);}while(r);
}
}else{
S_2868:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2472);if(r)goto S_2868;}
S_2869:;
if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2473);if(r)goto S_2869;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2473);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((long double)(*__FLOAT_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2473);}while(r);
}
}else{
S_2874:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2475);if(r)goto S_2874;}
S_2875:;
if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2476);if(r)goto S_2875;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2476);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((uint64)(*__UINTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2476);}while(r);
}
}else{
S_2880:;
if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||is_error_pending()){
if(qbevent){evnt(2478);if(r)goto S_2880;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2478);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((int64)(*__INTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2478);}while(r);
}
}
}
}
S_2887:;
if ((*__LONG_ISSUEWARNING)||is_error_pending()){
if(qbevent){evnt(2482);if(r)goto S_2887;}
S_2888:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(2483);if(r)goto S_2888;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Duplicate constant definition",29),qbs_add(qbs_add(__STRING_N,qbs_new_txt_len(" = ",3)),__STRING_THISCONSTVAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2484);}while(r);
}
do{
goto LABEL_CONSTADDDONE;
if(!qbevent)break;evnt(2486);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2488);}while(r);
}
}
}
S_2898:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2492);if(r)goto S_2898;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2493);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2493);}while(r);
}
S_2902:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2495);if(r)goto S_2902;}
S_2903:;
if ((qbs_cleanup(qbs_tmp_base,(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548)))== 0 ))|(qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528))),8,1)),qbs_new_txt_len("$",1)))))||is_error_pending()){
if(qbevent){evnt(2496);if(r)goto S_2903;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2496);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2496);}while(r);
}
S_2907:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2497);if(r)goto S_2907;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2497);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2497);}while(r);
}
}
S_2912:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2499);if(r)goto S_2912;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2499);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2499);}while(r);
}
dl_continue_302:;
}
dl_exit_302:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass303= 1024ll ),__LONG_I2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2503);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(2509);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2510);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),FUNC_TYPEVALUE2SYMBOL(__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2511);}while(r);
S_2922:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2512);if(r)goto S_2922;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2512);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T;
if(!qbevent)break;evnt(2513);}while(r);
S_2926:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2514);if(r)goto S_2926;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long])),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2515);}while(r);
}else{
S_2929:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2517);if(r)goto S_2929;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]);
if (!is_error_pending()) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL;
if(!qbevent)break;evnt(2518);}while(r);
}else{
S_2932:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2520);if(r)goto S_2932;}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]);
if (!is_error_pending()) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2521);}while(r);
}else{
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2523);}while(r);
}
}
}
LABEL_CONSTADDDONE:;
if(qbevent){evnt(2528);r=0;}
S_2939:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(2530);if(r)goto S_2939;}
do{
goto LABEL_CONSTDEFPENDINGPP;
if(!qbevent)break;evnt(2532);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2536);}while(r);
}
do{
*__LONG_D= 0 ;
if(!qbevent)break;evnt(2542);}while(r);
S_2945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(2543);if(r)goto S_2945;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2543);}while(r);
}
S_2948:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(2544);if(r)goto S_2948;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2544);}while(r);
}
S_2951:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(2545);if(r)goto S_2951;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2545);}while(r);
}
S_2954:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(2546);if(r)goto S_2954;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2546);}while(r);
}
S_2957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(2547);if(r)goto S_2957;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2547);}while(r);
}
S_2960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(2548);if(r)goto S_2960;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2548);}while(r);
}
S_2963:;
if ((*__LONG_D)||is_error_pending()){
if(qbevent){evnt(2549);if(r)goto S_2963;}
do{
*__LONG_PREDEFINING= 1 ;
if(!qbevent)break;evnt(2550);}while(r);
do{
goto LABEL_PREDEFINE;
if(!qbevent)break;evnt(2550);}while(r);
LABEL_PREDEFINED:;
if(qbevent){evnt(2551);r=0;}
do{
*__LONG_PREDEFINING= 0 ;
if(!qbevent)break;evnt(2551);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2552);}while(r);
}
S_2969:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(2556);if(r)goto S_2969;}
S_2970:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||is_error_pending()){
if(qbevent){evnt(2557);if(r)goto S_2970;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(2558);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(2559);}while(r);
S_2973:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))))||is_error_pending()){
if(qbevent){evnt(2560);if(r)goto S_2973;}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(2560);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2561);}while(r);
}
}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(2566);}while(r);
LABEL_DECLARESUBFUNC:;
if(qbevent){evnt(2567);r=0;}
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass304= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2568);}while(r);
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(2569);}while(r);
S_2982:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(2570);if(r)goto S_2982;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(2570);}while(r);
}
S_2985:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(2571);if(r)goto S_2985;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(2571);}while(r);
}
S_2988:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(2572);if(r)goto S_2988;}
S_2989:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2574);if(r)goto S_2989;}
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(2575);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(2576);}while(r);
}
S_2993:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(2579);if(r)goto S_2993;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2579);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2579);}while(r);
}
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2582);}while(r);
S_2998:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2583);if(r)goto S_2998;}
S_2999:;
do{
if(qbevent){evnt(2584);if(r)goto S_2999;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2585);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2586);}while(r);
do{
*__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2587);}while(r);
S_3003:;
dl_continue_305:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_305:;
if(qbevent){evnt(2588);if(r)goto S_3003;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2589);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass308= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2590);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass309= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2590);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass310= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2590);}while(r);
}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass311= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2593);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2594);}while(r);
S_3011:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2595);if(r)goto S_3011;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2595);}while(r);
}
S_3014:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2596);if(r)goto S_3014;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2596);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2596);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2599);}while(r);
S_3019:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(2599);if(r)goto S_3019;}
do{
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2599);}while(r);
do{
qbs_set(__STRING_CA,qbs_left(__STRING_CA,__STRING_CA->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2599);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(2599);}while(r);
}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2602);}while(r);
S_3025:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2603);if(r)goto S_3025;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass314= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2604);}while(r);
S_3027:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(2605);if(r)goto S_3027;}
S_3028:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2606);if(r)goto S_3028;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2606);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2606);}while(r);
}
S_3032:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(2607);if(r)goto S_3032;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2607);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2607);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass315= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2608);}while(r);
S_3037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(2610);if(r)goto S_3037;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2611);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2612);}while(r);
S_3040:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(2612);if(r)goto S_3040;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2612);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2612);}while(r);
}
do{
qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2613);}while(r);
}
S_3046:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(2616);if(r)goto S_3046;}
do{
*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2617);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_left(__STRING_E,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_E,__STRING_E->len-*__LONG_X+ 1 -__STRING_FIX046->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2617);}while(r);
dl_continue_317:;
}
dl_exit_317:;
S_3050:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2620);if(r)goto S_3050;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2620);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2620);}while(r);
}
S_3054:;
fornext_value322= 1 ;
fornext_finalvalue322=__STRING_E->len;
fornext_step322= 1 ;
if (fornext_step322<0) fornext_step_negative322=1; else fornext_step_negative322=0;
if (is_error_pending()) goto fornext_error322;
goto fornext_entrylabel322;
while(1){
fornext_value322=fornext_step322+(*__LONG_X);
fornext_entrylabel322:
*__LONG_X=fornext_value322;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative322){
if (fornext_value322<fornext_finalvalue322) break;
}else{
if (fornext_value322>fornext_finalvalue322) break;
}
fornext_error322:;
if(qbevent){evnt(2621);if(r)goto S_3054;}
do{
*__LONG_A=qbs_asc(__STRING_E,*__LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2622);}while(r);
S_3056:;
if ((qbs_cleanup(qbs_tmp_base,-((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&&(-(func_instr(NULL,qbs_new_txt_len(" !%&()*+,-./:;<=>?[]^{|}~",25),func_chr(*__LONG_A),0)== 0 )))))||is_error_pending()){
if(qbevent){evnt(2623);if(r)goto S_3056;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2624);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2624);}while(r);
}
fornext_continue_321:;
}
fornext_exit_321:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2627);}while(r);
S_3062:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2629);if(r)goto S_3062;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass324= 1 ),&(pass325= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2629);}while(r);
}
S_3065:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2630);if(r)goto S_3065;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass326= 1 ),&(pass327= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass328= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2630);}while(r);
}
S_3068:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2631);if(r)goto S_3068;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass329= 1 ),&(pass330= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2631);}while(r);
}
S_3071:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2632);if(r)goto S_3071;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass331= 1 ),&(pass332= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass333= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2632);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(2633);}while(r);
}
}
S_3077:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2637);if(r)goto S_3077;}
S_3078:;
if ((*__LONG_INDIRECTLIBRARY)||is_error_pending()){
if(qbevent){evnt(2638);if(r)goto S_3078;}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2639);}while(r);
}
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(2643);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2644);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2645);}while(r);
do{
qbs_set(__STRING_NELE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2646);}while(r);
do{
qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2647);}while(r);
S_3087:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2648);if(r)goto S_3087;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass334= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2649);}while(r);
S_3089:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2650);if(r)goto S_3089;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2650);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2650);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2651);}while(r);
S_3094:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2652);if(r)goto S_3094;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2652);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2652);}while(r);
}
S_3098:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(2653);if(r)goto S_3098;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2653);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2653);}while(r);
}
S_3102:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(2654);if(r)goto S_3102;}
do{
goto LABEL_NOSFPARAMS;
if(!qbevent)break;evnt(2654);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2655);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2656);}while(r);
S_3107:;
fornext_value336= 4 ;
fornext_finalvalue336=*__LONG_N- 1 ;
fornext_step336= 1 ;
if (fornext_step336<0) fornext_step_negative336=1; else fornext_step_negative336=0;
if (is_error_pending()) goto fornext_error336;
goto fornext_entrylabel336;
while(1){
fornext_value336=fornext_step336+(*__LONG_I);
fornext_entrylabel336:
*__LONG_I=fornext_value336;
if (fornext_step_negative336){
if (fornext_value336<fornext_finalvalue336) break;
}else{
if (fornext_value336>fornext_finalvalue336) break;
}
fornext_error336:;
if(qbevent){evnt(2657);if(r)goto S_3107;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2658);}while(r);
S_3109:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2659);if(r)goto S_3109;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2659);}while(r);
}
S_3112:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2660);if(r)goto S_3112;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2660);}while(r);
}
S_3115:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2661);if(r)goto S_3115;}
S_3116:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2662);if(r)goto S_3116;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2662);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2662);}while(r);
}
LABEL_GETLASTPARAM:;
if(qbevent){evnt(2663);r=0;}
S_3120:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2664);if(r)goto S_3120;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2664);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2664);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2665);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2667);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(2668);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2669);}while(r);
do{
*__LONG_I2= 1 ;
if(!qbevent)break;evnt(2671);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2672);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2672);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(2674);}while(r);
S_3132:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(2675);if(r)goto S_3132;}
S_3133:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2676);if(r)goto S_3133;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2676);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2676);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2677);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2677);}while(r);
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(2677);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2680);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2681);}while(r);
S_3143:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(2682);if(r)goto S_3143;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2682);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2682);}while(r);
}
S_3147:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2684);if(r)goto S_3147;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2684);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(2685);}while(r);
S_3151:;
fornext_value339=*__LONG_I2;
fornext_finalvalue339=*__LONG_N2;
fornext_step339= 1 ;
if (fornext_step339<0) fornext_step_negative339=1; else fornext_step_negative339=0;
if (is_error_pending()) goto fornext_error339;
goto fornext_entrylabel339;
while(1){
fornext_value339=fornext_step339+(*__LONG_I2);
fornext_entrylabel339:
*__LONG_I2=fornext_value339;
if (fornext_step_negative339){
if (fornext_value339<fornext_finalvalue339) break;
}else{
if (fornext_value339>fornext_finalvalue339) break;
}
fornext_error339:;
if(qbevent){evnt(2686);if(r)goto S_3151;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2687);}while(r);
S_3153:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2688);if(r)goto S_3153;}
S_3154:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(2689);if(r)goto S_3154;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2689);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2689);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(2690);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(2691);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2692);}while(r);
}
S_3162:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2694);if(r)goto S_3162;}
S_3163:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(2695);if(r)goto S_3163;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2695);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2695);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(2696);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2697);}while(r);
}
S_3170:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2699);if(r)goto S_3170;}
S_3171:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(2700);if(r)goto S_3171;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2700);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2700);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(2701);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2702);}while(r);
}
S_3178:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(2704);if(r)goto S_3178;}
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2704);}while(r);
}
S_3181:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(2705);if(r)goto S_3181;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2705);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2705);}while(r);
}
S_3185:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2706);if(r)goto S_3185;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2706);}while(r);
}else{
do{
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2706);}while(r);
}
LABEL_GOTAA:;
if(qbevent){evnt(2707);r=0;}
fornext_continue_338:;
}
fornext_exit_338:;
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(2710);}while(r);
S_3192:;
if ((-(*__LONG_PARAMS> 100 ))||is_error_pending()){
if(qbevent){evnt(2710);if(r)goto S_3192;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION exceeds 100 parameter limit",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2710);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2710);}while(r);
}
do{
*__LONG_ARGNELEREQ= 0 ;
if(!qbevent)break;evnt(2712);}while(r);
S_3197:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2714);if(r)goto S_3197;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2714);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2714);}while(r);
}
S_3201:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_T2,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_E,qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(2715);if(r)goto S_3201;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2715);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2715);}while(r);
}
S_3205:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2716);if(r)goto S_3205;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2716);}while(r);
}
S_3208:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2717);if(r)goto S_3208;}
S_3209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2718);if(r)goto S_3209;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2718);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2718);}while(r);
}
do{
qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2719);}while(r);
}
do{
*__LONG_PARAMSIZE= 0 ;
if(!qbevent)break;evnt(2722);}while(r);
S_3217:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(2723);if(r)goto S_3217;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2724);}while(r);
S_3219:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2725);if(r)goto S_3219;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2725);}while(r);
}
S_3222:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2726);if(r)goto S_3222;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2726);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2726);}while(r);
}
S_3226:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2727);if(r)goto S_3226;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2727);}while(r);
}
do{
*__LONG_T=*__LONG_T+*__LONG_ISARRAY;
if(!qbevent)break;evnt(2728);}while(r);
S_3230:;
fornext_value341= 0 ;
fornext_finalvalue341=*__INTEGER_SFLISTN;
fornext_step341= 1 ;
if (fornext_step341<0) fornext_step_negative341=1; else fornext_step_negative341=0;
if (is_error_pending()) goto fornext_error341;
goto fornext_entrylabel341;
while(1){
fornext_value341=fornext_step341+(*__LONG_I10);
fornext_entrylabel341:
*__LONG_I10=fornext_value341;
if (fornext_step_negative341){
if (fornext_value341<fornext_finalvalue341) break;
}else{
if (fornext_value341>fornext_finalvalue341) break;
}
fornext_error341:;
if(qbevent){evnt(2730);if(r)goto S_3230;}
S_3231:;
if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||is_error_pending()){
if(qbevent){evnt(2731);if(r)goto S_3231;}
S_3232:;
if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||is_error_pending()){
if(qbevent){evnt(2732);if(r)goto S_3232;}
do{
*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])];
if(!qbevent)break;evnt(2733);}while(r);
}
}
fornext_continue_340:;
}
fornext_exit_340:;
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2738);}while(r);
S_3239:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2739);if(r)goto S_3239;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2739);}while(r);
}
S_3242:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2740);if(r)goto S_3242;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2740);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2740);}while(r);
}
S_3246:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2741);if(r)goto S_3246;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2741);}while(r);
}
S_3249:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(2743);if(r)goto S_3249;}
S_3250:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2744);if(r)goto S_3250;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2744);}while(r);
}
}
}
do{
qbs_set(__STRING_NELEREQ,qbs_add(__STRING_NELEREQ,func_chr(*__LONG_ARGNELEREQ)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2748);}while(r);
do{
qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2751);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2753);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2754);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2755);}while(r);
}else{
do{
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2757);}while(r);
S_3262:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2758);if(r)goto S_3262;}
do{
goto LABEL_GETLASTPARAM;
if(!qbevent)break;evnt(2758);}while(r);
}
}
fornext_continue_335:;
}
fornext_exit_335:;
}
LABEL_NOSFPARAMS:;
if(qbevent){evnt(2762);r=0;}
S_3268:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(2764);if(r)goto S_3268;}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2766);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2767);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+544)))= 1 ;
if(!qbevent)break;evnt(2768);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2770);}while(r);
S_3273:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2771);if(r)goto S_3273;}
do{
*(int16*)(((char*)__UDT_ID)+((0+806)))= 1 ;
if(!qbevent)break;evnt(2772);}while(r);
S_3275:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2773);if(r)goto S_3275;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2773);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+((0+809)))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2775);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2776);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1213))),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2777);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2647))),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2778);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2747))),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2779);}while(r);
S_3284:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2780);if(r)goto S_3284;}
do{
*(int32*)(((char*)__UDT_ID)+((0+2381)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2781);}while(r);
S_3286:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2782);if(r)goto S_3286;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2782);}while(r);
}
}else{
S_3290:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2784);if(r)goto S_3290;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2784);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2784);}while(r);
}
do{
qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2785);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2381)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2786);}while(r);
S_3297:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2787);if(r)goto S_3297;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2787);}while(r);
}
}
S_3301:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2381)))== 0 ))||is_error_pending()){
if(qbevent){evnt(2789);if(r)goto S_3301;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2789);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2789);}while(r);
}
S_3305:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2791);if(r)goto S_3305;}
do{
qbs_set(__STRING_CTYPE,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2381)) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2793);}while(r);
S_3307:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2794);if(r)goto S_3307;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2794);}while(r);
}
S_3310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(2795);if(r)goto S_3310;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2795);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(  ",3),__STRING_CTYPE),qbs_new_txt_len("  )",3)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2796);}while(r);
}
do{
qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2800);}while(r);
S_3316:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_S,qbs_new_txt_len("~",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("`",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("%",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("&",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("!",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("#",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("$",1)))))||is_error_pending()){
if(qbevent){evnt(2801);if(r)goto S_3316;}
do{
qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2802);}while(r);
S_3318:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2803);if(r)goto S_3318;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2803);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1),__STRING_SYMBOL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2805);}while(r);
S_3323:;
if ((*(int32*)(((char*)__UDT_ID)+((0+2381)))&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2806);if(r)goto S_3323;}
S_3324:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+2381)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2807);if(r)goto S_3324;}
do{
*(int32*)(((char*)__UDT_ID)+((0+2381)))=*(int32*)(((char*)__UDT_ID)+((0+2381)))-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2807);}while(r);
}
}
S_3328:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2810);if(r)goto S_3328;}
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2811);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2811);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2812);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2812);}while(r);
do{
qbs_set(__STRING_PWL,func_mid(__STRING_PWL,func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("FUNCTION",8),0)+ 9 +__STRING_N->len,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2813);}while(r);
do{
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2814);}while(r);
do{
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2815);}while(r);
S_3336:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2816);if(r)goto S_3336;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2816);}while(r);
}
S_3339:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2817);if(r)goto S_3339;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2817);}while(r);
}
do{
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2818);}while(r);
do{
qbs_set(__STRING_PWL,qbs_add(qbs_add(__STRING_N,__STRING_SYMBOL),FUNC_STRREPLACE(qbs_rtrim(qbs_left(__STRING_PWL,*__INTEGER_CPO)),qbs_new_txt_len("_",1),qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2819);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2820);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2861)))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2821);}while(r);
}
S_3347:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(2824);if(r)goto S_3347;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2825);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),func_mid(__STRING_N, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2825);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2825);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2861)))),qbs_add(qbs_add(qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0)),((qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("$",1)))?(qbs_new_txt_len("$",1)):(qbs_new_txt_len("",0)))),func_mid(*((qbs**)((char*)__UDT_ID+((0+2861)))),__STRING_N->len+__STRING_SYMBOL->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2826);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(2828);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(2829);}while(r);
S_3355:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2831);if(r)goto S_3355;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2831);}while(r);
}
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2834);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2835);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+544)))= 2 ;
if(!qbevent)break;evnt(2836);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2837);}while(r);
S_3363:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2838);if(r)goto S_3363;}
do{
*(int16*)(((char*)__UDT_ID)+((0+806)))= 1 ;
if(!qbevent)break;evnt(2839);}while(r);
S_3365:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2840);if(r)goto S_3365;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2840);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+((0+809)))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2842);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2843);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1213))),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2844);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2647))),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2845);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2747))),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2846);}while(r);
S_3374:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2848);if(r)goto S_3374;}
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_CWHOLELINE,func_chr( 13 ),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2849);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len("( ",2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2849);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ,",2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2850);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" )",2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2850);}while(r);
do{
qbs_set(__STRING_PWL,func_mid(__STRING_PWL,func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("SUB",3),0)+ 4 +__STRING_N->len,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2851);}while(r);
do{
qbs_set(__STRING_PWL,qbs_ltrim(func_mid(__STRING_PWL,func_instr(NULL,__STRING_PWL,qbs_new_txt_len(" ",1),0),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2852);}while(r);
do{
*__INTEGER_APO=func_instr(NULL,qbs_ucase(__STRING_PWL),qbs_new_txt_len("STATIC",6),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2853);}while(r);
S_3382:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2854);if(r)goto S_3382;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2854);}while(r);
}
S_3385:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2855);if(r)goto S_3385;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2855);}while(r);
}
do{
*__INTEGER_CPO=func__instrrev(*__INTEGER_APO,__STRING_PWL,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2856);}while(r);
do{
qbs_set(__STRING_PWL,qbs_add(qbs_add(__STRING_N,qbs_new_txt_len(" ",1)),FUNC_STRREPLACE(qbs_rtrim(func_mid(__STRING_PWL, 2 ,*__INTEGER_CPO- 2 ,0|1)),qbs_new_txt_len("_",1),qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2857);}while(r);
do{
qbs_set(__STRING_PWL,FUNC_STRREPLACE(__STRING_PWL,qbs_new_txt_len(" ()",3),qbs_new_txt_len("()",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2858);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2861)))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2859);}while(r);
}
S_3393:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_N, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(2862);if(r)goto S_3393;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2862);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),func_mid(__STRING_N, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2862);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2862);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2861)))),qbs_add(qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0)),func_mid(*((qbs**)((char*)__UDT_ID+((0+2861)))),__STRING_N->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2862);}while(r);
}
S_3399:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_N),qbs_new_txt_len("_GL",3)))&(-(*__LONG_PARAMS== 0 ))&(-(*__LONG_USEGL== 0 ))))||is_error_pending()){
if(qbevent){evnt(2863);if(r)goto S_3399;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2863);}while(r);
do{
*__LONG_USEGL= 1 ;
if(!qbevent)break;evnt(2863);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1),qbs_new_txt_len("_GL",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2863);}while(r);
do{
SUB_SETDEPENDENCY(&(pass349= 3ll ));
if(!qbevent)break;evnt(2863);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(2864);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(2865);}while(r);
S_3407:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2867);if(r)goto S_3407;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2867);}while(r);
}
}
}
LABEL_FINISHEDLINEPP:;
if(qbevent){evnt(2874);r=0;}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2876);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2877);}while(r);
}else{
S_3416:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2879);if(r)goto S_3416;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2879);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2879);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2879);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CA,__STRING1_SP),__STRING_CE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2879);}while(r);
}
}
S_3424:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(2881);if(r)goto S_3424;}
do{
*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ;
if(!qbevent)break;evnt(2881);}while(r);
do{
goto LABEL_PPBLDA;
if(!qbevent)break;evnt(2881);}while(r);
}
}
}
}
S_3431:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(2891);if(r)goto S_3431;}
S_3432:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2892);if(r)goto S_3432;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip351;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:INCLUDE$-ing file:'",28),__STRING_ADDMETAINCLUDE),qbs_new_txt_len("':On line",9)), 0, 0, 0);
if (is_error_pending()) goto skip351;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1);
if (is_error_pending()) goto skip351;
skip351:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2892);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2893);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2893);}while(r);
S_3437:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(2895);if(r)goto S_3437;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(2896);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(2897);}while(r);
LABEL_AUTOINCLUDE_PREPASS:;
if(qbevent){evnt(2898);r=0;}
S_3440:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(2899);if(r)goto S_3440;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass352=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2900);}while(r);
S_3442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(2901);if(r)goto S_3442;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(2901);}while(r);
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(2901);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(2902);}while(r);
S_3447:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_A, 18 ),qbs_new_txt_len("beforefirstline.bi",18)))|(qbs_equal(qbs_right(__STRING_A, 16 ),qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
if(qbevent){evnt(2903);if(r)goto S_3447;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(2904);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(2906);}while(r);
}
}
S_3453:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(2910);if(r)goto S_3453;}
S_3454:;
fornext_value354= 200 ;
fornext_finalvalue354= 299 ;
fornext_step354= 1 ;
if (fornext_step354<0) fornext_step_negative354=1; else fornext_step_negative354=0;
if (is_error_pending()) goto fornext_error354;
goto fornext_entrylabel354;
while(1){
fornext_value354=fornext_step354+(*__LONG_FH);
fornext_entrylabel354:
*__LONG_FH=fornext_value354;
if (fornext_step_negative354){
if (fornext_value354<fornext_finalvalue354) break;
}else{
if (fornext_value354>fornext_finalvalue354) break;
}
fornext_error354:;
if(qbevent){evnt(2911);if(r)goto S_3454;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(2911);}while(r);
fornext_continue_353:;
}
fornext_exit_353:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2912);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2912);}while(r);
}
S_3460:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len(".\\",2)))|(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len("./",2)))))||is_error_pending()){
if(qbevent){evnt(2915);if(r)goto S_3460;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2915);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(2916);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(2918);}while(r);
S_3465:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(2919);if(r)goto S_3465;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(2919);}while(r);
}
S_3468:;
fornext_value356=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue356= 2 ;
fornext_step356= 1 ;
if (fornext_step356<0) fornext_step_negative356=1; else fornext_step_negative356=0;
if (is_error_pending()) goto fornext_error356;
goto fornext_entrylabel356;
while(1){
fornext_value356=fornext_step356+(*__LONG_TRY);
fornext_entrylabel356:
*__LONG_TRY=fornext_value356;
if (fornext_step_negative356){
if (fornext_value356<fornext_finalvalue356) break;
}else{
if (fornext_value356>fornext_finalvalue356) break;
}
fornext_error356:;
if(qbevent){evnt(2920);if(r)goto S_3468;}
S_3469:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(2921);if(r)goto S_3469;}
S_3470:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(2922);if(r)goto S_3470;}
S_3471:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(2923);if(r)goto S_3471;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2923);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2923);}while(r);
}
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2925);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2927);}while(r);
}
S_3481:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(2929);if(r)goto S_3481;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2929);}while(r);
}
S_3484:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(2930);if(r)goto S_3484;}
do{
*__INTEGER_QBERRORHAPPENED= -3 ;
if(!qbevent)break;evnt(2931);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2932);}while(r);
LABEL_QBERRORHAPPENED3:;
if(qbevent){evnt(2933);r=0;}
S_3487:;
if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||is_error_pending()){
if(qbevent){evnt(2934);if(r)goto S_3487;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2936);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2937);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(2938);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2939);}while(r);
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2940);}while(r);
S_3493:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(2941);if(r)goto S_3493;}
S_3494:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(2942);if(r)goto S_3494;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2942);}while(r);
}
S_3497:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(2943);if(r)goto S_3497;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2944);}while(r);
S_3499:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(2945);if(r)goto S_3499;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2945);}while(r);
}
}
}
S_3504:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(2948);if(r)goto S_3504;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass357=*__LONG_INCONEBUF),&(pass358= 0 ),&(pass359= -22ll ));
if(!qbevent)break;evnt(2949);}while(r);
S_3506:;
while((~(FUNC_ENDOFBUF(&(pass361=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(2950);if(r)goto S_3506;}
S_3507:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass362=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(2951);if(r)goto S_3507;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2952);}while(r);
do{
goto LABEL_SKIPINC1;
if(!qbevent)break;evnt(2953);}while(r);
}
ww_continue_360:;
}
ww_exit_360:;
}
do{
SUB_WRITEBUFLINE(&(pass363=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2957);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2958);}while(r);
do{
goto fornext_exit_355;
if(!qbevent)break;evnt(2960);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2963);}while(r);
fornext_continue_355:;
}
fornext_exit_355:;
S_3520:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||is_error_pending()){
if(qbevent){evnt(2965);if(r)goto S_3520;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(2965);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2965);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2965);}while(r);
}
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(2966);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2966);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2966);}while(r);
}
S_3529:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(2969);if(r)goto S_3529;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(2971);}while(r);
S_3531:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(2973);if(r)goto S_3531;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip365;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip365;
skip365:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2974);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2976);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ;
if(!qbevent)break;evnt(2977);}while(r);
do{
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
if(!qbevent)break;evnt(2979);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2980);}while(r);
S_3537:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(2981);if(r)goto S_3537;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2981);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2981);}while(r);
}
S_3542:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(2982);if(r)goto S_3542;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2983);}while(r);
S_3544:;
fornext_value367= 1 ;
fornext_finalvalue367=*__LONG_INCLEVEL- 1 ;
fornext_step367= 1 ;
if (fornext_step367<0) fornext_step_negative367=1; else fornext_step_negative367=0;
if (is_error_pending()) goto fornext_error367;
goto fornext_entrylabel367;
while(1){
fornext_value367=fornext_step367+(*__LONG_X);
fornext_entrylabel367:
*__LONG_X=fornext_value367;
if (fornext_step_negative367){
if (fornext_value367<fornext_finalvalue367) break;
}else{
if (fornext_value367>fornext_finalvalue367) break;
}
fornext_error367:;
if(qbevent){evnt(2984);if(r)goto S_3544;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2985);}while(r);
S_3546:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(2986);if(r)goto S_3546;}
S_3547:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(2987);if(r)goto S_3547;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2988);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2990);}while(r);
}
}
fornext_continue_366:;
}
fornext_exit_366:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2994);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2996);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(2997);}while(r);
S_3558:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2999);if(r)goto S_3558;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip368;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:Feeding INCLUDE$ line:[",32),__STRING_WHOLELINE),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip368;
skip368:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2999);}while(r);
}
S_3561:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3001);if(r)goto S_3561;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3001);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(3001);}while(r);
}
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(3002);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(3005);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(3006);}while(r);
LABEL_SKIPINC1:;
if(qbevent){evnt(3007);r=0;}
S_3569:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))&(((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 )))))||is_error_pending()){
if(qbevent){evnt(3008);if(r)goto S_3569;}
S_3570:;
if ((~(FUNC_ENDOFBUF(&(pass369=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(3009);if(r)goto S_3570;}
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(3009);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(3010);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(3011);}while(r);
}
dl_continue_364:;
}
dl_exit_364:;
S_3577:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3016);if(r)goto S_3577;}
do{
goto LABEL_IDERET2;
if(!qbevent)break;evnt(3016);}while(r);
}
S_3580:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(3017);if(r)goto S_3580;}
do{
goto dl_exit_231;
if(!qbevent)break;evnt(3017);}while(r);
}
dl_continue_231:;
}while(1);
dl_exit_231:;
S_3584:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(3021);if(r)goto S_3584;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(3022);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(3023);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3024);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(3025);}while(r);
}
S_3590:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(3028);if(r)goto S_3590;}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(3028);}while(r);
}
S_3593:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(3029);if(r)goto S_3593;}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(3029);}while(r);
}
do{
*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER;
if(!qbevent)break;evnt(3031);}while(r);
do{
*__LONG_LINEINPUT3INDEX= 1 ;
if(!qbevent)break;evnt(3035);}while(r);
LABEL_IDE3:;
if(qbevent){evnt(3038);r=0;}
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3040);}while(r);
do{
*__LONG_INCONEBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("incone.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3041);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(3044);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(3045);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(3046);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(3047);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(3048);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(3049);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(3050);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(3051);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(3052);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3053);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(3054);}while(r);
S_3611:;
fornext_value371= 0 ;
fornext_finalvalue371=*__LONG_CONSTLAST;
fornext_step371= 1 ;
if (fornext_step371<0) fornext_step_negative371=1; else fornext_step_negative371=0;
if (is_error_pending()) goto fornext_error371;
goto fornext_entrylabel371;
while(1){
fornext_value371=fornext_step371+(*__LONG_I);
fornext_entrylabel371:
*__LONG_I=fornext_value371;
if (fornext_step_negative371){
if (fornext_value371<fornext_finalvalue371) break;
}else{
if (fornext_value371>fornext_finalvalue371) break;
}
fornext_error371:;
if(qbevent){evnt(3056);if(r)goto S_3611;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(3056);}while(r);
fornext_continue_370:;
}
fornext_exit_370:;
S_3614:;
fornext_value373= 1 ;
fornext_finalvalue373= 27 ;
fornext_step373= 1 ;
if (fornext_step373<0) fornext_step_negative373=1; else fornext_step_negative373=0;
if (is_error_pending()) goto fornext_error373;
goto fornext_entrylabel373;
while(1){
fornext_value373=fornext_step373+(*__LONG_I);
fornext_entrylabel373:
*__LONG_I=fornext_value373;
if (fornext_step_negative373){
if (fornext_value373<fornext_finalvalue373) break;
}else{
if (fornext_value373>fornext_finalvalue373) break;
}
fornext_error373:;
if(qbevent){evnt(3058);if(r)goto S_3614;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3058);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3058);}while(r);
fornext_continue_372:;
}
fornext_exit_372:;
do{
if(!qbevent)break;evnt(3060);}while(r);
do{
*__LONG_DATABINBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3060);}while(r);
do{
if(!qbevent)break;evnt(3062);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3062);}while(r);
do{
if(!qbevent)break;evnt(3063);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3063);}while(r);
do{
if(!qbevent)break;evnt(3064);}while(r);
do{
*__LONG_VWATCHMAINDISPATCHBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_dispatch.txt",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3064);}while(r);
do{
if(!qbevent)break;evnt(3065);}while(r);
do{
*__LONG_VWATCHMAINSKIPBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("vw_main_skip.txt",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3065);}while(r);
do{
if(!qbevent)break;evnt(3067);}while(r);
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3067);}while(r);
do{
if(!qbevent)break;evnt(3069);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3069);}while(r);
do{
if(!qbevent)break;evnt(3070);}while(r);
do{
*__LONG_RUNTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("runline.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3070);}while(r);
do{
if(!qbevent)break;evnt(3072);}while(r);
do{
*__LONG_ERRTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainerr.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3072);}while(r);
do{
*__LONG_ERRORLABELS= 0 ;
if(!qbevent)break;evnt(3075);}while(r);
do{
SUB_WRITEBUFLINE(&(pass374=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (!error_handler_history) error_handler_history = qbs_new(0, 0);",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3076);}while(r);
do{
SUB_WRITEBUFLINE(&(pass375=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3077);}while(r);
do{
if(!qbevent)break;evnt(3079);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3079);}while(r);
do{
if(!qbevent)break;evnt(3080);}while(r);
do{
*__LONG_INPCHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3080);}while(r);
do{
if(!qbevent)break;evnt(3082);}while(r);
do{
*__LONG_TIMETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimer.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3082);}while(r);
do{
if(!qbevent)break;evnt(3083);}while(r);
do{
*__LONG_TIMEJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimerj.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3083);}while(r);
do{
if(!qbevent)break;evnt(3087);}while(r);
do{
*__LONG_KEYTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkey.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3087);}while(r);
do{
if(!qbevent)break;evnt(3088);}while(r);
do{
*__LONG_KEYJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkeyj.txt",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3088);}while(r);
do{
if(!qbevent)break;evnt(3090);}while(r);
do{
*__LONG_STRIGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrig.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3090);}while(r);
do{
if(!qbevent)break;evnt(3091);}while(r);
do{
*__LONG_STRIGJTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrigj.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3091);}while(r);
do{
*__LONG_GOSUBID= 1 ;
if(!qbevent)break;evnt(3093);}while(r);
do{
if(!qbevent)break;evnt(3101);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3101);}while(r);
do{
SUB_WRITEBUFLINE(&(pass376=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3102);}while(r);
do{
SUB_WRITEBUFLINE(&(pass377=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3103);}while(r);
do{
SUB_WRITEBUFLINE(&(pass378=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3104);}while(r);
do{
SUB_WRITEBUFLINE(&(pass379=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3105);}while(r);
do{
SUB_WRITEBUFLINE(&(pass380=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3107);}while(r);
do{
SUB_WRITEBUFLINE(&(pass381=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3109);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(3111);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(3112);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(3113);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(3114);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(3115);}while(r);
do{
*__LONG_REALLINENUMBER= 0 ;
if(!qbevent)break;evnt(3116);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(3117);}while(r);
do{
SUB_WRITEBUFLINE(&(pass382=*__LONG_MAINTXTBUF),qbs_new_txt_len("S_0:;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3119);}while(r);
S_3672:;
if ((*__LONG_USEGL)||is_error_pending()){
if(qbevent){evnt(3121);if(r)goto S_3672;}
do{
SUB_GL_INCLUDE_CONTENT();
if(!qbevent)break;evnt(3121);}while(r);
}
S_3675:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3125);if(r)goto S_3675;}
do{
goto LABEL_IDERET3;
if(!qbevent)break;evnt(3125);}while(r);
}
S_3678:;
do{
if(qbevent){evnt(3127);if(r)goto S_3678;}
LABEL_COMPILELINE:;
if(qbevent){evnt(3128);r=0;}
do{
*__LONG_PREPASS= 0 ;
if(!qbevent)break;evnt(3129);}while(r);
S_3680:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(3130);if(r)goto S_3680;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(3130);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(3132);}while(r);
S_3684:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(3134);if(r)goto S_3684;}
do{
*__LONG_START=*__LONG_CONTINUELINEFROM;
if(!qbevent)break;evnt(3135);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(3136);}while(r);
do{
goto LABEL_CONTLINE;
if(!qbevent)break;evnt(3137);}while(r);
}
do{
*__LONG_IMPLIEDENDIF= 0 ;
if(!qbevent)break;evnt(3142);}while(r);
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(3143);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(3144);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(3145);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(3146);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3147);}while(r);
do{
qbs_set(__STRING_LAYOUTCONTINUATIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3148);}while(r);
S_3696:;
if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||is_error_pending()){
if(qbevent){evnt(3151);if(r)goto S_3696;}
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(3151);}while(r);
do{
*__INTEGER_DYNAMICMODE= 1 ;
if(!qbevent)break;evnt(3151);}while(r);
}
S_3700:;
if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(3152);if(r)goto S_3700;}
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(3152);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(3152);}while(r);
}
S_3704:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(3155);if(r)goto S_3704;}
do{
qbs_set(__STRING_A3,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3156);}while(r);
S_3706:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(3157);if(r)goto S_3706;}
do{
goto dl_exit_383;
if(!qbevent)break;evnt(3157);}while(r);
}
}
S_3710:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(3159);if(r)goto S_3710;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(3159);}while(r);
}
S_3713:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(3161);if(r)goto S_3713;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3162);}while(r);
do{
return_point[next_return_point++]=6;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SETPRECOMPFLAGS;
RETURN_6:;
if(!qbevent)break;evnt(3163);}while(r);
do{
return_point[next_return_point++]=7;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDEMANAGER;
RETURN_7:;
if(!qbevent)break;evnt(3164);}while(r);
do{
qbs_set(__STRING_A3,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3165);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3166);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_DEFAUTOINDENT;
if(!qbevent)break;evnt(3168);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_DEFAUTOLAYOUT;
if(!qbevent)break;evnt(3168);}while(r);
}
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(3171);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(3172);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3173);}while(r);
do{
*__LONG_LAYOUTOK= 1 ;
if(!qbevent)break;evnt(3174);}while(r);
S_3726:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(3176);if(r)goto S_3726;}
do{
*__LONG_MAXPROGRESSWIDTH= 50 ;
if(!qbevent)break;evnt(3177);}while(r);
do{
*__LONG_PERCENTAGE=qbr(std::floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 ));
if(!qbevent)break;evnt(3178);}while(r);
do{
*__LONG_PERCENTAGECHARS=qbr(std::floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))));
if(!qbevent)break;evnt(3179);}while(r);
S_3730:;
if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||is_error_pending()){
if(qbevent){evnt(3180);if(r)goto S_3730;}
do{
*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE;
if(!qbevent)break;evnt(3181);}while(r);
do{
*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS;
if(!qbevent)break;evnt(3182);}while(r);
S_3733:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(3183);if(r)goto S_3733;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_PERCENTAGECHARS,(qbs_new_txt_len(".",1)->chr[0]))),func_space(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS)),qbs_new_txt_len("]",1)),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1)));
if (is_error_pending()) goto skip384;
makefit(tqbs);
qbs_print(tqbs,0);
skip384:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3184);}while(r);
S_3735:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(3185);if(r)goto S_3735;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2)));
if (is_error_pending()) goto skip385;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip385:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3186);}while(r);
}else{
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,func_chr( 13 ));
if (is_error_pending()) goto skip386;
makefit(tqbs);
qbs_print(tqbs,0);
skip386:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3188);}while(r);
}
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(3191);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_add(func_string(*__LONG_PERCENTAGECHARS, 219 ),func_string(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1)));
if (is_error_pending()) goto skip387;
makefit(tqbs);
qbs_print(tqbs,0);
skip387:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3192);}while(r);
}
}
}
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3197);}while(r);
do{
qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3198);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3199);}while(r);
S_3749:;
if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||is_error_pending()){
if(qbevent){evnt(3201);if(r)goto S_3749;}
S_3750:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3202);if(r)goto S_3750;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(3202);}while(r);
}else{
do{
goto LABEL_SKIP_INVALIDATED_LINE;
if(!qbevent)break;evnt(3202);}while(r);
}
}
do{
qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3205);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(3206);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3208);}while(r);
S_3759:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3209);if(r)goto S_3759;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3209);}while(r);
}
S_3762:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3210);if(r)goto S_3762;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip389;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("########",8),__STRING_A3),qbs_new_txt_len("########",8)), 0, 0, 1);
if (is_error_pending()) goto skip389;
skip389:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3210);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3212);}while(r);
do{
qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3214);}while(r);
S_3767:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||is_error_pending()){
if(qbevent){evnt(3217);if(r)goto S_3767;}
S_3768:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A3U,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_A3U,qbs_new_txt_len("$ENDIF",6)))))||is_error_pending()){
if(qbevent){evnt(3220);if(r)goto S_3768;}
S_3769:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3221);if(r)goto S_3769;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3221);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3221);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(3222);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(3223);}while(r);
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$End If",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3224);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(3225);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3226);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3227);}while(r);
}
S_3780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||is_error_pending()){
if(qbevent){evnt(3230);if(r)goto S_3780;}
S_3781:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3232);if(r)goto S_3781;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3233);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3233);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 4 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3236);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3237);}while(r);
do{
*__LONG_TEMP= 0 ;
if(!qbevent)break;evnt(3238);}while(r);
S_3788:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3239);if(r)goto S_3788;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3239);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3239);}while(r);
}
S_3792:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3240);if(r)goto S_3792;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3240);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3240);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3240);}while(r);
}
S_3797:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3241);if(r)goto S_3797;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3241);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3241);}while(r);
}
S_3801:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3242);if(r)goto S_3801;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3242);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3242);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3242);}while(r);
}
S_3806:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3243);if(r)goto S_3806;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3243);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3243);}while(r);
}
S_3810:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3244);if(r)goto S_3810;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3244);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3244);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3244);}while(r);
}
S_3815:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3245);if(r)goto S_3815;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3245);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3245);}while(r);
}
S_3819:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3246);if(r)goto S_3819;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3246);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3246);}while(r);
}
S_3823:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3247);if(r)goto S_3823;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3247);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3247);}while(r);
}
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(3249);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3250);}while(r);
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(3251);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3252);}while(r);
S_3831:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3253);if(r)goto S_3831;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3253);}while(r);
}
S_3834:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3254);if(r)goto S_3834;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3255);}while(r);
S_3836:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3256);if(r)goto S_3836;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(3256);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(3259);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ;
if(!qbevent)break;evnt(3260);}while(r);
S_3842:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3261);if(r)goto S_3842;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3261);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3261);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3262);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+__STRING_TEMPOP->len,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3262);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_L),qbs_new_txt_len(" ",1)),__STRING_TEMPOP),qbs_new_txt_len(" ",1)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3263);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3264);}while(r);
}
S_3851:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(3267);if(r)goto S_3851;}
S_3852:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3268);if(r)goto S_3852;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3268);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3268);}while(r);
}
S_3856:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(3269);if(r)goto S_3856;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3269);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3269);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ;
if(!qbevent)break;evnt(3270);}while(r);
S_3861:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(3271);if(r)goto S_3861;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3272);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3274);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Else",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3276);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3277);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3278);}while(r);
}
S_3870:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(3281);if(r)goto S_3870;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3282);}while(r);
S_3872:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||is_error_pending()){
if(qbevent){evnt(3283);if(r)goto S_3872;}
S_3873:;
if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3284);if(r)goto S_3873;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3284);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3284);}while(r);
}
S_3877:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||is_error_pending()){
if(qbevent){evnt(3285);if(r)goto S_3877;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3285);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3285);}while(r);
}
S_3881:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||is_error_pending()){
if(qbevent){evnt(3286);if(r)goto S_3881;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3286);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3286);}while(r);
}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3287);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3288);}while(r);
S_3887:;
if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||is_error_pending()){
if(qbevent){evnt(3289);if(r)goto S_3887;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(3290);}while(r);
}else{
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3292);}while(r);
S_3891:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3293);if(r)goto S_3891;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3293);}while(r);
}
S_3894:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3294);if(r)goto S_3894;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])];
if(!qbevent)break;evnt(3295);}while(r);
S_3896:;
if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(3296);if(r)goto S_3896;}
do{
tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ;
if(!qbevent)break;evnt(3296);}while(r);
}
}
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3301);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3302);}while(r);
S_3903:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3303);if(r)goto S_3903;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3303);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3303);}while(r);
}
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3304);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3304);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3305);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3306);}while(r);
}
}
S_3913:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3310);if(r)goto S_3913;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3311);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3312);}while(r);
}
S_3917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||is_error_pending()){
if(qbevent){evnt(3315);if(r)goto S_3917;}
do{
qbs_set(__STRING_TEMP,__STRING_A3U);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3316);}while(r);
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3317);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3319);}while(r);
do{
qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3320);}while(r);
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3320);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$Let ",5)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3321);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3322);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3323);}while(r);
}
S_3927:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(3326);if(r)goto S_3927;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3327);}while(r);
S_3929:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(3328);if(r)goto S_3929;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:32 already set, cannot use both color sets together",58));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3328);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3328);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3329);}while(r);
}
S_3935:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(3331);if(r)goto S_3935;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3332);}while(r);
S_3937:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 1 ))||is_error_pending()){
if(qbevent){evnt(3333);if(r)goto S_3937;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$COLOR:0 already set, cannot use both color sets together",57));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3333);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3333);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3334);}while(r);
}
S_3943:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$INCLUDEONCE",12))))||is_error_pending()){
if(qbevent){evnt(3337);if(r)goto S_3943;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$IncludeOnce",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3339);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3340);}while(r);
}
S_3947:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(3343);if(r)goto S_3947;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3344);}while(r);
S_3949:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3345);if(r)goto S_3949;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$DEBUG features only work from the IDE",38),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3346);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3348);}while(r);
}
S_3954:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||is_error_pending()){
if(qbevent){evnt(3351);if(r)goto S_3954;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3352);}while(r);
do{
*__LONG_CHECKINGON= 0 ;
if(!qbevent)break;evnt(3353);}while(r);
S_3957:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(~(*__BYTE_NOIDEMODE))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(3354);if(r)goto S_3957;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$DEBUG features won't work in these blocks",42),qbs_new_txt_len("$CHECKING:OFF",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3355);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3357);}while(r);
}
S_3962:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||is_error_pending()){
if(qbevent){evnt(3359);if(r)goto S_3962;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3360);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(3361);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3362);}while(r);
}
S_3967:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(3365);if(r)goto S_3967;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3367);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3368);}while(r);
}
S_3971:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(3370);if(r)goto S_3971;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3371);}while(r);
do{
SUB_SETDEPENDENCY(&(pass393= 5ll ));
if(!qbevent)break;evnt(3372);}while(r);
S_3974:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3373);if(r)goto S_3974;}
do{
SUB_WRITEBUFLINE(&(pass394=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3373);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass395=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__dest(func__console());",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3374);}while(r);
do{
SUB_WRITEBUFLINE(&(pass396=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__source(func__console());",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3375);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3376);}while(r);
}
S_3981:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(3379);if(r)goto S_3981;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3381);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3382);}while(r);
}
S_3985:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(3384);if(r)goto S_3985;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3386);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3387);}while(r);
}
S_3989:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||is_error_pending()){
if(qbevent){evnt(3390);if(r)goto S_3989;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3391);}while(r);
do{
*__LONG_SCREENHIDEON= 1 ;
if(!qbevent)break;evnt(3392);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3393);}while(r);
}
S_3994:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||is_error_pending()){
if(qbevent){evnt(3395);if(r)goto S_3994;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3396);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(3397);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3398);}while(r);
}
S_3999:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||is_error_pending()){
if(qbevent){evnt(3401);if(r)goto S_3999;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3402);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(3403);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3403);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3404);}while(r);
}
S_4005:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||is_error_pending()){
if(qbevent){evnt(3406);if(r)goto S_4005;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3407);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3408);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3408);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3409);}while(r);
}
S_4011:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||is_error_pending()){
if(qbevent){evnt(3411);if(r)goto S_4011;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3412);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3413);}while(r);
do{
*__LONG_RESIZESCALE= 1 ;
if(!qbevent)break;evnt(3413);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3414);}while(r);
}
S_4017:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||is_error_pending()){
if(qbevent){evnt(3416);if(r)goto S_4017;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3417);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3418);}while(r);
do{
*__LONG_RESIZESCALE= 2 ;
if(!qbevent)break;evnt(3418);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3419);}while(r);
}
S_4023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||is_error_pending()){
if(qbevent){evnt(3422);if(r)goto S_4023;}
do{
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3424);}while(r);
do{
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("=",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3425);}while(r);
S_4026:;
if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||is_error_pending()){
if(qbevent){evnt(3426);if(r)goto S_4026;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3427);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3427);}while(r);
}
do{
qbs_set(__STRING_VERSIONINFOKEY,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3430);}while(r);
do{
qbs_set(__STRING_VERSIONINFOVALUE,FUNC_STRREPLACE(qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0))),func_chr( 34 ),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3431);}while(r);
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(3432);}while(r);
S_4033:;
if(qbevent){evnt(3434);if(r)goto S_4033;}
S_4034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||is_error_pending()){
if(qbevent){evnt(3435);if(r)goto S_4034;}
do{
return_point[next_return_point++]=8;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VALIDATEVERSION;
RETURN_8:;
if(!qbevent)break;evnt(3436);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3437);}while(r);
S_4037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3438);if(r)goto S_4037;}
do{
qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3438);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:FILEVERSION#=",26)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3439);}while(r);
sc_ec_6_end:;
goto sc_397_end;
}
S_4041:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||is_error_pending()){
if(qbevent){evnt(3440);if(r)goto S_4041;}
do{
return_point[next_return_point++]=9;
if (next_return_point>=return_points) more_return_points();
goto LABEL_VALIDATEVERSION;
RETURN_9:;
if(!qbevent)break;evnt(3441);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3442);}while(r);
S_4044:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3443);if(r)goto S_4044;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3443);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:PRODUCTVERSION#=",29)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3444);}while(r);
sc_ec_7_end:;
goto sc_397_end;
}
S_4048:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||is_error_pending()){
if(qbevent){evnt(3445);if(r)goto S_4048;}
do{
qbs_set(__STRING_VICOMPANYNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3446);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("CompanyName=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3447);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3448);}while(r);
sc_ec_8_end:;
goto sc_397_end;
}
S_4052:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||is_error_pending()){
if(qbevent){evnt(3449);if(r)goto S_4052;}
do{
qbs_set(__STRING_VIFILEDESCRIPTION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3450);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileDescription=",16)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3451);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3452);}while(r);
sc_ec_9_end:;
goto sc_397_end;
}
S_4056:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||is_error_pending()){
if(qbevent){evnt(3453);if(r)goto S_4056;}
do{
qbs_set(__STRING_VIFILEVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3454);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileVersion=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3455);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3456);}while(r);
sc_ec_10_end:;
goto sc_397_end;
}
S_4060:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||is_error_pending()){
if(qbevent){evnt(3457);if(r)goto S_4060;}
do{
qbs_set(__STRING_VIINTERNALNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3458);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("InternalName=",13)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3459);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3460);}while(r);
sc_ec_11_end:;
goto sc_397_end;
}
S_4064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||is_error_pending()){
if(qbevent){evnt(3461);if(r)goto S_4064;}
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3462);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalCopyright=",15)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3463);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3464);}while(r);
sc_ec_12_end:;
goto sc_397_end;
}
S_4068:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||is_error_pending()){
if(qbevent){evnt(3465);if(r)goto S_4068;}
do{
qbs_set(__STRING_VILEGALTRADEMARKS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3466);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalTrademarks=",16)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3467);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3468);}while(r);
sc_ec_13_end:;
goto sc_397_end;
}
S_4072:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||is_error_pending()){
if(qbevent){evnt(3469);if(r)goto S_4072;}
do{
qbs_set(__STRING_VIORIGINALFILENAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3470);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("OriginalFilename=",17)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3471);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3472);}while(r);
sc_ec_14_end:;
goto sc_397_end;
}
S_4076:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||is_error_pending()){
if(qbevent){evnt(3473);if(r)goto S_4076;}
do{
qbs_set(__STRING_VIPRODUCTNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3474);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductName=",12)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3475);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3476);}while(r);
sc_ec_15_end:;
goto sc_397_end;
}
S_4080:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||is_error_pending()){
if(qbevent){evnt(3477);if(r)goto S_4080;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3478);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductVersion=",15)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3479);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3480);}while(r);
sc_ec_16_end:;
goto sc_397_end;
}
S_4084:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||is_error_pending()){
if(qbevent){evnt(3481);if(r)goto S_4084;}
do{
qbs_set(__STRING_VICOMMENTS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3482);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Comments=",9)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3483);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3484);}while(r);
sc_ec_17_end:;
goto sc_397_end;
}
S_4088:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||is_error_pending()){
if(qbevent){evnt(3485);if(r)goto S_4088;}
do{
qbs_set(__STRING_VIWEB,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3486);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Web=",4)),__STRING_VERSIONINFOVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3487);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3488);}while(r);
sc_ec_18_end:;
goto sc_397_end;
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid key. (Use FILEVERSION#, PRODUCTVERSION#, CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, ProductVersion, Comments or Web)",202));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3490);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3491);}while(r);
sc_397_end:;
S_4096:;
if ((*__LONG_ISSUEWARNING&(~(*__BYTE_IGNOREWARNINGS)))||is_error_pending()){
if(qbevent){evnt(3495);if(r)goto S_4096;}
S_4097:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_HASSTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)))))||is_error_pending()){
if(qbevent){evnt(3496);if(r)goto S_4097;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_add(qbs_add(qbs_new_txt_len("Missing string bracket delimiters (",35),qbs_new_txt_len("''",2)),qbs_new_txt_len(")",1)),__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3497);}while(r);
}
}
do{
*__BYTE_VERSIONINFOSET= -1ll ;
if(!qbevent)break;evnt(3501);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3503);}while(r);
LABEL_VALIDATEVERSION:;
if(qbevent){evnt(3505);r=0;}
S_4103:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3507);if(r)goto S_4103;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3507);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3507);}while(r);
}
do{
*__LONG_VICOMMAS= 0 ;
if(!qbevent)break;evnt(3508);}while(r);
S_4108:;
fornext_value400= 1 ;
fornext_finalvalue400=__STRING_VERSIONINFOVALUE->len;
fornext_step400= 1 ;
if (fornext_step400<0) fornext_step_negative400=1; else fornext_step_negative400=0;
if (is_error_pending()) goto fornext_error400;
goto fornext_entrylabel400;
while(1){
fornext_value400=fornext_step400+(*__LONG_I);
fornext_entrylabel400:
*__LONG_I=fornext_value400;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative400){
if (fornext_value400<fornext_finalvalue400) break;
}else{
if (fornext_value400>fornext_finalvalue400) break;
}
fornext_error400:;
if(qbevent){evnt(3509);if(r)goto S_4108;}
S_4109:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||is_error_pending()){
if(qbevent){evnt(3510);if(r)goto S_4109;}
do{
*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ;
if(!qbevent)break;evnt(3510);}while(r);
}
S_4112:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,qbs_new_txt_len("0123456789,",11),func_mid(__STRING_VERSIONINFOVALUE,*__LONG_I, 1 ,0|1),0)== 0 ))|(((-(*__LONG_I==__STRING_VERSIONINFOVALUE->len))&(-(*__LONG_VICOMMAS!= 3 ))))|(qbs_equal(qbs_right(__STRING_VERSIONINFOVALUE, 1 ),qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(3511);if(r)goto S_4112;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3512);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3512);}while(r);
}
fornext_continue_399:;
}
fornext_exit_399:;
do{
#include "ret0.txt"
if(!qbevent)break;evnt(3515);}while(r);
}
S_4119:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 6 ),qbs_new_txt_len("$EMBED",6))))||is_error_pending()){
if(qbevent){evnt(3518);if(r)goto S_4119;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EMBED:'filename','handle'",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3519);}while(r);
do{
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3521);}while(r);
S_4122:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3521);if(r)goto S_4122;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3521);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3522);}while(r);
S_4126:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3522);if(r)goto S_4126;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3522);}while(r);
}
do{
qbs_set(__STRING_EMBEDFILE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3523);}while(r);
S_4130:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3524);if(r)goto S_4130;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3524);}while(r);
}
do{
*__LONG_BRA=func_instr(*__LONG_KET+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3526);}while(r);
S_4134:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3526);if(r)goto S_4134;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3526);}while(r);
}
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3527);}while(r);
S_4138:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3527);if(r)goto S_4138;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3527);}while(r);
}
do{
qbs_set(__STRING_EMBEDHANDLE,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3528);}while(r);
S_4142:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3529);if(r)goto S_4142;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3529);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$Embed:'",8)),__STRING_EMBEDFILE),qbs_new_txt_len("','",3)),__STRING_EMBEDHANDLE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_KET+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3531);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3533);}while(r);
S_4147:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_EMBEDFILE, 2 ),qbs_new_txt_len("./",2)))|(qbs_equal(qbs_left(__STRING_EMBEDFILE, 2 ),qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(3534);if(r)goto S_4147;}
S_4148:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3535);if(r)goto S_4148;}
do{
qbs_set(__STRING_EMBEDPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3536);}while(r);
S_4150:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_EMBEDPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_EMBEDPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
if(qbevent){evnt(3537);if(r)goto S_4150;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3537);}while(r);
}
}else{
S_4154:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3539);if(r)goto S_4154;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3539);}while(r);
}
}
do{
qbs_set(__STRING_EMBEDFILE,qbs_add(__STRING_EMBEDPATH,func_mid(__STRING_EMBEDFILE, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3541);}while(r);
S_4159:;
}else{
if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EMBEDFILE,qbs_new_txt_len("/",1),0)|func_instr(NULL,__STRING_EMBEDFILE,qbs_new_txt_len("\\",1),0))){
if(qbevent){evnt(3542);if(r)goto S_4159;}
S_4160:;
fornext_value408=__STRING_EMBEDFILE->len;
fornext_finalvalue408= 1 ;
fornext_step408= -1 ;
if (fornext_step408<0) fornext_step_negative408=1; else fornext_step_negative408=0;
if (is_error_pending()) goto fornext_error408;
goto fornext_entrylabel408;
while(1){
fornext_value408=fornext_step408+(*__LONG_I);
fornext_entrylabel408:
*__LONG_I=fornext_value408;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative408){
if (fornext_value408<fornext_finalvalue408) break;
}else{
if (fornext_value408>fornext_finalvalue408) break;
}
fornext_error408:;
if(qbevent){evnt(3543);if(r)goto S_4160;}
S_4161:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EMBEDFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EMBEDFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(3544);if(r)goto S_4161;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_left(__STRING_EMBEDFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3545);}while(r);
do{
qbs_set(__STRING_EMBEDFILEONLY,func_mid(__STRING_EMBEDFILE,*__LONG_I+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3546);}while(r);
S_4164:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_EMBEDPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3547);if(r)goto S_4164;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILEONLY),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3547);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3547);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3548);}while(r);
do{
sub_chdir(__STRING_EMBEDPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3549);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3550);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3551);}while(r);
do{
qbs_set(__STRING_EMBEDFILE,qbs_add(qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP),__STRING_EMBEDFILEONLY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3552);}while(r);
do{
goto fornext_exit_407;
if(!qbevent)break;evnt(3553);}while(r);
}
fornext_continue_407:;
}
fornext_exit_407:;
}
}
S_4177:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EMBEDFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3557);if(r)goto S_4177;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILE),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3557);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3557);}while(r);
}
S_4181:;
sc_410=qbs_asc(__STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3559);if(r)goto S_4181;}
S_4182:;
if ((((sc_410>=( 0 ))&&(sc_410<=( 64 )))||((sc_410>=( 91 ))&&(sc_410<=( 96 )))||((sc_410>=( 123 ))&&(sc_410<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3560);if(r)goto S_4182;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("First char of Embed-Handle '",28),__STRING_EMBEDHANDLE),qbs_new_txt_len("' must be a letter",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3561);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3561);}while(r);
sc_ec_19_end:;
goto sc_410_end;
}
sc_410_end:;
S_4186:;
fornext_value412= 2 ;
fornext_finalvalue412=__STRING_EMBEDHANDLE->len;
fornext_step412= 1 ;
if (fornext_step412<0) fornext_step_negative412=1; else fornext_step_negative412=0;
if (is_error_pending()) goto fornext_error412;
goto fornext_entrylabel412;
while(1){
fornext_value412=fornext_step412+(*__LONG_I);
fornext_entrylabel412:
*__LONG_I=fornext_value412;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative412){
if (fornext_value412<fornext_finalvalue412) break;
}else{
if (fornext_value412>fornext_finalvalue412) break;
}
fornext_error412:;
if(qbevent){evnt(3563);if(r)goto S_4186;}
S_4187:;
sc_414=qbs_asc(__STRING_EMBEDHANDLE,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3564);if(r)goto S_4187;}
S_4188:;
if ((((sc_414>=( 0 ))&&(sc_414<=( 47 )))||((sc_414>=( 58 ))&&(sc_414<=( 64 )))||((sc_414>=( 91 ))&&(sc_414<=( 96 )))||((sc_414>=( 123 ))&&(sc_414<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3565);if(r)goto S_4188;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),__STRING_EMBEDHANDLE),qbs_new_txt_len("' has invalid chars, use Aa-Zz/0-9 only",39)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3566);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3566);}while(r);
sc_ec_20_end:;
goto sc_414_end;
}
sc_414_end:;
fornext_continue_411:;
}
fornext_exit_411:;
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3570);}while(r);
S_4194:;
fornext_value416= 0 ;
fornext_finalvalue416=*__LONG_EFLUB;
fornext_step416= 1 ;
if (fornext_step416<0) fornext_step_negative416=1; else fornext_step_negative416=0;
if (is_error_pending()) goto fornext_error416;
goto fornext_entrylabel416;
while(1){
fornext_value416=fornext_step416+(*__LONG_I);
fornext_entrylabel416:
*__LONG_I=fornext_value416;
if (fornext_step_negative416){
if (fornext_value416<fornext_finalvalue416) break;
}else{
if (fornext_value416>fornext_finalvalue416) break;
}
fornext_error416:;
if(qbevent){evnt(3571);if(r)goto S_4194;}
S_4195:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),__STRING_EMBEDFILE)))||is_error_pending()){
if(qbevent){evnt(3572);if(r)goto S_4195;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EMBEDFILE),qbs_new_txt_len("' was already embedded in line",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3573);}while(r);
S_4197:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),__STRING_EMBEDHANDLE))){
if(qbevent){evnt(3574);if(r)goto S_4197;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),__STRING_EMBEDHANDLE),qbs_new_txt_len("' is already used in line",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3575);}while(r);
}else{
do{
goto fornext_continue_415;
if(!qbevent)break;evnt(3577);}while(r);
}
}
do{
qbs_set(__STRING_A,qbs_add(__STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 0ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3579);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3579);}while(r);
fornext_continue_415:;
}
fornext_exit_415:;
S_4205:;
fornext_value418= 0 ;
fornext_finalvalue418=*__LONG_EFLUB;
fornext_step418= 1 ;
if (fornext_step418<0) fornext_step_negative418=1; else fornext_step_negative418=0;
if (is_error_pending()) goto fornext_error418;
goto fornext_entrylabel418;
while(1){
fornext_value418=fornext_step418+(*__LONG_I);
fornext_entrylabel418:
*__LONG_I=fornext_value418;
if (fornext_step_negative418){
if (fornext_value418<fornext_finalvalue418) break;
}else{
if (fornext_value418>fornext_finalvalue418) break;
}
fornext_error418:;
if(qbevent){evnt(3582);if(r)goto S_4205;}
S_4206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3583);if(r)goto S_4206;}
do{
goto fornext_exit_417;
if(!qbevent)break;evnt(3583);}while(r);
}
fornext_continue_417:;
}
fornext_exit_417:;
S_4210:;
if ((-(*__LONG_I>*__LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(3585);if(r)goto S_4210;}
do{
if (__ARRAY_STRING_EMBEDFILELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[12];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_EMBEDFILELIST)[12])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_EMBEDFILELIST[2]&1){
preserve_old_ptr=__ARRAY_STRING_EMBEDFILELIST[0];
preserve_old_flags=__ARRAY_STRING_EMBEDFILELIST[2];
preserve_old_total=__ARRAY_STRING_EMBEDFILELIST[5]*__ARRAY_STRING_EMBEDFILELIST[9];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[8]= 0 ;
alloc_new_desc[9]=( 3 )-alloc_new_desc[8]+1;
if (alloc_new_desc[9]<=0) error(5);
alloc_new_desc[10]=1;
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_EFLUB+ 10 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=alloc_new_desc[10]*alloc_new_desc[9];
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (((int64)((ptrszint)alloc_new_desc[8]))!=alloc_new_desc[8]) error(257);
if (alloc_new_desc[9]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[9]))!=alloc_new_desc[9]) error(257);
if (alloc_new_desc[10]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[10]))!=alloc_new_desc[10]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[9];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_EMBEDFILELIST[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_EMBEDFILELIST[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_EMBEDFILELIST[0]) error(257);
__ARRAY_STRING_EMBEDFILELIST[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_EMBEDFILELIST[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_EMBEDFILELIST[4]=alloc_new_desc[4];
__ARRAY_STRING_EMBEDFILELIST[5]=alloc_new_desc[5];
__ARRAY_STRING_EMBEDFILELIST[6]=alloc_new_desc[6];
__ARRAY_STRING_EMBEDFILELIST[7]=alloc_new_desc[7];
__ARRAY_STRING_EMBEDFILELIST[8]=alloc_new_desc[8];
__ARRAY_STRING_EMBEDFILELIST[9]=alloc_new_desc[9];
__ARRAY_STRING_EMBEDFILELIST[10]=alloc_new_desc[10];
__ARRAY_STRING_EMBEDFILELIST[11]=alloc_new_desc[11];
}
if(!qbevent)break;evnt(3586);}while(r);
do{
*__LONG_I=*__LONG_EFLUB+ 1 ;
if(!qbevent)break;evnt(3587);}while(r);
}
do{
tmp_long=array_check(( 0ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),qbs_str((int32)(*__LONG_LINENUMBER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3589);}while(r);
do{
tmp_long=array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),qbs_new_txt_len("no",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3590);}while(r);
do{
tmp_long=array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),__STRING_EMBEDFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3591);}while(r);
do{
tmp_long=array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),__STRING_EMBEDHANDLE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3592);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3593);}while(r);
}
S_4220:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 11 ),qbs_new_txt_len("$USELIBRARY",11))))||is_error_pending()){
if(qbevent){evnt(3596);if(r)goto S_4220;}
do{
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3598);}while(r);
do{
*__LONG_KET=func_instr(*__LONG_BRA+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3598);}while(r);
do{
qbs_set(__STRING_USELIB,qbs__trim(func_mid(__STRING_A3,*__LONG_BRA+ 1 ,*__LONG_KET-*__LONG_BRA- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3599);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$UseLibrary:'",13)),__STRING_USELIB),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_KET+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3600);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3601);}while(r);
}
S_4227:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||is_error_pending()){
if(qbevent){evnt(3604);if(r)goto S_4227;}
S_4228:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(3606);if(r)goto S_4228;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("$EXEICON already defined in line",32),qbs_str((int32)(*__LONG_EXEICONSET))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3606);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3606);}while(r);
}
do{
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3607);}while(r);
S_4233:;
if ((-(*__LONG_FIRSTDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3608);if(r)goto S_4233;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3609);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3609);}while(r);
}else{
do{
*__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3611);}while(r);
S_4238:;
if ((-(*__LONG_SECONDDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3612);if(r)goto S_4238;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3612);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3612);}while(r);
}
}
do{
qbs_set(__STRING_EXEICONFILE,qbs_rtrim(qbs_ltrim(func_mid(__STRING_A3,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,0|1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3614);}while(r);
S_4244:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3615);if(r)goto S_4244;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3615);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3615);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ExeIcon:'",10)),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3616);}while(r);
do{
qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3618);}while(r);
S_4250:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len("./",2)))|(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(3619);if(r)goto S_4250;}
S_4251:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3621);if(r)goto S_4251;}
do{
qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3622);}while(r);
S_4253:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||is_error_pending()){
if(qbevent){evnt(3623);if(r)goto S_4253;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3623);}while(r);
}
}else{
S_4257:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3625);if(r)goto S_4257;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3625);}while(r);
}
}
do{
qbs_set(__STRING_EXEICONFILE,qbs_add(__STRING_ICONPATH,func_mid(__STRING_EXEICONFILE, 3 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3628);}while(r);
S_4262:;
}else{
if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("/",1),0)|func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("\\",1),0))){
if(qbevent){evnt(3629);if(r)goto S_4262;}
S_4263:;
fornext_value423=__STRING_EXEICONFILE->len;
fornext_finalvalue423= 1 ;
fornext_step423= -1 ;
if (fornext_step423<0) fornext_step_negative423=1; else fornext_step_negative423=0;
if (is_error_pending()) goto fornext_error423;
goto fornext_entrylabel423;
while(1){
fornext_value423=fornext_step423+(*__LONG_I);
fornext_entrylabel423:
*__LONG_I=fornext_value423;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative423){
if (fornext_value423<fornext_finalvalue423) break;
}else{
if (fornext_value423>fornext_finalvalue423) break;
}
fornext_error423:;
if(qbevent){evnt(3630);if(r)goto S_4263;}
S_4264:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,0|1),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(3631);if(r)goto S_4264;}
do{
qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3632);}while(r);
do{
qbs_set(__STRING_EXEICONFILEONLY,func_mid(__STRING_EXEICONFILE,*__LONG_I+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3633);}while(r);
S_4267:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3635);if(r)goto S_4267;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILEONLY),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3635);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3635);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3637);}while(r);
do{
sub_chdir(__STRING_ICONPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3638);}while(r);
do{
qbs_set(__STRING_ICONPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3639);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3640);}while(r);
do{
qbs_set(__STRING_EXEICONFILE,qbs_add(qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP),__STRING_EXEICONFILEONLY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3642);}while(r);
do{
goto fornext_exit_422;
if(!qbevent)break;evnt(3643);}while(r);
}
fornext_continue_422:;
}
fornext_exit_422:;
}
}
S_4280:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3648);if(r)goto S_4280;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILE),qbs_new_txt_len("' not found",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3648);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3648);}while(r);
}
do{
*__LONG_EXEICONSET=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3650);}while(r);
do{
SUB_SETDEPENDENCY(&(pass425= 8ll ));
if(!qbevent)break;evnt(3651);}while(r);
do{
SUB_WRITEBUFLINE(&(pass426=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("ICON: ",6),func__fullpath(__STRING_EXEICONFILE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3652);}while(r);
S_4287:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3653);if(r)goto S_4287;}
do{
SUB_WRITEBUFLINE(&(pass427=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3653);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass428=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__icon(NULL,NULL,0);",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3654);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3655);}while(r);
}
S_4293:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||is_error_pending()){
if(qbevent){evnt(3658);if(r)goto S_4293;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3659);}while(r);
do{
qbs_set(__STRING_TOKEN,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U, 11 ,NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3661);}while(r);
S_4296:;
if(qbevent){evnt(3663);if(r)goto S_4296;}
S_4297:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(3664);if(r)goto S_4297;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Midi",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3665);}while(r);
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("No longer required, feature is stable now",41),qbs_new_txt_len("$UNSTABLE:MIDI",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3666);}while(r);
sc_ec_21_end:;
goto sc_429_end;
}
S_4300:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(3668);if(r)goto S_4300;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Http",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3669);}while(r);
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("No longer required, feature is stable now",41),qbs_new_txt_len("$UNSTABLE:HTTP",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3670);}while(r);
sc_ec_22_end:;
goto sc_429_end;
}
sc_429_end:;
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3673);}while(r);
}
}
S_4307:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3678);if(r)goto S_4307;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3679);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3680);}while(r);
}
do{
*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET;
if(!qbevent)break;evnt(3684);}while(r);
do{
qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3686);}while(r);
S_4313:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3686);if(r)goto S_4313;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3686);}while(r);
}
S_4316:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3687);if(r)goto S_4316;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3687);}while(r);
}
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3688);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3690);}while(r);
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(3694);}while(r);
do{
*__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3695);}while(r);
S_4323:;
while((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(3696);if(r)goto S_4323;}
do{
*__LONG_SKIP= 0 ;
if(!qbevent)break;evnt(3697);}while(r);
S_4325:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(3698);if(r)goto S_4325;}
S_4326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(3699);if(r)goto S_4326;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3699);}while(r);
}
}
S_4330:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||is_error_pending()){
if(qbevent){evnt(3701);if(r)goto S_4330;}
S_4331:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(3702);if(r)goto S_4331;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3702);}while(r);
}
}
S_4335:;
if ((-(*__LONG_SKIP== 0 ))||is_error_pending()){
if(qbevent){evnt(3704);if(r)goto S_4335;}
do{
sub_mid(__STRING_ENTIRELINE,*__LONG_I,0,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("C-EL",4)),0);
if(!qbevent)break;evnt(3705);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3706);}while(r);
}
do{
*__LONG_S=*__LONG_I+ 9 ;
if(!qbevent)break;evnt(3708);}while(r);
do{
*__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3709);}while(r);
dl_continue_431:;
}
dl_exit_431:;
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3712);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3715);}while(r);
S_4344:;
if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||is_error_pending()){
if(qbevent){evnt(3716);if(r)goto S_4344;}
do{
qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass433= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3717);}while(r);
S_4346:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||is_error_pending()){
if(qbevent){evnt(3718);if(r)goto S_4346;}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass434= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3720);}while(r);
LABEL_ADDLABCHK100:;
if(qbevent){evnt(3721);r=0;}
S_4348:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3722);if(r)goto S_4348;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(3723);}while(r);
S_4350:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3724);if(r)goto S_4350;}
S_4351:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3725);if(r)goto S_4351;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3725);}while(r);
}
S_4354:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))== 1 ))||is_error_pending()){
if(qbevent){evnt(3726);if(r)goto S_4354;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3726);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3726);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3728);}while(r);
do{
goto LABEL_ADDLABAQ100;
if(!qbevent)break;evnt(3729);}while(r);
}
S_4361:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3731);if(r)goto S_4361;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3731);}while(r);
do{
goto LABEL_ADDLABCHK100;
if(!qbevent)break;evnt(3731);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3735);}while(r);
S_4367:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3735);if(r)goto S_4367;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3735);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(3735);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(3736);}while(r);
do{
SUB_HASHADD(__STRING_LABEL,&(pass435= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3737);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3738);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3739);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3740);}while(r);
LABEL_ADDLABAQ100:;
if(qbevent){evnt(3741);r=0;}
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 1 ;
if(!qbevent)break;evnt(3742);}while(r);
do{
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261)))=*__LONG_LINEDATAOFFSET;
if(!qbevent)break;evnt(3743);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3745);}while(r);
do{
SUB_WRITEBUFLINE(&(pass436=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_LABEL),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3746);}while(r);
S_4380:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||is_error_pending()){
if(qbevent){evnt(3749);if(r)goto S_4380;}
do{
sub_mid(__STRING_LABEL,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0), 1 ,qbs_new_txt_len(".",1),1);
if(!qbevent)break;evnt(3749);}while(r);
}
S_4383:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("d",1)))|(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("s",1)))))||is_error_pending()){
if(qbevent){evnt(3750);if(r)goto S_4383;}
do{
qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3750);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass438=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("last_line=",10),__STRING_LABEL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3751);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3752);}while(r);
S_4388:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3753);if(r)goto S_4388;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3754);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3755);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3756);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3757);}while(r);
}
S_4394:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3759);if(r)goto S_4394;}
S_4395:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3760);if(r)goto S_4395;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3760);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3760);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass440=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3761);}while(r);
}
S_4402:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(3763);if(r)goto S_4402;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3763);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass441= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3764);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3764);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(3764);}while(r);
}
}
S_4410:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(3772);if(r)goto S_4410;}
do{
*__LONG_X2=func_instr(NULL,__STRING_ENTIRELINE,qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3773);}while(r);
S_4412:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(3774);if(r)goto S_4412;}
S_4413:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||is_error_pending()){
if(qbevent){evnt(3775);if(r)goto S_4413;}
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(3775);}while(r);
}else{
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(3775);}while(r);
}
do{
qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3776);}while(r);
do{
*__LONG_CREATINGLABEL= 1 ;
if(!qbevent)break;evnt(3778);}while(r);
S_4420:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||is_error_pending()){
if(qbevent){evnt(3779);if(r)goto S_4420;}
S_4421:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||is_error_pending()){
if(qbevent){evnt(3781);if(r)goto S_4421;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3781);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3781);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass443= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3783);}while(r);
LABEL_ADDLABCHK:;
if(qbevent){evnt(3784);r=0;}
S_4426:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3785);if(r)goto S_4426;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(3786);}while(r);
S_4428:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3787);if(r)goto S_4428;}
S_4429:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3788);if(r)goto S_4429;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3788);}while(r);
}
S_4432:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))== 1 ))||is_error_pending()){
if(qbevent){evnt(3789);if(r)goto S_4432;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3789);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3789);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3791);}while(r);
do{
goto LABEL_ADDLABAQ;
if(!qbevent)break;evnt(3792);}while(r);
}
S_4439:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3794);if(r)goto S_4439;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3794);}while(r);
do{
goto LABEL_ADDLABCHK;
if(!qbevent)break;evnt(3794);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3797);}while(r);
S_4445:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3797);if(r)goto S_4445;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3797);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(3797);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(3798);}while(r);
do{
SUB_HASHADD(__STRING_A,&(pass444= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3799);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3800);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3801);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(3802);}while(r);
LABEL_ADDLABAQ:;
if(qbevent){evnt(3803);r=0;}
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 1 ;
if(!qbevent)break;evnt(3804);}while(r);
do{
*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261)))=*__LONG_LINEDATAOFFSET;
if(!qbevent)break;evnt(3805);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3806);}while(r);
S_4457:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3808);if(r)goto S_4457;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3808);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3808);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass446=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_A),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3810);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3811);}while(r);
S_4464:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3812);if(r)goto S_4464;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3813);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3814);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3815);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3816);}while(r);
}
S_4470:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3818);if(r)goto S_4470;}
S_4471:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(3819);if(r)goto S_4471;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3819);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3819);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass448=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3820);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,qbs_right(__STRING_ENTIRELINE,__STRING_ENTIRELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3822);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3822);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3823);}while(r);
S_4481:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(3823);if(r)goto S_4481;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3823);}while(r);
}
}
}
}
S_4487:;
while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||is_error_pending()){
if(qbevent){evnt(3829);if(r)goto S_4487;}
S_4488:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3830);if(r)goto S_4488;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3830);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3830);}while(r);
}
S_4493:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||is_error_pending()){
if(qbevent){evnt(3831);if(r)goto S_4493;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3831);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass453= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3832);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3832);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(3832);}while(r);
dl_continue_450:;
}
dl_exit_450:;
S_4500:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||is_error_pending()){
if(qbevent){evnt(3836);if(r)goto S_4500;}
do{
qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass454= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3838);}while(r);
S_4502:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(3840);if(r)goto S_4502;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3841);}while(r);
S_4504:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(3842);if(r)goto S_4504;}
do{
*__LONG_CONTINUELINEFROM= 2 ;
if(!qbevent)break;evnt(3842);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3843);}while(r);
}
S_4509:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(3846);if(r)goto S_4509;}
S_4510:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(3847);if(r)goto S_4510;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3847);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3847);}while(r);
}
S_4514:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(3848);if(r)goto S_4514;}
do{
qbs_set(__STRING_A,__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3848);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3848);}while(r);
}
S_4518:;
fornext_value456= 3 ;
fornext_finalvalue456=*__LONG_N- 1 ;
fornext_step456= 1 ;
if (fornext_step456<0) fornext_step_negative456=1; else fornext_step_negative456=0;
if (is_error_pending()) goto fornext_error456;
goto fornext_entrylabel456;
while(1){
fornext_value456=fornext_step456+(*__LONG_I);
fornext_entrylabel456:
*__LONG_I=fornext_value456;
if (fornext_step_negative456){
if (fornext_value456<fornext_finalvalue456) break;
}else{
if (fornext_value456>fornext_finalvalue456) break;
}
fornext_error456:;
if(qbevent){evnt(3849);if(r)goto S_4518;}
S_4519:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(3850);if(r)goto S_4519;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass457= 1 ),__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3851);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3852);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3853);}while(r);
}
fornext_continue_455:;
}
fornext_exit_455:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3856);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3856);}while(r);
}
}
do{
*__LONG_START= 1 ;
if(!qbevent)break;evnt(3861);}while(r);
do{
goto LABEL_SKIPCONTINIT;
if(!qbevent)break;evnt(3863);}while(r);
LABEL_CONTLINE:;
if(qbevent){evnt(3865);r=0;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3867);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3868);}while(r);
LABEL_SKIPCONTINIT:;
if(qbevent){evnt(3870);r=0;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3878);}while(r);
S_4534:;
fornext_value459=*__LONG_START;
fornext_finalvalue459=*__LONG_N;
fornext_step459= 1 ;
if (fornext_step459<0) fornext_step_negative459=1; else fornext_step_negative459=0;
if (is_error_pending()) goto fornext_error459;
goto fornext_entrylabel459;
while(1){
fornext_value459=fornext_step459+(*__LONG_I);
fornext_entrylabel459:
*__LONG_I=fornext_value459;
if (fornext_step_negative459){
if (fornext_value459<fornext_finalvalue459) break;
}else{
if (fornext_value459>fornext_finalvalue459) break;
}
fornext_error459:;
if(qbevent){evnt(3880);if(r)goto S_4534;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3881);}while(r);
S_4536:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(3884);if(r)goto S_4536;}
S_4537:;
if ((-(*__LONG_I==*__LONG_START))||is_error_pending()){
if(qbevent){evnt(3885);if(r)goto S_4537;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3886);}while(r);
S_4539:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3886);if(r)goto S_4539;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3886);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3886);}while(r);
}
S_4544:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3887);if(r)goto S_4544;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3887);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3888);}while(r);
}
S_4549:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3890);if(r)goto S_4549;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3890);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3891);}while(r);
}
S_4554:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("IF",2)))&(qbs_equal(__STRING_A,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(3896);if(r)goto S_4554;}
do{
*__LONG_NEWIF= 1 ;
if(!qbevent)break;evnt(3896);}while(r);
}
S_4557:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(((qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4)))&(-(*__LONG_NEWIF== 1 ))))))||is_error_pending()){
if(qbevent){evnt(3899);if(r)goto S_4557;}
S_4558:;
if ((-(*__LONG_NEWIF== 0 ))||is_error_pending()){
if(qbevent){evnt(3900);if(r)goto S_4558;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3900);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3900);}while(r);
}
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3901);}while(r);
S_4563:;
if ((-(*__LONG_LINEELSEUSED> 0 ))||is_error_pending()){
if(qbevent){evnt(3902);if(r)goto S_4563;}
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(3902);}while(r);
}
S_4566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(3903);if(r)goto S_4566;}
S_4567:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3904);if(r)goto S_4567;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression GOTO label",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3904);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3904);}while(r);
}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(3905);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3907);}while(r);
S_4574:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(3908);if(r)goto S_4574;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3908);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ;
if(!qbevent)break;evnt(3908);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3909);}while(r);
}
S_4580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(3913);if(r)goto S_4580;}
S_4581:;
if ((-(*__LONG_START==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(3915);if(r)goto S_4581;}
S_4582:;
if ((-(*__LONG_LINEELSEUSED>= 1 ))||is_error_pending()){
if(qbevent){evnt(3916);if(r)goto S_4582;}
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(3921);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3921);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(3922);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3923);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(3924);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3925);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3928);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3928);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ;
if(!qbevent)break;evnt(3929);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3930);}while(r);
}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3934);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3935);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3939);}while(r);
S_4599:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3939);if(r)goto S_4599;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3939);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3939);}while(r);
}
fornext_continue_458:;
}
fornext_exit_458:;
S_4605:;
if ((-(*__LONG_ENDIFS> 0 ))||is_error_pending()){
if(qbevent){evnt(3944);if(r)goto S_4605;}
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(3945);}while(r);
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(3946);}while(r);
do{
qbs_set(__STRING_ENTIRELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ENTIRELINE,__STRING1_SP),qbs_new_txt_len(":",1)),__STRING1_SP),qbs_new_txt_len("END",3)),__STRING1_SP),qbs_new_txt_len("IF",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3946);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(3946);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(3947);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(3948);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(3949);}while(r);
}
LABEL_GOTCOMMAND:;
if(qbevent){evnt(3953);r=0;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(3955);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3957);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3958);}while(r);
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3961);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3963);}while(r);
S_4619:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3964);if(r)goto S_4619;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip461;
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
if (is_error_pending()) goto skip461;
skip461:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3964);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3965);}while(r);
S_4623:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(3966);if(r)goto S_4623;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3966);}while(r);
}
S_4626:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_CA,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(3969);if(r)goto S_4626;}
do{
qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass462= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3970);}while(r);
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(3971);}while(r);
do{
qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3972);}while(r);
do{
*__LONG_LASTFUSE= -1 ;
if(!qbevent)break;evnt(3973);}while(r);
S_4631:;
fornext_value464= 2 ;
fornext_finalvalue464=*__LONG_N;
fornext_step464= 1 ;
if (fornext_step464<0) fornext_step_negative464=1; else fornext_step_negative464=0;
if (is_error_pending()) goto fornext_error464;
goto fornext_entrylabel464;
while(1){
fornext_value464=fornext_step464+(*__LONG_X);
fornext_entrylabel464:
*__LONG_X=fornext_value464;
if (fornext_step_negative464){
if (fornext_value464<fornext_finalvalue464) break;
}else{
if (fornext_value464>fornext_finalvalue464) break;
}
fornext_error464:;
if(qbevent){evnt(3974);if(r)goto S_4631;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3975);}while(r);
S_4633:;
if ((-(*__LONG_EXCEPT== 1 ))||is_error_pending()){
if(qbevent){evnt(3976);if(r)goto S_4633;}
do{
*__LONG_EXCEPT= 2 ;
if(!qbevent)break;evnt(3976);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3976);}while(r);
}
S_4637:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(3977);if(r)goto S_4637;}
S_4638:;
if ((-(*__LONG_EXCEPT== 2 ))||is_error_pending()){
if(qbevent){evnt(3978);if(r)goto S_4638;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3978);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3978);}while(r);
}
S_4642:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(3980);if(r)goto S_4642;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3982);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3983);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3987);}while(r);
S_4647:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3988);if(r)goto S_4647;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3988);}while(r);
}
S_4650:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(3989);if(r)goto S_4650;}
S_4651:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(3990);if(r)goto S_4651;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(3991);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(3992);}while(r);
}
S_4655:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(3994);if(r)goto S_4655;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(3994);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3994);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(3994);}while(r);
}
S_4661:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3995);if(r)goto S_4661;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3995);}while(r);
}
dl_continue_465:;
}
dl_exit_465:;
S_4665:;
if ((qbs_cleanup(qbs_tmp_base,(-(((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(__STRING_A3))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]== 0 ))&(-(*__LONG_LASTFUSE!=(*__LONG_X- 2 )))))||is_error_pending()){
if(qbevent){evnt(3998);if(r)goto S_4665;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3998);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3998);}while(r);
}
do{
qbs_set(__STRING_AA,qbs_add(qbs_left(__STRING_AA,__STRING_AA->len- 1 ),__STRING_FIX046));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3999);}while(r);
do{
*__LONG_LASTFUSE=*__LONG_X;
if(!qbevent)break;evnt(4000);}while(r);
do{
goto LABEL_PERIODFUSED;
if(!qbevent)break;evnt(4001);}while(r);
}
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(4003);}while(r);
LABEL_UDTPERIOD:;
if(qbevent){evnt(4004);r=0;}
do{
qbs_set(__STRING_AA,qbs_add(qbs_add(__STRING_AA,__STRING_A2),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4005);}while(r);
LABEL_PERIODFUSED:;
if(qbevent){evnt(4006);r=0;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4007);}while(r);
fornext_continue_463:;
}
fornext_exit_463:;
do{
qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4009);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4010);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4011);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4012);}while(r);
}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(4015);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass468= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4017);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass469= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4018);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass470= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4019);}while(r);
S_4686:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(4023);if(r)goto S_4686;}
S_4687:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||is_error_pending()){
if(qbevent){evnt(4024);if(r)goto S_4687;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4024);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4024);}while(r);
}
}
S_4692:;
if ((-(*__LONG_N<= 2 ))||is_error_pending()){
if(qbevent){evnt(4027);if(r)goto S_4692;}
S_4693:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||is_error_pending()){
if(qbevent){evnt(4028);if(r)goto S_4693;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4029);}while(r);
S_4695:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(4030);if(r)goto S_4695;}
do{
qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/  2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4032);}while(r);
S_4697:;
fornext_value473= 1 ;
fornext_finalvalue473=__STRING_E->len;
fornext_step473= 1 ;
if (fornext_step473<0) fornext_step_negative473=1; else fornext_step_negative473=0;
if (is_error_pending()) goto fornext_error473;
goto fornext_entrylabel473;
while(1){
fornext_value473=fornext_step473+(*__LONG_X);
fornext_entrylabel473:
*__LONG_X=fornext_value473;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative473){
if (fornext_value473<fornext_finalvalue473) break;
}else{
if (fornext_value473>fornext_finalvalue473) break;
}
fornext_error473:;
if(qbevent){evnt(4033);if(r)goto S_4697;}
do{
*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4034);}while(r);
do{
*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4035);}while(r);
S_4700:;
if ((-(*__LONG_V1< 65 ))||is_error_pending()){
if(qbevent){evnt(4036);if(r)goto S_4700;}
do{
*__LONG_V1=*__LONG_V1- 48 ;
if(!qbevent)break;evnt(4036);}while(r);
}else{
do{
*__LONG_V1=*__LONG_V1- 55 ;
if(!qbevent)break;evnt(4036);}while(r);
}
S_4705:;
if ((-(*__LONG_V2< 65 ))||is_error_pending()){
if(qbevent){evnt(4037);if(r)goto S_4705;}
do{
*__LONG_V2=*__LONG_V2- 48 ;
if(!qbevent)break;evnt(4037);}while(r);
}else{
do{
*__LONG_V2=*__LONG_V2- 55 ;
if(!qbevent)break;evnt(4037);}while(r);
}
do{
tqbs=__STRING_E; if (!is_error_pending()){
tmp_fileno=*__LONG_X; if (!is_error_pending()){
tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4038);}while(r);
fornext_continue_472:;
}
fornext_exit_472:;
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4040);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4043);}while(r);
S_4715:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4043);if(r)goto S_4715;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4043);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4043);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4045);}while(r);
}
}
S_4723:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(4052);if(r)goto S_4723;}
S_4724:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(4054);if(r)goto S_4724;}
S_4725:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||is_error_pending()){
if(qbevent){evnt(4055);if(r)goto S_4725;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4055);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4055);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(4056);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Declare",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4057);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4058);}while(r);
S_4732:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4058);if(r)goto S_4732;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4058);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4058);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4059);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(4062);}while(r);
S_4740:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||is_error_pending()){
if(qbevent){evnt(4064);if(r)goto S_4740;}
do{
goto LABEL_DECLARESUBFUNC2;
if(!qbevent)break;evnt(4065);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4068);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4068);}while(r);
}
S_4746:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(4072);if(r)goto S_4746;}
S_4747:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(4074);if(r)goto S_4747;}
S_4748:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||is_error_pending()){
if(qbevent){evnt(4075);if(r)goto S_4748;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4075);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4075);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(4076);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Type",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4077);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4078);}while(r);
S_4755:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4078);if(r)goto S_4755;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4078);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4078);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4079);}while(r);
}
S_4762:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(4083);if(r)goto S_4762;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4083);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4083);}while(r);
}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(4084);}while(r);
S_4767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(4085);if(r)goto S_4767;}
do{
*__LONG_DECLSTART= 0 ;
if(!qbevent)break;evnt(4090);}while(r);
S_4769:;
fornext_value479= 3 ;
fornext_finalvalue479=*__LONG_N;
fornext_step479= 1 ;
if (fornext_step479<0) fornext_step_negative479=1; else fornext_step_negative479=0;
if (is_error_pending()) goto fornext_error479;
goto fornext_entrylabel479;
while(1){
fornext_value479=fornext_step479+(*__LONG_I);
fornext_entrylabel479:
*__LONG_I=fornext_value479;
if (fornext_step_negative479){
if (fornext_value479<fornext_finalvalue479) break;
}else{
if (fornext_value479>fornext_finalvalue479) break;
}
fornext_error479:;
if(qbevent){evnt(4091);if(r)goto S_4769;}
do{
qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4092);}while(r);
S_4771:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_THISELEMENT)))||is_error_pending()){
if(qbevent){evnt(4093);if(r)goto S_4771;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass480= 2 ),&(pass481=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4094);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4095);}while(r);
S_4774:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4096);if(r)goto S_4774;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4096);}while(r);
}
S_4777:;
if ((*__LONG_TYP)||is_error_pending()){
if(qbevent){evnt(4097);if(r)goto S_4777;}
do{
*__LONG_DECLSTART=*__LONG_I;
if(!qbevent)break;evnt(4098);}while(r);
do{
goto fornext_exit_478;
if(!qbevent)break;evnt(4099);}while(r);
}
}
fornext_continue_478:;
}
fornext_exit_478:;
S_4783:;
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
if(qbevent){evnt(4103);if(r)goto S_4783;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4103);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4103);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4105);}while(r);
S_4788:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(4106);if(r)goto S_4788;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4107);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4108);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4110);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(FUNC_GETELEMENTS(__STRING_CA,__LONG_DECLSTART,__LONG_N))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4116);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4117);}while(r);
S_4796:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4117);if(r)goto S_4796;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4117);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4117);}while(r);
}
}else{
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_CA,&(pass483= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4119);}while(r);
do{
*__LONG_II= 2 ;
if(!qbevent)break;evnt(4120);}while(r);
S_4804:;
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4121);if(r)goto S_4804;}
S_4805:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(4122);if(r)goto S_4805;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(4123);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(4124);}while(r);
S_4808:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4125);if(r)goto S_4808;}
do{
qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4126);}while(r);
S_4810:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(4127);if(r)goto S_4810;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(4127);}while(r);
}
S_4813:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(4128);if(r)goto S_4813;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(4129);}while(r);
S_4815:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(4130);if(r)goto S_4815;}
do{
goto dl_exit_484;
if(!qbevent)break;evnt(4130);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(4132);}while(r);
dl_continue_484:;
}
dl_exit_484:;
S_4821:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(4134);if(r)goto S_4821;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4134);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4134);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_COMPACTMEMBERREFLAYOUT(FUNC_GETELEMENTS(__STRING_CA,__LONG_II,__LONG_I3))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4135);}while(r);
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(4136);}while(r);
}
}
S_4829:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(4139);if(r)goto S_4829;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4139);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4139);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4140);}while(r);
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass485=*__LONG_II+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4141);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4142);}while(r);
S_4836:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4143);if(r)goto S_4836;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4143);}while(r);
}
S_4839:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(4144);if(r)goto S_4839;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4144);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4144);}while(r);
}
S_4843:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(4145);if(r)goto S_4843;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4146);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4147);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4149);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4151);}while(r);
S_4850:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4151);if(r)goto S_4850;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4151);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4151);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4153);}while(r);
}
S_4858:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(4157);if(r)goto S_4858;}
S_4859:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(4158);if(r)goto S_4859;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4158);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4158);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Type",4)),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass487= 2 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4159);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4160);}while(r);
S_4865:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4160);if(r)goto S_4865;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4160);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4160);}while(r);
}
do{
*__LONG_DEFININGTYPE= 1 ;
if(!qbevent)break;evnt(4161);}while(r);
do{
*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(4162);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4163);}while(r);
}
S_4874:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(4167);if(r)goto S_4874;}
S_4875:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(4168);if(r)goto S_4875;}
S_4876:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||is_error_pending()){
if(qbevent){evnt(4170);if(r)goto S_4876;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(4172);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(4173);}while(r);
do{
*__LONG_CUSTOMTYPELIBRARY= 0 ;
if(!qbevent)break;evnt(4174);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(4175);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 0 ;
if(!qbevent)break;evnt(4176);}while(r);
do{
*__LONG_X= 3 ;
if(!qbevent)break;evnt(4178);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4179);}while(r);
S_4884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||is_error_pending()){
if(qbevent){evnt(4181);if(r)goto S_4884;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass489= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4182);}while(r);
S_4886:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4182);if(r)goto S_4886;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DYNAMIC LIBRARY ",25),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4182);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4182);}while(r);
}
do{
*__LONG_DYNAMICLIBRARY= 1 ;
if(!qbevent)break;evnt(4183);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4184);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Dynamic",7)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4185);}while(r);
S_4893:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(4186);if(r)goto S_4893;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4186);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4186);}while(r);
}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4187);}while(r);
}
S_4899:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||is_error_pending()){
if(qbevent){evnt(4190);if(r)goto S_4899;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass490= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4191);}while(r);
S_4901:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4191);if(r)goto S_4901;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4191);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4191);}while(r);
}
do{
*__LONG_CUSTOMTYPELIBRARY= 1 ;
if(!qbevent)break;evnt(4192);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4193);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("CustomType",10)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4194);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4195);}while(r);
}
S_4910:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(4198);if(r)goto S_4910;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass491= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4199);}while(r);
S_4912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4199);if(r)goto S_4912;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4199);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4199);}while(r);
}
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4200);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Static",6)),__STRING1_SP),qbs_new_txt_len("Library",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4201);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 1 ;
if(!qbevent)break;evnt(4202);}while(r);
}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4205);}while(r);
do{
*__LONG_SFHEADER= 0 ;
if(!qbevent)break;evnt(4205);}while(r);
S_4922:;
if ((-(*__LONG_N>=*__LONG_X))||is_error_pending()){
if(qbevent){evnt(4207);if(r)goto S_4922;}
do{
*__LONG_SFDECLARE= 1 ;
if(!qbevent)break;evnt(4209);}while(r);
LABEL_ADDLIBRARY:;
if(qbevent){evnt(4211);r=0;}
do{
qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4213);}while(r);
do{
qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4214);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4219);}while(r);
S_4927:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||is_error_pending()){
if(qbevent){evnt(4220);if(r)goto S_4927;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4220);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4220);}while(r);
}
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4221);}while(r);
do{
*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4222);}while(r);
S_4933:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(4223);if(r)goto S_4933;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4223);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4223);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4224);}while(r);
S_4938:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4226);if(r)goto S_4938;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4226);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4226);}while(r);
}
S_4942:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4227);if(r)goto S_4942;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE CUSTOMTYPE LIBRARY ",36),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4227);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4227);}while(r);
}
S_4946:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||is_error_pending()){
if(qbevent){evnt(4242);if(r)goto S_4946;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4243);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4244);}while(r);
ww_continue_495:;
}
ww_exit_495:;
do{
qbs_set(__STRING_AUTOFORMAT_X,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4247);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4251);}while(r);
LABEL_STRIPLIBVER:;
if(qbevent){evnt(4252);r=0;}
S_4952:;
fornext_value498=__STRING_X->len;
fornext_finalvalue498= 1 ;
fornext_step498= -1 ;
if (fornext_step498<0) fornext_step_negative498=1; else fornext_step_negative498=0;
if (is_error_pending()) goto fornext_error498;
goto fornext_entrylabel498;
while(1){
fornext_value498=fornext_step498+(*__LONG_Z);
fornext_entrylabel498:
*__LONG_Z=fornext_value498;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative498){
if (fornext_value498<fornext_finalvalue498) break;
}else{
if (fornext_value498>fornext_finalvalue498) break;
}
fornext_error498:;
if(qbevent){evnt(4253);if(r)goto S_4952;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4254);}while(r);
S_4954:;
if (((-(*__LONG_A== 92ll ))|(-(*__LONG_A== 47ll )))||is_error_pending()){
if(qbevent){evnt(4255);if(r)goto S_4954;}
do{
goto fornext_exit_497;
if(!qbevent)break;evnt(4255);}while(r);
}
S_4957:;
if (((-(*__LONG_A== 46ll ))|(-(*__LONG_A== 58ll )))||is_error_pending()){
if(qbevent){evnt(4256);if(r)goto S_4957;}
S_4958:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||is_error_pending()){
if(qbevent){evnt(4257);if(r)goto S_4958;}
S_4959:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(4258);if(r)goto S_4959;}
do{
qbs_set(__STRING_V,qbs_add(qbs_add(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z),qbs_new_txt_len(".",1)),__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4258);}while(r);
}else{
do{
qbs_set(__STRING_V,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4258);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4259);}while(r);
S_4965:;
if ((-(*__LONG_A== 58ll ))||is_error_pending()){
if(qbevent){evnt(4260);if(r)goto S_4965;}
do{
goto fornext_exit_497;
if(!qbevent)break;evnt(4260);}while(r);
}
do{
goto LABEL_STRIPLIBVER;
if(!qbevent)break;evnt(4261);}while(r);
}else{
do{
goto fornext_exit_497;
if(!qbevent)break;evnt(4263);}while(r);
}
}
fornext_continue_497:;
}
fornext_exit_497:;
do{
qbs_set(__STRING_LIBVER,__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4267);}while(r);
S_4975:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4270);if(r)goto S_4975;}
S_4976:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||is_error_pending()){
if(qbevent){evnt(4272);if(r)goto S_4976;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4273);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("\\",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4274);}while(r);
dl_continue_504:;
}
dl_exit_504:;
}
S_4981:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4278);if(r)goto S_4981;}
S_4982:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||is_error_pending()){
if(qbevent){evnt(4280);if(r)goto S_4982;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4281);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("/",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4282);}while(r);
dl_continue_506:;
}
dl_exit_506:;
}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4287);}while(r);
S_4988:;
fornext_value509=__STRING_X->len;
fornext_finalvalue509= 1 ;
fornext_step509= -1 ;
if (fornext_step509<0) fornext_step_negative509=1; else fornext_step_negative509=0;
if (is_error_pending()) goto fornext_error509;
goto fornext_entrylabel509;
while(1){
fornext_value509=fornext_step509+(*__LONG_Z);
fornext_entrylabel509:
*__LONG_Z=fornext_value509;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative509){
if (fornext_value509<fornext_finalvalue509) break;
}else{
if (fornext_value509>fornext_finalvalue509) break;
}
fornext_error509:;
if(qbevent){evnt(4288);if(r)goto S_4988;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4289);}while(r);
S_4990:;
if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||is_error_pending()){
if(qbevent){evnt(4290);if(r)goto S_4990;}
do{
qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4291);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4292);}while(r);
do{
goto fornext_exit_508;
if(!qbevent)break;evnt(4293);}while(r);
}
fornext_continue_508:;
}
fornext_exit_508:;
do{
qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4297);}while(r);
S_4997:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len(".\\",2)))))||is_error_pending()){
if(qbevent){evnt(4301);if(r)goto S_4997;}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4302);}while(r);
S_4999:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(4303);if(r)goto S_4999;}
do{
qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4304);}while(r);
}else{
S_5002:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4306);if(r)goto S_5002;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4306);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4311);}while(r);
S_5008:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(4313);if(r)goto S_5008;}
S_5009:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4314);if(r)goto S_5009;}
S_5010:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4317);if(r)goto S_5010;}
S_5011:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4319);if(r)goto S_5011;}
S_5012:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)))))||is_error_pending()){
if(qbevent){evnt(4320);if(r)goto S_5012;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4321);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4322);}while(r);
}
}
S_5017:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4326);if(r)goto S_5017;}
S_5018:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4327);if(r)goto S_5018;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4328);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4329);}while(r);
}
}
S_5023:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4333);if(r)goto S_5023;}
S_5024:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4334);if(r)goto S_5024;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4335);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4336);}while(r);
}
}
S_5029:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4340);if(r)goto S_5029;}
S_5030:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||is_error_pending()){
if(qbevent){evnt(4341);if(r)goto S_5030;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4342);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4343);}while(r);
}
}
S_5035:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4347);if(r)goto S_5035;}
S_5036:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4348);if(r)goto S_5036;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4349);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4350);}while(r);
}
}
S_5041:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4354);if(r)goto S_5041;}
S_5042:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4355);if(r)goto S_5042;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4356);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4357);}while(r);
}
}
}
S_5048:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4362);if(r)goto S_5048;}
S_5049:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4363);if(r)goto S_5049;}
S_5050:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4365);if(r)goto S_5050;}
S_5051:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4367);if(r)goto S_5051;}
S_5052:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4368);if(r)goto S_5052;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4369);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4370);}while(r);
S_5055:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4371);if(r)goto S_5055;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4371);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4371);}while(r);
}
}
}
S_5062:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4374);if(r)goto S_5062;}
S_5063:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4375);if(r)goto S_5063;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4376);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4377);}while(r);
S_5066:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4378);if(r)goto S_5066;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4378);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4378);}while(r);
}
}
}
}
S_5074:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4384);if(r)goto S_5074;}
S_5075:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4385);if(r)goto S_5075;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4386);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4387);}while(r);
S_5078:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4388);if(r)goto S_5078;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4388);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4388);}while(r);
}
}
}
S_5085:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4391);if(r)goto S_5085;}
S_5086:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4392);if(r)goto S_5086;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4393);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4394);}while(r);
S_5089:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4395);if(r)goto S_5089;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4395);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4395);}while(r);
}
}
}
}
S_5097:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4400);if(r)goto S_5097;}
S_5098:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4401);if(r)goto S_5098;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4402);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4403);}while(r);
}
}
S_5103:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4407);if(r)goto S_5103;}
S_5104:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4408);if(r)goto S_5104;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4409);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4410);}while(r);
}
}
S_5109:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4413);if(r)goto S_5109;}
S_5110:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4415);if(r)goto S_5110;}
S_5111:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4416);if(r)goto S_5111;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4417);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4418);}while(r);
S_5114:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4419);if(r)goto S_5114;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4419);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4419);}while(r);
}
}
}
S_5121:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4422);if(r)goto S_5121;}
S_5122:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4423);if(r)goto S_5122;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4424);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4425);}while(r);
S_5125:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4426);if(r)goto S_5125;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4426);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4426);}while(r);
}
}
}
}
S_5133:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4431);if(r)goto S_5133;}
S_5134:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4432);if(r)goto S_5134;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4433);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4434);}while(r);
}
}
S_5139:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4437);if(r)goto S_5139;}
S_5140:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4439);if(r)goto S_5140;}
S_5141:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4441);if(r)goto S_5141;}
S_5142:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4442);if(r)goto S_5142;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4443);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4444);}while(r);
S_5145:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4445);if(r)goto S_5145;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4445);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4445);}while(r);
}
}
}
S_5152:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4448);if(r)goto S_5152;}
S_5153:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4449);if(r)goto S_5153;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4450);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4451);}while(r);
S_5156:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4452);if(r)goto S_5156;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4452);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4452);}while(r);
}
}
}
}
S_5164:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4458);if(r)goto S_5164;}
S_5165:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4459);if(r)goto S_5165;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4460);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4461);}while(r);
S_5168:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4462);if(r)goto S_5168;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4462);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4462);}while(r);
}
}
}
S_5175:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4465);if(r)goto S_5175;}
S_5176:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4466);if(r)goto S_5176;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4467);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4468);}while(r);
S_5179:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4469);if(r)goto S_5179;}
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4469);}while(r);
}else{
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4469);}while(r);
}
}
}
}
S_5187:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4474);if(r)goto S_5187;}
S_5188:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4475);if(r)goto S_5188;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4476);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4477);}while(r);
}
}
S_5193:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4481);if(r)goto S_5193;}
S_5194:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4483);if(r)goto S_5194;}
S_5195:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4485);if(r)goto S_5195;}
S_5196:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4486);if(r)goto S_5196;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4487);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4488);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4489);}while(r);
}
}
S_5202:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4492);if(r)goto S_5202;}
S_5203:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4493);if(r)goto S_5203;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4494);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4495);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4496);}while(r);
}
}
}
S_5210:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4502);if(r)goto S_5210;}
S_5211:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4503);if(r)goto S_5211;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4504);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4505);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4506);}while(r);
}
}
S_5217:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4509);if(r)goto S_5217;}
S_5218:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4510);if(r)goto S_5218;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4511);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4512);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4513);}while(r);
}
}
}
S_5225:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4518);if(r)goto S_5225;}
S_5226:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4519);if(r)goto S_5226;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4520);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4521);}while(r);
}
}
S_5231:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4525);if(r)goto S_5231;}
S_5232:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4526);if(r)goto S_5232;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4527);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4528);}while(r);
}
}
S_5237:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4531);if(r)goto S_5237;}
S_5238:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4533);if(r)goto S_5238;}
S_5239:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4534);if(r)goto S_5239;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4535);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4536);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4537);}while(r);
}
}
S_5245:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4540);if(r)goto S_5245;}
S_5246:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4541);if(r)goto S_5246;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4542);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4543);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4544);}while(r);
}
}
}
S_5253:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4549);if(r)goto S_5253;}
S_5254:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4550);if(r)goto S_5254;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4551);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4552);}while(r);
}
}
S_5259:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4555);if(r)goto S_5259;}
S_5260:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4557);if(r)goto S_5260;}
S_5261:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4559);if(r)goto S_5261;}
S_5262:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4560);if(r)goto S_5262;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4561);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4562);}while(r);
}
}
S_5267:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4565);if(r)goto S_5267;}
S_5268:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4566);if(r)goto S_5268;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4567);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4568);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4569);}while(r);
}
}
}
S_5275:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4575);if(r)goto S_5275;}
S_5276:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4576);if(r)goto S_5276;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4577);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4578);}while(r);
}
}
S_5281:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4581);if(r)goto S_5281;}
S_5282:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4582);if(r)goto S_5282;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4583);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4584);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4585);}while(r);
}
}
}
S_5289:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4590);if(r)goto S_5289;}
S_5290:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4591);if(r)goto S_5290;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4592);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4593);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4594);}while(r);
}
}
}
S_5297:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4601);if(r)goto S_5297;}
S_5298:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4602);if(r)goto S_5298;}
S_5299:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4603);if(r)goto S_5299;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4604);}while(r);
S_5301:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4605);if(r)goto S_5301;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4605);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4606);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4607);}while(r);
}
S_5307:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4609);if(r)goto S_5307;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4610);}while(r);
S_5309:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4611);if(r)goto S_5309;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4611);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4612);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4613);}while(r);
}
S_5315:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4616);if(r)goto S_5315;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4617);}while(r);
S_5317:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4618);if(r)goto S_5317;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4618);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4619);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4620);}while(r);
}
S_5323:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4622);if(r)goto S_5323;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4623);}while(r);
S_5325:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4624);if(r)goto S_5325;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4624);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4625);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4626);}while(r);
}
S_5331:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4630);if(r)goto S_5331;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4631);}while(r);
S_5333:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4632);if(r)goto S_5333;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4633);}while(r);
}else{
S_5336:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4635);if(r)goto S_5336;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4635);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4637);}while(r);
S_5341:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4638);if(r)goto S_5341;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4639);}while(r);
S_5343:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4640);if(r)goto S_5343;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4640);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4641);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4642);}while(r);
}
S_5349:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4644);if(r)goto S_5349;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4645);}while(r);
S_5351:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4646);if(r)goto S_5351;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4646);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4647);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4648);}while(r);
}
}
S_5358:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4652);if(r)goto S_5358;}
S_5359:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4653);if(r)goto S_5359;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4654);}while(r);
S_5361:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4655);if(r)goto S_5361;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4655);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4656);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4657);}while(r);
}
S_5367:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4659);if(r)goto S_5367;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4660);}while(r);
S_5369:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4661);if(r)goto S_5369;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4661);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4662);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4663);}while(r);
}
S_5375:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4665);if(r)goto S_5375;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4666);}while(r);
S_5377:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4667);if(r)goto S_5377;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4667);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4668);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4669);}while(r);
}
S_5383:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4671);if(r)goto S_5383;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4672);}while(r);
S_5385:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4673);if(r)goto S_5385;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4673);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4674);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4675);}while(r);
}
S_5391:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4678);if(r)goto S_5391;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4679);}while(r);
S_5393:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4680);if(r)goto S_5393;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4680);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4681);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4682);}while(r);
}
S_5399:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4684);if(r)goto S_5399;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4685);}while(r);
S_5401:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4686);if(r)goto S_5401;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4686);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4687);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4688);}while(r);
}
S_5407:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4690);if(r)goto S_5407;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4691);}while(r);
S_5409:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4692);if(r)goto S_5409;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4692);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4693);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4694);}while(r);
}
S_5415:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4696);if(r)goto S_5415;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4697);}while(r);
S_5417:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4698);if(r)goto S_5417;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4698);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4699);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4700);}while(r);
}
S_5423:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4704);if(r)goto S_5423;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4705);}while(r);
S_5425:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4706);if(r)goto S_5425;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4707);}while(r);
}else{
S_5428:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4709);if(r)goto S_5428;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP),__STRING_OG_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4709);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4711);}while(r);
S_5433:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4712);if(r)goto S_5433;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4713);}while(r);
S_5435:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4714);if(r)goto S_5435;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4714);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4715);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4716);}while(r);
}
S_5441:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4718);if(r)goto S_5441;}
do{
qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4719);}while(r);
S_5443:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4720);if(r)goto S_5443;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4720);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4721);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4722);}while(r);
}
}
LABEL_GOTHEADER:;
if(qbevent){evnt(4726);r=0;}
}
}else{
S_5452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4732);if(r)goto S_5452;}
S_5453:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4734);if(r)goto S_5453;}
S_5454:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4735);if(r)goto S_5454;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4736);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4737);}while(r);
}
}
S_5459:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4741);if(r)goto S_5459;}
S_5460:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4742);if(r)goto S_5460;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4743);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4744);}while(r);
}
}
S_5465:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4749);if(r)goto S_5465;}
S_5466:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))|func__fileexists(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),__STRING_X),qbs_new_txt_len(".dll",4)))|func__fileexists(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4750);if(r)goto S_5466;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4751);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4752);}while(r);
}
}
S_5471:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4756);if(r)goto S_5471;}
S_5472:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_X),qbs_new_txt_len(".dll",4)))))||is_error_pending()){
if(qbevent){evnt(4757);if(r)goto S_5472;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4758);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4759);}while(r);
}
}
}
S_5478:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4764);if(r)goto S_5478;}
S_5479:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4768);if(r)goto S_5479;}
S_5480:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4770);if(r)goto S_5480;}
S_5481:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4771);if(r)goto S_5481;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4772);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4773);}while(r);
S_5484:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4774);if(r)goto S_5484;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4774);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4774);}while(r);
}
}
}
S_5490:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4777);if(r)goto S_5490;}
S_5491:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4778);if(r)goto S_5491;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4779);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4780);}while(r);
S_5494:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4781);if(r)goto S_5494;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4781);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4781);}while(r);
}
}
}
}
S_5501:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4787);if(r)goto S_5501;}
S_5502:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4788);if(r)goto S_5502;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4789);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4790);}while(r);
S_5505:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4791);if(r)goto S_5505;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4791);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4791);}while(r);
}
}
}
S_5511:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4794);if(r)goto S_5511;}
S_5512:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4795);if(r)goto S_5512;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4796);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4797);}while(r);
S_5515:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4798);if(r)goto S_5515;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4798);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4798);}while(r);
}
}
}
S_5521:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4802);if(r)goto S_5521;}
S_5522:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4803);if(r)goto S_5522;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4804);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4805);}while(r);
}
}
S_5527:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4808);if(r)goto S_5527;}
S_5528:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4809);if(r)goto S_5528;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4810);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4811);}while(r);
}
}
S_5533:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4815);if(r)goto S_5533;}
S_5534:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4817);if(r)goto S_5534;}
S_5535:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4818);if(r)goto S_5535;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4819);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4820);}while(r);
}
}
S_5540:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4823);if(r)goto S_5540;}
S_5541:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4824);if(r)goto S_5541;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4825);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4826);}while(r);
}
}
}
S_5547:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4832);if(r)goto S_5547;}
S_5548:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4833);if(r)goto S_5548;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4834);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4835);}while(r);
}
}
S_5553:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4838);if(r)goto S_5553;}
S_5554:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4839);if(r)goto S_5554;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4840);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4841);}while(r);
}
}
S_5559:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4845);if(r)goto S_5559;}
S_5560:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4847);if(r)goto S_5560;}
S_5561:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4848);if(r)goto S_5561;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4849);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4850);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4851);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4851);}while(r);
}
}
S_5568:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4854);if(r)goto S_5568;}
S_5569:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4855);if(r)goto S_5569;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4856);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4857);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4858);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4858);}while(r);
}
}
}
S_5577:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4864);if(r)goto S_5577;}
S_5578:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))|func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4865);if(r)goto S_5578;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4866);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4867);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4868);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4868);}while(r);
}
}
S_5585:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4871);if(r)goto S_5585;}
S_5586:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))|func__fileexists(qbs_add(qbs_add(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4872);if(r)goto S_5586;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4873);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4874);}while(r);
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4875);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4875);}while(r);
}
}
S_5593:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4879);if(r)goto S_5593;}
S_5594:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4880);if(r)goto S_5594;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4881);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4882);}while(r);
}
}
S_5599:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4885);if(r)goto S_5599;}
S_5600:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4886);if(r)goto S_5600;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4887);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4888);}while(r);
}
}
S_5605:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4892);if(r)goto S_5605;}
S_5606:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4894);if(r)goto S_5606;}
S_5607:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4895);if(r)goto S_5607;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4896);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4897);}while(r);
}
}
S_5612:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4900);if(r)goto S_5612;}
S_5613:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||is_error_pending()){
if(qbevent){evnt(4901);if(r)goto S_5613;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4902);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4903);}while(r);
}
}
}
S_5619:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4909);if(r)goto S_5619;}
S_5620:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||is_error_pending()){
if(qbevent){evnt(4910);if(r)goto S_5620;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4911);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4912);}while(r);
}
}
S_5625:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4915);if(r)goto S_5625;}
S_5626:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||is_error_pending()){
if(qbevent){evnt(4916);if(r)goto S_5626;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4917);}while(r);
do{
qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4918);}while(r);
}
}
}
}
S_5633:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4926);if(r)goto S_5633;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4926);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4926);}while(r);
}
S_5637:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4927);if(r)goto S_5637;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4927);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4927);}while(r);
}
S_5641:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4931);if(r)goto S_5641;}
S_5642:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||is_error_pending()){
if(qbevent){evnt(4934);if(r)goto S_5642;}
S_5643:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4935);if(r)goto S_5643;}
S_5644:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_LIBNAME, 2 , 1 ,0|1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("\\",1)))))||is_error_pending()){
if(qbevent){evnt(4936);if(r)goto S_5644;}
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4937);}while(r);
}else{
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ..\\..\\",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4939);}while(r);
}
}
S_5650:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4942);if(r)goto S_5650;}
S_5651:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4943);if(r)goto S_5651;}
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4944);}while(r);
}else{
do{
qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ../../",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4946);}while(r);
}
}
S_5657:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(4949);if(r)goto S_5657;}
do{
SUB_WRITEBUFLINE(&(pass589=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4949);}while(r);
}
}
}else{
S_5662:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4955);if(r)goto S_5662;}
S_5663:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(4957);if(r)goto S_5663;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4958);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(4960);}while(r);
}
do{
qbs_set(__STRING_X2,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4966);}while(r);
S_5669:;
fornext_value592= 1 ;
fornext_finalvalue592=__STRING_X2->len;
fornext_step592= 1 ;
if (fornext_step592<0) fornext_step_negative592=1; else fornext_step_negative592=0;
if (is_error_pending()) goto fornext_error592;
goto fornext_entrylabel592;
while(1){
fornext_value592=fornext_step592+(*__LONG_X2);
fornext_entrylabel592:
*__LONG_X2=fornext_value592;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative592){
if (fornext_value592<fornext_finalvalue592) break;
}else{
if (fornext_value592>fornext_finalvalue592) break;
}
fornext_error592:;
if(qbevent){evnt(4967);if(r)goto S_5669;}
S_5670:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||is_error_pending()){
if(qbevent){evnt(4968);if(r)goto S_5670;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4968);}while(r);
}
S_5673:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||is_error_pending()){
if(qbevent){evnt(4969);if(r)goto S_5673;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4969);}while(r);
}
S_5676:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||is_error_pending()){
if(qbevent){evnt(4970);if(r)goto S_5676;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4970);}while(r);
}
S_5679:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||is_error_pending()){
if(qbevent){evnt(4971);if(r)goto S_5679;}
do{
tqbs=__STRING_X2; if (!is_error_pending()){
tmp_fileno=*__LONG_X2; if (!is_error_pending()){
tmp_long= 95 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(4971);}while(r);
}
fornext_continue_591:;
}
fornext_exit_591:;
do{
qbs_set(__STRING_DLLNAME,__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4973);}while(r);
S_5684:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(4974);if(r)goto S_5684;}
do{
SUB_WRITEBUFLINE(&(pass594=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4974);}while(r);
}
S_5687:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(4976);if(r)goto S_5687;}
S_5688:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4978);if(r)goto S_5688;}
do{
SUB_WRITEBUFLINE(&(pass595=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("HINSTANCE DLL_",14),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4979);}while(r);
do{
SUB_WRITEBUFLINE(&(pass596=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4980);}while(r);
do{
SUB_WRITEBUFLINE(&(pass597=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=LoadLibrary(",13)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4981);}while(r);
do{
SUB_WRITEBUFLINE(&(pass598=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4982);}while(r);
do{
SUB_WRITEBUFLINE(&(pass599=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4983);}while(r);
}
S_5695:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4986);if(r)goto S_5695;}
do{
SUB_WRITEBUFLINE(&(pass600=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4987);}while(r);
do{
SUB_WRITEBUFLINE(&(pass601=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4988);}while(r);
do{
SUB_WRITEBUFLINE(&(pass602=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=dlopen(",8)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(",RTLD_LAZY);",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4989);}while(r);
do{
SUB_WRITEBUFLINE(&(pass603=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4990);}while(r);
do{
SUB_WRITEBUFLINE(&(pass604=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4991);}while(r);
}
}
}
}
S_5705:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||is_error_pending()){
if(qbevent){evnt(5000);if(r)goto S_5705;}
S_5706:;
if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(((qbs_equal(func_mid(__STRING_HEADERNAME, 2 , 1 ,0|1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("\\",1))))))|((qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))&((qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("/",1)))))))||is_error_pending()){
if(qbevent){evnt(5002);if(r)goto S_5706;}
do{
SUB_WRITEBUFLINE(&(pass606=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5003);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass607=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("../../",6)),__STRING_HEADERNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5005);}while(r);
}
S_5711:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_HEADERNAME)))||is_error_pending()){
if(qbevent){evnt(5007);if(r)goto S_5711;}
do{
SUB_WRITEBUFLINE(&(pass608=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_HEADERNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5007);}while(r);
}
}
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),func_chr( 34 )),__STRING_AUTOFORMAT_X),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5012);}while(r);
S_5717:;
if ((-(*__LONG_N>*__LONG_X))||is_error_pending()){
if(qbevent){evnt(5014);if(r)goto S_5717;}
S_5718:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(5015);if(r)goto S_5718;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot specify multiple DYNAMIC LIBRARY names in a single DECLARE statement",75));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5015);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5015);}while(r);
}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(5016);}while(r);
do{
qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5016);}while(r);
S_5724:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5016);if(r)goto S_5724;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5016);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5016);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5017);}while(r);
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(5018);}while(r);
S_5730:;
if ((-(*__LONG_X>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5018);if(r)goto S_5730;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5018);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5018);}while(r);
}
do{
goto LABEL_ADDLIBRARY;
if(!qbevent)break;evnt(5019);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5024);}while(r);
S_5738:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5024);if(r)goto S_5738;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5024);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5024);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5025);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5028);}while(r);
}
}
S_5748:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5033);if(r)goto S_5748;}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(5034);}while(r);
LABEL_DECLARESUBFUNC2:;
if(qbevent){evnt(5035);r=0;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(5036);}while(r);
S_5751:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(5037);if(r)goto S_5751;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(5037);}while(r);
}
S_5754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5038);if(r)goto S_5754;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(5038);}while(r);
}
S_5757:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(5039);if(r)goto S_5757;}
S_5758:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5041);if(r)goto S_5758;}
S_5759:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(5042);if(r)goto S_5759;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected END SUB/FUNCTION before ",33),__STRING_FIRSTELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5042);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5042);}while(r);
}
}
S_5764:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5045);if(r)goto S_5764;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5045);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5045);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass611= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5046);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5047);}while(r);
S_5770:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5048);if(r)goto S_5770;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5048);}while(r);
}
S_5773:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(5049);if(r)goto S_5773;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5049);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5049);}while(r);
}
do{
qbs_set(__STRING_EORIG,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5050);}while(r);
S_5778:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_E, 5 )),qbs_new_txt_len("_IKW_",5))))||is_error_pending()){
if(qbevent){evnt(5050);if(r)goto S_5778;}
do{
qbs_set(__STRING_E,func_mid(__STRING_E, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5050);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5051);}while(r);
S_5782:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5052);if(r)goto S_5782;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5052);}while(r);
}
S_5785:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(5053);if(r)goto S_5785;}
S_5786:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))==*__LONG_SF))||is_error_pending()){
if(qbevent){evnt(5054);if(r)goto S_5786;}
do{
goto LABEL_CREATESF;
if(!qbevent)break;evnt(5054);}while(r);
}
S_5789:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(5055);if(r)goto S_5789;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(5055);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5055);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(5055);}while(r);
}
S_5795:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5056);if(r)goto S_5795;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5056);}while(r);
}
dl_continue_612:;
}
dl_exit_612:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5058);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5058);}while(r);
LABEL_CREATESF:;
if(qbevent){evnt(5059);r=0;}
S_5801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(5060);if(r)goto S_5801;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("_GL",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5060);}while(r);
}
S_5804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5061);if(r)goto S_5804;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5062);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_EORIG),__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5064);}while(r);
}
do{
memcpy((((char*)__UDT_ID2)+((0+0))+ 0),(((char*)__UDT_ID)+((0+0))+ 0), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 256),(((char*)__UDT_ID)+((0+0))+ 256), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 512),(((char*)__UDT_ID)+((0+0))+ 512), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 516),(((char*)__UDT_ID)+((0+0))+ 516), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 518),(((char*)__UDT_ID)+((0+0))+ 518), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 520),(((char*)__UDT_ID)+((0+0))+ 520), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 528),(((char*)__UDT_ID)+((0+0))+ 528), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 536),(((char*)__UDT_ID)+((0+0))+ 536), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 540),(((char*)__UDT_ID)+((0+0))+ 540), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 544),(((char*)__UDT_ID)+((0+0))+ 544), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 546),(((char*)__UDT_ID)+((0+0))+ 546), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 548),(((char*)__UDT_ID)+((0+0))+ 548), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 550),(((char*)__UDT_ID)+((0+0))+ 550), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 806),(((char*)__UDT_ID)+((0+0))+ 806), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 808),(((char*)__UDT_ID)+((0+0))+ 808), 1);
memcpy((((char*)__UDT_ID2)+((0+0))+ 809),(((char*)__UDT_ID)+((0+0))+ 809), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 811),(((char*)__UDT_ID)+((0+0))+ 811), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1213),(((char*)__UDT_ID)+((0+0))+ 1213), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1613),(((char*)__UDT_ID)+((0+0))+ 1613), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1869),(((char*)__UDT_ID)+((0+0))+ 1869), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2125),(((char*)__UDT_ID)+((0+0))+ 2125), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2381),(((char*)__UDT_ID)+((0+0))+ 2381), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2641),(((char*)__UDT_ID)+((0+0))+ 2641), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2647),(((char*)__UDT_ID)+((0+0))+ 2647), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2747),(((char*)__UDT_ID)+((0+0))+ 2747), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2847),(((char*)__UDT_ID)+((0+0))+ 2847), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2853),(((char*)__UDT_ID)+((0+0))+ 2853), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2855),(((char*)__UDT_ID)+((0+0))+ 2855), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2859),(((char*)__UDT_ID)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2861), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2861));
if(!qbevent)break;evnt(5066);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(5067);}while(r);
do{
qbs_set(__STRING_ALIASNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5070);}while(r);
S_5812:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(5071);if(r)goto S_5812;}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass613= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5072);}while(r);
S_5814:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(5073);if(r)goto S_5814;}
S_5815:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5074);if(r)goto S_5815;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5074);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5074);}while(r);
}
S_5819:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(5075);if(r)goto S_5819;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5075);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5075);}while(r);
}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass614= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5076);}while(r);
S_5824:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(5079);if(r)goto S_5824;}
do{
qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5080);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5081);}while(r);
S_5827:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(5081);if(r)goto S_5827;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5081);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5081);}while(r);
}
do{
qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5082);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING1_CHR_QUOTE),__STRING_EE),__STRING1_CHR_QUOTE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5083);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING_EE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5085);}while(r);
}
S_5836:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(5089);if(r)goto S_5836;}
do{
*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5090);}while(r);
do{
qbs_set(__STRING_EE,qbs_add(qbs_add(qbs_left(__STRING_EE,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_EE,__STRING_EE->len-*__LONG_X+ 1 -__STRING_FIX046->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5090);}while(r);
dl_continue_616:;
}
dl_exit_616:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_EE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5092);}while(r);
S_5841:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(5094);if(r)goto S_5841;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass619= 1 ),&(pass620= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5094);}while(r);
}
S_5844:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(5095);if(r)goto S_5844;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass621= 1 ),&(pass622= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass623= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5095);}while(r);
}
S_5847:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(5096);if(r)goto S_5847;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass624= 1 ),&(pass625= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5096);}while(r);
}
S_5850:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(5097);if(r)goto S_5850;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass626= 1 ),&(pass627= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass628= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5097);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(5098);}while(r);
}
}
S_5856:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5102);if(r)goto S_5856;}
do{
goto LABEL_DECLIBJMP1;
if(!qbevent)break;evnt(5102);}while(r);
}
S_5859:;
if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 )))||is_error_pending()){
if(qbevent){evnt(5105);if(r)goto S_5859;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5106);}while(r);
S_5861:;
sc_629=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(5107);if(r)goto S_5861;}
S_5862:;
if (((sc_629==( 1 )))||is_error_pending()){
if(qbevent){evnt(5108);if(r)goto S_5862;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5108);}while(r);
sc_ec_23_end:;
goto sc_629_end;
}
S_5864:;
if (((sc_629==( 2 )))||is_error_pending()){
if(qbevent){evnt(5109);if(r)goto S_5864;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5109);}while(r);
sc_ec_24_end:;
goto sc_629_end;
}
S_5866:;
if (((sc_629==( 3 ))||(sc_629==( 4 )))||is_error_pending()){
if(qbevent){evnt(5110);if(r)goto S_5866;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5110);}while(r);
sc_ec_25_end:;
goto sc_629_end;
}
S_5868:;
if (((sc_629==( 5 )))||is_error_pending()){
if(qbevent){evnt(5111);if(r)goto S_5868;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5111);}while(r);
sc_ec_26_end:;
goto sc_629_end;
}
S_5870:;
if ((((sc_629>=( 10 ))&&(sc_629<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(5112);if(r)goto S_5870;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5112);}while(r);
sc_ec_27_end:;
goto sc_629_end;
}
sc_629_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(5114);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5115);}while(r);
}
S_5876:;
if ((*__LONG_IDEINDENTSUBS)||is_error_pending()){
if(qbevent){evnt(5118);if(r)goto S_5876;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5119);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ;
if(!qbevent)break;evnt(5120);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(5121);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5124);}while(r);
S_5882:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 1 ))||is_error_pending()){
if(qbevent){evnt(5125);if(r)goto S_5882;}
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5125);}while(r);
}else{
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5125);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_add(__STRING_SUBFUNCORIGINALNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5126);}while(r);
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(5127);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(5128);}while(r);
do{
*__LONG_SUBFUNCID=*__LONG_TARGETID;
if(!qbevent)break;evnt(5129);}while(r);
do{
qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5131);}while(r);
S_5892:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
if(qbevent){evnt(5132);if(r)goto S_5892;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass630= -1 ));
if(!qbevent)break;evnt(5133);}while(r);
do{
SUB_CLOSEMAINVWATCHSECTION();
if(!qbevent)break;evnt(5134);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(5135);}while(r);
}
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5138);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5139);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5140);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret",3)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5141);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5142);}while(r);
do{
SUB_WRITEBUFLINE(&(pass631=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5143);}while(r);
do{
SUB_WRITEBUFLINE(&(pass632=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5144);}while(r);
do{
SUB_WRITEBUFLINE(&(pass633=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5145);}while(r);
do{
SUB_WRITEBUFLINE(&(pass634=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5146);}while(r);
do{
SUB_WRITEBUFLINE(&(pass635=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5147);}while(r);
do{
SUB_WRITEBUFLINE(&(pass636=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5148);}while(r);
LABEL_DECLIBJMP1:;
if(qbevent){evnt(5150);r=0;}
S_5908:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5152);if(r)goto S_5908;}
S_5909:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5153);if(r)goto S_5909;}
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf_ignore.txt",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5154);}while(r);
}
S_5912:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5156);if(r)goto S_5912;}
do{
SUB_WRITEBUFLINE(&(pass637=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("externtype",10)),qbs__tostr((int64)(*__LONG_RESOLVESTATICFUNCTIONS+ 1 ),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5157);}while(r);
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(5158);}while(r);
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int64)(*__LONG_RESOLVESTATICFUNCTIONS+ 1 ),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5158);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(5158);}while(r);
}
}
S_5919:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(5165);if(r)goto S_5919;}
do{
*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+((0+2381)));
if(!qbevent)break;evnt(5166);}while(r);
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2381)) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5167);}while(r);
S_5922:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5168);if(r)goto S_5922;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5168);}while(r);
}
S_5925:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5169);if(r)goto S_5925;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5169);}while(r);
}
S_5928:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5171);if(r)goto S_5928;}
S_5929:;
if ((*__LONG_RETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(5172);if(r)goto S_5929;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5173);}while(r);
}
}
S_5933:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5177);if(r)goto S_5933;}
S_5934:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5178);if(r)goto S_5934;}
do{
SUB_WRITEBUFRAWDATA(&(pass638=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" (CALLBACK* DLLCALL_",20)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5179);}while(r);
}
S_5937:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5181);if(r)goto S_5937;}
do{
SUB_WRITEBUFRAWDATA(&(pass639=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" (*DLLCALL_",11)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5182);}while(r);
}
S_5940:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5184);if(r)goto S_5940;}
do{
SUB_WRITEBUFRAWDATA(&(pass640=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" CUSTOMCALL_",12)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5185);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass641=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5187);}while(r);
}
}
S_5945:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5189);if(r)goto S_5945;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5189);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass642=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5190);}while(r);
S_5949:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5194);if(r)goto S_5949;}
do{
*__LONG_A=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5195);}while(r);
S_5951:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(5195);if(r)goto S_5951;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(5195);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(5196);}while(r);
do{
qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5197);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 1 ;
if(!qbevent)break;evnt(5199);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass643= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5200);}while(r);
S_5959:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5201);if(r)goto S_5959;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5201);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 0 ;
if(!qbevent)break;evnt(5202);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5204);}while(r);
S_5964:;
if (((*__LONG_RETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5206);if(r)goto S_5964;}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+536)) ),&(pass644= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5207);}while(r);
S_5966:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5208);if(r)goto S_5966;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5208);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("qbs_maketmp(",12)),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5209);}while(r);
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("return ",7)),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5210);}while(r);
}else{
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+536)) ),&(pass645= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5212);}while(r);
S_5973:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5213);if(r)goto S_5973;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5213);}while(r);
}
do{
qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_new_txt_len("return ",7),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5214);}while(r);
}
}else{
S_5979:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5218);if(r)goto S_5979;}
S_5980:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5219);if(r)goto S_5980;}
do{
SUB_WRITEBUFRAWDATA(&(pass646=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("typedef void (CALLBACK* DLLCALL_",32),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5220);}while(r);
}
S_5983:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5222);if(r)goto S_5983;}
do{
SUB_WRITEBUFRAWDATA(&(pass647=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("typedef void (*DLLCALL_",23),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5223);}while(r);
}
S_5986:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5225);if(r)goto S_5986;}
do{
SUB_WRITEBUFRAWDATA(&(pass648=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("typedef void CUSTOMCALL_",24),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5226);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass649=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5228);}while(r);
}
}
S_5991:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5230);if(r)goto S_5991;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5230);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass650=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5231);}while(r);
}
LABEL_DECLIBJMP2:;
if(qbevent){evnt(5233);r=0;}
do{
*__LONG_ADDSTATIC2LAYOUT= 0 ;
if(!qbevent)break;evnt(5235);}while(r);
do{
*__LONG_STATICSF= 0 ;
if(!qbevent)break;evnt(5236);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5237);}while(r);
S_5999:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(5238);if(r)goto S_5999;}
S_6000:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5239);if(r)goto S_6000;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STATIC cannot be used in a library declaration",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5239);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5239);}while(r);
}
do{
*__LONG_ADDSTATIC2LAYOUT= 1 ;
if(!qbevent)break;evnt(5240);}while(r);
do{
*__LONG_STATICSF= 2 ;
if(!qbevent)break;evnt(5241);}while(r);
do{
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5242);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(5242);}while(r);
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(5246);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(5247);}while(r);
S_6011:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(5248);if(r)goto S_6011;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass652= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5249);}while(r);
S_6013:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5250);if(r)goto S_6013;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5250);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5250);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5251);}while(r);
S_6018:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5252);if(r)goto S_6018;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5252);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5252);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5253);}while(r);
S_6023:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(5254);if(r)goto S_6023;}
do{
goto LABEL_NOSFPARAMS2;
if(!qbevent)break;evnt(5254);}while(r);
}
S_6026:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(5255);if(r)goto S_6026;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5255);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5255);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(5256);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5257);}while(r);
S_6032:;
fornext_value654= 4 ;
fornext_finalvalue654=*__LONG_N- 1 ;
fornext_step654= 1 ;
if (fornext_step654<0) fornext_step_negative654=1; else fornext_step_negative654=0;
if (is_error_pending()) goto fornext_error654;
goto fornext_entrylabel654;
while(1){
fornext_value654=fornext_step654+(*__LONG_I);
fornext_entrylabel654:
*__LONG_I=fornext_value654;
if (fornext_step_negative654){
if (fornext_value654<fornext_finalvalue654) break;
}else{
if (fornext_value654>fornext_finalvalue654) break;
}
fornext_error654:;
if(qbevent){evnt(5258);if(r)goto S_6032;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5259);}while(r);
S_6034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5260);if(r)goto S_6034;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(5260);}while(r);
}
S_6037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5261);if(r)goto S_6037;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(5261);}while(r);
}
S_6040:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(5262);if(r)goto S_6040;}
S_6041:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5263);if(r)goto S_6041;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5263);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5263);}while(r);
}
LABEL_GETLASTPARAM2:;
if(qbevent){evnt(5264);r=0;}
S_6045:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5265);if(r)goto S_6045;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5265);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5265);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5266);}while(r);
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(5268);}while(r);
do{
*__LONG_GLINKID=*__LONG_TARGETID;
if(!qbevent)break;evnt(5269);}while(r);
do{
*__INTEGER_GLINKARG=*__LONG_PARAMS;
if(!qbevent)break;evnt(5270);}while(r);
S_6053:;
if ((-(*__LONG_PARAMS> 1 ))||is_error_pending()){
if(qbevent){evnt(5274);if(r)goto S_6053;}
do{
SUB_WRITEBUFRAWDATA(&(pass656=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5275);}while(r);
S_6055:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5277);if(r)goto S_6055;}
do{
SUB_WRITEBUFRAWDATA(&(pass657=*__LONG_MAINTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5278);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5282);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(5283);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5284);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass658= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5285);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(5287);}while(r);
S_6064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(5288);if(r)goto S_6064;}
S_6065:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5289);if(r)goto S_6065;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can only be used with DECLARE LIBRARY",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5289);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5289);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5290);}while(r);
do{
qbs_set(__STRING_A2,qbs_right(__STRING_A2,__STRING_A2->len- 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5290);}while(r);
S_6071:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5291);if(r)goto S_6071;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5291);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("ByVal",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5291);}while(r);
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5292);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass660= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5292);}while(r);
}
S_6079:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5295);if(r)goto S_6079;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5295);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5295);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5297);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(5298);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5301);}while(r);
S_6087:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(5302);if(r)goto S_6087;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5302);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5302);}while(r);
}
S_6091:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5304);if(r)goto S_6091;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5304);}while(r);
}
S_6094:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5305);if(r)goto S_6094;}
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5305);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(5306);}while(r);
S_6098:;
fornext_value662= 2 ;
fornext_finalvalue662=*__LONG_N2;
fornext_step662= 1 ;
if (fornext_step662<0) fornext_step_negative662=1; else fornext_step_negative662=0;
if (is_error_pending()) goto fornext_error662;
goto fornext_entrylabel662;
while(1){
fornext_value662=fornext_step662+(*__LONG_I2);
fornext_entrylabel662:
*__LONG_I2=fornext_value662;
if (fornext_step_negative662){
if (fornext_value662<fornext_finalvalue662) break;
}else{
if (fornext_value662>fornext_finalvalue662) break;
}
fornext_error662:;
if(qbevent){evnt(5307);if(r)goto S_6098;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5308);}while(r);
S_6100:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5309);if(r)goto S_6100;}
S_6101:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(5310);if(r)goto S_6101;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5310);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5310);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(5311);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(5312);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5313);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5314);}while(r);
}
S_6110:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5316);if(r)goto S_6110;}
S_6111:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(5317);if(r)goto S_6111;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5317);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5317);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(5318);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5319);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5320);}while(r);
}
S_6119:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5322);if(r)goto S_6119;}
S_6120:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(5323);if(r)goto S_6120;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5323);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5323);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(5324);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5325);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5326);}while(r);
}
S_6128:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5328);if(r)goto S_6128;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5328);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5328);}while(r);
}
S_6132:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(5329);if(r)goto S_6132;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5329);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5329);}while(r);
}
S_6136:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5330);if(r)goto S_6136;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5330);}while(r);
}else{
do{
qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5330);}while(r);
}
LABEL_GOTAA2:;
if(qbevent){evnt(5331);r=0;}
fornext_continue_661:;
}
fornext_exit_661:;
S_6142:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5333);if(r)goto S_6142;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5333);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5333);}while(r);
}
S_6146:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(5334);if(r)goto S_6146;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5334);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5334);}while(r);
}
S_6150:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||is_error_pending()){
if(qbevent){evnt(5337);if(r)goto S_6150;}
do{
qbs_set(__STRING_T2,qbs_ucase(__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5338);}while(r);
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5339);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5340);}while(r);
S_6154:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5341);if(r)goto S_6154;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5341);}while(r);
}
S_6157:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(5342);if(r)goto S_6157;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5342);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5342);}while(r);
}
S_6161:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(5343);if(r)goto S_6161;}
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5344);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5345);}while(r);
}else{
S_6165:;
fornext_value665= 1 ;
fornext_finalvalue665=__STRING_T3->len;
fornext_step665= 1 ;
if (fornext_step665<0) fornext_step_negative665=1; else fornext_step_negative665=0;
if (is_error_pending()) goto fornext_error665;
goto fornext_entrylabel665;
while(1){
fornext_value665=fornext_step665+(*__LONG_T3I);
fornext_entrylabel665:
*__LONG_T3I=fornext_value665;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative665){
if (fornext_value665<fornext_finalvalue665) break;
}else{
if (fornext_value665>fornext_finalvalue665) break;
}
fornext_error665:;
if(qbevent){evnt(5347);if(r)goto S_6165;}
S_6166:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||is_error_pending()){
if(qbevent){evnt(5348);if(r)goto S_6166;}
do{
tqbs=__STRING_T3; if (!is_error_pending()){
tmp_fileno=*__LONG_T3I; if (!is_error_pending()){
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(5348);}while(r);
}
fornext_continue_664:;
}
fornext_exit_664:;
do{
qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5350);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5351);}while(r);
}
}
S_6174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5355);if(r)goto S_6174;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5355);}while(r);
}
S_6177:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5356);if(r)goto S_6177;}
S_6178:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(5357);if(r)goto S_6178;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(5357);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5357);}while(r);
}
do{
qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5358);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5359);}while(r);
}
S_6186:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(5365);if(r)goto S_6186;}
S_6187:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5366);if(r)goto S_6187;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Arrays cannot be passed to a library",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5366);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5366);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5367);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2747))),100,1),*__LONG_PARAMS, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5369);}while(r);
S_6193:;
if ((*__LONG_NELEREQ)||is_error_pending()){
if(qbevent){evnt(5370);if(r)goto S_6193;}
do{
*__LONG_NELE=*__LONG_NELEREQ;
if(!qbevent)break;evnt(5371);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2647))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5372);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 0),(((char*)__UDT_ID2)+((0+0))+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 256),(((char*)__UDT_ID2)+((0+0))+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 512),(((char*)__UDT_ID2)+((0+0))+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 516),(((char*)__UDT_ID2)+((0+0))+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 518),(((char*)__UDT_ID2)+((0+0))+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 528),(((char*)__UDT_ID2)+((0+0))+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 536),(((char*)__UDT_ID2)+((0+0))+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 540),(((char*)__UDT_ID2)+((0+0))+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 546),(((char*)__UDT_ID2)+((0+0))+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 548),(((char*)__UDT_ID2)+((0+0))+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 806),(((char*)__UDT_ID2)+((0+0))+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 808),(((char*)__UDT_ID2)+((0+0))+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 809),(((char*)__UDT_ID2)+((0+0))+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 811),(((char*)__UDT_ID2)+((0+0))+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1213),(((char*)__UDT_ID2)+((0+0))+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1613),(((char*)__UDT_ID2)+((0+0))+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1869),(((char*)__UDT_ID2)+((0+0))+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2125),(((char*)__UDT_ID2)+((0+0))+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2381),(((char*)__UDT_ID2)+((0+0))+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2641),(((char*)__UDT_ID2)+((0+0))+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2647),(((char*)__UDT_ID2)+((0+0))+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2747),(((char*)__UDT_ID2)+((0+0))+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2847),(((char*)__UDT_ID2)+((0+0))+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2853),(((char*)__UDT_ID2)+((0+0))+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2855),(((char*)__UDT_ID2)+((0+0))+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2859),(((char*)__UDT_ID2)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2861), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2861));
if(!qbevent)break;evnt(5374);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs__tostr((int32)(*__LONG_NELE),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5376);}while(r);
S_6198:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5377);if(r)goto S_6198;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5377);}while(r);
}
}else{
do{
*__LONG_NELE= 1 ;
if(!qbevent)break;evnt(5379);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2647))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5380);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 0),(((char*)__UDT_ID2)+((0+0))+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 256),(((char*)__UDT_ID2)+((0+0))+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 512),(((char*)__UDT_ID2)+((0+0))+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 516),(((char*)__UDT_ID2)+((0+0))+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 518),(((char*)__UDT_ID2)+((0+0))+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 528),(((char*)__UDT_ID2)+((0+0))+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 536),(((char*)__UDT_ID2)+((0+0))+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 540),(((char*)__UDT_ID2)+((0+0))+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 546),(((char*)__UDT_ID2)+((0+0))+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 548),(((char*)__UDT_ID2)+((0+0))+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 806),(((char*)__UDT_ID2)+((0+0))+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 808),(((char*)__UDT_ID2)+((0+0))+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 809),(((char*)__UDT_ID2)+((0+0))+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 811),(((char*)__UDT_ID2)+((0+0))+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1213),(((char*)__UDT_ID2)+((0+0))+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1613),(((char*)__UDT_ID2)+((0+0))+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1869),(((char*)__UDT_ID2)+((0+0))+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2125),(((char*)__UDT_ID2)+((0+0))+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2381),(((char*)__UDT_ID2)+((0+0))+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2641),(((char*)__UDT_ID2)+((0+0))+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2647),(((char*)__UDT_ID2)+((0+0))+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2747),(((char*)__UDT_ID2)+((0+0))+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2847),(((char*)__UDT_ID2)+((0+0))+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2853),(((char*)__UDT_ID2)+((0+0))+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2855),(((char*)__UDT_ID2)+((0+0))+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2859),(((char*)__UDT_ID2)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2861), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2861));
if(!qbevent)break;evnt(5382);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5384);}while(r);
S_6206:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5385);if(r)goto S_6206;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5385);}while(r);
}
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5388);}while(r);
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+536)) ),&(pass667= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5389);}while(r);
S_6212:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5390);if(r)goto S_6212;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5390);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass668=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5391);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass669=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5392);}while(r);
}else{
S_6218:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5395);if(r)goto S_6218;}
S_6219:;
fornext_value671= 1 ;
fornext_finalvalue671=*__LONG_LASTTYPE;
fornext_step671= 1 ;
if (fornext_step671<0) fornext_step_negative671=1; else fornext_step_negative671=0;
if (is_error_pending()) goto fornext_error671;
goto fornext_entrylabel671;
while(1){
fornext_value671=fornext_step671+(*__LONG_XX);
fornext_entrylabel671:
*__LONG_XX=fornext_value671;
if (fornext_step_negative671){
if (fornext_value671<fornext_finalvalue671) break;
}else{
if (fornext_value671>fornext_finalvalue671) break;
}
fornext_error671:;
if(qbevent){evnt(5397);if(r)goto S_6219;}
S_6220:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_XX)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||is_error_pending()){
if(qbevent){evnt(5398);if(r)goto S_6220;}
do{
SUB_WRITEBUFLINE(&(pass672=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5399);}while(r);
do{
goto LABEL_DECUDT;
if(!qbevent)break;evnt(5400);}while(r);
}
fornext_continue_670:;
}
fornext_exit_670:;
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass673= 0 ),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5403);}while(r);
S_6226:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5405);if(r)goto S_6226;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5405);}while(r);
}
S_6229:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5406);if(r)goto S_6229;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5407);}while(r);
S_6231:;
if ((-(*__LONG_BYVALUE== 1 ))||is_error_pending()){
if(qbevent){evnt(5408);if(r)goto S_6231;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STRINGs cannot be passed using BYVAL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5408);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5408);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5409);}while(r);
}
S_6237:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(5411);if(r)goto S_6237;}
do{
SUB_WRITEBUFRAWDATA(&(pass674=*__LONG_REGTXTBUF),__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5411);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass675=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5411);}while(r);
}
LABEL_DECUDT:;
if(qbevent){evnt(5412);r=0;}
do{
goto LABEL_DECLIBJMP3;
if(!qbevent)break;evnt(5413);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5416);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5417);}while(r);
S_6246:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5418);if(r)goto S_6246;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5418);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5421);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5422);}while(r);
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+536)));
if(!qbevent)break;evnt(5423);}while(r);
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TYP,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5425);}while(r);
S_6253:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5426);if(r)goto S_6253;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5426);}while(r);
}
S_6256:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5430);if(r)goto S_6256;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot find C type to return array data",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5430);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5430);}while(r);
}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+536)) ),&(pass676= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5433);}while(r);
S_6261:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5434);if(r)goto S_6261;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5434);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass677=*__LONG_REGTXTBUF),qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5435);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass678=*__LONG_MAINTXTBUF),qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5436);}while(r);
S_6266:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5437);if(r)goto S_6266;}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5438);}while(r);
do{
SUB_WRITEBUFLINE(&(pass679=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5439);}while(r);
do{
SUB_WRITEBUFLINE(&(pass680=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_R),qbs_new_txt_len("->tmp||",7)),__STRING_R),qbs_new_txt_len("->fixed||",9)),__STRING_R),qbs_new_txt_len("->readonly){",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5440);}while(r);
do{
SUB_WRITEBUFLINE(&(pass681=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("oldstr",6),__STRING_U),qbs_new_txt_len("=",1)),__STRING_R),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5441);}while(r);
do{
SUB_WRITEBUFLINE(&(pass682=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5443);}while(r);
do{
SUB_WRITEBUFLINE(&(pass683=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new_cmem(oldstr",20)),__STRING_U),qbs_new_txt_len("->len,0);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5444);}while(r);
do{
SUB_WRITEBUFLINE(&(pass684=*__LONG_DATATXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5445);}while(r);
do{
SUB_WRITEBUFLINE(&(pass685=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new(oldstr",15)),__STRING_U),qbs_new_txt_len("->len,0);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5446);}while(r);
do{
SUB_WRITEBUFLINE(&(pass686=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5447);}while(r);
do{
SUB_WRITEBUFLINE(&(pass687=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),__STRING_R),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->len);",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5449);}while(r);
do{
SUB_WRITEBUFLINE(&(pass688=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5450);}while(r);
do{
SUB_WRITEBUFLINE(&(pass689=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5452);}while(r);
do{
SUB_WRITEBUFLINE(&(pass690=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("->fixed)qbs_set(oldstr",22)),__STRING_U),qbs_new_txt_len(",",1)),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5453);}while(r);
do{
SUB_WRITEBUFLINE(&(pass691=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5454);}while(r);
do{
SUB_WRITEBUFLINE(&(pass692=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5455);}while(r);
}
}
LABEL_DECLIBJMP3:;
if(qbevent){evnt(5458);r=0;}
S_6284:;
if ((-(*__LONG_I!=(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5459);if(r)goto S_6284;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5459);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5461);}while(r);
}else{
do{
qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5463);}while(r);
S_6290:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5464);if(r)goto S_6290;}
do{
goto LABEL_GETLASTPARAM2;
if(!qbevent)break;evnt(5464);}while(r);
}
}
fornext_continue_653:;
}
fornext_exit_653:;
LABEL_NOSFPARAMS2:;
if(qbevent){evnt(5467);r=0;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5468);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(5470);}while(r);
S_6298:;
if ((*__LONG_ADDSTATIC2LAYOUT)||is_error_pending()){
if(qbevent){evnt(5472);if(r)goto S_6298;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Static",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5472);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5473);}while(r);
S_6302:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5473);if(r)goto S_6302;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5473);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5473);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass694=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5475);}while(r);
S_6308:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5477);if(r)goto S_6308;}
do{
goto LABEL_DECLIBJMP4;
if(!qbevent)break;evnt(5477);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass695=*__LONG_MAINTXTBUF),qbs_new_txt_len("){",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5479);}while(r);
do{
SUB_WRITEBUFLINE(&(pass696=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs *tqbs;",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5480);}while(r);
do{
SUB_WRITEBUFLINE(&(pass697=*__LONG_MAINTXTBUF),qbs_new_txt_len("ptrszint tmp_long;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5481);}while(r);
do{
SUB_WRITEBUFLINE(&(pass698=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32 tmp_fileno;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5482);}while(r);
do{
SUB_WRITEBUFLINE(&(pass699=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5483);}while(r);
do{
SUB_WRITEBUFLINE(&(pass700=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5484);}while(r);
do{
SUB_WRITEBUFLINE(&(pass701=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5485);}while(r);
do{
SUB_WRITEBUFLINE(&(pass702=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5486);}while(r);
do{
SUB_WRITEBUFLINE(&(pass703=*__LONG_MAINTXTBUF),qbs_new_txt_len("mem_lock *sf_mem_lock;",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5489);}while(r);
do{
SUB_WRITEBUFLINE(&(pass704=*__LONG_MAINTXTBUF),qbs_new_txt_len("new_mem_lock();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5490);}while(r);
do{
SUB_WRITEBUFLINE(&(pass705=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5491);}while(r);
do{
SUB_WRITEBUFLINE(&(pass706=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock->type=3;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5492);}while(r);
S_6323:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5494);if(r)goto S_6323;}
do{
SUB_WRITEBUFLINE(&(pass707=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5495);}while(r);
S_6325:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||is_error_pending()){
if(qbevent){evnt(5496);if(r)goto S_6325;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5497);}while(r);
S_6327:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(5498);if(r)goto S_6327;}
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5499);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5500);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_THISINCNAME),qbs_new_txt_len(",",1)),qbs_str((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))),qbs_new_txt_len(") ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5501);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass709=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_SUBNAME,qbs_new_txt_len(",48),func_chr( 34 )),__STRING_INCLINENUMP),__STRING_SUBFUNCORIGINALNAME),func_chr( 34 )),qbs_new_txt_len(",",1)),qbs__tostr((int32)(((int32)(qbs_add(__STRING_INCLINENUMP,__STRING_SUBFUNCORIGINALNAME))->len)),NULL,0)),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5504);}while(r);
do{
SUB_WRITEBUFLINE(&(pass710=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5505);}while(r);
do{
SUB_WRITEBUFLINE(&(pass711=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_INTERNALSUBNAME,qbs_new_txt_len(",56),func_chr( 34 )),__STRING_SUBFUNC),func_chr( 34 )),qbs_new_txt_len(",",1)),qbs__tostr((int32)(__STRING_SUBFUNC->len),NULL,0)),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5506);}while(r);
do{
SUB_WRITEBUFLINE(&(pass713=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5507);}while(r);
do{
SUB_WRITEBUFLINE(&(pass714=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5508);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass715=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (is_error_pending()) goto exit_subfunc;",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5512);}while(r);
do{
*__LONG_DIMSTATIC=*__LONG_STATICSF;
if(!qbevent)break;evnt(5517);}while(r);
LABEL_DECLIBJMP4:;
if(qbevent){evnt(5519);r=0;}
S_6341:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5521);if(r)goto S_6341;}
S_6342:;
if ((*__LONG_CUSTOMTYPELIBRARY)||is_error_pending()){
if(qbevent){evnt(5523);if(r)goto S_6342;}
do{
qbs_set(__STRING_CALLNAME,FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5525);}while(r);
do{
SUB_WRITEBUFLINE(&(pass716=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CUSTOMCALL_",11),__STRING_CALLNAME),qbs_new_txt_len(" *",2)),__STRING_CALLNAME),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5527);}while(r);
S_6345:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5529);if(r)goto S_6345;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5530);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5532);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass717=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CALLNAME,qbs_new_txt_len("=(CUSTOMCALL_",13)),__STRING_CALLNAME),qbs_new_txt_len("*)&",3)),__STRING_ALIASNAME),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5535);}while(r);
S_6351:;
if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||is_error_pending()){
if(qbevent){evnt(5538);if(r)goto S_6351;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5539);}while(r);
S_6353:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5541);if(r)goto S_6353;}
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5542);}while(r);
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5543);}while(r);
do{
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
preserve_old_ptr=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0];
preserve_old_flags=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2];
preserve_old_total=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]=alloc_new_desc[4];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=alloc_new_desc[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=alloc_new_desc[6];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5544);}while(r);
}
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5546);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5547);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(5548);}while(r);
}
}
S_6363:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(5553);if(r)goto S_6363;}
S_6364:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(5554);if(r)goto S_6364;}
do{
SUB_WRITEBUFLINE(&(pass718=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLLCALL_",8),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5556);}while(r);
S_6366:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5558);if(r)goto S_6366;}
do{
*__LONG_F=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5559);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5561);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass719=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5564);}while(r);
S_6372:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5565);if(r)goto S_6372;}
do{
SUB_WRITEBUFLINE(&(pass720=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len(")GetProcAddress(DLL_",20)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5566);}while(r);
do{
SUB_WRITEBUFLINE(&(pass721=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len(") error(260);",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5567);}while(r);
}
S_6376:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5569);if(r)goto S_6376;}
do{
SUB_WRITEBUFLINE(&(pass722=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)))),qbs_new_txt_len(")dlsym(DLL_",11)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5570);}while(r);
do{
SUB_WRITEBUFLINE(&(pass723=*__LONG_F),qbs_new_txt_len("if (dlerror()) error(260);",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5571);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass724=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5573);}while(r);
}
}
S_6383:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5578);if(r)goto S_6383;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5579);}while(r);
S_6385:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5581);if(r)goto S_6385;}
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5582);}while(r);
do{
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){
preserve_old_ptr=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0];
preserve_old_flags=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2];
preserve_old_total=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]) error(257);
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]=alloc_new_desc[4];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=alloc_new_desc[5];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=alloc_new_desc[6];
__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5583);}while(r);
do{
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){
preserve_old_ptr=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0];
preserve_old_flags=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2];
preserve_old_total=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
memset((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257);
}
}
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1;
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]=alloc_new_desc[4];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=alloc_new_desc[5];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=alloc_new_desc[6];
__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(5584);}while(r);
}
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5586);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5587);}while(r);
do{
tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(5588);}while(r);
}
S_6394:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5591);if(r)goto S_6394;}
do{
*__LONG_REGTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5592);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5597);}while(r);
}
}
S_6401:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(5602);if(r)goto S_6401;}
S_6402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(5603);if(r)goto S_6402;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(5604);}while(r);
S_6404:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(5605);if(r)goto S_6404;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(5605);}while(r);
}
S_6407:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5606);if(r)goto S_6407;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(5606);}while(r);
}
S_6410:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(5607);if(r)goto S_6410;}
S_6411:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5609);if(r)goto S_6411;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("END ",4),__STRING_SECONDELEMENT),qbs_new_txt_len(" without ",9)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5609);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5609);}while(r);
}
S_6415:;
if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 32 )))||is_error_pending()){
if(qbevent){evnt(5612);if(r)goto S_6415;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5613);}while(r);
S_6417:;
sc_726=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(5614);if(r)goto S_6417;}
S_6418:;
if (((sc_726==( 1 )))||is_error_pending()){
if(qbevent){evnt(5615);if(r)goto S_6418;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5615);}while(r);
sc_ec_28_end:;
goto sc_726_end;
}
S_6420:;
if (((sc_726==( 2 )))||is_error_pending()){
if(qbevent){evnt(5616);if(r)goto S_6420;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5616);}while(r);
sc_ec_29_end:;
goto sc_726_end;
}
S_6422:;
if (((sc_726==( 3 ))||(sc_726==( 4 )))||is_error_pending()){
if(qbevent){evnt(5617);if(r)goto S_6422;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5617);}while(r);
sc_ec_30_end:;
goto sc_726_end;
}
S_6424:;
if (((sc_726==( 5 )))||is_error_pending()){
if(qbevent){evnt(5618);if(r)goto S_6424;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5618);}while(r);
sc_ec_31_end:;
goto sc_726_end;
}
S_6426:;
if ((((sc_726>=( 10 ))&&(sc_726<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(5619);if(r)goto S_6426;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5619);}while(r);
sc_ec_32_end:;
goto sc_726_end;
}
sc_726_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(5621);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5622);}while(r);
}
S_6432:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||is_error_pending()){
if(qbevent){evnt(5625);if(r)goto S_6432;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(5626);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5627);}while(r);
}
S_6436:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
if(qbevent){evnt(5630);if(r)goto S_6436;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5630);}while(r);
}else{
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5630);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("End",3)),__STRING1_SP),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5631);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5632);}while(r);
S_6443:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5632);if(r)goto S_6443;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5632);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5632);}while(r);
}
S_6448:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5634);if(r)goto S_6448;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass728= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5635);}while(r);
}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5638);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(5638);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(5639);}while(r);
do{
SUB_WRITEBUFLINE(&(pass729=*__LONG_MAINTXTBUF),qbs_new_txt_len("exit_subfunc:;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5640);}while(r);
S_6455:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5641);if(r)goto S_6455;}
S_6456:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5642);if(r)goto S_6456;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass730= 0 ));
if(!qbevent)break;evnt(5643);}while(r);
do{
SUB_WRITEBUFLINE(&(pass731=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5644);}while(r);
do{
SUB_VWATCHADDLABEL(&(pass732= 0 ),&(pass733= -1 ));
if(!qbevent)break;evnt(5645);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass734=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5647);}while(r);
S_6462:;
if (((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
if(qbevent){evnt(5649);if(r)goto S_6462;}
do{
SUB_WRITEBUFLINE(&(pass735=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5650);}while(r);
do{
SUB_WRITEBUFLINE(&(pass736=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5651);}while(r);
do{
SUB_WRITEBUFLINE(&(pass737=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5652);}while(r);
S_6466:;
fornext_value739=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue739=*__LONG_LASTLINENUMBERLABELVWATCH;
fornext_step739= 1 ;
if (fornext_step739<0) fornext_step_negative739=1; else fornext_step_negative739=0;
if (is_error_pending()) goto fornext_error739;
goto fornext_entrylabel739;
while(1){
fornext_value739=fornext_step739+(*__LONG_I);
fornext_entrylabel739:
*__LONG_I=fornext_value739;
if (fornext_step_negative739){
if (fornext_value739<fornext_finalvalue739) break;
}else{
if (fornext_value739>fornext_finalvalue739) break;
}
fornext_error739:;
if(qbevent){evnt(5653);if(r)goto S_6466;}
S_6467:;
while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||is_error_pending()){
if(qbevent){evnt(5654);if(r)goto S_6467;}
do{
qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5655);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5656);}while(r);
ww_continue_740:;
}
ww_exit_740:;
S_6471:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5658);if(r)goto S_6471;}
do{
SUB_WRITEBUFLINE(&(pass742=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("    case ",9),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5659);}while(r);
do{
SUB_WRITEBUFLINE(&(pass743=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("        goto VWATCH_LABEL_",26),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5660);}while(r);
do{
SUB_WRITEBUFLINE(&(pass744=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5661);}while(r);
}
fornext_continue_738:;
}
fornext_exit_738:;
do{
SUB_WRITEBUFLINE(&(pass745=*__LONG_MAINTXTBUF),qbs_new_txt_len("    default:",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5664);}while(r);
do{
SUB_WRITEBUFLINE(&(pass746=*__LONG_MAINTXTBUF),qbs_new_txt_len("        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5665);}while(r);
do{
SUB_WRITEBUFLINE(&(pass747=*__LONG_MAINTXTBUF),qbs_new_txt_len("        goto VWATCH_SETNEXTLINE;",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5666);}while(r);
do{
SUB_WRITEBUFLINE(&(pass748=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5667);}while(r);
do{
SUB_WRITEBUFLINE(&(pass749=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5669);}while(r);
do{
SUB_WRITEBUFLINE(&(pass750=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5670);}while(r);
S_6483:;
fornext_value752=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue752=*__LONG_LASTLINENUMBERLABELVWATCH;
fornext_step752= 1 ;
if (fornext_step752<0) fornext_step_negative752=1; else fornext_step_negative752=0;
if (is_error_pending()) goto fornext_error752;
goto fornext_entrylabel752;
while(1){
fornext_value752=fornext_step752+(*__LONG_I);
fornext_entrylabel752:
*__LONG_I=fornext_value752;
if (fornext_step_negative752){
if (fornext_value752<fornext_finalvalue752) break;
}else{
if (fornext_value752>fornext_finalvalue752) break;
}
fornext_error752:;
if(qbevent){evnt(5671);if(r)goto S_6483;}
S_6484:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5672);if(r)goto S_6484;}
do{
SUB_WRITEBUFLINE(&(pass753=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("    case -",10),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5673);}while(r);
do{
SUB_WRITEBUFLINE(&(pass754=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("        goto VWATCH_SKIPLABEL_",30),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5674);}while(r);
do{
SUB_WRITEBUFLINE(&(pass755=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5675);}while(r);
}
fornext_continue_751:;
}
fornext_exit_751:;
do{
SUB_WRITEBUFLINE(&(pass756=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5678);}while(r);
do{
SUB_WRITEBUFLINE(&(pass757=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5680);}while(r);
}
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(5682);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass758=*__LONG_MAINTXTBUF),qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5686);}while(r);
do{
SUB_WRITEBUFLINE(&(pass759=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5688);}while(r);
do{
SUB_WRITEBUFLINE(&(pass760=*__LONG_MAINTXTBUF),qbs_new_txt_len("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;",164));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5689);}while(r);
do{
SUB_WRITEBUFLINE(&(pass761=*__LONG_MAINTXTBUF),qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5690);}while(r);
S_6499:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5691);if(r)goto S_6499;}
do{
SUB_WRITEBUFLINE(&(pass762=*__LONG_MAINTXTBUF),__STRING_SUBFUNCRET);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5691);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass763=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5693);}while(r);
do{
SUB_WRITEBUFLINE(&(pass764=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5695);}while(r);
do{
SUB_WRITEBUFLINE(&(pass765=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5696);}while(r);
do{
SUB_WRITEBUFLINE(&(pass766=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5697);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5698);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(5699);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main0.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5700);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5701);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(5702);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5703);}while(r);
do{
*__LONG_RETTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5704);}while(r);
S_6513:;
fornext_value768= 1 ;
fornext_finalvalue768=*__LONG_IDN;
fornext_step768= 1 ;
if (fornext_step768<0) fornext_step_negative768=1; else fornext_step_negative768=0;
if (is_error_pending()) goto fornext_error768;
goto fornext_entrylabel768;
while(1){
fornext_value768=fornext_step768+(*__LONG_I);
fornext_entrylabel768:
*__LONG_I=fornext_value768;
if (fornext_step_negative768){
if (fornext_value768<fornext_finalvalue768) break;
}else{
if (fornext_value768>fornext_finalvalue768) break;
}
fornext_error768:;
if(qbevent){evnt(5707);if(r)goto S_6513;}
S_6514:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))& 2 )||is_error_pending()){
if(qbevent){evnt(5708);if(r)goto S_6514;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))- 2 ;
if(!qbevent)break;evnt(5708);}while(r);
}
fornext_continue_767:;
}
fornext_exit_767:;
S_6518:;
fornext_value770= 1 ;
fornext_finalvalue770=*__LONG_REVERTMAYMUSTHAVEN;
fornext_step770= 1 ;
if (fornext_step770<0) fornext_step_negative770=1; else fornext_step_negative770=0;
if (is_error_pending()) goto fornext_error770;
goto fornext_entrylabel770;
while(1){
fornext_value770=fornext_step770+(*__LONG_I);
fornext_entrylabel770:
*__LONG_I=fornext_value770;
if (fornext_step_negative770){
if (fornext_value770<fornext_finalvalue770) break;
}else{
if (fornext_value770>fornext_finalvalue770) break;
}
fornext_error770:;
if(qbevent){evnt(5711);if(r)goto S_6518;}
do{
*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])];
if(!qbevent)break;evnt(5712);}while(r);
do{
swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528))),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520))),8,1));
if(!qbevent)break;evnt(5713);}while(r);
fornext_continue_769:;
}
fornext_exit_769:;
do{
*__LONG_REVERTMAYMUSTHAVEN= 0 ;
if(!qbevent)break;evnt(5715);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5716);}while(r);
}
}
}
S_6527:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||is_error_pending()){
if(qbevent){evnt(5724);if(r)goto S_6527;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5725);}while(r);
S_6529:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(5728);if(r)goto S_6529;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5728);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5728);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(5729);}while(r);
LABEL_CONSTDEFPENDING:;
if(qbevent){evnt(5731);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(5732);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5734);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5734);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5735);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(5736);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5737);}while(r);
S_6540:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5738);if(r)goto S_6540;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5738);}while(r);
}
S_6543:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5739);if(r)goto S_6543;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5740);}while(r);
S_6545:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5741);if(r)goto S_6545;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5741);}while(r);
}
S_6548:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(5742);if(r)goto S_6548;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5742);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5742);}while(r);
}
S_6552:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(5743);if(r)goto S_6552;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5743);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5743);}while(r);
}
}
S_6557:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(5746);if(r)goto S_6557;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5746);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5746);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5747);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5750);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(5751);}while(r);
S_6564:;
fornext_value772=*__LONG_I;
fornext_finalvalue772=*__LONG_N;
fornext_step772= 1 ;
if (fornext_step772<0) fornext_step_negative772=1; else fornext_step_negative772=0;
if (is_error_pending()) goto fornext_error772;
goto fornext_entrylabel772;
while(1){
fornext_value772=fornext_step772+(*__LONG_I2);
fornext_entrylabel772:
*__LONG_I2=fornext_value772;
if (fornext_step_negative772){
if (fornext_value772<fornext_finalvalue772) break;
}else{
if (fornext_value772>fornext_finalvalue772) break;
}
fornext_error772:;
if(qbevent){evnt(5752);if(r)goto S_6564;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5753);}while(r);
S_6566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5754);if(r)goto S_6566;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(5754);}while(r);
}
S_6569:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5755);if(r)goto S_6569;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(5755);}while(r);
}
S_6572:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(5756);if(r)goto S_6572;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(5757);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(5758);}while(r);
S_6575:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(5759);if(r)goto S_6575;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5759);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5759);}while(r);
}
do{
goto fornext_exit_771;
if(!qbevent)break;evnt(5760);}while(r);
}
S_6581:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5762);if(r)goto S_6581;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5762);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5762);}while(r);
}
fornext_continue_771:;
}
fornext_exit_771:;
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5765);}while(r);
S_6588:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5766);if(r)goto S_6588;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5766);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5767);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5772);}while(r);
do{
*__LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(5773);}while(r);
do{
*__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5774);}while(r);
S_6595:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(5775);if(r)goto S_6595;}
S_6596:;
if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(5776);if(r)goto S_6596;}
do{
tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(5776);}while(r);
do{
goto dl_exit_774;
if(!qbevent)break;evnt(5776);}while(r);
}
S_6600:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(5777);if(r)goto S_6600;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(5777);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(5777);}while(r);
}
dl_continue_774:;
}
dl_exit_774:;
S_6606:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(5780);if(r)goto S_6606;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5780);}while(r);
do{
goto LABEL_CONSTDEFPENDING;
if(!qbevent)break;evnt(5780);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5782);}while(r);
S_6611:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5782);if(r)goto S_6611;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5782);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5782);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5784);}while(r);
}
LABEL_PREDEFINE:;
if(qbevent){evnt(5787);r=0;}
S_6618:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5788);if(r)goto S_6618;}
do{
*__LONG_ASREQ= 0 ;
if(!qbevent)break;evnt(5789);}while(r);
S_6620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(5790);if(r)goto S_6620;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5790);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("INTEGER",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5790);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5790);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5790);}while(r);
}
S_6626:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(5791);if(r)goto S_6626;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5791);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("LONG",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5791);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5791);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5791);}while(r);
}
S_6632:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(5792);if(r)goto S_6632;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5792);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("SINGLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5792);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5792);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5792);}while(r);
}
S_6638:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(5793);if(r)goto S_6638;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5793);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("DOUBLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5793);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5793);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5793);}while(r);
}
S_6644:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(5794);if(r)goto S_6644;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5794);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("STRING",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5794);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(5794);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(5794);}while(r);
}
S_6650:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(5795);if(r)goto S_6650;}
do{
*__LONG_ASREQ= 1 ;
if(!qbevent)break;evnt(5796);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5797);}while(r);
LABEL_DEFINETYPE:;
if(qbevent){evnt(5798);r=0;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5800);}while(r);
do{
qbs_set(__STRING_TYP2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5801);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5802);}while(r);
S_6656:;
fornext_value777=*__LONG_N;
fornext_finalvalue777= 2 ;
fornext_step777= -1 ;
if (fornext_step777<0) fornext_step_negative777=1; else fornext_step_negative777=0;
if (is_error_pending()) goto fornext_error777;
goto fornext_entrylabel777;
while(1){
fornext_value777=fornext_step777+(*__LONG_I);
fornext_entrylabel777:
*__LONG_I=fornext_value777;
if (fornext_step_negative777){
if (fornext_value777<fornext_finalvalue777) break;
}else{
if (fornext_value777>fornext_finalvalue777) break;
}
fornext_error777:;
if(qbevent){evnt(5803);if(r)goto S_6656;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5804);}while(r);
S_6658:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5805);if(r)goto S_6658;}
do{
goto fornext_exit_776;
if(!qbevent)break;evnt(5805);}while(r);
}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5806);}while(r);
do{
qbs_set(__STRING_TYP2,qbs_add(qbs_add(__STRING_T,__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5807);}while(r);
fornext_continue_776:;
}
fornext_exit_776:;
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5809);}while(r);
S_6665:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5810);if(r)goto S_6665;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5810);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5810);}while(r);
}
S_6669:;
if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||is_error_pending()){
if(qbevent){evnt(5811);if(r)goto S_6669;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5811);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5811);}while(r);
}
do{
*__LONG_N=*__LONG_I- 1 ;
if(!qbevent)break;evnt(5814);}while(r);
do{
*__LONG_I= 2 - 1 ;
if(!qbevent)break;evnt(5816);}while(r);
LABEL_DEFINENEXT:;
if(qbevent){evnt(5817);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5819);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5819);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5819);}while(r);
S_6678:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(5820);if(r)goto S_6678;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5820);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5820);}while(r);
}
S_6682:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(5821);if(r)goto S_6682;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5821);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5821);}while(r);
}
S_6686:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(5822);if(r)goto S_6686;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(5822);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(5822);}while(r);
}
do{
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5823);}while(r);
do{
tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5824);}while(r);
S_6693:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5825);if(r)goto S_6693;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5825);}while(r);
}
do{
*__LONG_FIRSTE=*__LONG_E;
if(!qbevent)break;evnt(5826);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5827);}while(r);
S_6698:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5829);if(r)goto S_6698;}
S_6699:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5830);if(r)goto S_6699;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5830);}while(r);
}
S_6702:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(5831);if(r)goto S_6702;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5831);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5832);}while(r);
S_6706:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5832);if(r)goto S_6706;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5832);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5832);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5833);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5837);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5837);}while(r);
S_6715:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_E,qbs_new_txt_len("-",1)))&(qbs_notequal(__STRING_E,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(5838);if(r)goto S_6715;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected - or ,",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5838);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5838);}while(r);
}
S_6719:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(5839);if(r)goto S_6719;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5840);}while(r);
S_6721:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5841);if(r)goto S_6721;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Syntax incomplete",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5841);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5841);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5843);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5843);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5843);}while(r);
S_6728:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(5844);if(r)goto S_6728;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5844);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5844);}while(r);
}
S_6732:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(5845);if(r)goto S_6732;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5845);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5845);}while(r);
}
S_6736:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(5846);if(r)goto S_6736;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(5846);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(5846);}while(r);
}
S_6741:;
if ((-(*__LONG_FIRSTE>*__LONG_E))||is_error_pending()){
if(qbevent){evnt(5847);if(r)goto S_6741;}
do{
swap_32(&*__LONG_E,&*__LONG_FIRSTE);
if(!qbevent)break;evnt(5847);}while(r);
}
S_6744:;
fornext_value782=*__LONG_FIRSTE;
fornext_finalvalue782=*__LONG_E;
fornext_step782= 1 ;
if (fornext_step782<0) fornext_step_negative782=1; else fornext_step_negative782=0;
if (is_error_pending()) goto fornext_error782;
goto fornext_entrylabel782;
while(1){
fornext_value782=fornext_step782+(*__LONG_E2);
fornext_entrylabel782:
*__LONG_E2=fornext_value782;
if (fornext_step_negative782){
if (fornext_value782<fornext_finalvalue782) break;
}else{
if (fornext_value782>fornext_finalvalue782) break;
}
fornext_error782:;
if(qbevent){evnt(5848);if(r)goto S_6744;}
do{
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5849);}while(r);
do{
tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5850);}while(r);
S_6747:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5851);if(r)goto S_6747;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5851);}while(r);
}
fornext_continue_781:;
}
fornext_exit_781:;
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5853);}while(r);
S_6752:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5854);if(r)goto S_6752;}
S_6753:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5855);if(r)goto S_6753;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5855);}while(r);
}
S_6756:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(5856);if(r)goto S_6756;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5856);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5857);}while(r);
S_6760:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5857);if(r)goto S_6760;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5857);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5857);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5858);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(5861);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5861);}while(r);
S_6769:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5862);if(r)goto S_6769;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ,",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5862);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5862);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5864);}while(r);
do{
goto LABEL_DEFINENEXT;
if(!qbevent)break;evnt(5865);}while(r);
}
}
S_6778:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(5868);if(r)goto S_6778;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(5868);}while(r);
}
do{
*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ;
if(!qbevent)break;evnt(5872);}while(r);
S_6782:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5875);if(r)goto S_6782;}
S_6783:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(5876);if(r)goto S_6783;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5878);}while(r);
S_6785:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5879);if(r)goto S_6785;}
do{
goto LABEL_SIMPLENEXT;
if(!qbevent)break;evnt(5879);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5880);}while(r);
S_6789:;
fornext_value785= 2 ;
fornext_finalvalue785=*__LONG_N;
fornext_step785= 1 ;
if (fornext_step785<0) fornext_step_negative785=1; else fornext_step_negative785=0;
if (is_error_pending()) goto fornext_error785;
goto fornext_entrylabel785;
while(1){
fornext_value785=fornext_step785+(*__LONG_I);
fornext_entrylabel785:
*__LONG_I=fornext_value785;
if (fornext_step_negative785){
if (fornext_value785<fornext_finalvalue785) break;
}else{
if (fornext_value785>fornext_finalvalue785) break;
}
fornext_error785:;
if(qbevent){evnt(5881);if(r)goto S_6789;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5882);}while(r);
S_6791:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5884);if(r)goto S_6791;}
LABEL_LASTNEXTELE:;
if(qbevent){evnt(5886);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5887);}while(r);
S_6793:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5888);if(r)goto S_6793;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5888);}while(r);
}
S_6796:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||is_error_pending()){
if(qbevent){evnt(5889);if(r)goto S_6796;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5889);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5889);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5890);}while(r);
S_6802:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5891);if(r)goto S_6802;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5891);}while(r);
}
S_6805:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5892);if(r)goto S_6805;}
do{
SUB_GETID(&(pass787=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5893);}while(r);
S_6807:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5894);if(r)goto S_6807;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5894);}while(r);
}
S_6810:;
if (((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(5895);if(r)goto S_6810;}
S_6811:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(5896);if(r)goto S_6811;}
S_6812:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(5897);if(r)goto S_6812;}
S_6813:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(5898);if(r)goto S_6813;}
do{
goto LABEL_FORNEXTFOUNDVAR2;
if(!qbevent)break;evnt(5899);}while(r);
}
}
}
}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable after NEXT",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5905);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5905);}while(r);
LABEL_FORNEXTFOUNDVAR2:;
if(qbevent){evnt(5906);r=0;}
LABEL_SIMPLENEXT:;
if(qbevent){evnt(5907);r=0;}
S_6822:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||is_error_pending()){
if(qbevent){evnt(5908);if(r)goto S_6822;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5908);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5908);}while(r);
}
S_6826:;
if (((-(*__LONG_N!= 1 ))&(-(((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]!=*__LONG_CURRENTID)))||is_error_pending()){
if(qbevent){evnt(5909);if(r)goto S_6826;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5909);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5909);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass788=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5910);}while(r);
S_6831:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_CHECKINGON== 1 )))||is_error_pending()){
if(qbevent){evnt(5911);if(r)goto S_6831;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass789= 0 ));
if(!qbevent)break;evnt(5912);}while(r);
do{
SUB_WRITEBUFLINE(&(pass790=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5913);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass791=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5915);}while(r);
do{
SUB_WRITEBUFLINE(&(pass792=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5916);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5917);}while(r);
S_6838:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5918);if(r)goto S_6838;}
do{
goto fornext_exit_784;
if(!qbevent)break;evnt(5918);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5919);}while(r);
}else{
S_6843:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(5923);if(r)goto S_6843;}
do{
qbs_set(__STRING_V,qbs_add(qbs_add(__STRING_V,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5923);}while(r);
}else{
do{
qbs_set(__STRING_V,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5923);}while(r);
}
S_6848:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5924);if(r)goto S_6848;}
do{
goto LABEL_LASTNEXTELE;
if(!qbevent)break;evnt(5924);}while(r);
}
}
fornext_continue_784:;
}
fornext_exit_784:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5930);}while(r);
S_6854:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5930);if(r)goto S_6854;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5930);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5930);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5931);}while(r);
}
}
S_6862:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5937);if(r)goto S_6862;}
S_6863:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(5938);if(r)goto S_6863;}
S_6864:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5939);if(r)goto S_6864;}
do{
SUB_WRITEBUFLINE(&(pass795=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5939);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5939);}while(r);
}
S_6868:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5942);if(r)goto S_6868;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5943);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5943);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5946);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(5947);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ;
if(!qbevent)break;evnt(5948);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(5949);}while(r);
S_6876:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(5950);if(r)goto S_6876;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass796= 2 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5951);}while(r);
S_6878:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5952);if(r)goto S_6878;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5952);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("While",5)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5953);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5954);}while(r);
S_6883:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5954);if(r)goto S_6883;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5954);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5954);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5955);}while(r);
S_6889:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5956);if(r)goto S_6889;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5956);}while(r);
}
S_6892:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(5957);if(r)goto S_6892;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass798= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5957);}while(r);
}
S_6895:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5958);if(r)goto S_6895;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5958);}while(r);
}
S_6898:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(5959);if(r)goto S_6898;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5959);}while(r);
}
S_6901:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5960);if(r)goto S_6901;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Cannot accept a STRING type.",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5960);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5960);}while(r);
}
S_6905:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5961);if(r)goto S_6905;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass799= 0 ));
if(!qbevent)break;evnt(5962);}while(r);
do{
SUB_WRITEBUFLINE(&(pass800=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5963);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass801=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5965);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Expected expression after WHILE.",45));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5967);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5967);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(5970);}while(r);
}
}
S_6917:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5974);if(r)goto S_6917;}
S_6918:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||is_error_pending()){
if(qbevent){evnt(5975);if(r)goto S_6918;}
S_6919:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||is_error_pending()){
if(qbevent){evnt(5978);if(r)goto S_6919;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5978);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5978);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass802=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5979);}while(r);
do{
SUB_WRITEBUFLINE(&(pass803=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5980);}while(r);
do{
SUB_WRITEBUFLINE(&(pass804=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5981);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5982);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Wend",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5983);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5984);}while(r);
S_6929:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5984);if(r)goto S_6929;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5984);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5984);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5985);}while(r);
}
}
S_6937:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5993);if(r)goto S_6937;}
S_6938:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(5994);if(r)goto S_6938;}
S_6939:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(5995);if(r)goto S_6939;}
do{
SUB_WRITEBUFLINE(&(pass806=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5995);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(5995);}while(r);
}
S_6943:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(5998);if(r)goto S_6943;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5999);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5999);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6002);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6003);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6004);}while(r);
S_6950:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6005);if(r)goto S_6950;}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(6006);}while(r);
S_6952:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6007);if(r)goto S_6952;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(6007);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6007);}while(r);
}
S_6956:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(6008);if(r)goto S_6956;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(6008);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6008);}while(r);
}
S_6960:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(6009);if(r)goto S_6960;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Expected WHILE or UNTIL after DO.",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6009);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6009);}while(r);
}
S_6964:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(6010);if(r)goto S_6964;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6010);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6010);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass807= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6011);}while(r);
S_6969:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6012);if(r)goto S_6969;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6012);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6013);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6014);}while(r);
S_6974:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6015);if(r)goto S_6974;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6015);}while(r);
}
S_6977:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6016);if(r)goto S_6977;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass808= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6016);}while(r);
}
S_6980:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6017);if(r)goto S_6980;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6017);}while(r);
}
S_6983:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6018);if(r)goto S_6983;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6018);}while(r);
}
S_6986:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6019);if(r)goto S_6986;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Cannot accept a STRING type.",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6019);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6019);}while(r);
}
S_6990:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(6020);if(r)goto S_6990;}
do{
SUB_WRITEBUFLINE(&(pass809=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6020);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass810=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6020);}while(r);
}
S_6995:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6021);if(r)goto S_6995;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass811= 0 ));
if(!qbevent)break;evnt(6022);}while(r);
do{
SUB_WRITEBUFLINE(&(pass812=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6023);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ;
if(!qbevent)break;evnt(6025);}while(r);
}else{
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ;
if(!qbevent)break;evnt(6027);}while(r);
S_7002:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_CHECKINGON== 1 )))||is_error_pending()){
if(qbevent){evnt(6028);if(r)goto S_7002;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass813= 0 ));
if(!qbevent)break;evnt(6029);}while(r);
do{
SUB_WRITEBUFLINE(&(pass814=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6030);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass815=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6032);}while(r);
}
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(6035);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6036);}while(r);
S_7011:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6036);if(r)goto S_7011;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6036);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6036);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6037);}while(r);
}
}
S_7019:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6041);if(r)goto S_7019;}
S_7020:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
if(qbevent){evnt(6042);if(r)goto S_7020;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6043);}while(r);
S_7022:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 3 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 4 )))||is_error_pending()){
if(qbevent){evnt(6044);if(r)goto S_7022;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6044);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6044);}while(r);
}
S_7026:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6045);if(r)goto S_7026;}
S_7027:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6046);if(r)goto S_7027;}
do{
SUB_WRITEBUFLINE(&(pass817=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6046);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6046);}while(r);
}
S_7031:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
if(qbevent){evnt(6047);if(r)goto S_7031;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6047);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6047);}while(r);
}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(6048);}while(r);
S_7036:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6049);if(r)goto S_7036;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(6049);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6049);}while(r);
}
S_7040:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(6050);if(r)goto S_7040;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(6050);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6050);}while(r);
}
S_7044:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(6051);if(r)goto S_7044;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Expected WHILE or UNTIL after LOOP.",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6051);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6051);}while(r);
}
S_7048:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(6052);if(r)goto S_7048;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6052);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6052);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass818= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6053);}while(r);
S_7053:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6054);if(r)goto S_7053;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6054);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6055);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6056);}while(r);
S_7058:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6057);if(r)goto S_7058;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6057);}while(r);
}
S_7061:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6058);if(r)goto S_7061;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass819= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6058);}while(r);
}
S_7064:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6059);if(r)goto S_7064;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6059);}while(r);
}
S_7067:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6060);if(r)goto S_7067;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6060);}while(r);
}
S_7070:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6061);if(r)goto S_7070;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Cannot accept a STRING type.",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6061);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6061);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass820=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6062);}while(r);
S_7075:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6063);if(r)goto S_7075;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass821= 0 ));
if(!qbevent)break;evnt(6064);}while(r);
do{
SUB_WRITEBUFLINE(&(pass822=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6065);}while(r);
}
S_7079:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(6067);if(r)goto S_7079;}
do{
SUB_WRITEBUFLINE(&(pass823=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!is_error_pending()));",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6067);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass824=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!is_error_pending()));",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6067);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass825=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6069);}while(r);
S_7086:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6071);if(r)goto S_7086;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass826= 0 ));
if(!qbevent)break;evnt(6072);}while(r);
do{
SUB_WRITEBUFLINE(&(pass827=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6073);}while(r);
}
S_7090:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||is_error_pending()){
if(qbevent){evnt(6076);if(r)goto S_7090;}
do{
SUB_WRITEBUFLINE(&(pass828=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6077);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass829=*__LONG_MAINTXTBUF),qbs_new_txt_len("}while(1);",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6079);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass830=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6082);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6083);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6084);}while(r);
S_7099:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6084);if(r)goto S_7099;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6084);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6084);}while(r);
}
S_7104:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6085);if(r)goto S_7104;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6085);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6086);}while(r);
}
}
S_7110:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6098);if(r)goto S_7110;}
S_7111:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(6099);if(r)goto S_7111;}
S_7112:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6100);if(r)goto S_7112;}
do{
SUB_WRITEBUFLINE(&(pass832=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6100);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6100);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6102);}while(r);
S_7117:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6105);if(r)goto S_7117;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6106);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6106);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6109);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6110);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(6111);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(6112);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6114);}while(r);
do{
qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6115);}while(r);
do{
qbs_set(__STRING_P3,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6116);}while(r);
do{
*__LONG_STEPUSED= 0 ;
if(!qbevent)break;evnt(6116);}while(r);
do{
qbs_set(__STRING_P2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6117);}while(r);
do{
*__LONG_MODE= 0 ;
if(!qbevent)break;evnt(6118);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(6119);}while(r);
S_7132:;
fornext_value834= 2 ;
fornext_finalvalue834=*__LONG_N;
fornext_step834= 1 ;
if (fornext_step834<0) fornext_step_negative834=1; else fornext_step_negative834=0;
if (is_error_pending()) goto fornext_error834;
goto fornext_entrylabel834;
while(1){
fornext_value834=fornext_step834+(*__LONG_I);
fornext_entrylabel834:
*__LONG_I=fornext_value834;
if (fornext_step_negative834){
if (fornext_value834<fornext_finalvalue834) break;
}else{
if (fornext_value834>fornext_finalvalue834) break;
}
fornext_error834:;
if(qbevent){evnt(6120);if(r)goto S_7132;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6121);}while(r);
S_7134:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(6122);if(r)goto S_7134;}
S_7135:;
if ((-(*__LONG_MODE!= 0 ))||is_error_pending()){
if(qbevent){evnt(6123);if(r)goto S_7135;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6123);}while(r);
do{
goto fornext_exit_833;
if(!qbevent)break;evnt(6123);}while(r);
}
do{
*__LONG_MODE= 1 ;
if(!qbevent)break;evnt(6124);}while(r);
do{
qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass835= 2 ),&(pass836=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6125);}while(r);
do{
*__LONG_EQUPOS=*__LONG_I;
if(!qbevent)break;evnt(6126);}while(r);
}
S_7143:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||is_error_pending()){
if(qbevent){evnt(6128);if(r)goto S_7143;}
S_7144:;
if ((-(*__LONG_MODE!= 1 ))||is_error_pending()){
if(qbevent){evnt(6129);if(r)goto S_7144;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6129);}while(r);
do{
goto fornext_exit_833;
if(!qbevent)break;evnt(6129);}while(r);
}
do{
*__LONG_MODE= 2 ;
if(!qbevent)break;evnt(6130);}while(r);
do{
qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass837=*__LONG_EQUPOS+ 1 ),&(pass838=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6131);}while(r);
do{
*__LONG_TOPOS=*__LONG_I;
if(!qbevent)break;evnt(6132);}while(r);
}
S_7152:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(6134);if(r)goto S_7152;}
S_7153:;
if ((-(*__LONG_MODE!= 2 ))||is_error_pending()){
if(qbevent){evnt(6135);if(r)goto S_7153;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6135);}while(r);
do{
goto fornext_exit_833;
if(!qbevent)break;evnt(6135);}while(r);
}
do{
*__LONG_MODE= 3 ;
if(!qbevent)break;evnt(6136);}while(r);
do{
*__LONG_STEPUSED= 1 ;
if(!qbevent)break;evnt(6137);}while(r);
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass839=*__LONG_TOPOS+ 1 ),&(pass840=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6138);}while(r);
do{
qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass841=*__LONG_I+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6139);}while(r);
do{
goto fornext_exit_833;
if(!qbevent)break;evnt(6140);}while(r);
}
fornext_continue_833:;
}
fornext_exit_833:;
S_7164:;
if ((-(*__LONG_MODE< 2 ))||is_error_pending()){
if(qbevent){evnt(6143);if(r)goto S_7164;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6143);}while(r);
}
S_7167:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6144);if(r)goto S_7167;}
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass842=*__LONG_TOPOS+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6144);}while(r);
}
S_7170:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(6145);if(r)goto S_7170;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6145);}while(r);
}
S_7173:;
if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||is_error_pending()){
if(qbevent){evnt(6146);if(r)goto S_7173;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6146);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6146);}while(r);
}
S_7177:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(6147);if(r)goto S_7177;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end STEP increment",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6147);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6147);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6149);}while(r);
S_7182:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6150);if(r)goto S_7182;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6150);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6151);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6152);}while(r);
S_7187:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6153);if(r)goto S_7187;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6153);}while(r);
}
S_7190:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6154);if(r)goto S_7190;}
do{
SUB_GETID(&(pass846=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6155);}while(r);
S_7192:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6156);if(r)goto S_7192;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6156);}while(r);
}
S_7195:;
if (((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(6157);if(r)goto S_7195;}
S_7196:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6158);if(r)goto S_7196;}
S_7197:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(6159);if(r)goto S_7197;}
S_7198:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+536)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(6160);if(r)goto S_7198;}
do{
goto LABEL_FORNEXTFOUNDVAR;
if(!qbevent)break;evnt(6161);}while(r);
}
}
}
}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6167);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6167);}while(r);
LABEL_FORNEXTFOUNDVAR:;
if(qbevent){evnt(6168);r=0;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID;
if(!qbevent)break;evnt(6169);}while(r);
do{
qbs_set(__STRING_V,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6170);}while(r);
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6174);}while(r);
do{
*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(6175);}while(r);
do{
*__LONG_BITS=*__LONG_TYP& 511 ;
if(!qbevent)break;evnt(6176);}while(r);
S_7212:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6177);if(r)goto S_7212;}
S_7213:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6178);if(r)goto S_7213;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6178);}while(r);
do{
*__LONG_CTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6178);}while(r);
}
S_7217:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6179);if(r)goto S_7217;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6179);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6179);}while(r);
}
S_7221:;
if ((-(*__LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(6180);if(r)goto S_7221;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6180);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6180);}while(r);
}
}else{
S_7226:;
if ((-(*__LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(6182);if(r)goto S_7226;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6182);}while(r);
do{
*__LONG_CTYP= 16 ;
if(!qbevent)break;evnt(6182);}while(r);
}
S_7230:;
if ((-(*__LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(6183);if(r)goto S_7230;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6183);}while(r);
do{
*__LONG_CTYP= 32 ;
if(!qbevent)break;evnt(6183);}while(r);
}
S_7234:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6184);if(r)goto S_7234;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6184);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6184);}while(r);
}
S_7238:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6185);if(r)goto S_7238;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6185);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6185);}while(r);
}
}
S_7243:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6187);if(r)goto S_7243;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6187);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6187);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6188);}while(r);
S_7248:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6190);if(r)goto S_7248;}
do{
SUB_WRITEBUFLINE(&(pass847=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6191);}while(r);
do{
SUB_WRITEBUFLINE(&(pass848=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6192);}while(r);
do{
SUB_WRITEBUFLINE(&(pass849=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6193);}while(r);
do{
SUB_WRITEBUFLINE(&(pass850=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6194);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass851=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6196);}while(r);
do{
SUB_WRITEBUFLINE(&(pass852=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6197);}while(r);
do{
SUB_WRITEBUFLINE(&(pass853=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6198);}while(r);
do{
SUB_WRITEBUFLINE(&(pass854=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6199);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6203);}while(r);
S_7260:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6204);if(r)goto S_7260;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6204);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6205);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6206);}while(r);
S_7265:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6207);if(r)goto S_7265;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6207);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass855=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6208);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6211);}while(r);
S_7270:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6212);if(r)goto S_7270;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6212);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6213);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6214);}while(r);
S_7275:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6215);if(r)goto S_7275;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6215);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass856=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_finalvalue",18),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6216);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6219);}while(r);
S_7280:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6220);if(r)goto S_7280;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6220);}while(r);
}
S_7283:;
if ((-(*__LONG_STEPUSED== 1 ))||is_error_pending()){
if(qbevent){evnt(6221);if(r)goto S_7283;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Step",4))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6221);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6222);}while(r);
S_7287:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6223);if(r)goto S_7287;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6223);}while(r);
}
S_7290:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6225);if(r)goto S_7290;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass857= 0 ));
if(!qbevent)break;evnt(6226);}while(r);
do{
SUB_WRITEBUFLINE(&(pass858=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6227);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass859=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_step",12),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6230);}while(r);
do{
SUB_WRITEBUFLINE(&(pass860=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step",16),__STRING_U),qbs_new_txt_len("<0) fornext_step_negative",25)),__STRING_U),qbs_new_txt_len("=1; else fornext_step_negative",30)),__STRING_U),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6231);}while(r);
do{
SUB_WRITEBUFLINE(&(pass861=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto fornext_error",42),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6233);}while(r);
do{
SUB_WRITEBUFLINE(&(pass862=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6234);}while(r);
do{
SUB_WRITEBUFLINE(&(pass863=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(1){",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6235);}while(r);
do{
*__LONG_TYPBAK=*__LONG_TYP;
if(!qbevent)break;evnt(6236);}while(r);
do{
SUB_WRITEBUFLINE(&(pass864=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=fornext_step",13)),__STRING_U),qbs_new_txt_len("+(",2)),FUNC_REFER(__STRING_V,__LONG_TYP,&(pass865= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6237);}while(r);
S_7301:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6238);if(r)goto S_7301;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6238);}while(r);
}
do{
*__LONG_TYP=*__LONG_TYPBAK;
if(!qbevent)break;evnt(6239);}while(r);
do{
SUB_WRITEBUFLINE(&(pass866=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6240);}while(r);
do{
SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass867= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6241);}while(r);
S_7307:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6242);if(r)goto S_7307;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6242);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass868=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6243);}while(r);
do{
SUB_WRITEBUFLINE(&(pass869=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len("<fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6244);}while(r);
do{
SUB_WRITEBUFLINE(&(pass870=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6245);}while(r);
do{
SUB_WRITEBUFLINE(&(pass871=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len(">fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6246);}while(r);
do{
SUB_WRITEBUFLINE(&(pass872=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6247);}while(r);
do{
SUB_WRITEBUFLINE(&(pass873=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6248);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6250);}while(r);
S_7317:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6250);if(r)goto S_7317;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6250);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6250);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6252);}while(r);
}
}
S_7325:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6257);if(r)goto S_7325;}
S_7326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(6258);if(r)goto S_7326;}
do{
qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6267);}while(r);
S_7328:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||is_error_pending()){
if(qbevent){evnt(6268);if(r)goto S_7328;}
do{
tqbs=__STRING_TEMP; if (!is_error_pending()){
tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!is_error_pending()){
tmp_long= 32 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(6269);}while(r);
dl_continue_875:;
}
dl_exit_875:;
do{
*__LONG_GOODELSE= 0 ;
if(!qbevent)break;evnt(6271);}while(r);
S_7332:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(6272);if(r)goto S_7332;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6272);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6272);}while(r);
}
S_7336:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(6273);if(r)goto S_7336;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6273);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6273);}while(r);
}
S_7340:;
do{
if(qbevent){evnt(6274);if(r)goto S_7340;}
do{
*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6275);}while(r);
S_7342:;
if ((*__LONG_SPACELOCATION)||is_error_pending()){
if(qbevent){evnt(6276);if(r)goto S_7342;}
do{
qbs_set(__STRING_TEMP,qbs_add(qbs_left(__STRING_TEMP,*__LONG_SPACELOCATION- 1 ),func_mid(__STRING_TEMP,*__LONG_SPACELOCATION+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6276);}while(r);
}
S_7345:;
dl_continue_876:;
}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!is_error_pending()));
dl_exit_876:;
if(qbevent){evnt(6277);if(r)goto S_7345;}
S_7346:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":ELSE",5),0)|func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":IF",3),0)))||is_error_pending()){
if(qbevent){evnt(6278);if(r)goto S_7346;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6278);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6278);}while(r);
}
do{
*__LONG_COUNT= 0 ;
if(!qbevent)break;evnt(6279);}while(r);
S_7351:;
do{
if(qbevent){evnt(6280);if(r)goto S_7351;}
do{
*__LONG_COUNT=*__LONG_COUNT+ 1 ;
if(!qbevent)break;evnt(6281);}while(r);
S_7353:;
qbs_set(sc_878,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(6282);if(r)goto S_7353;}
S_7354:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_878,qbs_new_txt_len("1",1))||qbs_equal(sc_878,qbs_new_txt_len("2",1))||qbs_equal(sc_878,qbs_new_txt_len("3",1))||qbs_equal(sc_878,qbs_new_txt_len("4",1))||qbs_equal(sc_878,qbs_new_txt_len("5",1))||qbs_equal(sc_878,qbs_new_txt_len("6",1))||qbs_equal(sc_878,qbs_new_txt_len("7",1))||qbs_equal(sc_878,qbs_new_txt_len("8",1))||qbs_equal(sc_878,qbs_new_txt_len("9",1))||qbs_equal(sc_878,qbs_new_txt_len("0",1))||qbs_equal(sc_878,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(6283);if(r)goto S_7354;}
sc_ec_33_end:;
goto sc_878_end;
}
do{
goto dl_exit_877;
if(!qbevent)break;evnt(6284);}while(r);
sc_878_end:;
S_7358:;
dl_continue_877:;
}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!is_error_pending()));
dl_exit_877:;
if(qbevent){evnt(6286);if(r)goto S_7358;}
S_7359:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 4 ,0|1),qbs_new_txt_len("ELSE",4)))|(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 2 ,0|1),qbs_new_txt_len("IF",2)))))||is_error_pending()){
if(qbevent){evnt(6287);if(r)goto S_7359;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6287);}while(r);
}
S_7362:;
if ((~(*__LONG_GOODELSE))||is_error_pending()){
if(qbevent){evnt(6288);if(r)goto S_7362;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6288);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6288);}while(r);
}
LABEL_SKIPELSECHECK:;
if(qbevent){evnt(6289);r=0;}
S_7366:;
fornext_value881=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue881= 1 ;
fornext_step881= -1 ;
if (fornext_step881<0) fornext_step_negative881=1; else fornext_step_negative881=0;
if (is_error_pending()) goto fornext_error881;
goto fornext_entrylabel881;
while(1){
fornext_value881=fornext_step881+(*__LONG_I);
fornext_entrylabel881:
*__LONG_I=fornext_value881;
if (fornext_step_negative881){
if (fornext_value881<fornext_finalvalue881) break;
}else{
if (fornext_value881>fornext_finalvalue881) break;
}
fornext_error881:;
if(qbevent){evnt(6291);if(r)goto S_7366;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6292);}while(r);
S_7368:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6293);if(r)goto S_7368;}
S_7369:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
if(qbevent){evnt(6294);if(r)goto S_7369;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF-THEN already contains an ELSE statement",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6294);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6294);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass882=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6295);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(6296);}while(r);
S_7375:;
if ((-(*__LONG_LINEELSEUSED== 0 ))||is_error_pending()){
if(qbevent){evnt(6297);if(r)goto S_7375;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6297);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Else",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6298);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6299);}while(r);
S_7380:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6299);if(r)goto S_7380;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6299);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6299);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6300);}while(r);
}
fornext_continue_880:;
}
fornext_exit_880:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6303);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6303);}while(r);
}
}
S_7392:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6307);if(r)goto S_7392;}
S_7393:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(6308);if(r)goto S_7393;}
S_7394:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6309);if(r)goto S_7394;}
do{
SUB_WRITEBUFLINE(&(pass884=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6310);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6310);}while(r);
S_7397:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6311);if(r)goto S_7397;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass885= 0 ));
if(!qbevent)break;evnt(6312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass886=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6313);}while(r);
}
}
S_7402:;
fornext_value888=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue888= 1 ;
fornext_step888= -1 ;
if (fornext_step888<0) fornext_step_negative888=1; else fornext_step_negative888=0;
if (is_error_pending()) goto fornext_error888;
goto fornext_entrylabel888;
while(1){
fornext_value888=fornext_step888+(*__LONG_I);
fornext_entrylabel888:
*__LONG_I=fornext_value888;
if (fornext_step_negative888){
if (fornext_value888<fornext_finalvalue888) break;
}else{
if (fornext_value888>fornext_finalvalue888) break;
}
fornext_error888:;
if(qbevent){evnt(6316);if(r)goto S_7402;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6317);}while(r);
S_7404:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6318);if(r)goto S_7404;}
S_7405:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||is_error_pending()){
if(qbevent){evnt(6319);if(r)goto S_7405;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6319);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6319);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(6320);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]+ 1 ;
if(!qbevent)break;evnt(6321);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6322);}while(r);
S_7412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6323);if(r)goto S_7412;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6323);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6323);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass889=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6324);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass890= 2 ),&(pass891=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6325);}while(r);
S_7418:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6326);if(r)goto S_7418;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6326);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("ElseIf",6)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6327);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6328);}while(r);
S_7423:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6328);if(r)goto S_7423;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6328);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6328);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6329);}while(r);
S_7429:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6330);if(r)goto S_7429;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6330);}while(r);
}
S_7432:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6331);if(r)goto S_7432;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass893= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6331);}while(r);
}
S_7435:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6332);if(r)goto S_7435;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6332);}while(r);
}
S_7438:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6333);if(r)goto S_7438;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF LEN(stringexpression) THEN",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6334);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6334);}while(r);
}
S_7442:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6336);if(r)goto S_7442;}
do{
SUB_WRITEBUFLINE(&(pass894=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len(")){",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6337);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass895=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_E),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6339);}while(r);
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6341);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6342);}while(r);
}
fornext_continue_887:;
}
fornext_exit_887:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6345);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6345);}while(r);
}
}
S_7455:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6349);if(r)goto S_7455;}
S_7456:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(6350);if(r)goto S_7456;}
S_7457:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6351);if(r)goto S_7457;}
do{
SUB_WRITEBUFLINE(&(pass896=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6352);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6352);}while(r);
S_7460:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6353);if(r)goto S_7460;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass897= 0 ));
if(!qbevent)break;evnt(6354);}while(r);
do{
SUB_WRITEBUFLINE(&(pass898=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6355);}while(r);
}
}
S_7465:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6360);if(r)goto S_7465;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6361);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6361);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6364);}while(r);
do{
*__LONG_IFTYPE= 0 ;
if(!qbevent)break;evnt(6365);}while(r);
S_7471:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6366);if(r)goto S_7471;}
do{
*__LONG_IFTYPE= 1 ;
if(!qbevent)break;evnt(6366);}while(r);
}
S_7474:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(6367);if(r)goto S_7474;}
do{
*__LONG_IFTYPE= 2 ;
if(!qbevent)break;evnt(6367);}while(r);
}
S_7477:;
if ((-(*__LONG_IFTYPE== 0 ))||is_error_pending()){
if(qbevent){evnt(6368);if(r)goto S_7477;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression THEN/GOTO",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6368);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6368);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6370);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6371);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(6372);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6373);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6374);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass899= 2 ),&(pass900=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6376);}while(r);
S_7487:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6377);if(r)goto S_7487;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6377);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("If",2)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6378);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6379);}while(r);
S_7492:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6380);if(r)goto S_7492;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6380);}while(r);
}
S_7495:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6381);if(r)goto S_7495;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass901= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6381);}while(r);
}
S_7498:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6382);if(r)goto S_7498;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6382);}while(r);
}
S_7501:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6384);if(r)goto S_7501;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IF LEN(stringexpression) THEN",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6385);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6385);}while(r);
}
S_7505:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6388);if(r)goto S_7505;}
do{
SUB_WRITEBUFLINE(&(pass902=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6389);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass903=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6391);}while(r);
}
S_7510:;
if ((-(*__LONG_IFTYPE== 1 ))||is_error_pending()){
if(qbevent){evnt(6394);if(r)goto S_7510;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6394);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6395);}while(r);
S_7514:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6395);if(r)goto S_7514;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6395);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6395);}while(r);
}
S_7519:;
if ((-(*__LONG_IFTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(6397);if(r)goto S_7519;}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6398);}while(r);
}
do{
*__LONG_THENGOTO= 1 ;
if(!qbevent)break;evnt(6401);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(6402);}while(r);
}
}
S_7526:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass905= 1 )),qbs_new_txt_len("ENDIF",5)))))||is_error_pending()){
if(qbevent){evnt(6407);if(r)goto S_7526;}
S_7527:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
if(qbevent){evnt(6408);if(r)goto S_7527;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6408);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6408);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6409);}while(r);
S_7532:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6410);if(r)goto S_7532;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6411);}while(r);
S_7534:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6412);if(r)goto S_7534;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6412);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6412);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass907=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6415);}while(r);
S_7541:;
fornext_value909= 1 ;
fornext_finalvalue909=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step909= 1 ;
if (fornext_step909<0) fornext_step_negative909=1; else fornext_step_negative909=0;
if (is_error_pending()) goto fornext_error909;
goto fornext_entrylabel909;
while(1){
fornext_value909=fornext_step909+(*__LONG_I);
fornext_entrylabel909:
*__LONG_I=fornext_value909;
if (fornext_step_negative909){
if (fornext_value909<fornext_finalvalue909) break;
}else{
if (fornext_value909>fornext_finalvalue909) break;
}
fornext_error909:;
if(qbevent){evnt(6416);if(r)goto S_7541;}
do{
SUB_WRITEBUFLINE(&(pass910=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6417);}while(r);
fornext_continue_908:;
}
fornext_exit_908:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6419);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6420);}while(r);
}
S_7547:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6425);if(r)goto S_7547;}
S_7548:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass911= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass912= 2 )),qbs_new_txt_len("IF",2)))))||is_error_pending()){
if(qbevent){evnt(6426);if(r)goto S_7548;}
S_7549:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||is_error_pending()){
if(qbevent){evnt(6429);if(r)goto S_7549;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6429);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6429);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6430);}while(r);
S_7554:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6431);if(r)goto S_7554;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("If",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6432);}while(r);
S_7556:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6433);if(r)goto S_7556;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6433);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6433);}while(r);
}
}
S_7562:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6436);if(r)goto S_7562;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass914= 0 ));
if(!qbevent)break;evnt(6437);}while(r);
do{
SUB_WRITEBUFLINE(&(pass915=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6438);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass916=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6441);}while(r);
S_7567:;
fornext_value918= 1 ;
fornext_finalvalue918=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step918= 1 ;
if (fornext_step918<0) fornext_step_negative918=1; else fornext_step_negative918=0;
if (is_error_pending()) goto fornext_error918;
goto fornext_entrylabel918;
while(1){
fornext_value918=fornext_step918+(*__LONG_I);
fornext_entrylabel918:
*__LONG_I=fornext_value918;
if (fornext_step_negative918){
if (fornext_value918<fornext_finalvalue918) break;
}else{
if (fornext_value918>fornext_finalvalue918) break;
}
fornext_error918:;
if(qbevent){evnt(6442);if(r)goto S_7567;}
do{
SUB_WRITEBUFLINE(&(pass919=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6443);}while(r);
fornext_continue_917:;
}
fornext_exit_917:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6445);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6446);}while(r);
}
}
S_7574:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6453);if(r)goto S_7574;}
S_7575:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(6454);if(r)goto S_7575;}
S_7576:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6455);if(r)goto S_7576;}
do{
SUB_WRITEBUFLINE(&(pass920=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6456);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6456);}while(r);
S_7579:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6457);if(r)goto S_7579;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass921= 0 ));
if(!qbevent)break;evnt(6458);}while(r);
do{
SUB_WRITEBUFLINE(&(pass922=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6459);}while(r);
}
}
S_7584:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6464);if(r)goto S_7584;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6465);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6465);}while(r);
}
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ;
if(!qbevent)break;evnt(6468);}while(r);
S_7589:;
if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6469);if(r)goto S_7589;}
do{
if (__ARRAY_LONG_EVERYCASESET[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_EVERYCASESET[2]&1){
preserve_old_ptr=__ARRAY_LONG_EVERYCASESET[0];
preserve_old_flags=__ARRAY_LONG_EVERYCASESET[2];
preserve_old_total=__ARRAY_LONG_EVERYCASESET[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__ULONG_SELECTCASECOUNTER)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_EVERYCASESET[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_EVERYCASESET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_EVERYCASESET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_EVERYCASESET[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_EVERYCASESET[0]) error(257);
}
}
__ARRAY_LONG_EVERYCASESET[2]|=1;
__ARRAY_LONG_EVERYCASESET[4]=alloc_new_desc[4];
__ARRAY_LONG_EVERYCASESET[5]=alloc_new_desc[5];
__ARRAY_LONG_EVERYCASESET[6]=alloc_new_desc[6];
__ARRAY_LONG_EVERYCASESET[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(6469);}while(r);
}
S_7592:;
if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6470);if(r)goto S_7592;}
do{
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
preserve_old_ptr=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0];
preserve_old_flags=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2];
preserve_old_total=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__ULONG_SELECTCASECOUNTER)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257);
}
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=alloc_new_desc[4];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=alloc_new_desc[5];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=alloc_new_desc[6];
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(6470);}while(r);
}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6471);}while(r);
S_7596:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
if(qbevent){evnt(6472);if(r)goto S_7596;}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(6473);}while(r);
S_7598:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6474);if(r)goto S_7598;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6474);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6474);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass923= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6475);}while(r);
S_7603:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6476);if(r)goto S_7603;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6476);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select EveryCase ",17)),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6477);}while(r);
}else{
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6479);}while(r);
S_7609:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4)))))||is_error_pending()){
if(qbevent){evnt(6480);if(r)goto S_7609;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6480);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6480);}while(r);
}
S_7613:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6481);if(r)goto S_7613;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6481);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6481);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass924= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6482);}while(r);
S_7618:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6483);if(r)goto S_7618;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6483);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Select Case ",12)),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6484);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6487);}while(r);
S_7624:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6487);if(r)goto S_7624;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6487);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6487);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6488);}while(r);
S_7630:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6489);if(r)goto S_7630;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6489);}while(r);
}
do{
*__LONG_U=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(6490);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6492);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(6493);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6495);}while(r);
S_7637:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6496);if(r)goto S_7637;}
do{
*__LONG_T= 0 ;
if(!qbevent)break;evnt(6497);}while(r);
S_7639:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6498);if(r)goto S_7639;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6499);}while(r);
}else{
S_7642:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6501);if(r)goto S_7642;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass926= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6501);}while(r);
}
S_7645:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6502);if(r)goto S_7645;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6502);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass927=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *sc_",15),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=qbs_new(0,0);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6503);}while(r);
do{
SUB_WRITEBUFLINE(&(pass928=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(sc_",11),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6504);}while(r);
S_7650:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6505);if(r)goto S_7650;}
do{
SUB_WRITEBUFLINE(&(pass929=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6505);}while(r);
}
}
}else{
S_7655:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6510);if(r)goto S_7655;}
S_7656:;
if ((-((*__LONG_TYP& 511 )> 64 ))||is_error_pending()){
if(qbevent){evnt(6512);if(r)goto S_7656;}
do{
*__LONG_T= 3 ;
if(!qbevent)break;evnt(6512);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6512);}while(r);
}
S_7660:;
if ((-((*__LONG_TYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(6513);if(r)goto S_7660;}
do{
*__LONG_T= 4 ;
if(!qbevent)break;evnt(6513);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6513);}while(r);
}
S_7664:;
if ((-((*__LONG_TYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(6514);if(r)goto S_7664;}
do{
*__LONG_T= 5 ;
if(!qbevent)break;evnt(6514);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6514);}while(r);
}
S_7668:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6515);if(r)goto S_7668;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6516);}while(r);
}else{
S_7671:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6518);if(r)goto S_7671;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass930= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6518);}while(r);
}
S_7674:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6519);if(r)goto S_7674;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6519);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass931=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6521);}while(r);
do{
SUB_WRITEBUFLINE(&(pass932=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6522);}while(r);
S_7679:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6523);if(r)goto S_7679;}
do{
SUB_WRITEBUFLINE(&(pass933=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6523);}while(r);
}
}
}else{
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6529);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6529);}while(r);
S_7686:;
if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(6530);if(r)goto S_7686;}
S_7687:;
if ((-((*__LONG_TYP& 511 )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6531);if(r)goto S_7687;}
do{
*__LONG_T= 7 ;
if(!qbevent)break;evnt(6531);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint32",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6531);}while(r);
}
S_7691:;
if ((-((*__LONG_TYP& 511 )> 32 ))||is_error_pending()){
if(qbevent){evnt(6532);if(r)goto S_7691;}
do{
*__LONG_T= 2 ;
if(!qbevent)break;evnt(6532);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint64",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6532);}while(r);
}
}else{
S_7696:;
if ((-((*__LONG_TYP& 511 )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6534);if(r)goto S_7696;}
do{
*__LONG_T= 6 ;
if(!qbevent)break;evnt(6534);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6534);}while(r);
}
S_7700:;
if ((-((*__LONG_TYP& 511 )> 32 ))||is_error_pending()){
if(qbevent){evnt(6535);if(r)goto S_7700;}
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6535);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6535);}while(r);
}
}
S_7705:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6537);if(r)goto S_7705;}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(qbs_val<long double>(__STRING_E));
if(!qbevent)break;evnt(6538);}while(r);
}else{
S_7708:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6540);if(r)goto S_7708;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass934= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6540);}while(r);
}
S_7711:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6541);if(r)goto S_7711;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6541);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass935=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6542);}while(r);
do{
SUB_WRITEBUFLINE(&(pass936=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(*__LONG_U),NULL,0)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6543);}while(r);
S_7716:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6544);if(r)goto S_7716;}
do{
SUB_WRITEBUFLINE(&(pass937=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6544);}while(r);
}
}
}
}
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(6552);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T;
if(!qbevent)break;evnt(6553);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U;
if(!qbevent)break;evnt(6554);}while(r);
S_7725:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6555);if(r)goto S_7725;}
do{
SUB_WRITEBUFLINE(&(pass938=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32 sc_",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6555);}while(r);
}
S_7728:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6556);if(r)goto S_7728;}
do{
SUB_WRITEBUFLINE(&(pass939=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var=0;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6556);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6557);}while(r);
}
}
S_7734:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6563);if(r)goto S_7734;}
S_7735:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6)))))||is_error_pending()){
if(qbevent){evnt(6564);if(r)goto S_7735;}
S_7736:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
if(qbevent){evnt(6568);if(r)goto S_7736;}
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6569);}while(r);
do{
SUB_WRITEBUFLINE(&(pass940=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),qbs__tostr((int32)(*__LONG_EVERYCASENEWCASE),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6570);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6571);}while(r);
S_7740:;
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(6572);if(r)goto S_7740;}
do{
SUB_WRITEBUFLINE(&(pass941=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6572);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass942=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6573);}while(r);
}
S_7745:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
if(qbevent){evnt(6575);if(r)goto S_7745;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6576);}while(r);
S_7747:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6577);if(r)goto S_7747;}
do{
SUB_WRITEBUFLINE(&(pass943=*__LONG_MAINTXTBUF),qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6577);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass944=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6580);}while(r);
S_7752:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))||is_error_pending()){
if(qbevent){evnt(6581);if(r)goto S_7752;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END SELECT without SELECT CASE",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6581);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6581);}while(r);
}
S_7756:;
if (((-(*__LONG_CHECKINGON== 1 ))&(-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6583);if(r)goto S_7756;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass945= 0 ));
if(!qbevent)break;evnt(6584);}while(r);
do{
SUB_WRITEBUFLINE(&(pass946=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6585);}while(r);
}
S_7760:;
if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6588);if(r)goto S_7760;}
S_7761:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(6590);if(r)goto S_7761;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Empty SELECT CASE block",23),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6591);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6595);}while(r);
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ;
if(!qbevent)break;evnt(6596);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Select",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6597);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6598);}while(r);
S_7769:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6598);if(r)goto S_7769;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6598);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6598);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6599);}while(r);
}
}
S_7777:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4)))&(-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 ))))||is_error_pending()){
if(qbevent){evnt(6604);if(r)goto S_7777;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6605);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6605);}while(r);
}
S_7781:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6610);if(r)goto S_7781;}
S_7782:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(6611);if(r)goto S_7782;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6613);}while(r);
S_7784:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||is_error_pending()){
if(qbevent){evnt(6617);if(r)goto S_7784;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6617);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6617);}while(r);
}
S_7788:;
if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||is_error_pending()){
if(qbevent){evnt(6618);if(r)goto S_7788;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6619);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6620);}while(r);
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6621);}while(r);
do{
SUB_WRITEBUFLINE(&(pass948=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),qbs__tostr((int32)(*__LONG_EVERYCASENEWCASE),NULL,0)),qbs_new_txt_len("_end:;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6622);}while(r);
S_7793:;
if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(6623);if(r)goto S_7793;}
do{
SUB_WRITEBUFLINE(&(pass949=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6624);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass950=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var=-1;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6626);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass951=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6628);}while(r);
}
S_7800:;
if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))))||is_error_pending()){
if(qbevent){evnt(6634);if(r)goto S_7800;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6634);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6634);}while(r);
}
S_7804:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6635);if(r)goto S_7804;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6635);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6635);}while(r);
}
do{
tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(6636);}while(r);
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]- 10 ;
if(!qbevent)break;evnt(6669);}while(r);
do{
*__LONG_FLT= 0 ;
if(!qbevent)break;evnt(6671);}while(r);
S_7811:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6672);if(r)goto S_7811;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6672);}while(r);
}
S_7814:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6673);if(r)goto S_7814;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6673);}while(r);
}
S_7817:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6674);if(r)goto S_7817;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6674);}while(r);
}
S_7820:;
if ((-(*__LONG_T== 3 ))||is_error_pending()){
if(qbevent){evnt(6675);if(r)goto S_7820;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6675);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6675);}while(r);
}
S_7824:;
if ((-(*__LONG_T== 4 ))||is_error_pending()){
if(qbevent){evnt(6676);if(r)goto S_7824;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6676);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6676);}while(r);
}
S_7828:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(6677);if(r)goto S_7828;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6677);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6677);}while(r);
}
S_7832:;
if ((-(*__LONG_T== 6 ))||is_error_pending()){
if(qbevent){evnt(6678);if(r)goto S_7832;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6678);}while(r);
}
S_7835:;
if ((-(*__LONG_T== 7 ))||is_error_pending()){
if(qbevent){evnt(6679);if(r)goto S_7835;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6679);}while(r);
}
do{
qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("sc_",3),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6681);}while(r);
do{
*__LONG_CV=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
if(!qbevent)break;evnt(6682);}while(r);
S_7840:;
if ((*__LONG_CV)||is_error_pending()){
if(qbevent){evnt(6683);if(r)goto S_7840;}
do{
qbs_set(__STRING_N,FUNC_REFER(qbs__tostr((int32)(*__LONG_CV),NULL,0),&(pass952= 0 ),&(pass953= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6684);}while(r);
S_7842:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6685);if(r)goto S_7842;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6685);}while(r);
}
}
S_7846:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6689);if(r)goto S_7846;}
S_7847:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass954= 2 )),qbs_new_txt_len("C-EL",4))))||is_error_pending()){
if(qbevent){evnt(6690);if(r)goto S_7847;}
S_7848:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6691);if(r)goto S_7848;}
do{
SUB_WRITEBUFLINE(&(pass955=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (sc_",7),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_var==0) {",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6691);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6692);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ;
if(!qbevent)break;evnt(6692);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(6693);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Else",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6694);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6695);}while(r);
S_7856:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6695);if(r)goto S_7856;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6695);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6695);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6696);}while(r);
}
}
S_7864:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6700);if(r)goto S_7864;}
do{
SUB_WRITEBUFLINE(&(pass957=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(":;",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6701);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6701);}while(r);
S_7867:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6702);if(r)goto S_7867;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass958= 0 ));
if(!qbevent)break;evnt(6703);}while(r);
do{
SUB_WRITEBUFLINE(&(pass959=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6704);}while(r);
}
}
do{
qbs_set(__STRING_F12,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6710);}while(r);
do{
*__LONG_NEXP= 0 ;
if(!qbevent)break;evnt(6712);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6713);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6714);}while(r);
S_7876:;
fornext_value961= 2 ;
fornext_finalvalue961=*__LONG_N;
fornext_step961= 1 ;
if (fornext_step961<0) fornext_step_negative961=1; else fornext_step_negative961=0;
if (is_error_pending()) goto fornext_error961;
goto fornext_entrylabel961;
while(1){
fornext_value961=fornext_step961+(*__LONG_I);
fornext_entrylabel961:
*__LONG_I=fornext_value961;
if (fornext_step_negative961){
if (fornext_value961<fornext_finalvalue961) break;
}else{
if (fornext_value961>fornext_finalvalue961) break;
}
fornext_error961:;
if(qbevent){evnt(6715);if(r)goto S_7876;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6716);}while(r);
S_7878:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6717);if(r)goto S_7878;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6717);}while(r);
}
S_7881:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6718);if(r)goto S_7881;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6718);}while(r);
}
S_7884:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6719);if(r)goto S_7884;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6719);}while(r);
}
S_7887:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||is_error_pending()){
if(qbevent){evnt(6720);if(r)goto S_7887;}
S_7888:;
if ((-(*__LONG_NEXP!= 0 ))||is_error_pending()){
if(qbevent){evnt(6721);if(r)goto S_7888;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6721);}while(r);
do{
qbs_set(__STRING_F12,qbs_add(__STRING_F12,qbs_new_txt_len("||",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6721);}while(r);
}
S_7892:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6722);if(r)goto S_7892;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6722);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6722);}while(r);
}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6723);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6728);}while(r);
do{
*__LONG_B2= 0 ;
if(!qbevent)break;evnt(6729);}while(r);
do{
qbs_set(__STRING_EL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6730);}while(r);
do{
qbs_set(__STRING_ER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6730);}while(r);
do{
*__LONG_USEDTO= 0 ;
if(!qbevent)break;evnt(6731);}while(r);
S_7902:;
fornext_value964= 1 ;
fornext_finalvalue964=*__LONG_N2;
fornext_step964= 1 ;
if (fornext_step964<0) fornext_step_negative964=1; else fornext_step_negative964=0;
if (is_error_pending()) goto fornext_error964;
goto fornext_entrylabel964;
while(1){
fornext_value964=fornext_step964+(*__LONG_I2);
fornext_entrylabel964:
*__LONG_I2=fornext_value964;
if (fornext_step_negative964){
if (fornext_value964<fornext_finalvalue964) break;
}else{
if (fornext_value964>fornext_finalvalue964) break;
}
fornext_error964:;
if(qbevent){evnt(6732);if(r)goto S_7902;}
do{
qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6733);}while(r);
S_7904:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6734);if(r)goto S_7904;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(6734);}while(r);
}
S_7907:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6735);if(r)goto S_7907;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(6735);}while(r);
}
S_7910:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||is_error_pending()){
if(qbevent){evnt(6736);if(r)goto S_7910;}
do{
*__LONG_USEDTO= 1 ;
if(!qbevent)break;evnt(6737);}while(r);
}else{
S_7913:;
if ((-(*__LONG_USEDTO== 0 ))||is_error_pending()){
if(qbevent){evnt(6739);if(r)goto S_7913;}
do{
qbs_set(__STRING_EL,qbs_add(qbs_add(__STRING_EL,__STRING1_SP),__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6739);}while(r);
}else{
do{
qbs_set(__STRING_ER,qbs_add(qbs_add(__STRING_ER,__STRING1_SP),__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6739);}while(r);
}
}
fornext_continue_963:;
}
fornext_exit_963:;
S_7920:;
if ((-(*__LONG_USEDTO== 1 ))||is_error_pending()){
if(qbevent){evnt(6742);if(r)goto S_7920;}
S_7921:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(6743);if(r)goto S_7921;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6743);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6743);}while(r);
}
do{
qbs_set(__STRING_EL,qbs_right(__STRING_EL,__STRING_EL->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6744);}while(r);
do{
qbs_set(__STRING_ER,qbs_right(__STRING_ER,__STRING_ER->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6744);}while(r);
S_7927:;
fornext_value968= 1 ;
fornext_finalvalue968= 2 ;
fornext_step968= 1 ;
if (fornext_step968<0) fornext_step_negative968=1; else fornext_step_negative968=0;
if (is_error_pending()) goto fornext_error968;
goto fornext_entrylabel968;
while(1){
fornext_value968=fornext_step968+(*__LONG_I2);
fornext_entrylabel968:
*__LONG_I2=fornext_value968;
if (fornext_step_negative968){
if (fornext_value968<fornext_finalvalue968) break;
}else{
if (fornext_value968>fornext_finalvalue968) break;
}
fornext_error968:;
if(qbevent){evnt(6746);if(r)goto S_7927;}
S_7928:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6747);if(r)goto S_7928;}
do{
qbs_set(__STRING_E,__STRING_EL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6747);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_ER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6747);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6748);}while(r);
S_7934:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6749);if(r)goto S_7934;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6749);}while(r);
}
S_7937:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6750);if(r)goto S_7937;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6750);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6750);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6751);}while(r);
S_7943:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6752);if(r)goto S_7943;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6752);}while(r);
}
S_7946:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6753);if(r)goto S_7946;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass969= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6753);}while(r);
}
S_7949:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6754);if(r)goto S_7949;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6754);}while(r);
}
S_7952:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6755);if(r)goto S_7952;}
S_7953:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6756);if(r)goto S_7953;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6756);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6756);}while(r);
}
S_7957:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6757);if(r)goto S_7957;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(qbs_greaterorequal(",20)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")&&qbs_lessorequal(",19)),__STRING_N),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6757);}while(r);
}
S_7960:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(6758);if(r)goto S_7960;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6758);}while(r);
}
}else{
S_7964:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6760);if(r)goto S_7964;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6760);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6760);}while(r);
}
S_7968:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6762);if(r)goto S_7968;}
S_7969:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6763);if(r)goto S_7969;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6763);}while(r);
}
S_7972:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6764);if(r)goto S_7972;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6764);}while(r);
}
S_7975:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(6765);if(r)goto S_7975;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6765);}while(r);
}
}
S_7979:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(6768);if(r)goto S_7979;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6768);}while(r);
}
S_7982:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(6769);if(r)goto S_7982;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("((",2)),__STRING_N),qbs_new_txt_len(">=(",3)),__STRING_E),qbs_new_txt_len("))&&(",5)),__STRING_N),qbs_new_txt_len("<=(",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6769);}while(r);
}
S_7985:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(6770);if(r)goto S_7985;}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len(")))",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6770);}while(r);
}
}
fornext_continue_967:;
}
fornext_exit_967:;
do{
goto LABEL_ADDEDEXP;
if(!qbevent)break;evnt(6773);}while(r);
}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6795);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass971= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6798);}while(r);
S_7994:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||is_error_pending()){
if(qbevent){evnt(6799);if(r)goto S_7994;}
S_7995:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,qbs_new_txt_len("=",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<>",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">=",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<=",2)))))||is_error_pending()){
if(qbevent){evnt(6800);if(r)goto S_7995;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("IS",2),__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6801);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("IS",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6802);}while(r);
}
}
S_8000:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||is_error_pending()){
if(qbevent){evnt(6805);if(r)goto S_8000;}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6806);}while(r);
S_8002:;
if ((-(*__LONG_N2< 3 ))||is_error_pending()){
if(qbevent){evnt(6807);if(r)goto S_8002;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6807);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6807);}while(r);
}
do{
qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass972= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6808);}while(r);
do{
qbs_set(__STRING_O2,__STRING_O);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6809);}while(r);
do{
*__LONG_O= 0 ;
if(!qbevent)break;evnt(6810);}while(r);
S_8009:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(6811);if(r)goto S_8009;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6811);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6811);}while(r);
}
S_8013:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||is_error_pending()){
if(qbevent){evnt(6812);if(r)goto S_8013;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("!=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6812);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6812);}while(r);
}
S_8017:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(6813);if(r)goto S_8017;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6813);}while(r);
}
S_8020:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(6814);if(r)goto S_8020;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6814);}while(r);
}
S_8023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(6815);if(r)goto S_8023;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6815);}while(r);
}
S_8026:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(6816);if(r)goto S_8026;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(6816);}while(r);
}
S_8029:;
if ((-(*__LONG_O!= 1 ))||is_error_pending()){
if(qbevent){evnt(6817);if(r)goto S_8029;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6817);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6817);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Is",2))),__STRING1_SP),__STRING_O2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6818);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass973= 3 ),__LONG_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6819);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6824);}while(r);
S_8037:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6825);if(r)goto S_8037;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6825);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6826);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6827);}while(r);
S_8042:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6828);if(r)goto S_8042;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6828);}while(r);
}
S_8045:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6829);if(r)goto S_8045;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass974= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6829);}while(r);
}
S_8048:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6830);if(r)goto S_8048;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6830);}while(r);
}
S_8051:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6831);if(r)goto S_8051;}
S_8052:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6833);if(r)goto S_8052;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6833);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6833);}while(r);
}
S_8056:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||is_error_pending()){
if(qbevent){evnt(6834);if(r)goto S_8056;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6834);}while(r);
}
S_8059:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||is_error_pending()){
if(qbevent){evnt(6835);if(r)goto S_8059;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6835);}while(r);
}
S_8062:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(6836);if(r)goto S_8062;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6836);}while(r);
}
S_8065:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(6837);if(r)goto S_8065;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6837);}while(r);
}
S_8068:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(6838);if(r)goto S_8068;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6838);}while(r);
}
S_8071:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(6839);if(r)goto S_8071;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6839);}while(r);
}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,__STRING_O),qbs_new_txt_len("(",1)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6840);}while(r);
}else{
S_8076:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6843);if(r)goto S_8076;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6843);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6843);}while(r);
}
S_8080:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6845);if(r)goto S_8080;}
S_8081:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6846);if(r)goto S_8081;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6846);}while(r);
}
S_8084:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6847);if(r)goto S_8084;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6847);}while(r);
}
S_8087:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(6848);if(r)goto S_8087;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6848);}while(r);
}
}
S_8091:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(6851);if(r)goto S_8091;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6851);}while(r);
}
do{
qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(",1)),__STRING_N),__STRING_O),qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6852);}while(r);
}
LABEL_ADDEDEXP:;
if(qbevent){evnt(6855);r=0;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6856);}while(r);
do{
*__LONG_NEXP=*__LONG_NEXP+ 1 ;
if(!qbevent)break;evnt(6857);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6859);}while(r);
}
fornext_continue_960:;
}
fornext_exit_960:;
S_8102:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6863);if(r)goto S_8102;}
do{
SUB_WRITEBUFLINE(&(pass976=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||is_error_pending()){",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6864);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass977=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||is_error_pending()){",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6866);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6869);}while(r);
S_8108:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6869);if(r)goto S_8108;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6869);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6869);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6870);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(6871);}while(r);
do{
tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ;
if(!qbevent)break;evnt(6872);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6873);}while(r);
}
}
S_8119:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6890);if(r)goto S_8119;}
S_8120:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(6891);if(r)goto S_8120;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass979= 0 ));
if(!qbevent)break;evnt(6892);}while(r);
do{
SUB_WRITEBUFLINE(&(pass980=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6893);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass981=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6895);}while(r);
}
}
S_8127:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(6901);if(r)goto S_8127;}
S_8128:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
if(qbevent){evnt(6902);if(r)goto S_8128;}
S_8129:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(6903);if(r)goto S_8129;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Palette",7),__STRING1_SP),qbs_new_txt_len("Using",5)),__STRING1_SP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6904);}while(r);
S_8131:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(6905);if(r)goto S_8131;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6905);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6905);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass982= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6907);}while(r);
S_8136:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(6908);if(r)goto S_8136;}
S_8137:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6909);if(r)goto S_8137;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6909);}while(r);
}
do{
*__LONG_Z= 1 ;
if(!qbevent)break;evnt(6910);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(6911);}while(r);
S_8142:;
if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(6912);if(r)goto S_8142;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6912);}while(r);
}
S_8145:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(6913);if(r)goto S_8145;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6913);}while(r);
}
S_8148:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(6914);if(r)goto S_8148;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6914);}while(r);
}
S_8151:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6915);if(r)goto S_8151;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6915);}while(r);
}
S_8154:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(6916);if(r)goto S_8154;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6916);}while(r);
}
S_8157:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(6917);if(r)goto S_8157;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(6917);}while(r);
}
S_8160:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(6918);if(r)goto S_8160;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array must be of type INTEGER or LONG",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6918);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6918);}while(r);
}
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(6919);}while(r);
do{
goto LABEL_PU_GOTARRAY;
if(!qbevent)break;evnt(6920);}while(r);
}
S_8167:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6922);if(r)goto S_8167;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6922);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6923);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6923);}while(r);
LABEL_PU_GOTARRAY:;
if(qbevent){evnt(6924);r=0;}
S_8172:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(6926);if(r)goto S_8172;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6927);}while(r);
}else{
S_8175:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass983= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(6929);if(r)goto S_8175;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name(...)",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6929);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6929);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass984= 4 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6930);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6932);}while(r);
S_8182:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6933);if(r)goto S_8182;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6933);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6934);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass985= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6935);}while(r);
S_8187:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6936);if(r)goto S_8187;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6936);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass986=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6937);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6938);}while(r);
S_8192:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6938);if(r)goto S_8192;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6938);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6938);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6939);}while(r);
}
}
}
S_8201:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(6945);if(r)goto S_8201;}
S_8202:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6946);if(r)goto S_8202;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6946);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6946);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Key",3)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6947);}while(r);
S_8207:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||is_error_pending()){
if(qbevent){evnt(6948);if(r)goto S_8207;}
S_8208:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6949);if(r)goto S_8208;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6949);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6949);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Off",3))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6950);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6950);}while(r);
S_8214:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6950);if(r)goto S_8214;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6950);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6950);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass989=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_off();",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6951);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6952);}while(r);
}
S_8222:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(6954);if(r)goto S_8222;}
S_8223:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6955);if(r)goto S_8223;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6955);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6955);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6956);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6956);}while(r);
S_8229:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6956);if(r)goto S_8229;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6956);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6956);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass991=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_on();",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6957);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6958);}while(r);
}
S_8237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||is_error_pending()){
if(qbevent){evnt(6960);if(r)goto S_8237;}
S_8238:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(6961);if(r)goto S_8238;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6961);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6961);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("List",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6962);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6962);}while(r);
S_8244:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6962);if(r)goto S_8244;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6962);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6962);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass993=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_list();",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6963);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6964);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6967);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6967);}while(r);
S_8254:;
fornext_value995= 2 ;
fornext_finalvalue995=*__LONG_N;
fornext_step995= 1 ;
if (fornext_step995<0) fornext_step_negative995=1; else fornext_step_negative995=0;
if (is_error_pending()) goto fornext_error995;
goto fornext_entrylabel995;
while(1){
fornext_value995=fornext_step995+(*__LONG_I);
fornext_entrylabel995:
*__LONG_I=fornext_value995;
if (fornext_step_negative995){
if (fornext_value995<fornext_finalvalue995) break;
}else{
if (fornext_value995>fornext_finalvalue995) break;
}
fornext_error995:;
if(qbevent){evnt(6968);if(r)goto S_8254;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6969);}while(r);
S_8256:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6970);if(r)goto S_8256;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6970);}while(r);
}
S_8259:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6971);if(r)goto S_8259;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6971);}while(r);
}
S_8262:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6972);if(r)goto S_8262;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6973);}while(r);
do{
goto LABEL_KEY_ASSIGNMENT;
if(!qbevent)break;evnt(6973);}while(r);
}
S_8266:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(6975);if(r)goto S_8266;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6975);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6975);}while(r);
}
fornext_continue_994:;
}
fornext_exit_994:;
do{
goto LABEL_KEY_FALLTHROUGH;
if(!qbevent)break;evnt(6978);}while(r);
LABEL_KEY_ASSIGNMENT:;
if(qbevent){evnt(6979);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6982);}while(r);
S_8274:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6983);if(r)goto S_8274;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6983);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6984);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass997= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6985);}while(r);
S_8279:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6986);if(r)goto S_8279;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6986);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass998=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6987);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6989);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6990);}while(r);
S_8285:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6991);if(r)goto S_8285;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6991);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6992);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6993);}while(r);
S_8290:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6994);if(r)goto S_8290;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6994);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass999=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6995);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6996);}while(r);
S_8295:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6996);if(r)goto S_8295;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6996);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6996);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6997);}while(r);
}
LABEL_KEY_FALLTHROUGH:;
if(qbevent){evnt(6999);r=0;}
S_8302:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||is_error_pending()){
if(qbevent){evnt(7004);if(r)goto S_8302;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7007);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7007);}while(r);
S_8305:;
fornext_value1002= 2 ;
fornext_finalvalue1002=*__LONG_N;
fornext_step1002= 1 ;
if (fornext_step1002<0) fornext_step_negative1002=1; else fornext_step_negative1002=0;
if (is_error_pending()) goto fornext_error1002;
goto fornext_entrylabel1002;
while(1){
fornext_value1002=fornext_step1002+(*__LONG_I);
fornext_entrylabel1002:
*__LONG_I=fornext_value1002;
if (fornext_step_negative1002){
if (fornext_value1002<fornext_finalvalue1002) break;
}else{
if (fornext_value1002>fornext_finalvalue1002) break;
}
fornext_error1002:;
if(qbevent){evnt(7008);if(r)goto S_8305;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7009);}while(r);
S_8307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7010);if(r)goto S_8307;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7010);}while(r);
}
S_8310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7011);if(r)goto S_8310;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7011);}while(r);
}
S_8313:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7012);if(r)goto S_8313;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7013);}while(r);
do{
goto LABEL_FIELDGOTFN;
if(!qbevent)break;evnt(7013);}while(r);
}
S_8317:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7015);if(r)goto S_8317;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7015);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7015);}while(r);
}
fornext_continue_1001:;
}
fornext_exit_1001:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7017);}while(r);
LABEL_FIELDGOTFN:;
if(qbevent){evnt(7018);r=0;}
S_8324:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(7019);if(r)goto S_8324;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7019);}while(r);
}
S_8327:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(7020);if(r)goto S_8327;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7020);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7020);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7020);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7021);}while(r);
S_8334:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7022);if(r)goto S_8334;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7022);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7023);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1006= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7024);}while(r);
S_8339:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7025);if(r)goto S_8339;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7025);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1007=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7026);}while(r);
LABEL_FIELDNEXT:;
if(qbevent){evnt(7028);r=0;}
S_8343:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7031);if(r)goto S_8343;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7031);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7032);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7032);}while(r);
S_8348:;
fornext_value1009=*__LONG_I;
fornext_finalvalue1009=*__LONG_N;
fornext_step1009= 1 ;
if (fornext_step1009<0) fornext_step_negative1009=1; else fornext_step_negative1009=0;
if (is_error_pending()) goto fornext_error1009;
goto fornext_entrylabel1009;
while(1){
fornext_value1009=fornext_step1009+(*__LONG_I);
fornext_entrylabel1009:
*__LONG_I=fornext_value1009;
if (fornext_step_negative1009){
if (fornext_value1009<fornext_finalvalue1009) break;
}else{
if (fornext_value1009>fornext_finalvalue1009) break;
}
fornext_error1009:;
if(qbevent){evnt(7033);if(r)goto S_8348;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7034);}while(r);
S_8350:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7035);if(r)goto S_8350;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7035);}while(r);
}
S_8353:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7036);if(r)goto S_8353;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7036);}while(r);
}
S_8356:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7037);if(r)goto S_8356;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7038);}while(r);
do{
goto LABEL_FIELDGOTFW;
if(!qbevent)break;evnt(7038);}while(r);
}
S_8360:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7040);if(r)goto S_8360;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7040);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7040);}while(r);
}
fornext_continue_1008:;
}
fornext_exit_1008:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7042);}while(r);
LABEL_FIELDGOTFW:;
if(qbevent){evnt(7043);r=0;}
S_8367:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7044);if(r)goto S_8367;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7044);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7045);}while(r);
S_8371:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7046);if(r)goto S_8371;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7046);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7047);}while(r);
do{
qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1012= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7048);}while(r);
S_8376:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7049);if(r)goto S_8376;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7049);}while(r);
}
S_8379:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7052);if(r)goto S_8379;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7052);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7053);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7053);}while(r);
S_8384:;
fornext_value1014=*__LONG_I;
fornext_finalvalue1014=*__LONG_N;
fornext_step1014= 1 ;
if (fornext_step1014<0) fornext_step_negative1014=1; else fornext_step_negative1014=0;
if (is_error_pending()) goto fornext_error1014;
goto fornext_entrylabel1014;
while(1){
fornext_value1014=fornext_step1014+(*__LONG_I);
fornext_entrylabel1014:
*__LONG_I=fornext_value1014;
if (fornext_step_negative1014){
if (fornext_value1014<fornext_finalvalue1014) break;
}else{
if (fornext_value1014>fornext_finalvalue1014) break;
}
fornext_error1014:;
if(qbevent){evnt(7054);if(r)goto S_8384;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7055);}while(r);
S_8386:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7056);if(r)goto S_8386;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7056);}while(r);
}
S_8389:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7057);if(r)goto S_8389;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7057);}while(r);
}
S_8392:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7058);if(r)goto S_8392;}
S_8393:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7059);if(r)goto S_8393;}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(7059);}while(r);
}
S_8396:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7060);if(r)goto S_8396;}
S_8397:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7061);if(r)goto S_8397;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7061);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7061);}while(r);
}
}
do{
goto LABEL_FIELDGOTFNAME;
if(!qbevent)break;evnt(7063);}while(r);
}
S_8405:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7065);if(r)goto S_8405;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7065);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7065);}while(r);
}
fornext_continue_1013:;
}
fornext_exit_1013:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7067);}while(r);
LABEL_FIELDGOTFNAME:;
if(qbevent){evnt(7068);r=0;}
S_8412:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7069);if(r)goto S_8412;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7069);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7071);}while(r);
S_8416:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7072);if(r)goto S_8416;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7072);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7073);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7074);}while(r);
S_8421:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7075);if(r)goto S_8421;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7075);}while(r);
}
S_8424:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(7076);if(r)goto S_8424;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7076);}while(r);
}
S_8427:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(7077);if(r)goto S_8427;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Fixed length strings cannot be used in a FIELD statement",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7077);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7077);}while(r);
}
S_8431:;
if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(7078);if(r)goto S_8431;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7078);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1018= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7079);}while(r);
S_8435:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7080);if(r)goto S_8435;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7080);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1019=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("field_add(",10),__STRING_E),qbs_new_txt_len(",",1)),__STRING_SIZEE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7081);}while(r);
S_8439:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7083);if(r)goto S_8439;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7084);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7085);}while(r);
S_8442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7086);if(r)goto S_8442;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7086);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7086);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7087);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7088);}while(r);
do{
goto LABEL_FIELDNEXT;
if(!qbevent)break;evnt(7089);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7092);}while(r);
S_8451:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7092);if(r)goto S_8451;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7092);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7092);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7093);}while(r);
LABEL_FIELDERROR:;
if(qbevent){evnt(7095);r=0;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected FIELD #filenumber, characters AS variable$, ...",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7095);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7095);}while(r);
}
S_8460:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(7108);if(r)goto S_8460;}
S_8461:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(7109);if(r)goto S_8461;}
do{
qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7111);}while(r);
S_8463:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(7113);if(r)goto S_8463;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7115);}while(r);
S_8465:;
fornext_value1022=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1022= 1 ;
fornext_step1022= -1 ;
if (fornext_step1022<0) fornext_step_negative1022=1; else fornext_step_negative1022=0;
if (is_error_pending()) goto fornext_error1022;
goto fornext_entrylabel1022;
while(1){
fornext_value1022=fornext_step1022+(*__LONG_I);
fornext_entrylabel1022:
*__LONG_I=fornext_value1022;
if (fornext_step_negative1022){
if (fornext_value1022<fornext_finalvalue1022) break;
}else{
if (fornext_value1022>fornext_finalvalue1022) break;
}
fornext_error1022:;
if(qbevent){evnt(7116);if(r)goto S_8465;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7117);}while(r);
S_8467:;
if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||is_error_pending()){
if(qbevent){evnt(7118);if(r)goto S_8467;}
do{
SUB_WRITEBUFLINE(&(pass1023=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7119);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7120);}while(r);
S_8470:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7120);if(r)goto S_8470;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7120);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7120);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7121);}while(r);
}
fornext_continue_1021:;
}
fornext_exit_1021:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7124);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7124);}while(r);
}
S_8481:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(7127);if(r)goto S_8481;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7129);}while(r);
S_8483:;
fornext_value1026=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1026= 1 ;
fornext_step1026= -1 ;
if (fornext_step1026<0) fornext_step_negative1026=1; else fornext_step_negative1026=0;
if (is_error_pending()) goto fornext_error1026;
goto fornext_entrylabel1026;
while(1){
fornext_value1026=fornext_step1026+(*__LONG_I);
fornext_entrylabel1026:
*__LONG_I=fornext_value1026;
if (fornext_step_negative1026){
if (fornext_value1026<fornext_finalvalue1026) break;
}else{
if (fornext_value1026>fornext_finalvalue1026) break;
}
fornext_error1026:;
if(qbevent){evnt(7130);if(r)goto S_8483;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7131);}while(r);
S_8485:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(7132);if(r)goto S_8485;}
do{
SUB_WRITEBUFLINE(&(pass1027=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7133);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7134);}while(r);
S_8488:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7134);if(r)goto S_8488;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7134);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7134);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7135);}while(r);
}
fornext_continue_1025:;
}
fornext_exit_1025:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7138);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7138);}while(r);
}
S_8499:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(7141);if(r)goto S_8499;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("While",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7143);}while(r);
S_8501:;
fornext_value1030=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1030= 1 ;
fornext_step1030= -1 ;
if (fornext_step1030<0) fornext_step_negative1030=1; else fornext_step_negative1030=0;
if (is_error_pending()) goto fornext_error1030;
goto fornext_entrylabel1030;
while(1){
fornext_value1030=fornext_step1030+(*__LONG_I);
fornext_entrylabel1030:
*__LONG_I=fornext_value1030;
if (fornext_step_negative1030){
if (fornext_value1030<fornext_finalvalue1030) break;
}else{
if (fornext_value1030>fornext_finalvalue1030) break;
}
fornext_error1030:;
if(qbevent){evnt(7144);if(r)goto S_8501;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7145);}while(r);
S_8503:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(7146);if(r)goto S_8503;}
do{
SUB_WRITEBUFLINE(&(pass1031=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7147);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7148);}while(r);
S_8506:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7148);if(r)goto S_8506;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7148);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7148);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7149);}while(r);
}
fornext_continue_1029:;
}
fornext_exit_1029:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7152);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7152);}while(r);
}
S_8517:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(7155);if(r)goto S_8517;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Select",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7157);}while(r);
S_8519:;
fornext_value1034=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1034= 1 ;
fornext_step1034= -1 ;
if (fornext_step1034<0) fornext_step_negative1034=1; else fornext_step_negative1034=0;
if (is_error_pending()) goto fornext_error1034;
goto fornext_entrylabel1034;
while(1){
fornext_value1034=fornext_step1034+(*__LONG_I);
fornext_entrylabel1034:
*__LONG_I=fornext_value1034;
if (fornext_step_negative1034){
if (fornext_value1034<fornext_finalvalue1034) break;
}else{
if (fornext_value1034>fornext_finalvalue1034) break;
}
fornext_error1034:;
if(qbevent){evnt(7158);if(r)goto S_8519;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7159);}while(r);
S_8521:;
if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||is_error_pending()){
if(qbevent){evnt(7160);if(r)goto S_8521;}
do{
SUB_WRITEBUFLINE(&(pass1035=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7161);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7162);}while(r);
S_8524:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7162);if(r)goto S_8524;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7162);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7162);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7163);}while(r);
}
fornext_continue_1033:;
}
fornext_exit_1033:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7166);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7166);}while(r);
}
S_8535:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(7169);if(r)goto S_8535;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7171);}while(r);
S_8537:;
fornext_value1038=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1038= 1 ;
fornext_step1038= -1 ;
if (fornext_step1038<0) fornext_step_negative1038=1; else fornext_step_negative1038=0;
if (is_error_pending()) goto fornext_error1038;
goto fornext_entrylabel1038;
while(1){
fornext_value1038=fornext_step1038+(*__LONG_I);
fornext_entrylabel1038:
*__LONG_I=fornext_value1038;
if (fornext_step_negative1038){
if (fornext_value1038<fornext_finalvalue1038) break;
}else{
if (fornext_value1038>fornext_finalvalue1038) break;
}
fornext_error1038:;
if(qbevent){evnt(7172);if(r)goto S_8537;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7173);}while(r);
S_8539:;
if ((-(*__LONG_T== 18 ))||is_error_pending()){
if(qbevent){evnt(7174);if(r)goto S_8539;}
do{
SUB_WRITEBUFLINE(&(pass1039=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),qbs__tostr((int64)(*__LONG_EVERYCASENEWCASE+ 1 ),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7175);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7176);}while(r);
S_8542:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7176);if(r)goto S_8542;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7176);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7176);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7177);}while(r);
S_8548:;
}else{
if (-(*__LONG_T== 19 )){
if(qbevent){evnt(7178);if(r)goto S_8548;}
do{
SUB_WRITEBUFLINE(&(pass1041=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len("_end;",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7179);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7180);}while(r);
S_8551:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7180);if(r)goto S_8551;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7180);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7180);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7181);}while(r);
}
}
fornext_continue_1037:;
}
fornext_exit_1037:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7184);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7184);}while(r);
}
}
}
S_8564:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7197);if(r)goto S_8564;}
S_8565:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STRIG",5)))))||is_error_pending()){
if(qbevent){evnt(7198);if(r)goto S_8565;}
do{
SUB_SETDEPENDENCY(&(pass1043= 10ll ));
if(!qbevent)break;evnt(7199);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7200);}while(r);
S_8568:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7201);if(r)goto S_8568;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7201);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7201);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7202);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7202);}while(r);
S_8574:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7203);if(r)goto S_8574;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7203);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7203);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Strig",5)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7204);}while(r);
S_8579:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7205);if(r)goto S_8579;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7205);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7205);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7206);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7207);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7208);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7209);}while(r);
S_8587:;
fornext_value1045=*__LONG_I;
fornext_finalvalue1045=*__LONG_N;
fornext_step1045= 1 ;
if (fornext_step1045<0) fornext_step_negative1045=1; else fornext_step_negative1045=0;
if (is_error_pending()) goto fornext_error1045;
goto fornext_entrylabel1045;
while(1){
fornext_value1045=fornext_step1045+(*__LONG_I);
fornext_entrylabel1045:
*__LONG_I=fornext_value1045;
if (fornext_step_negative1045){
if (fornext_value1045<fornext_finalvalue1045) break;
}else{
if (fornext_value1045>fornext_finalvalue1045) break;
}
fornext_error1045:;
if(qbevent){evnt(7210);if(r)goto S_8587;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7211);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7212);}while(r);
S_8590:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7213);if(r)goto S_8590;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7213);}while(r);
}
S_8593:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7214);if(r)goto S_8593;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7214);}while(r);
}
S_8596:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7215);if(r)goto S_8596;}
do{
goto LABEL_ONSTRIGGOTARG;
if(!qbevent)break;evnt(7215);}while(r);
}
S_8599:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7216);if(r)goto S_8599;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7217);}while(r);
S_8601:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7218);if(r)goto S_8601;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7218);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7218);}while(r);
}
S_8605:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7219);if(r)goto S_8605;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7219);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7219);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7220);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7221);}while(r);
}else{
S_8612:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7223);if(r)goto S_8612;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7223);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7223);}while(r);
}
}
fornext_continue_1044:;
}
fornext_exit_1044:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7226);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7226);}while(r);
LABEL_ONSTRIGGOTARG:;
if(qbevent){evnt(7227);r=0;}
S_8621:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7228);if(r)goto S_8621;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7228);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7228);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1047=*__LONG_MAINTXTBUF),qbs_new_txt_len("onstrig_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7229);}while(r);
S_8626:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7232);if(r)goto S_8626;}
do{
qbs_set(__STRING_OPTI,__STRING_E3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7233);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7234);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7235);}while(r);
}else{
do{
qbs_set(__STRING_OPTI,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7237);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7238);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7239);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7243);}while(r);
S_8636:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7243);if(r)goto S_8636;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7243);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7244);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1049= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7245);}while(r);
S_8641:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7245);if(r)goto S_8641;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7245);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1050=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7246);}while(r);
S_8645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(7249);if(r)goto S_8645;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7250);}while(r);
S_8647:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7250);if(r)goto S_8647;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7250);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7251);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1051= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7252);}while(r);
S_8652:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7252);if(r)goto S_8652;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7252);}while(r);
}
}else{
do{
qbs_set(__STRING_E,__STRING_OPTCONTROLLER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7254);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1052=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7256);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7258);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7260);}while(r);
S_8661:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7261);if(r)goto S_8661;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7261);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7261);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7262);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7262);}while(r);
do{
*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ;
if(!qbevent)break;evnt(7263);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1053=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7264);}while(r);
S_8669:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7266);if(r)goto S_8669;}
S_8670:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7267);if(r)goto S_8670;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7267);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7267);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7268);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7268);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1054=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7270);}while(r);
S_8677:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7272);if(r)goto S_8677;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7272);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7272);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1055= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7274);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7275);}while(r);
LABEL_LABCHK60Z:;
if(qbevent){evnt(7276);r=0;}
S_8683:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7277);if(r)goto S_8683;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(7278);}while(r);
S_8685:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7279);if(r)goto S_8685;}
S_8686:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7280);if(r)goto S_8686;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7280);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7281);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7282);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7283);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7284);}while(r);
}else{
S_8694:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7286);if(r)goto S_8694;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7286);}while(r);
do{
goto LABEL_LABCHK60Z;
if(!qbevent)break;evnt(7286);}while(r);
}
}
}
S_8700:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7289);if(r)goto S_8700;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7291);}while(r);
S_8702:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7291);if(r)goto S_8702;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7291);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(7291);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(7292);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1056= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7293);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7294);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(7295);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7296);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7297);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7298);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7299);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7301);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1057=*__LONG_STRIGJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(strig_event_id==",19),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7303);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1058=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7305);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1059=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7306);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1060=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("strig_event_id=",15),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7307);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1061=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7308);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1062=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7309);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1063=*__LONG_STRIGTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1064=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7311);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1065=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7312);}while(r);
S_8725:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7314);if(r)goto S_8725;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7314);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7314);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7315);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7316);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7321);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7322);}while(r);
S_8735:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7323);if(r)goto S_8735;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7323);}while(r);
}
S_8738:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7324);if(r)goto S_8738;}
S_8739:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7325);if(r)goto S_8739;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7325);}while(r);
do{
goto dl_exit_1067;
if(!qbevent)break;evnt(7325);}while(r);
}
S_8743:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7326);if(r)goto S_8743;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7326);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7326);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7326);}while(r);
}
S_8749:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7327);if(r)goto S_8749;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7327);}while(r);
}
dl_continue_1067:;
}
dl_exit_1067:;
S_8753:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7329);if(r)goto S_8753;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7329);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7329);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7331);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1068=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONSTRIGID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7333);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1069=*__LONG_STRIGTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7334);}while(r);
S_8760:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7336);if(r)goto S_8760;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7336);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7336);}while(r);
}
S_8764:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7338);if(r)goto S_8764;}
S_8765:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7340);if(r)goto S_8765;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7340);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7340);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1070=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7341);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1071=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7342);}while(r);
}else{
S_8772:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7346);if(r)goto S_8772;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7346);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7346);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7348);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7349);}while(r);
S_8778:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7350);if(r)goto S_8778;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7350);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7350);}while(r);
}
S_8782:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7351);if(r)goto S_8782;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7351);}while(r);
}
S_8785:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7352);if(r)goto S_8785;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7352);}while(r);
}
S_8788:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7353);if(r)goto S_8788;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7353);}while(r);
}
S_8791:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7354);if(r)goto S_8791;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7354);}while(r);
}
S_8794:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7355);if(r)goto S_8794;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7355);}while(r);
}
S_8797:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7356);if(r)goto S_8797;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7356);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1072=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7357);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7359);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7360);}while(r);
S_8803:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7361);if(r)goto S_8803;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7361);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7362);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1073=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7363);}while(r);
S_8808:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7364);if(r)goto S_8808;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7364);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1074=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7365);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1075=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7369);}while(r);
S_8814:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7370);if(r)goto S_8814;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7370);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7370);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7371);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7372);}while(r);
}
}
}
S_8824:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7389);if(r)goto S_8824;}
S_8825:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("TIMER",5)))))||is_error_pending()){
if(qbevent){evnt(7390);if(r)goto S_8825;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7391);}while(r);
S_8827:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7392);if(r)goto S_8827;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7392);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7392);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7393);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7393);}while(r);
S_8833:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7394);if(r)goto S_8833;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7394);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7394);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Timer",5)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7395);}while(r);
S_8838:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7396);if(r)goto S_8838;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7396);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7396);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7397);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7398);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7399);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7400);}while(r);
S_8846:;
fornext_value1078=*__LONG_I;
fornext_finalvalue1078=*__LONG_N;
fornext_step1078= 1 ;
if (fornext_step1078<0) fornext_step_negative1078=1; else fornext_step_negative1078=0;
if (is_error_pending()) goto fornext_error1078;
goto fornext_entrylabel1078;
while(1){
fornext_value1078=fornext_step1078+(*__LONG_I);
fornext_entrylabel1078:
*__LONG_I=fornext_value1078;
if (fornext_step_negative1078){
if (fornext_value1078<fornext_finalvalue1078) break;
}else{
if (fornext_value1078>fornext_finalvalue1078) break;
}
fornext_error1078:;
if(qbevent){evnt(7401);if(r)goto S_8846;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7402);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7403);}while(r);
S_8849:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7404);if(r)goto S_8849;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7404);}while(r);
}
S_8852:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7405);if(r)goto S_8852;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7405);}while(r);
}
S_8855:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7406);if(r)goto S_8855;}
do{
goto LABEL_ONTIMGOTARG;
if(!qbevent)break;evnt(7406);}while(r);
}
S_8858:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7407);if(r)goto S_8858;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7408);}while(r);
S_8860:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7409);if(r)goto S_8860;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7409);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7409);}while(r);
}
S_8864:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7410);if(r)goto S_8864;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7410);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7410);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7411);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7412);}while(r);
}else{
S_8871:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7414);if(r)goto S_8871;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7414);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7414);}while(r);
}
}
fornext_continue_1077:;
}
fornext_exit_1077:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7417);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7417);}while(r);
LABEL_ONTIMGOTARG:;
if(qbevent){evnt(7418);r=0;}
S_8880:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7419);if(r)goto S_8880;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7419);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7419);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1080=*__LONG_MAINTXTBUF),qbs_new_txt_len("ontimer_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7420);}while(r);
S_8885:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7422);if(r)goto S_8885;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7423);}while(r);
S_8887:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7424);if(r)goto S_8887;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7424);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7425);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1082= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7426);}while(r);
S_8892:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7427);if(r)goto S_8892;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7427);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1083=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7428);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1084=*__LONG_MAINTXTBUF),qbs_new_txt_len("0,",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7430);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7431);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7434);}while(r);
S_8901:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7435);if(r)goto S_8901;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7435);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7436);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1085=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7437);}while(r);
S_8906:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7438);if(r)goto S_8906;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7438);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1086=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7439);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7440);}while(r);
S_8911:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7441);if(r)goto S_8911;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7441);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7441);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7442);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7442);}while(r);
do{
*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ;
if(!qbevent)break;evnt(7443);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1087=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7444);}while(r);
S_8919:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7446);if(r)goto S_8919;}
S_8920:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7447);if(r)goto S_8920;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7447);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7447);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7448);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7448);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1088=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7450);}while(r);
S_8927:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7452);if(r)goto S_8927;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7452);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7452);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1089= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7454);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7455);}while(r);
LABEL_LABCHK60:;
if(qbevent){evnt(7456);r=0;}
S_8933:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7457);if(r)goto S_8933;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(7458);}while(r);
S_8935:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7459);if(r)goto S_8935;}
S_8936:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7460);if(r)goto S_8936;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7460);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7461);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7462);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7463);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7464);}while(r);
}else{
S_8944:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7466);if(r)goto S_8944;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7466);}while(r);
do{
goto LABEL_LABCHK60;
if(!qbevent)break;evnt(7466);}while(r);
}
}
}
S_8950:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7469);if(r)goto S_8950;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7471);}while(r);
S_8952:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7471);if(r)goto S_8952;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7471);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(7471);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(7472);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1090= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7473);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7474);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(7475);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7476);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7477);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7478);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7479);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7481);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1091=*__LONG_TIMEJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(timer_event_id==",19),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7483);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1092=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7485);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1093=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7486);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1094=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("timer_event_id=",15),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7487);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1095=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7488);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1096=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7489);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1097=*__LONG_TIMETXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7490);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1098=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7491);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1099=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7492);}while(r);
S_8975:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7502);if(r)goto S_8975;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7502);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7502);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7503);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7504);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7508);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7509);}while(r);
S_8985:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7510);if(r)goto S_8985;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7510);}while(r);
}
S_8988:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7511);if(r)goto S_8988;}
S_8989:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7512);if(r)goto S_8989;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7512);}while(r);
do{
goto dl_exit_1101;
if(!qbevent)break;evnt(7512);}while(r);
}
S_8993:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7513);if(r)goto S_8993;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7513);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7513);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7513);}while(r);
}
S_8999:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7514);if(r)goto S_8999;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7514);}while(r);
}
dl_continue_1101:;
}
dl_exit_1101:;
S_9003:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7516);if(r)goto S_9003;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7516);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7516);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7518);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1102=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONTIMERID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7520);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1103=*__LONG_TIMETXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7521);}while(r);
S_9010:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7523);if(r)goto S_9010;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7523);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7523);}while(r);
}
S_9014:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7525);if(r)goto S_9014;}
S_9015:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7527);if(r)goto S_9015;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7527);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7527);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1104=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7528);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1105=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7529);}while(r);
}else{
S_9022:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7533);if(r)goto S_9022;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7533);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7533);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7535);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7536);}while(r);
S_9028:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7537);if(r)goto S_9028;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7537);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7537);}while(r);
}
S_9032:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7538);if(r)goto S_9032;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7538);}while(r);
}
S_9035:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7539);if(r)goto S_9035;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7539);}while(r);
}
S_9038:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7540);if(r)goto S_9038;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7540);}while(r);
}
S_9041:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7541);if(r)goto S_9041;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7541);}while(r);
}
S_9044:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7542);if(r)goto S_9044;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7542);}while(r);
}
S_9047:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7543);if(r)goto S_9047;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7543);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1106=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7544);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7546);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7547);}while(r);
S_9053:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7548);if(r)goto S_9053;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7548);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7549);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1107=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7550);}while(r);
S_9058:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7551);if(r)goto S_9058;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7551);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1108=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7552);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1109=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7556);}while(r);
S_9064:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7557);if(r)goto S_9064;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7557);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7557);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7558);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7559);}while(r);
}
}
}
S_9074:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7568);if(r)goto S_9074;}
S_9075:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("KEY",3)))))||is_error_pending()){
if(qbevent){evnt(7569);if(r)goto S_9075;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7570);}while(r);
S_9077:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7571);if(r)goto S_9077;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7571);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7571);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7572);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7572);}while(r);
S_9083:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7573);if(r)goto S_9083;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7573);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7573);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Key",3)),__STRING1_SP2),qbs_new_txt_len("(",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7574);}while(r);
S_9088:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7575);if(r)goto S_9088;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7575);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7575);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7576);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7577);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7578);}while(r);
S_9095:;
fornext_value1112=*__LONG_I;
fornext_finalvalue1112=*__LONG_N;
fornext_step1112= 1 ;
if (fornext_step1112<0) fornext_step_negative1112=1; else fornext_step_negative1112=0;
if (is_error_pending()) goto fornext_error1112;
goto fornext_entrylabel1112;
while(1){
fornext_value1112=fornext_step1112+(*__LONG_I);
fornext_entrylabel1112:
*__LONG_I=fornext_value1112;
if (fornext_step_negative1112){
if (fornext_value1112<fornext_finalvalue1112) break;
}else{
if (fornext_value1112>fornext_finalvalue1112) break;
}
fornext_error1112:;
if(qbevent){evnt(7579);if(r)goto S_9095;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7580);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7581);}while(r);
S_9098:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7584);if(r)goto S_9098;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7584);}while(r);
}
S_9101:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7585);if(r)goto S_9101;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7585);}while(r);
}
S_9104:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7586);if(r)goto S_9104;}
do{
goto fornext_exit_1111;
if(!qbevent)break;evnt(7586);}while(r);
}
S_9107:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7587);if(r)goto S_9107;}
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7587);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7587);}while(r);
}
fornext_continue_1111:;
}
fornext_exit_1111:;
S_9113:;
if ((-(*__LONG_I==(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(7589);if(r)goto S_9113;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7589);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7589);}while(r);
}
S_9117:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7590);if(r)goto S_9117;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7590);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7590);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7592);}while(r);
S_9122:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7593);if(r)goto S_9122;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7593);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7594);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1114=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7595);}while(r);
S_9127:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7596);if(r)goto S_9127;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7596);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1115=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7597);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7599);}while(r);
S_9132:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7600);if(r)goto S_9132;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7600);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7600);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7601);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7601);}while(r);
do{
*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ;
if(!qbevent)break;evnt(7602);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1116=*__LONG_MAINTXTBUF),qbs_add(qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7603);}while(r);
S_9140:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7605);if(r)goto S_9140;}
S_9141:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7606);if(r)goto S_9141;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7606);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7606);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7607);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7607);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1117=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7609);}while(r);
S_9148:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7611);if(r)goto S_9148;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7611);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7611);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1118= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7613);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7614);}while(r);
LABEL_LABCHK61:;
if(qbevent){evnt(7615);r=0;}
S_9154:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7616);if(r)goto S_9154;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(7617);}while(r);
S_9156:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7618);if(r)goto S_9156;}
S_9157:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7619);if(r)goto S_9157;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7619);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7620);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7621);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7622);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7623);}while(r);
}else{
S_9165:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7625);if(r)goto S_9165;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7625);}while(r);
do{
goto LABEL_LABCHK61;
if(!qbevent)break;evnt(7625);}while(r);
}
}
}
S_9171:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7628);if(r)goto S_9171;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7630);}while(r);
S_9173:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7630);if(r)goto S_9173;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7630);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(7630);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(7631);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1119= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7632);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7633);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(7634);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7635);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(7636);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(7637);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(7638);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7640);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1120=*__LONG_KEYJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(key_event_id==",17),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7642);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1121=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7644);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1122=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7645);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1123=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_event_id=",13),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7646);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1124=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7647);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1125=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7648);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1126=*__LONG_KEYTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7649);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1127=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7650);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1128=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7651);}while(r);
S_9196:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7653);if(r)goto S_9196;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7653);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7653);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7654);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7655);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7659);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7660);}while(r);
S_9206:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7661);if(r)goto S_9206;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7661);}while(r);
}
S_9209:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7662);if(r)goto S_9209;}
S_9210:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7663);if(r)goto S_9210;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7663);}while(r);
do{
goto dl_exit_1130;
if(!qbevent)break;evnt(7663);}while(r);
}
S_9214:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7664);if(r)goto S_9214;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7664);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7664);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7664);}while(r);
}
S_9220:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7665);if(r)goto S_9220;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7665);}while(r);
}
dl_continue_1130:;
}
dl_exit_1130:;
S_9224:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7667);if(r)goto S_9224;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7667);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7667);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7669);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1131=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),qbs__tostr((int32)(*__LONG_ONKEYID),NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7671);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1132=*__LONG_KEYTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7672);}while(r);
S_9231:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7674);if(r)goto S_9231;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7674);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7674);}while(r);
}
S_9235:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7676);if(r)goto S_9235;}
S_9236:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7678);if(r)goto S_9236;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7678);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7678);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1133=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7679);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1134=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7680);}while(r);
}else{
S_9243:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+809)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7684);if(r)goto S_9243;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7684);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7684);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7686);}while(r);
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(7687);}while(r);
S_9249:;
if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||is_error_pending()){
if(qbevent){evnt(7688);if(r)goto S_9249;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7688);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7688);}while(r);
}
S_9253:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7689);if(r)goto S_9253;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7689);}while(r);
}
S_9256:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7690);if(r)goto S_9256;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7690);}while(r);
}
S_9259:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7691);if(r)goto S_9259;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7691);}while(r);
}
S_9262:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7692);if(r)goto S_9262;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7692);}while(r);
}
S_9265:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7693);if(r)goto S_9265;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7693);}while(r);
}
S_9268:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7694);if(r)goto S_9268;}
do{
qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7694);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1135=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7695);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7697);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7698);}while(r);
S_9274:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7699);if(r)goto S_9274;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7699);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7700);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1136=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7701);}while(r);
S_9279:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7702);if(r)goto S_9279;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7702);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1137=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7703);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1138=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7707);}while(r);
S_9285:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7708);if(r)goto S_9285;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7708);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7708);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7709);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7710);}while(r);
}
}
}
S_9295:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(7721);if(r)goto S_9295;}
S_9296:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(7722);if(r)goto S_9296;}
S_9297:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(7723);if(r)goto S_9297;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7723);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7723);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(7724);}while(r);
S_9302:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(7725);if(r)goto S_9302;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SHARED must be used within a SUB/FUNCTION",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7725);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7725);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Shared",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7729);}while(r);
LABEL_SUBFUNCSHR:;
if(qbevent){evnt(7730);r=0;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7733);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7733);}while(r);
S_9309:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7735);if(r)goto S_9309;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name or SHARED AS type variable-list",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7735);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7735);}while(r);
}
S_9313:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(7737);if(r)goto S_9313;}
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(7739);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7740);}while(r);
S_9316:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7741);if(r)goto S_9316;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7741);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7742);}while(r);
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(7745);}while(r);
S_9321:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7746);if(r)goto S_9321;}
S_9322:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1140=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7747);if(r)goto S_9322;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7747);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7747);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(7748);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(7749);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L2,__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7750);}while(r);
}
do{
*__LONG_METHOD= 1 ;
if(!qbevent)break;evnt(7753);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7756);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7757);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7758);}while(r);
S_9334:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(7759);if(r)goto S_9334;}
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7760);}while(r);
LABEL_GETSHRTYP:;
if(qbevent){evnt(7761);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7762);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7763);}while(r);
S_9338:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7764);if(r)goto S_9338;}
S_9339:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7765);if(r)goto S_9339;}
do{
qbs_set(__STRING_T,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7765);}while(r);
}else{
do{
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7765);}while(r);
}
S_9344:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7766);if(r)goto S_9344;}
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7766);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7766);}while(r);
}
do{
goto LABEL_GETSHRTYP;
if(!qbevent)break;evnt(7767);}while(r);
}
S_9351:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7769);if(r)goto S_9351;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7769);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7769);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7771);}while(r);
S_9356:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7772);if(r)goto S_9356;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7772);}while(r);
}
S_9359:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7773);if(r)goto S_9359;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7773);}while(r);
}
S_9362:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7774);if(r)goto S_9362;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7774);}while(r);
}
S_9365:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7775);if(r)goto S_9365;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7775);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(7776);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(7777);}while(r);
S_9370:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(7778);if(r)goto S_9370;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7779);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7780);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7782);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7783);}while(r);
}
S_9377:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7785);if(r)goto S_9377;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7785);}while(r);
}
}
S_9381:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||is_error_pending()){
if(qbevent){evnt(7789);if(r)goto S_9381;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected symbol or AS type after variable name",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7789);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7789);}while(r);
}
S_9385:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7792);if(r)goto S_9385;}
S_9386:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(7793);if(r)goto S_9386;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(7793);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7793);}while(r);
}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7794);}while(r);
}
LABEL_NORMALSHAREDBLOCK:;
if(qbevent){evnt(7797);r=0;}
do{
qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7799);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7800);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(7801);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7802);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7803);}while(r);
do{
qbs_set(__STRING_N2,qbs_add(qbs_add(__STRING_N,__STRING_S),__STRING_TS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7806);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7807);}while(r);
S_9400:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7808);if(r)goto S_9400;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7808);}while(r);
}
S_9403:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7809);if(r)goto S_9403;}
S_9404:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(7810);if(r)goto S_9404;}
S_9405:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(7813);if(r)goto S_9405;}
S_9406:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7814);if(r)goto S_9406;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7814);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(7815);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(7815);}while(r);
S_9411:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7816);if(r)goto S_9411;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7816);}while(r);
}
S_9414:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7817);if(r)goto S_9414;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7817);}while(r);
}
S_9417:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7818);if(r)goto S_9417;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7818);}while(r);
}
S_9420:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(7819);if(r)goto S_9420;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7819);}while(r);
}
}
}else{
S_9425:;
if ((*(int32*)(((char*)__UDT_ID)+((0+536))))||is_error_pending()){
if(qbevent){evnt(7825);if(r)goto S_9425;}
S_9426:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7826);if(r)goto S_9426;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7826);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+536)));
if(!qbevent)break;evnt(7827);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(7827);}while(r);
S_9431:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7828);if(r)goto S_9431;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7828);}while(r);
}
S_9434:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7829);if(r)goto S_9434;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7829);}while(r);
}
S_9437:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7830);if(r)goto S_9437;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7830);}while(r);
}
S_9440:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(7832);if(r)goto S_9440;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1146;
sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0);
if (is_error_pending()) goto skip1146;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0);
if (is_error_pending()) goto skip1146;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0);
if (is_error_pending()) goto skip1146;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0);
if (is_error_pending()) goto skip1146;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1);
if (is_error_pending()) goto skip1146;
skip1146:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(7832);}while(r);
}
S_9443:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(7834);if(r)goto S_9443;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(7834);}while(r);
}
}
}
S_9448:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7839);if(r)goto S_9448;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7839);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7839);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7839);}while(r);
}
S_9454:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7840);if(r)goto S_9454;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7840);}while(r);
}
dl_continue_1143:;
}
dl_exit_1143:;
S_9458:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(7843);if(r)goto S_9458;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Array '",7),__STRING_N),qbs_new_txt_len("' not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7843);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7843);}while(r);
}
S_9462:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(7845);if(r)goto S_9462;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7845);}while(r);
}else{
do{
qbs_set(__STRING_TYP,__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7845);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(7846);}while(r);
S_9468:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(7847);if(r)goto S_9468;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7847);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7847);}while(r);
}
S_9472:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(7848);if(r)goto S_9472;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),__STRING_N),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),qbs_new_txt_len(") not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7848);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7848);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_N,__STRING_TYP,__LONG_METHOD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7849);}while(r);
do{
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1148= 0 ),&(pass1149= 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7850);}while(r);
S_9478:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7851);if(r)goto S_9478;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7851);}while(r);
}
LABEL_SHRFOUND:;
if(qbevent){evnt(7854);r=0;}
S_9481:;
if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||is_error_pending()){
if(qbevent){evnt(7855);if(r)goto S_9481;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7856);}while(r);
}else{
S_9484:;
if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||is_error_pending()){
if(qbevent){evnt(7858);if(r)goto S_9484;}
do{
*__LONG_SHAREDASLAYOUTADDED= -1 ;
if(!qbevent)break;evnt(7859);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_L2),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),__STRING_L3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7860);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),__STRING_L3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7862);}while(r);
}
}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))| 2 ;
if(!qbevent)break;evnt(7866);}while(r);
do{
*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7869);}while(r);
do{
*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7869);}while(r);
S_9494:;
if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||is_error_pending()){
if(qbevent){evnt(7870);if(r)goto S_9494;}
S_9495:;
if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||is_error_pending()){
if(qbevent){evnt(7871);if(r)goto S_9495;}
do{
*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ;
if(!qbevent)break;evnt(7872);}while(r);
do{
tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID;
if(!qbevent)break;evnt(7873);}while(r);
do{
swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528))),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520))),8,1));
if(!qbevent)break;evnt(7874);}while(r);
}
}
do{
qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7879);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7880);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7881);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(7882);}while(r);
S_9505:;
if ((*__LONG_NEWSHAREDSYNTAX)||is_error_pending()){
if(qbevent){evnt(7884);if(r)goto S_9505;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(7884);}while(r);
}
S_9508:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7886);if(r)goto S_9508;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7886);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7886);}while(r);
do{
goto LABEL_SUBFUNCSHR;
if(!qbevent)break;evnt(7886);}while(r);
}
S_9513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7887);if(r)goto S_9513;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7887);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7887);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7889);}while(r);
S_9518:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7889);if(r)goto S_9518;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7889);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7889);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7890);}while(r);
}else{
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(7893);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7896);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7897);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7898);}while(r);
do{
qbs_set(__STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7899);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7900);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7901);}while(r);
do{
*__LONG_SHAREDASLAYOUTADDED= 0 ;
if(!qbevent)break;evnt(7902);}while(r);
LABEL_GETSHRTYP2:;
if(qbevent){evnt(7903);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7904);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7905);}while(r);
S_9535:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("(",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(7906);if(r)goto S_9535;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7908);}while(r);
S_9537:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(7910);if(r)goto S_9537;}
S_9538:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7911);if(r)goto S_9538;}
do{
qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7911);}while(r);
}else{
do{
qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7911);}while(r);
}
S_9543:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7912);if(r)goto S_9543;}
do{
qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7912);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7912);}while(r);
}
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7914);}while(r);
do{
goto LABEL_GETSHRTYP2;
if(!qbevent)break;evnt(7915);}while(r);
}
S_9552:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7917);if(r)goto S_9552;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED AS type variable-list or SHARED variable-name AS type",69));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7917);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7917);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7919);}while(r);
S_9557:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7920);if(r)goto S_9557;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7920);}while(r);
}
S_9560:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(7921);if(r)goto S_9560;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(7921);}while(r);
}
S_9563:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(7922);if(r)goto S_9563;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(7922);}while(r);
}
S_9566:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(7923);if(r)goto S_9566;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(7923);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(7924);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(7925);}while(r);
S_9571:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(7926);if(r)goto S_9571;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7927);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7928);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7930);}while(r);
do{
qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7931);}while(r);
}
S_9578:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7933);if(r)goto S_9578;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7933);}while(r);
}
LABEL_SUBFUNCSHR2:;
if(qbevent){evnt(7935);r=0;}
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7936);}while(r);
S_9582:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7937);if(r)goto S_9582;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7937);}while(r);
}
S_9585:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7938);if(r)goto S_9585;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with SHARED AS type variable-list (",58),__STRING_S),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7939);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7940);}while(r);
}
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(7944);}while(r);
do{
qbs_set(__STRING_L3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7945);}while(r);
S_9591:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7946);if(r)goto S_9591;}
S_9592:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1152=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7947);if(r)goto S_9592;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7947);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7947);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(7948);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(7949);}while(r);
do{
qbs_set(__STRING_L3,qbs_add(qbs_add(qbs_add(__STRING1_SP2,qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7950);}while(r);
}
do{
*__LONG_NEWSHAREDSYNTAX= -1 ;
if(!qbevent)break;evnt(7953);}while(r);
do{
return_point[next_return_point++]=10;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALSHAREDBLOCK;
RETURN_10:;
if(!qbevent)break;evnt(7954);}while(r);
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(7955);}while(r);
S_9603:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7957);if(r)goto S_9603;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7958);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7959);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7962);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7962);}while(r);
do{
goto LABEL_SUBFUNCSHR2;
if(!qbevent)break;evnt(7963);}while(r);
}
S_9610:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7965);if(r)goto S_9610;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7965);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7965);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7967);}while(r);
S_9615:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7967);if(r)goto S_9615;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7967);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7967);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7968);}while(r);
}
}
}
S_9624:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(7974);if(r)goto S_9624;}
S_9625:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(7975);if(r)goto S_9625;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(7976);}while(r);
S_9627:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(7977);if(r)goto S_9627;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(7977);}while(r);
}
S_9630:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(7978);if(r)goto S_9630;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(7978);}while(r);
}
S_9633:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(7979);if(r)goto S_9633;}
S_9634:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7981);if(r)goto S_9634;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("EXIT ",5),__STRING_SECONDELEMENT),qbs_new_txt_len(" must be used within a ",23)),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7981);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7981);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1155=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto exit_subfunc;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7983);}while(r);
S_9639:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||is_error_pending()){
if(qbevent){evnt(7984);if(r)goto S_9639;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7984);}while(r);
}else{
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7984);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP),__STRING_SECONDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7985);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7986);}while(r);
S_9646:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7986);if(r)goto S_9646;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7986);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7986);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7987);}while(r);
}
}
}
S_9655:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5))))||is_error_pending()){
if(qbevent){evnt(7994);if(r)goto S_9655;}
S_9656:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(7995);if(r)goto S_9656;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7996);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7996);}while(r);
}
}
S_9661:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(8002);if(r)goto S_9661;}
S_9662:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(8003);if(r)goto S_9662;}
S_9663:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1157= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8004);if(r)goto S_9663;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8004);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8004);}while(r);
}
do{
*__LONG_USEPOSITION= 0 ;
if(!qbevent)break;evnt(8007);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(8008);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8009);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8010);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8011);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8012);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8013);}while(r);
S_9674:;
do{
if(qbevent){evnt(8014);if(r)goto S_9674;}
S_9675:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8016);if(r)goto S_9675;}
S_9676:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8017);if(r)goto S_9676;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8017);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8017);}while(r);
}
do{
qbs_set(__STRING_EXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8018);}while(r);
do{
goto dl_exit_1158;
if(!qbevent)break;evnt(8019);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8022);}while(r);
S_9684:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8023);if(r)goto S_9684;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8023);}while(r);
}
S_9687:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8024);if(r)goto S_9687;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8024);}while(r);
}
S_9690:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(8026);if(r)goto S_9690;}
S_9691:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8028);if(r)goto S_9691;}
S_9692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1160=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8029);if(r)goto S_9692;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8029);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8029);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8030);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8031);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8032);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8032);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8032);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8032);}while(r);
}
S_9703:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8035);if(r)goto S_9703;}
S_9704:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1161=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8036);if(r)goto S_9704;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8036);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8036);}while(r);
}
do{
*__LONG_USEPOSITION= 1 ;
if(!qbevent)break;evnt(8037);}while(r);
do{
qbs_set(__STRING_POSITION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8038);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8039);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8039);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8039);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8039);}while(r);
}
}
S_9716:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(8046);if(r)goto S_9716;}
S_9717:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8047);if(r)goto S_9717;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8047);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(8047);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8047);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8047);}while(r);
}
}
S_9724:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(8050);if(r)goto S_9724;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8050);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8050);}while(r);
}
LABEL_ASCGOTPART:;
if(qbevent){evnt(8051);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8052);}while(r);
dl_continue_1158:;
}while(1);
dl_exit_1158:;
S_9731:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8054);if(r)goto S_9731;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8054);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8054);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8057);}while(r);
S_9736:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8058);if(r)goto S_9736;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8058);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Asc",3)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8059);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8061);}while(r);
S_9741:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8062);if(r)goto S_9741;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8062);}while(r);
}
S_9744:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(8063);if(r)goto S_9744;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8063);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8063);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8064);}while(r);
S_9749:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8065);if(r)goto S_9749;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8065);}while(r);
}
S_9752:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(8069);if(r)goto S_9752;}
S_9753:;
if ((*__LONG_USEPOSITION)||is_error_pending()){
if(qbevent){evnt(8070);if(r)goto S_9753;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("1",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8070);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8070);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1165=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8072);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8073);}while(r);
S_9760:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8074);if(r)goto S_9760;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8074);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8075);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1166= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8076);}while(r);
S_9765:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8077);if(r)goto S_9765;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8077);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1167=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8078);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1168=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8079);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1169=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8080);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1170=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8084);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8085);}while(r);
S_9774:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8086);if(r)goto S_9774;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8086);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8087);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1171= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8088);}while(r);
S_9779:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8089);if(r)goto S_9779;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8089);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1172=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8090);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8091);}while(r);
S_9784:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8092);if(r)goto S_9784;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8092);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8093);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1173= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8094);}while(r);
S_9789:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8095);if(r)goto S_9789;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8095);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1174=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!is_error_pending()){",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8096);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1175=*__LONG_MAINTXTBUF),qbs_new_txt_len("if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}",94));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8097);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1176=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}}",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8098);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8101);}while(r);
S_9797:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8101);if(r)goto S_9797;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8101);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8101);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8102);}while(r);
}
}
S_9805:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(8110);if(r)goto S_9805;}
S_9806:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||is_error_pending()){
if(qbevent){evnt(8111);if(r)goto S_9806;}
S_9807:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1178= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8112);if(r)goto S_9807;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8112);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8112);}while(r);
}
do{
qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8114);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(8115);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8116);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8117);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8118);}while(r);
do{
qbs_set(__STRING_START,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8119);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8120);}while(r);
S_9818:;
do{
if(qbevent){evnt(8121);if(r)goto S_9818;}
S_9819:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8122);if(r)goto S_9819;}
S_9820:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(8123);if(r)goto S_9820;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8123);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8123);}while(r);
}
do{
qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8124);}while(r);
do{
goto dl_exit_1179;
if(!qbevent)break;evnt(8125);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8127);}while(r);
S_9828:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8128);if(r)goto S_9828;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8128);}while(r);
}
S_9831:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8129);if(r)goto S_9831;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8129);}while(r);
}
S_9834:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(8130);if(r)goto S_9834;}
S_9835:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8131);if(r)goto S_9835;}
S_9836:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1180=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8132);if(r)goto S_9836;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8132);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8132);}while(r);
}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8133);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(8133);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8133);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8133);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8133);}while(r);
}
S_9846:;
if ((-(*__LONG_PART== 3 ))||is_error_pending()){
if(qbevent){evnt(8135);if(r)goto S_9846;}
S_9847:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1181=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8136);if(r)goto S_9847;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8136);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8136);}while(r);
}
S_9851:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8137);if(r)goto S_9851;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Omit , before ) if omitting length in MID$ statement",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8137);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8137);}while(r);
}
do{
qbs_set(__STRING_LENGTH,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8138);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(8138);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8138);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8138);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8138);}while(r);
}
}
S_9862:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(8141);if(r)goto S_9862;}
S_9863:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8142);if(r)goto S_9863;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8142);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(8142);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8142);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8142);}while(r);
}
S_9869:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8143);if(r)goto S_9869;}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8143);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8143);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8143);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8143);}while(r);
}
}
S_9876:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(8145);if(r)goto S_9876;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8145);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8145);}while(r);
}
LABEL_MIDGOTPART:;
if(qbevent){evnt(8146);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8147);}while(r);
dl_continue_1179:;
}while(1);
dl_exit_1179:;
S_9883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8149);if(r)goto S_9883;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - first parameter must be a string variable/array-element",70));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8149);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8149);}while(r);
}
S_9887:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8150);if(r)goto S_9887;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - second parameter not optional",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8150);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8150);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8152);}while(r);
S_9892:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8153);if(r)goto S_9892;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8153);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Mid$",4)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8154);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8155);}while(r);
S_9897:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8156);if(r)goto S_9897;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8156);}while(r);
}
S_9900:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(8157);if(r)goto S_9900;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("MID$ expects a string variable/array-element as its first argument",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8157);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8157);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8158);}while(r);
S_9905:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8159);if(r)goto S_9905;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8159);}while(r);
}
do{
qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8161);}while(r);
S_9909:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8162);if(r)goto S_9909;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8162);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8163);}while(r);
do{
qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1183= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8164);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8166);}while(r);
S_9915:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8167);if(r)goto S_9915;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8167);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8168);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8169);}while(r);
S_9920:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8170);if(r)goto S_9920;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8170);}while(r);
}
S_9923:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||is_error_pending()){
if(qbevent){evnt(8172);if(r)goto S_9923;}
do{
qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8173);}while(r);
S_9925:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8174);if(r)goto S_9925;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8174);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8175);}while(r);
do{
qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1185= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8176);}while(r);
S_9930:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8177);if(r)goto S_9930;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8177);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1186=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",",1)),__STRING_LENGTH),qbs_new_txt_len(",",1)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8178);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1187=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",0,",3)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8180);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8183);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8184);}while(r);
S_9939:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8184);if(r)goto S_9939;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8184);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8184);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8185);}while(r);
}
}
S_9947:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8190);if(r)goto S_9947;}
S_9948:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||is_error_pending()){
if(qbevent){evnt(8191);if(r)goto S_9948;}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8192);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Erase",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8193);}while(r);
LABEL_ERASENEXTARRAY:;
if(qbevent){evnt(8194);r=0;}
do{
*__LONG_TARGETFIRST=*__LONG_I;
if(!qbevent)break;evnt(8198);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8199);}while(r);
S_9953:;
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8200);if(r)goto S_9953;}
do{
qbs_set(__STRING_TARGETTOKEN,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8201);}while(r);
S_9955:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8202);if(r)goto S_9955;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8202);}while(r);
}
S_9958:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8203);if(r)goto S_9958;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8203);}while(r);
}
S_9961:;
if ((-(*__LONG_B< 0 ))||is_error_pending()){
if(qbevent){evnt(8204);if(r)goto S_9961;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8204);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8204);}while(r);
}
S_9965:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8205);if(r)goto S_9965;}
do{
goto dl_exit_1189;
if(!qbevent)break;evnt(8205);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8206);}while(r);
dl_continue_1189:;
}
dl_exit_1189:;
S_9970:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(8208);if(r)goto S_9970;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8208);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8208);}while(r);
}
do{
*__LONG_TARGETLAST=*__LONG_I- 1 ;
if(!qbevent)break;evnt(8209);}while(r);
S_9975:;
if ((-(*__LONG_TARGETLAST<*__LONG_TARGETFIRST))||is_error_pending()){
if(qbevent){evnt(8210);if(r)goto S_9975;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8210);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8210);}while(r);
}
do{
qbs_set(__STRING_VAR,FUNC_GETELEMENTS(__STRING_CA,__LONG_TARGETFIRST,__LONG_TARGETLAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8211);}while(r);
S_9980:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8212);if(r)goto S_9980;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8212);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8212);}while(r);
}
do{
qbs_set(__STRING_X,__STRING_VAR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8214);}while(r);
do{
qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8214);}while(r);
S_9986:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8215);if(r)goto S_9986;}
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(8215);}while(r);
}
S_9989:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8217);if(r)goto S_9989;}
S_9990:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8218);if(r)goto S_9990;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8218);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),__STRING_LS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8219);}while(r);
LABEL_CLEARERASE:;
if(qbevent){evnt(8221);r=0;}
do{
qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8222);}while(r);
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)((*(int32*)(((char*)__UDT_ID)+((0+512)))& 511 )/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8223);}while(r);
do{
*__LONG_UDT= 0 ;
if(!qbevent)break;evnt(8224);}while(r);
S_9997:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(8225);if(r)goto S_9997;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+540)))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8225);}while(r);
}
S_10000:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(8226);if(r)goto S_10000;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs_add(qbs__tostr((int64)((*(int32*)(((char*)__UDT_ID)+((0+512)))& 511 )),NULL,0),qbs_new_txt_len("/8+1",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8226);}while(r);
}
S_10003:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8227);if(r)goto S_10003;}
do{
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 511 ;
if(!qbevent)break;evnt(8228);}while(r);
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_UDT)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8229);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1190=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8231);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1191=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8232);}while(r);
S_10009:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8233);if(r)goto S_10009;}
do{
SUB_WRITEBUFRAWDATA(&(pass1192=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8234);}while(r);
S_10011:;
fornext_value1194= 1 ;
fornext_finalvalue1194=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1194= 1 ;
if (fornext_step1194<0) fornext_step_negative1194=1; else fornext_step_negative1194=0;
if (is_error_pending()) goto fornext_error1194;
goto fornext_entrylabel1194;
while(1){
fornext_value1194=fornext_step1194+(*__LONG_I2);
fornext_entrylabel1194:
*__LONG_I2=fornext_value1194;
if (fornext_step_negative1194){
if (fornext_value1194<fornext_finalvalue1194) break;
}else{
if (fornext_value1194>fornext_finalvalue1194) break;
}
fornext_error1194:;
if(qbevent){evnt(8235);if(r)goto S_10011;}
S_10012:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8236);if(r)goto S_10012;}
do{
SUB_WRITEBUFRAWDATA(&(pass1195=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8236);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1196=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8237);}while(r);
fornext_continue_1193:;
}
fornext_exit_1193:;
do{
SUB_WRITEBUFLINE(&(pass1197=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8239);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1198=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8240);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1199=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]))->len=0;",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8241);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1200=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8242);}while(r);
S_10021:;
}else{
if ((-(*__LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]){
if(qbevent){evnt(8243);if(r)goto S_10021;}
do{
SUB_WRITEBUFRAWDATA(&(pass1201=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8245);}while(r);
S_10023:;
fornext_value1203= 1 ;
fornext_finalvalue1203=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1203= 1 ;
if (fornext_step1203<0) fornext_step_negative1203=1; else fornext_step_negative1203=0;
if (is_error_pending()) goto fornext_error1203;
goto fornext_entrylabel1203;
while(1){
fornext_value1203=fornext_step1203+(*__LONG_I2);
fornext_entrylabel1203:
*__LONG_I2=fornext_value1203;
if (fornext_step_negative1203){
if (fornext_value1203<fornext_finalvalue1203) break;
}else{
if (fornext_value1203>fornext_finalvalue1203) break;
}
fornext_error1203:;
if(qbevent){evnt(8246);if(r)goto S_10023;}
S_10024:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8247);if(r)goto S_10024;}
do{
SUB_WRITEBUFRAWDATA(&(pass1204=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8247);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1205=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8248);}while(r);
fornext_continue_1202:;
}
fornext_exit_1202:;
do{
SUB_WRITEBUFLINE(&(pass1206=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8250);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1207=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8251);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8252);}while(r);
do{
SUB_CLEAR_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1208= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8253);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1209=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8254);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1210=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8255);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1211=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8259);}while(r);
S_10037:;
fornext_value1213= 1 ;
fornext_finalvalue1213=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1213= 1 ;
if (fornext_step1213<0) fornext_step_negative1213=1; else fornext_step_negative1213=0;
if (is_error_pending()) goto fornext_error1213;
goto fornext_entrylabel1213;
while(1){
fornext_value1213=fornext_step1213+(*__LONG_I2);
fornext_entrylabel1213:
*__LONG_I2=fornext_value1213;
if (fornext_step_negative1213){
if (fornext_value1213<fornext_finalvalue1213) break;
}else{
if (fornext_value1213>fornext_finalvalue1213) break;
}
fornext_error1213:;
if(qbevent){evnt(8260);if(r)goto S_10037;}
S_10038:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8261);if(r)goto S_10038;}
do{
SUB_WRITEBUFRAWDATA(&(pass1214=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8261);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1215=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8262);}while(r);
fornext_continue_1212:;
}
fornext_exit_1212:;
do{
SUB_WRITEBUFLINE(&(pass1216=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8264);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1217=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8266);}while(r);
S_10046:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8268);if(r)goto S_10046;}
do{
SUB_WRITEBUFRAWDATA(&(pass1218=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8270);}while(r);
S_10048:;
fornext_value1220= 1 ;
fornext_finalvalue1220=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1220= 1 ;
if (fornext_step1220<0) fornext_step_negative1220=1; else fornext_step_negative1220=0;
if (is_error_pending()) goto fornext_error1220;
goto fornext_entrylabel1220;
while(1){
fornext_value1220=fornext_step1220+(*__LONG_I2);
fornext_entrylabel1220:
*__LONG_I2=fornext_value1220;
if (fornext_step_negative1220){
if (fornext_value1220<fornext_finalvalue1220) break;
}else{
if (fornext_value1220>fornext_finalvalue1220) break;
}
fornext_error1220:;
if(qbevent){evnt(8271);if(r)goto S_10048;}
S_10049:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8272);if(r)goto S_10049;}
do{
SUB_WRITEBUFRAWDATA(&(pass1221=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8272);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1222=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8273);}while(r);
fornext_continue_1219:;
}
fornext_exit_1219:;
do{
SUB_WRITEBUFLINE(&(pass1223=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8275);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1224=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8276);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1225=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free((qbs*)(((uint64*)(",27),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]));",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8277);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1226=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8278);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1227=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8280);}while(r);
}else{
S_10060:;
if (((-(*__LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(8282);if(r)goto S_10060;}
do{
SUB_WRITEBUFRAWDATA(&(pass1228=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8284);}while(r);
S_10062:;
fornext_value1230= 1 ;
fornext_finalvalue1230=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1230= 1 ;
if (fornext_step1230<0) fornext_step_negative1230=1; else fornext_step_negative1230=0;
if (is_error_pending()) goto fornext_error1230;
goto fornext_entrylabel1230;
while(1){
fornext_value1230=fornext_step1230+(*__LONG_I2);
fornext_entrylabel1230:
*__LONG_I2=fornext_value1230;
if (fornext_step_negative1230){
if (fornext_value1230<fornext_finalvalue1230) break;
}else{
if (fornext_value1230>fornext_finalvalue1230) break;
}
fornext_error1230:;
if(qbevent){evnt(8285);if(r)goto S_10062;}
S_10063:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8286);if(r)goto S_10063;}
do{
SUB_WRITEBUFRAWDATA(&(pass1231=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8286);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1232=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)((*__LONG_I2* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8287);}while(r);
fornext_continue_1229:;
}
fornext_exit_1229:;
do{
SUB_WRITEBUFLINE(&(pass1233=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8289);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1234=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8290);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8291);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1235= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8292);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1236=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8293);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1237=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8294);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1238=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8297);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1239=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8298);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1240=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8299);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1241=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8300);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1242=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8301);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1243=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8304);}while(r);
S_10082:;
fornext_value1245= 1 ;
fornext_finalvalue1245=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1245= 1 ;
if (fornext_step1245<0) fornext_step_negative1245=1; else fornext_step_negative1245=0;
if (is_error_pending()) goto fornext_error1245;
goto fornext_entrylabel1245;
while(1){
fornext_value1245=fornext_step1245+(*__LONG_I2);
fornext_entrylabel1245:
*__LONG_I2=fornext_value1245;
if (fornext_step_negative1245){
if (fornext_value1245<fornext_finalvalue1245) break;
}else{
if (fornext_value1245>fornext_finalvalue1245) break;
}
fornext_error1245:;
if(qbevent){evnt(8306);if(r)goto S_10082;}
do{
*__LONG_B=*__LONG_I2* 4 ;
if(!qbevent)break;evnt(8307);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1246=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int32)(*__LONG_B),NULL,0)),qbs_new_txt_len("]=2147483647;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8308);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1247=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*__LONG_B+ 1 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8309);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1248=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*__LONG_B+ 2 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8310);}while(r);
fornext_continue_1244:;
}
fornext_exit_1244:;
S_10088:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8312);if(r)goto S_10088;}
do{
SUB_WRITEBUFLINE(&(pass1249=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8313);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1250=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8315);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1251=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8317);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1252=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8318);}while(r);
S_10095:;
if ((-(*__LONG_CLEARERASERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(8319);if(r)goto S_10095;}
do{
*__LONG_CLEARERASERETURN= 0 ;
if(!qbevent)break;evnt(8319);}while(r);
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(8319);}while(r);
}
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8320);}while(r);
}
S_10101:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8322);if(r)goto S_10101;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8322);}while(r);
}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(8326);}while(r);
do{
qbs_set(__STRING_TARGETREF,FUNC_EVALUATE(__STRING_VAR,__LONG_TARGETTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8327);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(8328);}while(r);
S_10107:;
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
if(qbevent){evnt(8329);if(r)goto S_10107;}
S_10108:;
if (((-((*__LONG_TARGETTYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*__LONG_TARGETTYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
if(qbevent){evnt(8330);if(r)goto S_10108;}
do{
*__LONG_S1=func_instr(NULL,__STRING_TARGETREF,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8331);}while(r);
S_10110:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(8332);if(r)goto S_10110;}
do{
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8332);}while(r);
}else{
do{
*__LONG_S2= 0 ;
if(!qbevent)break;evnt(8332);}while(r);
}
S_10115:;
if ((*__LONG_S2)||is_error_pending()){
if(qbevent){evnt(8333);if(r)goto S_10115;}
do{
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8333);}while(r);
}else{
do{
*__LONG_S3= 0 ;
if(!qbevent)break;evnt(8333);}while(r);
}
S_10120:;
if ((*__LONG_S3)||is_error_pending()){
if(qbevent){evnt(8334);if(r)goto S_10120;}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_TARGETREF,*__LONG_S1- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8335);}while(r);
do{
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(__STRING_TARGETREF,*__LONG_S2+1,*__LONG_S3-(*__LONG_S2+1),0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8336);}while(r);
do{
qbs_set(__STRING_OFFSET,func_mid(__STRING_TARGETREF,*__LONG_S3+1,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8337);}while(r);
do{
SUB_GETID(__LONG_IDNUM);
if(!qbevent)break;evnt(8338);}while(r);
S_10125:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8339);if(r)goto S_10125;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8339);}while(r);
}
do{
qbs_set(__STRING_BASE,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8340);}while(r);
S_10129:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+536)))== 0 ))||is_error_pending()){
if(qbevent){evnt(8341);if(r)goto S_10129;}
do{
qbs_set(__STRING_BASE,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_BASE),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8341);}while(r);
}
do{
qbs_set(__STRING_BASE,qbs_add(FUNC_SCOPE(),__STRING_BASE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8342);}while(r);
do{
qbs_set(__STRING_PTR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),__STRING_BASE),qbs_new_txt_len("+(",2)),__STRING_OFFSET),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8343);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(__STRING_VAR)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8344);}while(r);
do{
*__LONG_MEMBERBYTES=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ;
if(!qbevent)break;evnt(8346);}while(r);
do{
*__LONG_MEMBERELEMS=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])];
if(!qbevent)break;evnt(8347);}while(r);
S_10137:;
if ((-(*__LONG_MEMBERELEMS<= 0 ))||is_error_pending()){
if(qbevent){evnt(8348);if(r)goto S_10137;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8348);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8348);}while(r);
}
do{
*__LONG_ELEMENTBYTES=*__LONG_MEMBERBYTES/ *__LONG_MEMBERELEMS;
if(!qbevent)break;evnt(8349);}while(r);
S_10142:;
if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8351);if(r)goto S_10142;}
S_10143:;
fornext_value1259= 0 ;
fornext_finalvalue1259=*__LONG_MEMBERELEMS- 1 ;
fornext_step1259= 1 ;
if (fornext_step1259<0) fornext_step_negative1259=1; else fornext_step_negative1259=0;
if (is_error_pending()) goto fornext_error1259;
goto fornext_entrylabel1259;
while(1){
fornext_value1259=fornext_step1259+(*__LONG_I2);
fornext_entrylabel1259:
*__LONG_I2=fornext_value1259;
if (fornext_step_negative1259){
if (fornext_value1259<fornext_finalvalue1259) break;
}else{
if (fornext_value1259>fornext_finalvalue1259) break;
}
fornext_error1259:;
if(qbevent){evnt(8352);if(r)goto S_10143;}
do{
SUB_WRITEBUFLINE(&(pass1260=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(",10),__STRING_PTR),qbs_new_txt_len("+",1)),qbs__tostr((int64)(*__LONG_I2**__LONG_ELEMENTBYTES),NULL,0)),qbs_new_txt_len("))->len=0;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8353);}while(r);
fornext_continue_1258:;
}
fornext_exit_1258:;
S_10146:;
}else{
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 ))){
if(qbevent){evnt(8355);if(r)goto S_10146;}
do{
SUB_WRITEBUFLINE(&(pass1261=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_PTR),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*__LONG_MEMBERBYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8358);}while(r);
S_10148:;
}else{
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]){
if(qbevent){evnt(8359);if(r)goto S_10148;}
S_10149:;
fornext_value1263= 0 ;
fornext_finalvalue1263=*__LONG_MEMBERELEMS- 1 ;
fornext_step1263= 1 ;
if (fornext_step1263<0) fornext_step_negative1263=1; else fornext_step_negative1263=0;
if (is_error_pending()) goto fornext_error1263;
goto fornext_entrylabel1263;
while(1){
fornext_value1263=fornext_step1263+(*__LONG_I2);
fornext_entrylabel1263:
*__LONG_I2=fornext_value1263;
if (fornext_step_negative1263){
if (fornext_value1263<fornext_finalvalue1263) break;
}else{
if (fornext_value1263>fornext_finalvalue1263) break;
}
fornext_error1263:;
if(qbevent){evnt(8360);if(r)goto S_10149;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_PTR,&(pass1264=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),__LONG_MAINTXTBUF,&(pass1265=*__LONG_I2**__LONG_ELEMENTBYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8361);}while(r);
fornext_continue_1262:;
}
fornext_exit_1262:;
}else{
do{
SUB_WRITEBUFLINE(&(pass1266=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_PTR),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*__LONG_MEMBERBYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8364);}while(r);
}
}
}
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8366);}while(r);
}
}
}else{
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(8370);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8372);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8372);}while(r);
LABEL_ERASEDARRAY:;
if(qbevent){evnt(8374);r=0;}
S_10163:;
if ((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8375);if(r)goto S_10163;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8376);}while(r);
S_10165:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8377);if(r)goto S_10165;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8377);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8377);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8378);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8379);}while(r);
S_10171:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8379);if(r)goto S_10171;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8379);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8379);}while(r);
}
do{
goto LABEL_ERASENEXTARRAY;
if(!qbevent)break;evnt(8380);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8383);}while(r);
S_10178:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8383);if(r)goto S_10178;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8383);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8383);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8384);}while(r);
}
}
S_10186:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8390);if(r)goto S_10186;}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8391);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8391);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(8391);}while(r);
S_10190:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||is_error_pending()){
if(qbevent){evnt(8392);if(r)goto S_10190;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8392);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8392);}while(r);
}
S_10194:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||is_error_pending()){
if(qbevent){evnt(8393);if(r)goto S_10194;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8394);}while(r);
do{
*__INTEGER_DIMOPTION= 2 ;
if(!qbevent)break;evnt(8395);}while(r);
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(8395);}while(r);
S_10198:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||is_error_pending()){
if(qbevent){evnt(8396);if(r)goto S_10198;}
do{
*__INTEGER_REDIMOPTION= 2 ;
if(!qbevent)break;evnt(8397);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Preserve",9))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8398);}while(r);
S_10201:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8399);if(r)goto S_10201;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _PRESERVE ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8399);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8399);}while(r);
}
}
S_10206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_RETAIN",7))))||is_error_pending()){
if(qbevent){evnt(8401);if(r)goto S_10206;}
do{
*__INTEGER_REDIMOPTION= 3 ;
if(!qbevent)break;evnt(8402);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Retain",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8403);}while(r);
S_10209:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8404);if(r)goto S_10209;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _RETAIN ...",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8404);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8404);}while(r);
}
}
}
S_10215:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(8407);if(r)goto S_10215;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8407);}while(r);
do{
*__INTEGER_DIMOPTION= 3 ;
if(!qbevent)break;evnt(8407);}while(r);
}
S_10219:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||is_error_pending()){
if(qbevent){evnt(8408);if(r)goto S_10219;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8408);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8408);}while(r);
do{
*__LONG_COMMONOPTION= 1 ;
if(!qbevent)break;evnt(8408);}while(r);
}
S_10224:;
if ((*__INTEGER_DIMOPTION)||is_error_pending()){
if(qbevent){evnt(8409);if(r)goto S_10224;}
S_10225:;
if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||is_error_pending()){
if(qbevent){evnt(8411);if(r)goto S_10225;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("STATIC must be used within a SUB/FUNCTION",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8411);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8411);}while(r);
}
S_10229:;
if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||is_error_pending()){
if(qbevent){evnt(8412);if(r)goto S_10229;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("COMMON cannot be used within a SUB/FUNCTION",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8412);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8412);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8414);}while(r);
S_10234:;
if ((-(*__INTEGER_REDIMOPTION>= 2 ))||is_error_pending()){
if(qbevent){evnt(8415);if(r)goto S_10234;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8415);}while(r);
}
S_10237:;
if ((-(*__INTEGER_DIMOPTION!= 3 ))||is_error_pending()){
if(qbevent){evnt(8417);if(r)goto S_10237;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8418);}while(r);
S_10239:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(8419);if(r)goto S_10239;}
S_10240:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(8420);if(r)goto S_10240;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM/REDIM SHARED invalid within a SUB/FUNCTION",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8420);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8420);}while(r);
}
do{
*__INTEGER_DIMSHARED= 1 ;
if(!qbevent)break;evnt(8421);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8422);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Shared",6))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8423);}while(r);
}
}
S_10249:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8427);if(r)goto S_10249;}
do{
*__LONG_DIMSTATIC= 1 ;
if(!qbevent)break;evnt(8427);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(8427);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8430);}while(r);
S_10254:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8431);if(r)goto S_10254;}
LABEL_DIMNEXT:;
if(qbevent){evnt(8433);r=0;}
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(8434);}while(r);
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(8435);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(8436);}while(r);
do{
*__LONG_REDIMMEMBERHANDLED= 0 ;
if(!qbevent)break;evnt(8450);}while(r);
do{
*__LONG_REDIMTARGETCOMMA= 0 ;
if(!qbevent)break;evnt(8451);}while(r);
S_10260:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(8452);if(r)goto S_10260;}
do{
*__LONG_REDIMTARGETFIRST=*__LONG_I;
if(!qbevent)break;evnt(8453);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8454);}while(r);
S_10263:;
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8455);if(r)goto S_10263;}
do{
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8456);}while(r);
S_10265:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8457);if(r)goto S_10265;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8457);}while(r);
}
S_10268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8458);if(r)goto S_10268;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8458);}while(r);
}
S_10271:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8459);if(r)goto S_10271;}
do{
goto dl_exit_1268;
if(!qbevent)break;evnt(8459);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8460);}while(r);
dl_continue_1268:;
}
dl_exit_1268:;
do{
*__LONG_REDIMTARGETCOMMA=*__LONG_I;
if(!qbevent)break;evnt(8462);}while(r);
do{
*__LONG_REDIMTARGETLAST=*__LONG_I- 1 ;
if(!qbevent)break;evnt(8463);}while(r);
S_10278:;
if ((-(*__LONG_REDIMTARGETLAST>=*__LONG_REDIMTARGETFIRST))||is_error_pending()){
if(qbevent){evnt(8464);if(r)goto S_10278;}
do{
qbs_set(__STRING_REDIMFULLTARGET,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,__LONG_REDIMTARGETLAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8465);}while(r);
do{
*__LONG_REDIMLASTOPEN= 0 ;
if(!qbevent)break;evnt(8468);}while(r);
do{
*__LONG_REDIMLASTCLOSE= 0 ;
if(!qbevent)break;evnt(8469);}while(r);
do{
*__LONG_REDIMDEPTH= 0 ;
if(!qbevent)break;evnt(8470);}while(r);
do{
*__LONG_REDIMOPENCANDIDATE= 0 ;
if(!qbevent)break;evnt(8471);}while(r);
do{
qbs_set(__STRING_REDIMTARGETEXPR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8472);}while(r);
do{
qbs_set(__STRING_REDIMBOUNDS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8473);}while(r);
S_10286:;
fornext_value1270=*__LONG_REDIMTARGETFIRST;
fornext_finalvalue1270=*__LONG_REDIMTARGETLAST;
fornext_step1270= 1 ;
if (fornext_step1270<0) fornext_step_negative1270=1; else fornext_step_negative1270=0;
if (is_error_pending()) goto fornext_error1270;
goto fornext_entrylabel1270;
while(1){
fornext_value1270=fornext_step1270+(*__LONG_REDIMSCAN);
fornext_entrylabel1270:
*__LONG_REDIMSCAN=fornext_value1270;
if (fornext_step_negative1270){
if (fornext_value1270<fornext_finalvalue1270) break;
}else{
if (fornext_value1270>fornext_finalvalue1270) break;
}
fornext_error1270:;
if(qbevent){evnt(8475);if(r)goto S_10286;}
do{
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_REDIMSCAN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8476);}while(r);
S_10288:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8477);if(r)goto S_10288;}
S_10289:;
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
if(qbevent){evnt(8478);if(r)goto S_10289;}
do{
*__LONG_REDIMOPENCANDIDATE=*__LONG_REDIMSCAN;
if(!qbevent)break;evnt(8478);}while(r);
}
do{
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH+ 1 ;
if(!qbevent)break;evnt(8479);}while(r);
S_10293:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1)))){
if(qbevent){evnt(8480);if(r)goto S_10293;}
do{
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH- 1 ;
if(!qbevent)break;evnt(8481);}while(r);
S_10295:;
if ((-(*__LONG_REDIMDEPTH< 0 ))||is_error_pending()){
if(qbevent){evnt(8482);if(r)goto S_10295;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8482);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8482);}while(r);
}
S_10299:;
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
if(qbevent){evnt(8483);if(r)goto S_10299;}
do{
*__LONG_REDIMLASTOPEN=*__LONG_REDIMOPENCANDIDATE;
if(!qbevent)break;evnt(8484);}while(r);
do{
*__LONG_REDIMLASTCLOSE=*__LONG_REDIMSCAN;
if(!qbevent)break;evnt(8485);}while(r);
}
}
}
fornext_continue_1269:;
}
fornext_exit_1269:;
S_10305:;
if ((-(*__LONG_REDIMDEPTH!= 0 ))||is_error_pending()){
if(qbevent){evnt(8489);if(r)goto S_10305;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8489);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8489);}while(r);
}
S_10309:;
if (((-(*__LONG_REDIMLASTOPEN!= 0 ))&(-(*__LONG_REDIMLASTCLOSE==*__LONG_REDIMTARGETLAST)))||is_error_pending()){
if(qbevent){evnt(8491);if(r)goto S_10309;}
do{
qbs_set(__STRING_REDIMTARGETEXPR,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,&(pass1271=*__LONG_REDIMLASTOPEN- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8492);}while(r);
do{
qbs_set(__STRING_REDIMBOUNDS,FUNC_GETELEMENTS(__STRING_CA,&(pass1272=*__LONG_REDIMLASTOPEN+ 1 ),&(pass1273=*__LONG_REDIMLASTCLOSE- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8493);}while(r);
}
S_10313:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_REDIMTARGETEXPR,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_REDIMBOUNDS,qbs_new_txt_len("",0)))&(func_instr(NULL,__STRING_REDIMTARGETEXPR,qbs_new_txt_len(".",1),0))))||is_error_pending()){
if(qbevent){evnt(8496);if(r)goto S_10313;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(8500);}while(r);
do{
qbs_set(__STRING_REDIMTARGETREF,FUNC_EVALUATE(__STRING_REDIMTARGETEXPR,__LONG_REDIMTARGETTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8501);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(8502);}while(r);
S_10317:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8503);if(r)goto S_10317;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8503);}while(r);
}
S_10320:;
if (((-((*__LONG_REDIMTARGETTYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_REDIMTARGETTYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(8504);if(r)goto S_10320;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8505);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8505);}while(r);
}
do{
*__LONG_REDIMS1=func_instr(NULL,__STRING_REDIMTARGETREF,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8508);}while(r);
S_10325:;
if ((*__LONG_REDIMS1)||is_error_pending()){
if(qbevent){evnt(8509);if(r)goto S_10325;}
do{
*__LONG_REDIMS2=func_instr(*__LONG_REDIMS1+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8509);}while(r);
}else{
do{
*__LONG_REDIMS2= 0 ;
if(!qbevent)break;evnt(8509);}while(r);
}
S_10330:;
if ((*__LONG_REDIMS2)||is_error_pending()){
if(qbevent){evnt(8510);if(r)goto S_10330;}
do{
*__LONG_REDIMS3=func_instr(*__LONG_REDIMS2+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8510);}while(r);
}else{
do{
*__LONG_REDIMS3= 0 ;
if(!qbevent)break;evnt(8510);}while(r);
}
S_10335:;
if ((-(*__LONG_REDIMS3== 0 ))||is_error_pending()){
if(qbevent){evnt(8511);if(r)goto S_10335;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8511);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8511);}while(r);
}
do{
*__LONG_REDIMIDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_REDIMTARGETREF,*__LONG_REDIMS1- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8513);}while(r);
do{
*__LONG_REDIME=qbr(qbs_val<long double>(func_mid(__STRING_REDIMTARGETREF,*__LONG_REDIMS2+1,*__LONG_REDIMS3-(*__LONG_REDIMS2+1),0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8514);}while(r);
do{
qbs_set(__STRING_REDIMOFFSET,func_mid(__STRING_REDIMTARGETREF,*__LONG_REDIMS3+1,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8515);}while(r);
do{
SUB_GETID(__LONG_REDIMIDNUM);
if(!qbevent)break;evnt(8517);}while(r);
S_10343:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8518);if(r)goto S_10343;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8518);}while(r);
}
S_10346:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDS(__STRING_REDIMBOUNDS,__LONG_REDIMLOWERBOUND,__LONG_REDIMELEMENTCOUNT,__LONG_REDIMDIMCOUNT,__STRING_REDIMDESC)== 0 )))||is_error_pending()){
if(qbevent){evnt(8523);if(r)goto S_10346;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8523);}while(r);
}
S_10349:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_REDIMDIMCOUNT!=((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))|(qbs_notequal(__STRING_REDIMDESC,((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*__LONG_REDIME)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])]))))))||is_error_pending()){
if(qbevent){evnt(8524);if(r)goto S_10349;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot change the number of elements an array has!",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8525);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8525);}while(r);
}
do{
qbs_set(__STRING_REDIMBASE,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8529);}while(r);
S_10354:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+536)))== 0 ))||is_error_pending()){
if(qbevent){evnt(8530);if(r)goto S_10354;}
do{
qbs_set(__STRING_REDIMBASE,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_REDIMBASE),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8530);}while(r);
}
do{
qbs_set(__STRING_REDIMBASE,qbs_add(FUNC_SCOPE(),__STRING_REDIMBASE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8531);}while(r);
do{
qbs_set(__STRING_REDIMPTR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),__STRING_REDIMBASE),qbs_new_txt_len("+(",2)),__STRING_REDIMOFFSET),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8532);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(__STRING_REDIMTARGETEXPR)),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_REDIMBOUNDS),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8534);}while(r);
S_10360:;
if ((-(*__INTEGER_REDIMOPTION== 1 ))||is_error_pending()){
if(qbevent){evnt(8536);if(r)goto S_10360;}
do{
*__LONG_REDIMMEMBERBYTES=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/  8 ;
if(!qbevent)break;evnt(8537);}while(r);
do{
*__LONG_REDIMMEMBERELEMS=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])];
if(!qbevent)break;evnt(8538);}while(r);
do{
*__LONG_REDIMELEMENTBYTES=*__LONG_REDIMMEMBERBYTES/ *__LONG_REDIMMEMBERELEMS;
if(!qbevent)break;evnt(8539);}while(r);
S_10364:;
if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(8544);if(r)goto S_10364;}
S_10365:;
fornext_value1280= 0 ;
fornext_finalvalue1280=*__LONG_REDIMMEMBERELEMS- 1 ;
fornext_step1280= 1 ;
if (fornext_step1280<0) fornext_step_negative1280=1; else fornext_step_negative1280=0;
if (is_error_pending()) goto fornext_error1280;
goto fornext_entrylabel1280;
while(1){
fornext_value1280=fornext_step1280+(*__LONG_REDIMI2);
fornext_entrylabel1280:
*__LONG_REDIMI2=fornext_value1280;
if (fornext_step_negative1280){
if (fornext_value1280<fornext_finalvalue1280) break;
}else{
if (fornext_value1280>fornext_finalvalue1280) break;
}
fornext_error1280:;
if(qbevent){evnt(8545);if(r)goto S_10365;}
do{
SUB_WRITEBUFLINE(&(pass1281=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(",10),__STRING_REDIMPTR),qbs_new_txt_len("+",1)),qbs__tostr((int64)(*__LONG_REDIMI2**__LONG_REDIMELEMENTBYTES),NULL,0)),qbs_new_txt_len("))->len=0;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8546);}while(r);
fornext_continue_1279:;
}
fornext_exit_1279:;
S_10368:;
}else{
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 ))){
if(qbevent){evnt(8548);if(r)goto S_10368;}
do{
SUB_WRITEBUFLINE(&(pass1282=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_REDIMPTR),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*__LONG_REDIMMEMBERBYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8551);}while(r);
S_10370:;
}else{
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]){
if(qbevent){evnt(8552);if(r)goto S_10370;}
S_10371:;
fornext_value1284= 0 ;
fornext_finalvalue1284=*__LONG_REDIMMEMBERELEMS- 1 ;
fornext_step1284= 1 ;
if (fornext_step1284<0) fornext_step_negative1284=1; else fornext_step_negative1284=0;
if (is_error_pending()) goto fornext_error1284;
goto fornext_entrylabel1284;
while(1){
fornext_value1284=fornext_step1284+(*__LONG_REDIMI2);
fornext_entrylabel1284:
*__LONG_REDIMI2=fornext_value1284;
if (fornext_step_negative1284){
if (fornext_value1284<fornext_finalvalue1284) break;
}else{
if (fornext_value1284>fornext_finalvalue1284) break;
}
fornext_error1284:;
if(qbevent){evnt(8553);if(r)goto S_10371;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_REDIMPTR,&(pass1285=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),__LONG_MAINTXTBUF,&(pass1286=*__LONG_REDIMI2**__LONG_REDIMELEMENTBYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8554);}while(r);
fornext_continue_1283:;
}
fornext_exit_1283:;
}else{
do{
SUB_WRITEBUFLINE(&(pass1287=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_REDIMPTR),qbs_new_txt_len(",0,",3)),qbs__tostr((int32)(*__LONG_REDIMMEMBERBYTES),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8557);}while(r);
}
}
}
}
do{
*__LONG_REDIMMEMBERHANDLED= -1 ;
if(!qbevent)break;evnt(8561);}while(r);
}
}
}
S_10382:;
if ((*__LONG_REDIMMEMBERHANDLED)||is_error_pending()){
if(qbevent){evnt(8566);if(r)goto S_10382;}
S_10383:;
if ((-(*__LONG_REDIMTARGETCOMMA<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8567);if(r)goto S_10383;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8568);}while(r);
do{
*__LONG_I=*__LONG_REDIMTARGETCOMMA+ 1 ;
if(!qbevent)break;evnt(8569);}while(r);
S_10386:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8570);if(r)goto S_10386;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8570);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8570);}while(r);
}
do{
goto LABEL_DIMNEXT;
if(!qbevent)break;evnt(8571);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8574);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(8575);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8576);}while(r);
S_10395:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(8577);if(r)goto S_10395;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(8577);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(8578);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8580);}while(r);
S_10400:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8581);if(r)goto S_10400;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8581);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8581);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8583);}while(r);
}
S_10407:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(8586);if(r)goto S_10407;}
do{
*__LONG_I=*__LONG_REDIMTARGETFIRST;
if(!qbevent)break;evnt(8586);}while(r);
}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8587);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8587);}while(r);
S_10412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8588);if(r)goto S_10412;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" variable-name or ",18)),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8588);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8588);}while(r);
}
S_10416:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8591);if(r)goto S_10416;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8591);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8591);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8591);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8594);}while(r);
S_10423:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8596);if(r)goto S_10423;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(8597);}while(r);
S_10425:;
fornext_value1290=*__LONG_I;
fornext_finalvalue1290=*__LONG_N;
fornext_step1290= 1 ;
if (fornext_step1290<0) fornext_step_negative1290=1; else fornext_step_negative1290=0;
if (is_error_pending()) goto fornext_error1290;
goto fornext_entrylabel1290;
while(1){
fornext_value1290=fornext_step1290+(*__LONG_I);
fornext_entrylabel1290:
*__LONG_I=fornext_value1290;
if (fornext_step_negative1290){
if (fornext_value1290<fornext_finalvalue1290) break;
}else{
if (fornext_value1290>fornext_finalvalue1290) break;
}
fornext_error1290:;
if(qbevent){evnt(8598);if(r)goto S_10425;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8599);}while(r);
S_10427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8600);if(r)goto S_10427;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8600);}while(r);
}
S_10430:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8601);if(r)goto S_10430;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8601);}while(r);
}
S_10433:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(8602);if(r)goto S_10433;}
do{
goto fornext_exit_1289;
if(!qbevent)break;evnt(8602);}while(r);
}
S_10436:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8603);if(r)goto S_10436;}
do{
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8603);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8603);}while(r);
}
fornext_continue_1289:;
}
fornext_exit_1289:;
S_10442:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(8605);if(r)goto S_10442;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8605);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8605);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8606);}while(r);
S_10447:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(8608);if(r)goto S_10447;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8608);}while(r);
}
S_10450:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8611);if(r)goto S_10450;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1292;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1292;
skip1292:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8611);}while(r);
}
S_10453:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8616);if(r)goto S_10453;}
S_10454:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8617);if(r)goto S_10454;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(8618);}while(r);
}
}
S_10458:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8624);if(r)goto S_10458;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8624);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8624);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8624);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8626);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(8628);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8630);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8631);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8632);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8635);}while(r);
S_10471:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8636);if(r)goto S_10471;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8636);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(8637);}while(r);
S_10475:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(8638);if(r)goto S_10475;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8638);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8638);}while(r);
}
S_10479:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8640);if(r)goto S_10479;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8641);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(8642);}while(r);
do{
qbs_set(__STRING_APPENDNAME,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8643);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8644);}while(r);
}
S_10485:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8647);if(r)goto S_10485;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8648);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8649);}while(r);
S_10488:;
fornext_value1295=*__LONG_I;
fornext_finalvalue1295=*__LONG_N;
fornext_step1295= 1 ;
if (fornext_step1295<0) fornext_step_negative1295=1; else fornext_step_negative1295=0;
if (is_error_pending()) goto fornext_error1295;
goto fornext_entrylabel1295;
while(1){
fornext_value1295=fornext_step1295+(*__LONG_I);
fornext_entrylabel1295:
*__LONG_I=fornext_value1295;
if (fornext_step_negative1295){
if (fornext_value1295<fornext_finalvalue1295) break;
}else{
if (fornext_value1295>fornext_finalvalue1295) break;
}
fornext_error1295:;
if(qbevent){evnt(8650);if(r)goto S_10488;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8651);}while(r);
S_10490:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8652);if(r)goto S_10490;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8652);}while(r);
do{
goto fornext_exit_1294;
if(!qbevent)break;evnt(8652);}while(r);
}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_D),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8653);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_D));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8654);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8655);}while(r);
fornext_continue_1294:;
}
fornext_exit_1294:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8657);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8658);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8659);}while(r);
}
do{
*__LONG_NOTYPE= 1 ;
if(!qbevent)break;evnt(8663);}while(r);
S_10503:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(8664);if(r)goto S_10503;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(8664);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8664);}while(r);
}
do{
qbs_set(__STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8665);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(8666);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(8667);}while(r);
LABEL_DIMGOTTYP:;
if(qbevent){evnt(8669);r=0;}
S_10511:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8670);if(r)goto S_10511;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8670);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8670);}while(r);
}
S_10515:;
if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||is_error_pending()){
if(qbevent){evnt(8673);if(r)goto S_10515;}
S_10516:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8674);if(r)goto S_10516;}
S_10517:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8675);if(r)goto S_10517;}
S_10518:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+520))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8676);if(r)goto S_10518;}
do{
qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8677);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(8678);}while(r);
}
}
}
}
LABEL_NORMALDIMBLOCK:;
if(qbevent){evnt(8684);r=0;}
S_10525:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||is_error_pending()){
if(qbevent){evnt(8685);if(r)goto S_10525;}
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8687);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8688);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8688);}while(r);
S_10529:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8690);if(r)goto S_10529;}
S_10530:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2641)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8691);if(r)goto S_10530;}
S_10531:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8692);if(r)goto S_10531;}
S_10532:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8694);if(r)goto S_10532;}
S_10533:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8695);if(r)goto S_10533;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8696);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8696);}while(r);
}
}
}else{
S_10539:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8700);if(r)goto S_10539;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8701);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8701);}while(r);
}else{
S_10543:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8704);if(r)goto S_10543;}
S_10544:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8705);if(r)goto S_10544;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8706);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8706);}while(r);
}
}
}
}
}
}
S_10553:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8714);if(r)goto S_10553;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8715);}while(r);
S_10555:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8716);if(r)goto S_10555;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8716);}while(r);
}
S_10558:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(8717);if(r)goto S_10558;}
S_10559:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2641)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8718);if(r)goto S_10559;}
S_10560:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8719);if(r)goto S_10560;}
S_10561:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8721);if(r)goto S_10561;}
S_10562:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8722);if(r)goto S_10562;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8723);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8723);}while(r);
}
}
}else{
S_10568:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8727);if(r)goto S_10568;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8728);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8728);}while(r);
}else{
S_10572:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8731);if(r)goto S_10572;}
S_10573:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8732);if(r)goto S_10573;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8733);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8733);}while(r);
}
}
}
}
}
}
}
}
S_10584:;
if ((*__LONG_LISTARRAY)||is_error_pending()){
if(qbevent){evnt(8743);if(r)goto S_10584;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8748);}while(r);
S_10586:;
fornext_value1299= 1 ;
fornext_finalvalue1299=*__LONG_STATICARRAYLISTN;
fornext_step1299= 1 ;
if (fornext_step1299<0) fornext_step_negative1299=1; else fornext_step_negative1299=0;
if (is_error_pending()) goto fornext_error1299;
goto fornext_entrylabel1299;
while(1){
fornext_value1299=fornext_step1299+(*__LONG_X);
fornext_entrylabel1299:
*__LONG_X=fornext_value1299;
if (fornext_step_negative1299){
if (fornext_value1299<fornext_finalvalue1299) break;
}else{
if (fornext_value1299>fornext_finalvalue1299) break;
}
fornext_error1299:;
if(qbevent){evnt(8749);if(r)goto S_10586;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8750);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8750);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8751);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8751);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8752);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8752);}while(r);
S_10593:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(8754);if(r)goto S_10593;}
S_10594:;
if ((-(*__LONG_DIMMETHOD2== 1 ))||is_error_pending()){
if(qbevent){evnt(8755);if(r)goto S_10594;}
S_10595:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8757);if(r)goto S_10595;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8757);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8757);}while(r);
}
}else{
S_10600:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8760);if(r)goto S_10600;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8761);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8761);}while(r);
}else{
S_10604:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8763);if(r)goto S_10604;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8763);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8763);}while(r);
}
}
}
}
fornext_continue_1298:;
}
fornext_exit_1298:;
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8770);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8771);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8771);}while(r);
S_10615:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(8773);if(r)goto S_10615;}
S_10616:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2641)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8774);if(r)goto S_10616;}
S_10617:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8775);if(r)goto S_10617;}
S_10618:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8777);if(r)goto S_10618;}
S_10619:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8778);if(r)goto S_10619;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8779);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8779);}while(r);
}
}
}else{
S_10625:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8783);if(r)goto S_10625;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8784);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8784);}while(r);
}else{
S_10629:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8787);if(r)goto S_10629;}
S_10630:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8788);if(r)goto S_10630;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8789);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8789);}while(r);
}
}
}
}
}
}
S_10639:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8797);if(r)goto S_10639;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8798);}while(r);
S_10641:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8799);if(r)goto S_10641;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8799);}while(r);
}
S_10644:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(8800);if(r)goto S_10644;}
S_10645:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2641)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(8801);if(r)goto S_10645;}
S_10646:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8802);if(r)goto S_10646;}
S_10647:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8804);if(r)goto S_10647;}
S_10648:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8805);if(r)goto S_10648;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8806);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8806);}while(r);
}
}
}else{
S_10654:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8810);if(r)goto S_10654;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8811);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8811);}while(r);
}else{
S_10658:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(8814);if(r)goto S_10658;}
S_10659:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+540)))))||is_error_pending()){
if(qbevent){evnt(8815);if(r)goto S_10659;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8816);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8816);}while(r);
}
}
}
}
}
}
}
S_10669:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(8826);if(r)goto S_10669;}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8826);}while(r);
}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_STATICARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8827);}while(r);
S_10673:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8828);if(r)goto S_10673;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8828);}while(r);
}
do{
*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(8829);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_VARNAME),__STRING_APPENDNAME),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8830);}while(r);
}else{
do{
*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
if(!qbevent)break;evnt(8835);}while(r);
S_10680:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8838);if(r)goto S_10680;}
S_10681:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(8839);if(r)goto S_10681;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8840);}while(r);
S_10683:;
fornext_value1303= 1 ;
fornext_finalvalue1303=*__LONG_STATICARRAYLISTN;
fornext_step1303= 1 ;
if (fornext_step1303<0) fornext_step_negative1303=1; else fornext_step_negative1303=0;
if (is_error_pending()) goto fornext_error1303;
goto fornext_entrylabel1303;
while(1){
fornext_value1303=fornext_step1303+(*__LONG_X);
fornext_entrylabel1303:
*__LONG_X=fornext_value1303;
if (fornext_step_negative1303){
if (fornext_value1303<fornext_finalvalue1303) break;
}else{
if (fornext_value1303>fornext_finalvalue1303) break;
}
fornext_error1303:;
if(qbevent){evnt(8841);if(r)goto S_10683;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8842);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8842);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8843);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8843);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8844);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8844);}while(r);
S_10690:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(8846);if(r)goto S_10690;}
S_10691:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8847);if(r)goto S_10691;}
S_10692:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8848);if(r)goto S_10692;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8848);}while(r);
}
S_10695:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(8849);if(r)goto S_10695;}
do{
qbs_set(__STRING_VARNAME,__STRING_VARNAME2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8851);}while(r);
do{
*__LONG_DIMSTATIC= 3 ;
if(!qbevent)break;evnt(8852);}while(r);
S_10698:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8853);if(r)goto S_10698;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array already listed as STATIC",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8853);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8853);}while(r);
}
}
}
}
fornext_continue_1302:;
}
fornext_exit_1302:;
}
}
S_10708:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(8864);if(r)goto S_10708;}
S_10709:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8865);if(r)goto S_10709;}
S_10710:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(8868);if(r)goto S_10710;}
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8868);}while(r);
}
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_COMMONARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)),__STRING1_SP),qbs__tostr((int16)(*__INTEGER_DIMSHARED),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8870);}while(r);
S_10714:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8871);if(r)goto S_10714;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8871);}while(r);
}
do{
*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(8872);}while(r);
S_10718:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8873);if(r)goto S_10718;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1306;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common listed:",14),__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD),NULL,0)),__STRING1_SP),qbs__tostr((int16)(*__INTEGER_DIMSHARED),NULL,0)), 0, 0, 1);
if (is_error_pending()) goto skip1306;
skip1306:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8873);}while(r);
}
S_10721:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8874);if(r)goto S_10721;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8874);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(8876);}while(r);
do{
qbs_set(__STRING_V,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8878);}while(r);
S_10726:;
if ((-(*__LONG_DIMMETHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(8879);if(r)goto S_10726;}
do{
qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8879);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8880);}while(r);
S_10730:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8881);if(r)goto S_10730;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8881);}while(r);
}
S_10733:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(8882);if(r)goto S_10733;}
S_10734:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(8883);if(r)goto S_10734;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8885);}while(r);
S_10736:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8886);if(r)goto S_10736;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8886);}while(r);
}
do{
*__LONG_S=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8887);}while(r);
do{
*__LONG_MATCH= 1 ;
if(!qbevent)break;evnt(8888);}while(r);
S_10741:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8890);if(r)goto S_10741;}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(8891);}while(r);
do{
*__LONG_S2=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(8892);}while(r);
S_10744:;
if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||is_error_pending()){
if(qbevent){evnt(8893);if(r)goto S_10744;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8893);}while(r);
}
S_10747:;
if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(8894);if(r)goto S_10747;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8894);}while(r);
}
S_10750:;
if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(8895);if(r)goto S_10750;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8895);}while(r);
}
S_10753:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||is_error_pending()){
if(qbevent){evnt(8896);if(r)goto S_10753;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8896);}while(r);
}
S_10756:;
if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||is_error_pending()){
if(qbevent){evnt(8897);if(r)goto S_10756;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8897);}while(r);
}
S_10759:;
if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||is_error_pending()){
if(qbevent){evnt(8898);if(r)goto S_10759;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8898);}while(r);
}
S_10762:;
if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||is_error_pending()){
if(qbevent){evnt(8899);if(r)goto S_10762;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8899);}while(r);
}
S_10765:;
if ((-(*__LONG_S!=*__LONG_S2))||is_error_pending()){
if(qbevent){evnt(8900);if(r)goto S_10765;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8900);}while(r);
}
do{
*__LONG_OLDMETHOD= 0 ;
if(!qbevent)break;evnt(8902);}while(r);
S_10769:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(8902);if(r)goto S_10769;}
do{
*__LONG_OLDMETHOD= 1 ;
if(!qbevent)break;evnt(8902);}while(r);
}
S_10772:;
if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||is_error_pending()){
if(qbevent){evnt(8903);if(r)goto S_10772;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(8903);}while(r);
}
}
S_10776:;
if ((*__LONG_MATCH)||is_error_pending()){
if(qbevent){evnt(8906);if(r)goto S_10776;}
do{
*__LONG_X=*__LONG_CURRENTID;
if(!qbevent)break;evnt(8907);}while(r);
S_10778:;
if ((*__INTEGER_DIMSHARED)||is_error_pending()){
if(qbevent){evnt(8908);if(r)goto S_10778;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645)))= 1 ;
if(!qbevent)break;evnt(8908);}while(r);
}
do{
qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8909);}while(r);
S_10782:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(8911);if(r)goto S_10782;}
S_10783:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8912);if(r)goto S_10783;}
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8913);}while(r);
}else{
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8915);}while(r);
S_10787:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||is_error_pending()){
if(qbevent){evnt(8916);if(r)goto S_10787;}
do{
tqbs=__STRING_DIM2TYPEPASSBACK; if (!is_error_pending()){
tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!is_error_pending()){
tmp_long=qbs_asc(__STRING1_SP); if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(8917);}while(r);
dl_continue_1308:;
}
dl_exit_1308:;
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8919);}while(r);
}
}
do{
goto dl_exit_1307;
if(!qbevent)break;evnt(8923);}while(r);
}
}
S_10796:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(8927);if(r)goto S_10796;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(8927);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8927);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(8927);}while(r);
}
S_10802:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8928);if(r)goto S_10802;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8928);}while(r);
}
dl_continue_1307:;
}
dl_exit_1307:;
S_10806:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(8931);if(r)goto S_10806;}
do{
*__LONG_X=*__LONG_IDN+ 1 ;
if(!qbevent)break;evnt(8931);}while(r);
}
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8934);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1309=*__LONG_CHAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8936);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8938);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8940);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1310=*__LONG_CHAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8942);}while(r);
do{
*__LONG_CHAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8944);}while(r);
S_10815:;
if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||is_error_pending()){
if(qbevent){evnt(8947);if(r)goto S_10815;}
do{
goto LABEL_SKIPDIM;
if(!qbevent)break;evnt(8947);}while(r);
}
do{
goto LABEL_DIMCOMMONARRAY;
if(!qbevent)break;evnt(8948);}while(r);
}
}
S_10821:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(8955);if(r)goto S_10821;}
S_10822:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(8956);if(r)goto S_10822;}
S_10823:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8958);if(r)goto S_10823;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1312;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1);
if (is_error_pending()) goto skip1312;
skip1312:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8958);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(8960);}while(r);
S_10827:;
fornext_value1314= 1 ;
fornext_finalvalue1314=*__LONG_COMMONARRAYLISTN;
fornext_step1314= 1 ;
if (fornext_step1314<0) fornext_step_negative1314=1; else fornext_step_negative1314=0;
if (is_error_pending()) goto fornext_error1314;
goto fornext_entrylabel1314;
while(1){
fornext_value1314=fornext_step1314+(*__LONG_X);
fornext_entrylabel1314:
*__LONG_X=fornext_value1314;
if (fornext_step_negative1314){
if (fornext_value1314<fornext_finalvalue1314) break;
}else{
if (fornext_value1314>fornext_finalvalue1314) break;
}
fornext_error1314:;
if(qbevent){evnt(8961);if(r)goto S_10827;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8962);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8962);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8963);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8963);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8964);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8964);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8965);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(8965);}while(r);
S_10836:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8966);if(r)goto S_10836;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1315;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common checking against:",24),__STRING_VARNAME2),__STRING1_SP),__STRING_TYP2),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMMETHOD2),NULL,0)),__STRING1_SP),qbs__tostr((int32)(*__LONG_DIMSHARED2),NULL,0)), 0, 0, 1);
if (is_error_pending()) goto skip1315;
skip1315:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8966);}while(r);
}
S_10839:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||is_error_pending()){
if(qbevent){evnt(8968);if(r)goto S_10839;}
S_10840:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(8969);if(r)goto S_10840;}
S_10841:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8970);if(r)goto S_10841;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8970);}while(r);
}
S_10844:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(8971);if(r)goto S_10844;}
S_10845:;
if ((*__LONG_DIMSHARED2)||is_error_pending()){
if(qbevent){evnt(8975);if(r)goto S_10845;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ;
if(!qbevent)break;evnt(8975);}while(r);
}
}
}
}
fornext_continue_1313:;
}
fornext_exit_1313:;
}
}
LABEL_DIMCOMMONARRAY:;
if(qbevent){evnt(8987);r=0;}
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_VARNAME,__STRING_TYP,__LONG_DIMMETHOD,__STRING_ELEMENTS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8988);}while(r);
S_10855:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8989);if(r)goto S_10855;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8989);}while(r);
}
LABEL_SKIPDIM:;
if(qbevent){evnt(8990);r=0;}
S_10858:;
if ((-(*__INTEGER_DIMSHARED>= 2 ))||is_error_pending()){
if(qbevent){evnt(8991);if(r)goto S_10858;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ;
if(!qbevent)break;evnt(8991);}while(r);
}
S_10861:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8994);if(r)goto S_10861;}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(8998);}while(r);
do{
*__LONG_MAINTXTBUFPREV=*__LONG_MAINTXTBUF;
if(!qbevent)break;evnt(9001);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9002);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9003);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1317=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9005);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1318=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9006);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+536)));
if(!qbevent)break;evnt(9008);}while(r);
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(9009);}while(r);
S_10870:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(9010);if(r)goto S_10870;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(9010);}while(r);
}
S_10873:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(9011);if(r)goto S_10873;}
S_10874:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9012);if(r)goto S_10874;}
do{
*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+((0+540)))* 8 ;
if(!qbevent)break;evnt(9013);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1319=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=__STRING_",18),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))),qbs_new_txt_len("->len*8;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9015);}while(r);
do{
*__LONG_BITS= 0 ;
if(!qbevent)break;evnt(9016);}while(r);
}
}
S_10881:;
if ((*__LONG_BITS)||is_error_pending()){
if(qbevent){evnt(9020);if(r)goto S_10881;}
do{
SUB_WRITEBUFLINE(&(pass1320=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9021);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1321=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9023);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9026);}while(r);
S_10886:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9028);if(r)goto S_10886;}
S_10887:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9029);if(r)goto S_10887;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+540)))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9030);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9032);}while(r);
S_10891:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9033);if(r)goto S_10891;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9033);}while(r);
}
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1322= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9036);}while(r);
S_10897:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9037);if(r)goto S_10897;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9037);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1323=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9039);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9041);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9046);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9047);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1324=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==1){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9050);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1325=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9052);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9055);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+536)));
if(!qbevent)break;evnt(9056);}while(r);
S_10908:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9057);if(r)goto S_10908;}
S_10909:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9058);if(r)goto S_10909;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+540)))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9059);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9061);}while(r);
S_10913:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9062);if(r)goto S_10913;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9062);}while(r);
}
}
}
S_10918:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(9066);if(r)goto S_10918;}
S_10919:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(9067);if(r)goto S_10919;}
do{
SUB_WRITEBUFLINE(&(pass1326=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9068);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1327=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_",17),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))),qbs_new_txt_len(",tqbs);",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9069);}while(r);
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1328= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9074);}while(r);
S_10925:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9075);if(r)goto S_10925;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9075);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1329=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9076);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1330=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9078);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1331=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9079);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9081);}while(r);
do{
*__LONG_MAINTXTBUF=*__LONG_MAINTXTBUFPREV;
if(!qbevent)break;evnt(9083);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(9085);}while(r);
}
LABEL_COMMONARRAYLISTED:;
if(qbevent){evnt(9089);r=0;}
S_10935:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||is_error_pending()){
if(qbevent){evnt(9091);if(r)goto S_10935;}
S_10936:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(9092);if(r)goto S_10936;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9092);}while(r);
}
S_10939:;
if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||is_error_pending()){
if(qbevent){evnt(9093);if(r)goto S_10939;}
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ;
if(!qbevent)break;evnt(9094);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9095);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9099);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1334= 1 ))),__STRING_APPENDNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9100);}while(r);
S_10946:;
if ((-(*__LONG_N2> 1 ))||is_error_pending()){
if(qbevent){evnt(9101);if(r)goto S_10946;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1335= 2 ),__LONG_N2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9102);}while(r);
}
S_10949:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||is_error_pending()){
if(qbevent){evnt(9105);if(r)goto S_10949;}
S_10950:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(9106);if(r)goto S_10950;}
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9106);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9107);}while(r);
}
do{
*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC;
if(!qbevent)break;evnt(9112);}while(r);
}
S_10957:;
if ((*__LONG_NEWDIMSYNTAX)||is_error_pending()){
if(qbevent){evnt(9116);if(r)goto S_10957;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(9116);}while(r);
}
S_10960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(9118);if(r)goto S_10960;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9118);}while(r);
do{
goto LABEL_DIMNEXT;
if(!qbevent)break;evnt(9118);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(9120);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(9121);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(9122);}while(r);
S_10967:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(9123);if(r)goto S_10967;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(9123);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(9124);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9126);}while(r);
S_10972:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9127);if(r)goto S_10972;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9127);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9127);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9129);}while(r);
}else{
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9132);}while(r);
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ;
if(!qbevent)break;evnt(9133);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9136);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9137);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9138);}while(r);
do{
qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9139);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9140);}while(r);
S_10986:;
fornext_value1340=*__LONG_I;
fornext_finalvalue1340=*__LONG_N;
fornext_step1340= 1 ;
if (fornext_step1340<0) fornext_step_negative1340=1; else fornext_step_negative1340=0;
if (is_error_pending()) goto fornext_error1340;
goto fornext_entrylabel1340;
while(1){
fornext_value1340=fornext_step1340+(*__LONG_I);
fornext_entrylabel1340:
*__LONG_I=fornext_value1340;
if (fornext_step_negative1340){
if (fornext_value1340<fornext_finalvalue1340) break;
}else{
if (fornext_value1340>fornext_finalvalue1340) break;
}
fornext_error1340:;
if(qbevent){evnt(9141);if(r)goto S_10986;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9142);}while(r);
S_10988:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_D,qbs_new_txt_len(",",1)))|(qbs_equal(__STRING_D,qbs_new_txt_len("(",1)))))||is_error_pending()){
if(qbevent){evnt(9143);if(r)goto S_10988;}
do{
goto fornext_exit_1339;
if(!qbevent)break;evnt(9143);}while(r);
}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9144);}while(r);
S_10992:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(9145);if(r)goto S_10992;}
do{
qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9146);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_PREVIOUSELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9147);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9149);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9150);}while(r);
fornext_continue_1339:;
}
fornext_exit_1339:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9152);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9153);}while(r);
LABEL_DIMNEXT2:;
if(qbevent){evnt(9155);r=0;}
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(9156);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(9157);}while(r);
S_11003:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TYP,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(9159);if(r)goto S_11003;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list or ",26)),__STRING_FIRSTELEMENT),qbs_new_txt_len(" variable-name AS type",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9159);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9159);}while(r);
}
S_11007:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(9162);if(r)goto S_11007;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9162);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9162);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9162);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9165);}while(r);
S_11014:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9167);if(r)goto S_11014;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(9168);}while(r);
S_11016:;
fornext_value1343=*__LONG_I;
fornext_finalvalue1343=*__LONG_N;
fornext_step1343= 1 ;
if (fornext_step1343<0) fornext_step_negative1343=1; else fornext_step_negative1343=0;
if (is_error_pending()) goto fornext_error1343;
goto fornext_entrylabel1343;
while(1){
fornext_value1343=fornext_step1343+(*__LONG_I);
fornext_entrylabel1343:
*__LONG_I=fornext_value1343;
if (fornext_step_negative1343){
if (fornext_value1343<fornext_finalvalue1343) break;
}else{
if (fornext_value1343>fornext_finalvalue1343) break;
}
fornext_error1343:;
if(qbevent){evnt(9169);if(r)goto S_11016;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9170);}while(r);
S_11018:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9171);if(r)goto S_11018;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9171);}while(r);
}
S_11021:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9172);if(r)goto S_11021;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9172);}while(r);
}
S_11024:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(9173);if(r)goto S_11024;}
do{
goto fornext_exit_1342;
if(!qbevent)break;evnt(9173);}while(r);
}
S_11027:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9174);if(r)goto S_11027;}
do{
qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9174);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9174);}while(r);
}
fornext_continue_1342:;
}
fornext_exit_1342:;
S_11033:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(9176);if(r)goto S_11033;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9176);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9176);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9177);}while(r);
S_11038:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(9179);if(r)goto S_11038;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9179);}while(r);
}
S_11041:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9182);if(r)goto S_11041;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1345;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1345;
skip1345:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9182);}while(r);
}
S_11044:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(9187);if(r)goto S_11044;}
S_11045:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9188);if(r)goto S_11045;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(9189);}while(r);
}
}
S_11049:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(9195);if(r)goto S_11049;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9195);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9195);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9195);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9197);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(9199);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9201);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9204);}while(r);
S_11060:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9205);if(r)goto S_11060;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9205);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(9206);}while(r);
S_11064:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(9207);if(r)goto S_11064;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9207);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9207);}while(r);
}
S_11068:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9209);if(r)goto S_11068;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with ",28),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list (",24)),__STRING_S),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9210);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9211);}while(r);
}
S_11072:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(9214);if(r)goto S_11072;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9214);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9214);}while(r);
}
do{
*__LONG_NEWDIMSYNTAX= -1 ;
if(!qbevent)break;evnt(9216);}while(r);
do{
return_point[next_return_point++]=11;
if (next_return_point>=return_points) more_return_points();
goto LABEL_NORMALDIMBLOCK;
RETURN_11:;
if(!qbevent)break;evnt(9217);}while(r);
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(9218);}while(r);
S_11079:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(9220);if(r)goto S_11079;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9221);}while(r);
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9222);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9222);}while(r);
do{
goto LABEL_DIMNEXT2;
if(!qbevent)break;evnt(9223);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(9226);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(9227);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(9228);}while(r);
S_11088:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(9229);if(r)goto S_11088;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(9229);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(9230);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9232);}while(r);
S_11093:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9233);if(r)goto S_11093;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9233);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9233);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9235);}while(r);
}
}
}
S_11102:;
if ((-(*__LONG_THENGOTO== 1 ))||is_error_pending()){
if(qbevent){evnt(9251);if(r)goto S_11102;}
S_11103:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9252);if(r)goto S_11103;}
do{
qbs_set(__STRING_L,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9253);}while(r);
do{
*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9254);}while(r);
S_11106:;
if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||is_error_pending()){
if(qbevent){evnt(9255);if(r)goto S_11106;}
do{
qbs_set(__STRING_A2,__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9255);}while(r);
do{
goto LABEL_THENGOTO;
if(!qbevent)break;evnt(9255);}while(r);
}
}
}
S_11112:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(9260);if(r)goto S_11112;}
S_11113:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1348= 1 )),qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(9261);if(r)goto S_11113;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9262);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1349= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9263);}while(r);
LABEL_THENGOTO:;
if(qbevent){evnt(9264);r=0;}
S_11116:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(9265);if(r)goto S_11116;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9265);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9265);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1350= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9267);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9268);}while(r);
LABEL_LABCHK2:;
if(qbevent){evnt(9269);r=0;}
S_11122:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9270);if(r)goto S_11122;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(9271);}while(r);
S_11124:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9272);if(r)goto S_11124;}
S_11125:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9273);if(r)goto S_11125;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9273);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9274);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9275);}while(r);
}else{
S_11131:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9277);if(r)goto S_11131;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9277);}while(r);
do{
goto LABEL_LABCHK2;
if(!qbevent)break;evnt(9277);}while(r);
}
}
}
S_11137:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9280);if(r)goto S_11137;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9282);}while(r);
S_11139:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9282);if(r)goto S_11139;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9282);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9282);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9283);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1351= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9284);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9285);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9286);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9287);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9288);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9289);}while(r);
}
S_11151:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||is_error_pending()){
if(qbevent){evnt(9292);if(r)goto S_11151;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9292);}while(r);
}else{
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9292);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9293);}while(r);
S_11157:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9293);if(r)goto S_11157;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9293);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9293);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1354=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9294);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9295);}while(r);
}
}
S_11166:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9299);if(r)goto S_11166;}
S_11167:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||is_error_pending()){
if(qbevent){evnt(9300);if(r)goto S_11167;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9301);}while(r);
S_11169:;
fornext_value1356=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1356= 1 ;
fornext_step1356= -1 ;
if (fornext_step1356<0) fornext_step_negative1356=1; else fornext_step_negative1356=0;
if (is_error_pending()) goto fornext_error1356;
goto fornext_entrylabel1356;
while(1){
fornext_value1356=fornext_step1356+(*__LONG_I);
fornext_entrylabel1356:
*__LONG_I=fornext_value1356;
if (fornext_step_negative1356){
if (fornext_value1356<fornext_finalvalue1356) break;
}else{
if (fornext_value1356>fornext_finalvalue1356) break;
}
fornext_error1356:;
if(qbevent){evnt(9303);if(r)goto S_11169;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(9304);}while(r);
S_11171:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(9305);if(r)goto S_11171;}
do{
SUB_WRITEBUFLINE(&(pass1357=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9306);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9307);}while(r);
S_11174:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9307);if(r)goto S_11174;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9307);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9307);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9308);}while(r);
S_11180:;
}else{
if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){
if(qbevent){evnt(9309);if(r)goto S_11180;}
do{
SUB_WRITEBUFLINE(&(pass1359=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9310);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9311);}while(r);
S_11183:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9311);if(r)goto S_11183;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9311);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9311);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9312);}while(r);
S_11189:;
}else{
if (-(*__LONG_T== 5 )){
if(qbevent){evnt(9313);if(r)goto S_11189;}
do{
SUB_WRITEBUFLINE(&(pass1361=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9314);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9315);}while(r);
S_11192:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9315);if(r)goto S_11192;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9315);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9315);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9316);}while(r);
}
}
}
fornext_continue_1355:;
}
fornext_exit_1355:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("_CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9319);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9319);}while(r);
}
}
S_11204:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||is_error_pending()){
if(qbevent){evnt(9323);if(r)goto S_11204;}
S_11205:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9324);if(r)goto S_11205;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $DEBUG mode",37),qbs_new_txt_len("CHAIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9325);}while(r);
}
}
S_11209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||is_error_pending()){
if(qbevent){evnt(9329);if(r)goto S_11209;}
S_11210:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9330);if(r)goto S_11210;}
do{
SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $DEBUG mode",37),qbs_new_txt_len("RUN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9331);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Run",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9333);}while(r);
S_11214:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9334);if(r)goto S_11214;}
do{
SUB_WRITEBUFLINE(&(pass1363=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9336);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1364=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9337);}while(r);
S_11217:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(9338);if(r)goto S_11217;}
do{
SUB_WRITEBUFLINE(&(pass1366=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9339);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1367=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto S_0;",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9341);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1368= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9345);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9346);}while(r);
S_11225:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9347);if(r)goto S_11225;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9347);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9348);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9349);}while(r);
S_11230:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9350);if(r)goto S_11230;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9350);}while(r);
}
S_11233:;
if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||is_error_pending()){
if(qbevent){evnt(9351);if(r)goto S_11233;}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1369= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9353);}while(r);
S_11235:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9354);if(r)goto S_11235;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9354);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9354);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1370= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9356);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9357);}while(r);
LABEL_LABCHK501:;
if(qbevent){evnt(9358);r=0;}
S_11241:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9359);if(r)goto S_11241;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(9360);}while(r);
S_11243:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9361);if(r)goto S_11243;}
S_11244:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9362);if(r)goto S_11244;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(9362);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9363);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9364);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9365);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9366);}while(r);
}else{
S_11252:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9368);if(r)goto S_11252;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9368);}while(r);
do{
goto LABEL_LABCHK501;
if(!qbevent)break;evnt(9368);}while(r);
}
}
}
S_11258:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9371);if(r)goto S_11258;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9373);}while(r);
S_11260:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9373);if(r)goto S_11260;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9373);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9373);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9374);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1371= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9375);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9376);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9377);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9378);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(9379);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9380);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9381);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9384);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1372=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9385);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1373=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9386);}while(r);
S_11276:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(9387);if(r)goto S_11276;}
do{
SUB_WRITEBUFLINE(&(pass1375=*__LONG_RUNTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),qbs__tostr((int32)(*__LONG_NEXTRUNLINEINDEX),NULL,0)),qbs_new_txt_len("){run_from_line=0;goto LABEL_",29)),__STRING_LBL),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9388);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1376=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),qbs__tostr((int32)(*__LONG_NEXTRUNLINEINDEX),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9389);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ;
if(!qbevent)break;evnt(9390);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1377=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9391);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1378=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9393);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9397);}while(r);
S_11286:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9398);if(r)goto S_11286;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9398);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1379=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9399);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9400);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9403);}while(r);
S_11294:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9403);if(r)goto S_11294;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9403);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9403);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9404);}while(r);
}
S_11301:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(9411);if(r)goto S_11301;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9412);}while(r);
S_11303:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9413);if(r)goto S_11303;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1381= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9414);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9415);}while(r);
S_11306:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9415);if(r)goto S_11306;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9415);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9416);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9417);}while(r);
S_11311:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9417);if(r)goto S_11311;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9417);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9418);}while(r);
S_11315:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(9419);if(r)goto S_11315;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9420);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9421);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9422);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9423);}while(r);
}
S_11321:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9425);if(r)goto S_11321;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9425);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9425);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1383=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9426);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1384=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9427);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9428);}while(r);
}
do{
SUB_XEND();
if(!qbevent)break;evnt(9430);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9431);}while(r);
S_11332:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9431);if(r)goto S_11332;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9431);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9431);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9432);}while(r);
}
S_11339:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||is_error_pending()){
if(qbevent){evnt(9435);if(r)goto S_11339;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9436);}while(r);
S_11341:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9437);if(r)goto S_11341;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1386= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9438);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9439);}while(r);
S_11344:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9439);if(r)goto S_11344;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9439);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9440);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9441);}while(r);
S_11349:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9441);if(r)goto S_11349;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9441);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9442);}while(r);
S_11353:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(9443);if(r)goto S_11353;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9444);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9445);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9446);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9447);}while(r);
}
S_11359:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9449);if(r)goto S_11359;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9449);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9449);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1388=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9450);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1389=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9451);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9452);}while(r);
}
S_11368:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9456);if(r)goto S_11368;}
S_11369:;
if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(9457);if(r)goto S_11369;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1390= 0 ));
if(!qbevent)break;evnt(9458);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1391=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9460);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1392=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (sub_gl_called) error(271);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9462);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1393=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9463);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1394=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9464);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9465);}while(r);
S_11378:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9465);if(r)goto S_11378;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9465);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9465);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9466);}while(r);
}
S_11385:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9469);if(r)goto S_11385;}
S_11386:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||is_error_pending()){
if(qbevent){evnt(9470);if(r)goto S_11386;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9471);}while(r);
S_11388:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9472);if(r)goto S_11388;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1396= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9473);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9474);}while(r);
S_11391:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9475);if(r)goto S_11391;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9475);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Stop",4)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9476);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1397= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9477);}while(r);
S_11396:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9478);if(r)goto S_11396;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9478);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9481);}while(r);
S_11401:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9481);if(r)goto S_11401;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9481);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9481);}while(r);
}
S_11406:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(*__LONG_CHECKINGON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(9482);if(r)goto S_11406;}
do{
SUB_WRITEBUFLINE(&(pass1399=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",202));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9483);}while(r);
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1400= 0 ));
if(!qbevent)break;evnt(9484);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1401=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9486);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1402=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9487);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9489);}while(r);
}
}
S_11416:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(9493);if(r)goto S_11416;}
S_11417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(9494);if(r)goto S_11417;}
do{
SUB_XGOSUB(__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9495);}while(r);
S_11419:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9496);if(r)goto S_11419;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9496);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9498);}while(r);
}
}
S_11425:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9502);if(r)goto S_11425;}
S_11426:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||is_error_pending()){
if(qbevent){evnt(9503);if(r)goto S_11426;}
S_11427:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9504);if(r)goto S_11427;}
do{
SUB_WRITEBUFLINE(&(pass1403=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("ret",3)),qbs__tostr((int32)(*__LONG_SUBFUNCN),NULL,0)),qbs_new_txt_len(".txt",4)),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9505);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Return",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9506);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9507);}while(r);
S_11431:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9507);if(r)goto S_11431;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9507);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9507);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9508);}while(r);
}else{
S_11438:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(9511);if(r)goto S_11438;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("RETURN linelabel/linenumber invalid within a SUB/FUNCTION",57));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9511);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9511);}while(r);
}
S_11442:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9512);if(r)goto S_11442;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linelabel/linenumber after RETURN",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9512);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9512);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1405=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!next_return_point) error(3);",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9513);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1406=*__LONG_MAINTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9514);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1407= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9515);}while(r);
S_11449:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(9516);if(r)goto S_11449;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9516);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9516);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1408= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9518);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9519);}while(r);
LABEL_LABCHK505:;
if(qbevent){evnt(9520);r=0;}
S_11455:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9521);if(r)goto S_11455;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(9522);}while(r);
S_11457:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9523);if(r)goto S_11457;}
S_11458:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9524);if(r)goto S_11458;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9524);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9525);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9526);}while(r);
}else{
S_11464:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9528);if(r)goto S_11464;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9528);}while(r);
do{
goto LABEL_LABCHK505;
if(!qbevent)break;evnt(9528);}while(r);
}
}
}
S_11470:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9531);if(r)goto S_11470;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9533);}while(r);
S_11472:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9533);if(r)goto S_11472;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9533);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9533);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9534);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1409= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9535);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9536);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9537);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9538);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9539);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9540);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1410=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9543);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Return",6)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9544);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9545);}while(r);
S_11487:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9545);if(r)goto S_11487;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9545);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9545);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9546);}while(r);
}
}
}
S_11496:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9551);if(r)goto S_11496;}
S_11497:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||is_error_pending()){
if(qbevent){evnt(9552);if(r)goto S_11497;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9553);}while(r);
S_11499:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9554);if(r)goto S_11499;}
LABEL_RESUMEPREV:;
if(qbevent){evnt(9555);r=0;}
do{
SUB_WRITEBUFLINE(&(pass1412=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9558);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9560);}while(r);
S_11502:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9560);if(r)goto S_11502;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9560);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9560);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9561);}while(r);
}
S_11509:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9563);if(r)goto S_11509;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9563);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9563);}while(r);
}
do{
qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1414= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9564);}while(r);
S_11514:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(9565);if(r)goto S_11514;}
do{
SUB_WRITEBUFLINE(&(pass1415=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9568);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Next",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9570);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9571);}while(r);
S_11518:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9571);if(r)goto S_11518;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9571);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9571);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9572);}while(r);
}
S_11525:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9574);if(r)goto S_11525;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9574);}while(r);
do{
goto LABEL_RESUMEPREV;
if(!qbevent)break;evnt(9574);}while(r);
}
S_11529:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||is_error_pending()){
if(qbevent){evnt(9575);if(r)goto S_11529;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label passed to RESUME",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9575);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9575);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1417= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9577);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9578);}while(r);
LABEL_LABCHK506:;
if(qbevent){evnt(9579);r=0;}
S_11535:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9580);if(r)goto S_11535;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(9581);}while(r);
S_11537:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9582);if(r)goto S_11537;}
S_11538:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9583);if(r)goto S_11538;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9583);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9584);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9585);}while(r);
}else{
S_11544:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9587);if(r)goto S_11544;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9587);}while(r);
do{
goto LABEL_LABCHK506;
if(!qbevent)break;evnt(9587);}while(r);
}
}
}
S_11550:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9590);if(r)goto S_11550;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9592);}while(r);
S_11552:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9592);if(r)goto S_11552;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9592);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9592);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9593);}while(r);
do{
SUB_HASHADD(__STRING_S,&(pass1418= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9594);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9595);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9596);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9597);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9598);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9599);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9602);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9603);}while(r);
S_11566:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9603);if(r)goto S_11566;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9603);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9603);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1420=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_",79),__STRING_S),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9604);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9605);}while(r);
}
}
S_11575:;
if (((-(*__LONG_N== 4 ))|(-(*__LONG_N== 5 )))||is_error_pending()){
if(qbevent){evnt(9609);if(r)goto S_11575;}
S_11576:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1421= 1 ),&(pass1422= 3 )),(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("ERROR",5)),__STRING1_SP),qbs_new_txt_len("GOTO",4))))))||is_error_pending()){
if(qbevent){evnt(9610);if(r)goto S_11576;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Error",5)),__STRING1_SP),qbs_new_txt_len("GoTo",4))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9611);}while(r);
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1423= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9612);}while(r);
do{
qbs_set(__STRING_HHC,qbs_ucase(__STRING_LBL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9613);}while(r);
S_11580:;
if ((-(*__LONG_N== 5 ))||is_error_pending()){
if(qbevent){evnt(9614);if(r)goto S_11580;}
S_11581:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12))))||is_error_pending()){
if(qbevent){evnt(9615);if(r)goto S_11581;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("No label allowed after _LASTHANDLER",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9615);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9615);}while(r);
}
S_11585:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(9616);if(r)goto S_11585;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9616);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9616);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1424= 5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9617);}while(r);
S_11590:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9618);if(r)goto S_11590;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Zero not allowed after _NEWHANDLER",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9618);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9618);}while(r);
}
}
S_11595:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9620);if(r)goto S_11595;}
do{
SUB_WRITEBUFLINE(&(pass1425=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line=0;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9621);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1426=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, qbs_new_txt_len(",47),i2string( 8738 )),qbs_new_txt_len(", 0));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9622);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1427=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9623);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9624);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9625);}while(r);
S_11601:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9625);if(r)goto S_11601;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9625);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9625);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9626);}while(r);
S_11607:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11)))){
if(qbevent){evnt(9627);if(r)goto S_11607;}
S_11608:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(9628);if(r)goto S_11608;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected: ON ERROR GOTO [_NEWHANDLER] label",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9628);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9628);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_NewHandler",11))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9629);}while(r);
S_11613:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12)))){
if(qbevent){evnt(9630);if(r)goto S_11613;}
do{
SUB_WRITEBUFLINE(&(pass1429=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line = qbr(qbs_val<uint64_t>(error_handler_history));",64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9631);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1430=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, func_mid(error_handler_history, func_instr(NULL, error_handler_history, qbs_new_txt_len(",119),func_chr( 34 )),qbs_new_txt_len("|",1)),func_chr( 34 )),qbs_new_txt_len(", 1), 0) + 1 , NULL, 0));",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9632);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1431=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9633);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_LastHandler",12))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9634);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9635);}while(r);
S_11619:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9635);if(r)goto S_11619;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9635);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9635);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9636);}while(r);
}
}
}
S_11626:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9638);if(r)goto S_11626;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9638);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9638);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1433= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9640);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9641);}while(r);
LABEL_LABCHK6:;
if(qbevent){evnt(9642);r=0;}
S_11632:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9643);if(r)goto S_11632;}
do{
*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)));
if(!qbevent)break;evnt(9644);}while(r);
S_11634:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9645);if(r)goto S_11634;}
S_11635:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9646);if(r)goto S_11635;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(9646);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9647);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9648);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9649);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9650);}while(r);
}else{
S_11643:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9652);if(r)goto S_11643;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9652);}while(r);
do{
goto LABEL_LABCHK6;
if(!qbevent)break;evnt(9652);}while(r);
}
}
}
S_11649:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9655);if(r)goto S_11649;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9657);}while(r);
S_11651:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9657);if(r)goto S_11651;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9657);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9657);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9658);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1434= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9659);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9660);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9661);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9662);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= 0 ;
if(!qbevent)break;evnt(9663);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9664);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))=*__LONG_SUBFUNCN;
if(!qbevent)break;evnt(9665);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9668);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9669);}while(r);
S_11666:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9669);if(r)goto S_11666;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9669);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9669);}while(r);
}
do{
*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ;
if(!qbevent)break;evnt(9670);}while(r);
S_11672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(9671);if(r)goto S_11672;}
do{
SUB_WRITEBUFLINE(&(pass1436=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(error_handler_history, qbs_add(qbs_add(qbs_str((int32)(error_goto_line)), qbs_new_txt_len(",98),func_chr( 34 )),qbs_new_txt_len("|",1)),func_chr( 34 )),qbs_new_txt_len(", 1)), error_handler_history));",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9672);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1437=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9673);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1438=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),qbs__tostr((int32)(*__LONG_ERRORLABELS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9675);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1439=*__LONG_ERRTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),qbs__tostr((int32)(*__LONG_ERRORLABELS),NULL,0)),qbs_new_txt_len("){error_handling=1; goto LABEL_",31)),__STRING_LBL),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9676);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9677);}while(r);
}
}
S_11681:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9681);if(r)goto S_11681;}
S_11682:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||is_error_pending()){
if(qbevent){evnt(9682);if(r)goto S_11682;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9683);}while(r);
S_11684:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9684);if(r)goto S_11684;}
do{
SUB_WRITEBUFLINE(&(pass1440=*__LONG_MAINTXTBUF),qbs_new_txt_len("data_offset=0;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9685);}while(r);
}else{
S_11687:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9687);if(r)goto S_11687;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (expected RESTORE label/line number)",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9687);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9687);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1441= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9688);}while(r);
S_11692:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9689);if(r)goto S_11692;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9689);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9689);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1442= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9693);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9694);}while(r);
S_11698:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9695);if(r)goto S_11698;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9696);}while(r);
do{
qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9697);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))= 1 ;
if(!qbevent)break;evnt(9698);}while(r);
S_11702:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))== 0 ))||is_error_pending()){
if(qbevent){evnt(9699);if(r)goto S_11702;}
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9699);}while(r);
}
}
S_11706:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9701);if(r)goto S_11706;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9702);}while(r);
S_11708:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9702);if(r)goto S_11708;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9702);}while(r);
do{
if (__ARRAY_UDT_LABELS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_LABELS[2]&1){
preserve_old_ptr=__ARRAY_UDT_LABELS[0];
preserve_old_flags=__ARRAY_UDT_LABELS[2];
preserve_old_total=__ARRAY_UDT_LABELS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*__LONG_LABELS_UBOUND)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(282);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_LABELS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_LABELS[0]) error(257);
memset((void*)(__ARRAY_UDT_LABELS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*282);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_LABELS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_LABELS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_LABELS[0]) error(257);
}
}
__ARRAY_UDT_LABELS[2]|=1;
__ARRAY_UDT_LABELS[4]=alloc_new_desc[4];
__ARRAY_UDT_LABELS[5]=alloc_new_desc[5];
__ARRAY_UDT_LABELS[6]=alloc_new_desc[6];
__ARRAY_UDT_LABELS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(9702);}while(r);
}
do{
memcpy(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0))+ 0,((char*)__UDT_EMPTY_LABEL)+((0+0))+ 0, 282);
if(!qbevent)break;evnt(9703);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1443= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9704);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9705);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))= 0 ;
if(!qbevent)break;evnt(9706);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1),__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9707);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))= -1 ;
if(!qbevent)break;evnt(9708);}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)))=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(9709);}while(r);
do{
*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))= 1 ;
if(!qbevent)break;evnt(9710);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9713);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1444=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("data_offset=data_at_LABEL_",26),__STRING_LBL),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9714);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9716);}while(r);
S_11725:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9716);if(r)goto S_11725;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9716);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9716);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9717);}while(r);
}
}
S_11733:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9724);if(r)goto S_11733;}
S_11734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(9725);if(r)goto S_11734;}
do{
SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9726);}while(r);
S_11736:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9727);if(r)goto S_11736;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9727);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9728);}while(r);
}
}
S_11742:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9734);if(r)goto S_11742;}
S_11743:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(9735);if(r)goto S_11743;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9737);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9738);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9739);}while(r);
S_11747:;
fornext_value1447= 2 ;
fornext_finalvalue1447=*__LONG_N;
fornext_step1447= 1 ;
if (fornext_step1447<0) fornext_step_negative1447=1; else fornext_step_negative1447=0;
if (is_error_pending()) goto fornext_error1447;
goto fornext_entrylabel1447;
while(1){
fornext_value1447=fornext_step1447+(*__LONG_I2);
fornext_entrylabel1447:
*__LONG_I2=fornext_value1447;
if (fornext_step_negative1447){
if (fornext_value1447<fornext_finalvalue1447) break;
}else{
if (fornext_value1447>fornext_finalvalue1447) break;
}
fornext_error1447:;
if(qbevent){evnt(9740);if(r)goto S_11747;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9741);}while(r);
S_11749:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9742);if(r)goto S_11749;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9742);}while(r);
}
S_11752:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9743);if(r)goto S_11752;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9743);}while(r);
}
S_11755:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9744);if(r)goto S_11755;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9745);}while(r);
S_11757:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9746);if(r)goto S_11757;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9746);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9746);}while(r);
}
S_11761:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9747);if(r)goto S_11761;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9747);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9747);}while(r);
}
S_11765:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9748);if(r)goto S_11765;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (Expected _MEMGET mem-reference, offset, variable)",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9748);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9748);}while(r);
}
}else{
S_11770:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9750);if(r)goto S_11770;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9750);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9750);}while(r);
}
}
fornext_continue_1446:;
}
fornext_exit_1446:;
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9753);}while(r);
S_11778:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||is_error_pending()){
if(qbevent){evnt(9754);if(r)goto S_11778;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMGET mem-reference, offset, variable",48));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9754);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9754);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9756);}while(r);
S_11783:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9756);if(r)goto S_11783;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9756);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9757);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9759);}while(r);
S_11788:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9759);if(r)goto S_11788;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9759);}while(r);
}
S_11791:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9760);if(r)goto S_11791;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9760);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9760);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1449= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9761);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9768);}while(r);
S_11797:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9768);if(r)goto S_11797;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9768);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9769);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1450=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9770);}while(r);
S_11802:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9770);if(r)goto S_11802;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9770);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9771);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9774);}while(r);
S_11807:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9774);if(r)goto S_11807;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9774);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9775);}while(r);
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1451= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9776);}while(r);
S_11812:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9776);if(r)goto S_11812;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9776);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1452= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9777);}while(r);
S_11816:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9777);if(r)goto S_11816;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9777);}while(r);
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9787);}while(r);
S_11820:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(9788);if(r)goto S_11820;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(9788);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9788);}while(r);
}
S_11824:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(9789);if(r)goto S_11824;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(9789);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9789);}while(r);
}
S_11828:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(9790);if(r)goto S_11828;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(9790);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9790);}while(r);
}
S_11832:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(9791);if(r)goto S_11832;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(9791);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9791);}while(r);
}
S_11836:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9793);if(r)goto S_11836;}
S_11837:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9795);if(r)goto S_11837;}
do{
SUB_WRITEBUFLINE(&(pass1453=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9796);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1454=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(uint8_t*)",11)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9798);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1455=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9802);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1456=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9804);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1457=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9806);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1458=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9807);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1459=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9808);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1460=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9809);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1461=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9811);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1462=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9812);}while(r);
S_11851:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9813);if(r)goto S_11851;}
do{
SUB_WRITEBUFLINE(&(pass1463=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)tmp_long;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9814);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1464=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)tmp_long,",17)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9816);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1465=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9818);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1466=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9819);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9822);}while(r);
S_11860:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9822);if(r)goto S_11860;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9822);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9822);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9823);}while(r);
}
}
S_11868:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9831);if(r)goto S_11868;}
S_11869:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||is_error_pending()){
if(qbevent){evnt(9832);if(r)goto S_11869;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9834);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9835);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9836);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9837);}while(r);
S_11874:;
fornext_value1469= 2 ;
fornext_finalvalue1469=*__LONG_N;
fornext_step1469= 1 ;
if (fornext_step1469<0) fornext_step_negative1469=1; else fornext_step_negative1469=0;
if (is_error_pending()) goto fornext_error1469;
goto fornext_entrylabel1469;
while(1){
fornext_value1469=fornext_step1469+(*__LONG_I2);
fornext_entrylabel1469:
*__LONG_I2=fornext_value1469;
if (fornext_step_negative1469){
if (fornext_value1469<fornext_finalvalue1469) break;
}else{
if (fornext_value1469>fornext_finalvalue1469) break;
}
fornext_error1469:;
if(qbevent){evnt(9838);if(r)goto S_11874;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9839);}while(r);
S_11876:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9840);if(r)goto S_11876;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9840);}while(r);
}
S_11879:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9841);if(r)goto S_11879;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9841);}while(r);
}
S_11882:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9842);if(r)goto S_11882;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9843);}while(r);
S_11884:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9844);if(r)goto S_11884;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9844);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9844);}while(r);
}
S_11888:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9845);if(r)goto S_11888;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9845);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9845);}while(r);
}
S_11892:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9846);if(r)goto S_11892;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9846);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9846);}while(r);
}
S_11896:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 3 ))))|(((-(*__LONG_NE== 3 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 4 ))))||is_error_pending()){
if(qbevent){evnt(9847);if(r)goto S_11896;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9847);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9847);}while(r);
}
}else{
S_11901:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9849);if(r)goto S_11901;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9849);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9849);}while(r);
}
}
fornext_continue_1468:;
}
fornext_exit_1468:;
S_11908:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(9852);if(r)goto S_11908;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference, offset, variable|value[AS type]",63));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9852);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9852);}while(r);
}
S_11912:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9853);if(r)goto S_11912;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9853);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9853);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9855);}while(r);
S_11918:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9855);if(r)goto S_11918;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9855);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9856);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9858);}while(r);
S_11923:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9858);if(r)goto S_11923;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9858);}while(r);
}
S_11926:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9859);if(r)goto S_11926;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9859);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9859);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1471= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9860);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9862);}while(r);
S_11932:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9862);if(r)goto S_11932;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9862);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9863);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1472=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9864);}while(r);
S_11937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9864);if(r)goto S_11937;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9864);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9865);}while(r);
S_11941:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9867);if(r)goto S_11941;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9868);}while(r);
S_11943:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9868);if(r)goto S_11943;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9868);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9869);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(9873);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9874);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(9875);}while(r);
S_11950:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9876);if(r)goto S_11950;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9876);}while(r);
}
S_11953:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9877);if(r)goto S_11953;}
do{
SUB_WRITEBUFLINE(&(pass1473=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("g_tmp_str=",10),__STRING_TEST),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9878);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("g_tmp_str->len",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9879);}while(r);
do{
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("g_tmp_str->chr",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9880);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1474= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9882);}while(r);
S_11959:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9882);if(r)goto S_11959;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9882);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1475= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9883);}while(r);
S_11963:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9883);if(r)goto S_11963;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9883);}while(r);
}
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(9887);}while(r);
S_11968:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(9888);if(r)goto S_11968;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(9888);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9888);}while(r);
}
S_11972:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(9889);if(r)goto S_11972;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(9889);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9889);}while(r);
}
S_11976:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(9890);if(r)goto S_11976;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(9890);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9890);}while(r);
}
S_11980:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(9891);if(r)goto S_11980;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(9891);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9891);}while(r);
}
S_11984:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9893);if(r)goto S_11984;}
S_11985:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9895);if(r)goto S_11985;}
do{
SUB_WRITEBUFLINE(&(pass1476=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=*(",4)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9896);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1477=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((uint8_t*)",18),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9898);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1478=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9902);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1479=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9904);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1480=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9906);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1481=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9907);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1482=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9908);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1483=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9909);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1484=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9911);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1485=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9912);}while(r);
S_11999:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(9913);if(r)goto S_11999;}
do{
SUB_WRITEBUFLINE(&(pass1486=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=*(",13)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9914);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1487=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)tmp_long,",24),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9916);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1488=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9918);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1489=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9919);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9927);}while(r);
S_12009:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(9928);if(r)goto S_12009;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9928);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9928);}while(r);
}
S_12013:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9929);if(r)goto S_12013;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMPUT requires numeric type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9929);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9929);}while(r);
}
S_12017:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(9930);if(r)goto S_12017;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(9930);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9932);}while(r);
S_12021:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9932);if(r)goto S_12021;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9932);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),FUNC_SCASE2(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9933);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9934);}while(r);
S_12026:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9934);if(r)goto S_12026;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9934);}while(r);
}
do{
qbs_set(__STRING_ST,FUNC_TYP2CTYP(__LONG_T,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9935);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs__tostr((int64)((*__LONG_T& 511 )/  8 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9936);}while(r);
S_12031:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(9937);if(r)goto S_12031;}
do{
SUB_WRITEBUFLINE(&(pass1490=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9939);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1491=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9942);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1492=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9944);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1493=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9946);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1494=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset  ||",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9947);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1495=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size)  ||",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9948);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1496=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id  ){",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9949);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1497=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9951);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1498=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9952);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1499=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=",11)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9953);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1500=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9954);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1501=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9955);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9960);}while(r);
S_12048:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9960);if(r)goto S_12048;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9960);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9960);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9961);}while(r);
}
}
S_12056:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9970);if(r)goto S_12056;}
S_12057:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||is_error_pending()){
if(qbevent){evnt(9971);if(r)goto S_12057;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9973);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9974);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(9975);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(9976);}while(r);
S_12062:;
fornext_value1504= 2 ;
fornext_finalvalue1504=*__LONG_N;
fornext_step1504= 1 ;
if (fornext_step1504<0) fornext_step_negative1504=1; else fornext_step_negative1504=0;
if (is_error_pending()) goto fornext_error1504;
goto fornext_entrylabel1504;
while(1){
fornext_value1504=fornext_step1504+(*__LONG_I2);
fornext_entrylabel1504:
*__LONG_I2=fornext_value1504;
if (fornext_step_negative1504){
if (fornext_value1504<fornext_finalvalue1504) break;
}else{
if (fornext_value1504>fornext_finalvalue1504) break;
}
fornext_error1504:;
if(qbevent){evnt(9977);if(r)goto S_12062;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9978);}while(r);
S_12064:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9979);if(r)goto S_12064;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9979);}while(r);
}
S_12067:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9980);if(r)goto S_12067;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9980);}while(r);
}
S_12070:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(9981);if(r)goto S_12070;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(9982);}while(r);
S_12072:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(9983);if(r)goto S_12072;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9983);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9983);}while(r);
}
S_12076:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(9984);if(r)goto S_12076;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9984);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9984);}while(r);
}
S_12080:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9985);if(r)goto S_12080;}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9985);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9985);}while(r);
}
S_12084:;
if ((-(*__LONG_NE== 4 ))||is_error_pending()){
if(qbevent){evnt(9986);if(r)goto S_12084;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9986);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9986);}while(r);
}
S_12088:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 4 ))))|(((-(*__LONG_NE== 4 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 5 ))))||is_error_pending()){
if(qbevent){evnt(9987);if(r)goto S_12088;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9987);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9987);}while(r);
}
}else{
S_12093:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9989);if(r)goto S_12093;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9989);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9989);}while(r);
}
}
fornext_continue_1503:;
}
fornext_exit_1503:;
S_12100:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(9992);if(r)goto S_12100;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference, offset, bytes, variable|value[AS type]",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9992);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9992);}while(r);
}
S_12104:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(9993);if(r)goto S_12104;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9993);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9993);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9995);}while(r);
S_12110:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9995);if(r)goto S_12110;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9995);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9996);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9998);}while(r);
S_12115:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9998);if(r)goto S_12115;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9998);}while(r);
}
S_12118:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||is_error_pending()){
if(qbevent){evnt(9999);if(r)goto S_12118;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),qbs_new_txt_len("_MEM type",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9999);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9999);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1506= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10000);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10002);}while(r);
S_12124:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10002);if(r)goto S_12124;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10002);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10003);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1507=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10004);}while(r);
S_12129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10004);if(r)goto S_12129;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10004);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10005);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10007);}while(r);
S_12134:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10007);if(r)goto S_12134;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10007);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10008);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1508=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10009);}while(r);
S_12139:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10009);if(r)goto S_12139;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10009);}while(r);
}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10010);}while(r);
S_12143:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10012);if(r)goto S_12143;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10013);}while(r);
S_12145:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10013);if(r)goto S_12145;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10013);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10014);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(10017);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10018);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(10019);}while(r);
S_12152:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10020);if(r)goto S_12152;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10020);}while(r);
}
S_12155:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10021);if(r)goto S_12155;}
do{
SUB_WRITEBUFLINE(&(pass1509=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10022);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs_new_txt_len("((qbs*)tmp_long)->len",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10023);}while(r);
do{
qbs_set(__STRING_VAROFFS,qbs_new_txt_len("((qbs*)tmp_long)->chr",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10024);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1510= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10026);}while(r);
S_12161:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10026);if(r)goto S_12161;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10026);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1511= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10027);}while(r);
S_12165:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10027);if(r)goto S_12165;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10027);}while(r);
}
}
S_12169:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10030);if(r)goto S_12169;}
do{
SUB_WRITEBUFLINE(&(pass1512=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill_nochecks(",22),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10031);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1513=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill((mem_block*)",25),__STRING_BLKOFFS),qbs_new_txt_len(",",1)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10033);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10039);}while(r);
S_12176:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(10040);if(r)goto S_12176;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10040);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10040);}while(r);
}
S_12180:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10041);if(r)goto S_12180;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMFILL requires numeric type",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10041);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10041);}while(r);
}
S_12184:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10042);if(r)goto S_12184;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10042);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10044);}while(r);
S_12188:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10044);if(r)goto S_12188;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10044);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),FUNC_SCASE2(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10045);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10046);}while(r);
S_12193:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10046);if(r)goto S_12193;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10046);}while(r);
}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10048);}while(r);
S_12197:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10049);if(r)goto S_12197;}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10049);}while(r);
}
S_12200:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(10050);if(r)goto S_12200;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("OFFSET",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10051);}while(r);
}else{
S_12203:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(10053);if(r)goto S_12203;}
S_12204:;
if ((-((*__LONG_T& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(10054);if(r)goto S_12204;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("SINGLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10054);}while(r);
}
S_12207:;
if ((-((*__LONG_T& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(10055);if(r)goto S_12207;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("DOUBLE",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10055);}while(r);
}
S_12210:;
if ((-((*__LONG_T& 511 )== 256 ))||is_error_pending()){
if(qbevent){evnt(10056);if(r)goto S_12210;}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("FLOAT",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10056);}while(r);
}
}else{
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs__tostr((int64)((*__LONG_T& 511 )/  8 ),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10058);}while(r);
}
}
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10061);}while(r);
S_12218:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(10062);if(r)goto S_12218;}
do{
qbs_set(__STRING_C,qbs_add(qbs_add(qbs_add(__STRING_C,qbs_new_txt_len("(mem_block*)",12)),__STRING_BLKOFFS),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10062);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1514=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_C,__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10063);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10066);}while(r);
S_12224:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10066);if(r)goto S_12224;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10066);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10066);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10067);}while(r);
}
}
do{
*__LONG_CISPECIAL= 0 ;
if(!qbevent)break;evnt(10085);}while(r);
S_12233:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10086);if(r)goto S_12233;}
S_12234:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPTX",10)))))||is_error_pending()){
if(qbevent){evnt(10087);if(r)goto S_12234;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1516= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10088);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1517= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10089);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(10090);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10091);}while(r);
do{
*__LONG_CISPECIAL= 1 ;
if(!qbevent)break;evnt(10092);}while(r);
}
}
do{
*__LONG_USECALL= 0 ;
if(!qbevent)break;evnt(10097);}while(r);
S_12243:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||is_error_pending()){
if(qbevent){evnt(10098);if(r)goto S_12243;}
do{
*__LONG_USECALL= 1 ;
if(!qbevent)break;evnt(10099);}while(r);
S_12245:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10100);if(r)goto S_12245;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10100);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10100);}while(r);
}
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1518= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10101);}while(r);
do{
qbs_set(__STRING_N,qbs_ucase(__STRING_CN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10101);}while(r);
S_12251:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(10103);if(r)goto S_12251;}
S_12252:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(10105);if(r)goto S_12252;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10105);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10105);}while(r);
}
S_12256:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1519= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(10106);if(r)goto S_12256;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10106);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10106);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1520= 4 ),&(pass1521=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10107);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1522= 4 ),&(pass1523=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10108);}while(r);
S_12262:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPTX",10)))))||is_error_pending()){
if(qbevent){evnt(10111);if(r)goto S_12262;}
S_12263:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||is_error_pending()){
if(qbevent){evnt(10113);if(r)goto S_12263;}
do{
SUB_WRITEBUFRAWDATA(&(pass1524=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interrupt(",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10113);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1525=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interruptx(",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10113);}while(r);
}
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(10114);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10115);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10116);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10117);}while(r);
S_12272:;
fornext_value1527= 2 ;
fornext_finalvalue1527=*__LONG_N;
fornext_step1527= 1 ;
if (fornext_step1527<0) fornext_step_negative1527=1; else fornext_step_negative1527=0;
if (is_error_pending()) goto fornext_error1527;
goto fornext_entrylabel1527;
while(1){
fornext_value1527=fornext_step1527+(*__LONG_I);
fornext_entrylabel1527:
*__LONG_I=fornext_value1527;
if (fornext_step_negative1527){
if (fornext_value1527<fornext_finalvalue1527) break;
}else{
if (fornext_value1527>fornext_finalvalue1527) break;
}
fornext_error1527:;
if(qbevent){evnt(10118);if(r)goto S_12272;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10119);}while(r);
S_12274:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10120);if(r)goto S_12274;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10120);}while(r);
}
S_12277:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10121);if(r)goto S_12277;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10121);}while(r);
}
S_12280:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(10122);if(r)goto S_12280;}
S_12281:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10123);if(r)goto S_12281;}
S_12282:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10124);if(r)goto S_12282;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10124);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10124);}while(r);
}
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(10126);}while(r);
S_12289:;
if ((-(*__LONG_ARGN== 1 ))||is_error_pending()){
if(qbevent){evnt(10127);if(r)goto S_12289;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10128);}while(r);
S_12291:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10129);if(r)goto S_12291;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10129);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),__STRING_N),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10130);}while(r);
S_12295:;
if ((-(*__LONG_CISPECIAL== 1 ))||is_error_pending()){
if(qbevent){evnt(10131);if(r)goto S_12295;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_N,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10131);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1528= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10132);}while(r);
S_12299:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10133);if(r)goto S_12299;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10133);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1529=*__LONG_MAINTXTBUF),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10135);}while(r);
}
S_12304:;
if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||is_error_pending()){
if(qbevent){evnt(10137);if(r)goto S_12304;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10138);}while(r);
S_12306:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10139);if(r)goto S_12306;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10139);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10140);}while(r);
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10141);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1530= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10142);}while(r);
S_12312:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10143);if(r)goto S_12312;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10143);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1531=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len(",",1),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10145);}while(r);
}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10147);}while(r);
}else{
S_12319:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10149);if(r)goto S_12319;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10149);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10149);}while(r);
}
}
fornext_continue_1526:;
}
fornext_exit_1526:;
S_12326:;
if ((-(*__LONG_ARGN!= 3 ))||is_error_pending()){
if(qbevent){evnt(10152);if(r)goto S_12326;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL INTERRUPT (interrupt-no, inregs, outregs)",55));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10152);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10152);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1532=*__LONG_MAINTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10153);}while(r);
S_12331:;
if ((-(*__LONG_CISPECIAL== 0 ))||is_error_pending()){
if(qbevent){evnt(10154);if(r)goto S_12331;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10154);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10155);}while(r);
S_12335:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10155);if(r)goto S_12335;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10155);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10155);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10157);}while(r);
}
S_12342:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
if(qbevent){evnt(10168);if(r)goto S_12342;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Call",4),__STRING1_SP),qbs_new_txt_len("Absolute",8)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10169);}while(r);
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(10170);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10171);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10172);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10173);}while(r);
S_12348:;
fornext_value1535= 2 ;
fornext_finalvalue1535=*__LONG_N;
fornext_step1535= 1 ;
if (fornext_step1535<0) fornext_step_negative1535=1; else fornext_step_negative1535=0;
if (is_error_pending()) goto fornext_error1535;
goto fornext_entrylabel1535;
while(1){
fornext_value1535=fornext_step1535+(*__LONG_I);
fornext_entrylabel1535:
*__LONG_I=fornext_value1535;
if (fornext_step_negative1535){
if (fornext_value1535<fornext_finalvalue1535) break;
}else{
if (fornext_value1535>fornext_finalvalue1535) break;
}
fornext_error1535:;
if(qbevent){evnt(10174);if(r)goto S_12348;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10175);}while(r);
S_12350:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10176);if(r)goto S_12350;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10176);}while(r);
}
S_12353:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10177);if(r)goto S_12353;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10177);}while(r);
}
S_12356:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||is_error_pending()){
if(qbevent){evnt(10178);if(r)goto S_12356;}
S_12357:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10179);if(r)goto S_12357;}
S_12358:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10180);if(r)goto S_12358;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10180);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10180);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10182);}while(r);
S_12363:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10183);if(r)goto S_12363;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10183);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10184);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10185);}while(r);
S_12368:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10186);if(r)goto S_12368;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10186);}while(r);
}
S_12371:;
if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(10188);if(r)goto S_12371;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("VARPTR",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_E),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10192);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1536=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10193);}while(r);
S_12374:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10194);if(r)goto S_12374;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10194);}while(r);
}
}else{
S_12378:;
if ((*__LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(10200);if(r)goto S_12378;}
S_12379:;
if ((-((*__LONG_TYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(10201);if(r)goto S_12379;}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1537=*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10202);}while(r);
S_12381:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10203);if(r)goto S_12381;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10203);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10204);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10205);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1538=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10206);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1539=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10207);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1540=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10208);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1541=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10209);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1542=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10210);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10211);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1543=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10213);}while(r);
S_12394:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10214);if(r)goto S_12394;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10214);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10215);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("double *",8),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10216);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1544=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10217);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1545=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10218);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1546=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(double*)(dblock+cmem_sp);",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10219);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1547=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10220);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1548=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10221);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10222);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1549=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10225);}while(r);
S_12408:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10226);if(r)goto S_12408;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10226);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10227);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("int64 *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10228);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1550=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10229);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1551=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10230);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1552=*__LONG_DATATXTBUF),qbs_add(__STRING_V,qbs_new_txt_len("=(int64*)(dblock+cmem_sp);",26)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10231);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1553=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10232);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1554=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10233);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(uint16)(((uint8*)&(*",21),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len("))-((uint8*)dblock))",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10234);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1555=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute_offsets[",22),qbs__tostr((int32)(*__LONG_ARGN),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10239);}while(r);
}else{
S_12423:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10241);if(r)goto S_12423;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10241);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10241);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10242);}while(r);
S_12429:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10243);if(r)goto S_12429;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10243);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10244);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1556=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10245);}while(r);
S_12434:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10246);if(r)goto S_12434;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10246);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1557=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute(",14),qbs__tostr((int32)(*__LONG_ARGN),NULL,0)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10247);}while(r);
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(10249);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10250);}while(r);
}else{
S_12442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10252);if(r)goto S_12442;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10252);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10252);}while(r);
}
}
fornext_continue_1534:;
}
fornext_exit_1534:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10255);}while(r);
S_12450:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10255);if(r)goto S_12450;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10255);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10255);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10256);}while(r);
}
}else{
do{
qbs_set(__STRING_A,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10261);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10262);}while(r);
do{
*__LONG_USECALL= 2 ;
if(!qbevent)break;evnt(10263);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10267);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1559= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10268);}while(r);
do{
*__LONG_VALIDSUB= 0 ;
if(!qbevent)break;evnt(10271);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10272);}while(r);
S_12466:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10272);if(r)goto S_12466;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1560= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10272);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10273);}while(r);
S_12470:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10274);if(r)goto S_12470;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10274);}while(r);
}
S_12473:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(10275);if(r)goto S_12473;}
S_12474:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 2 ))||is_error_pending()){
if(qbevent){evnt(10276);if(r)goto S_12474;}
do{
*__LONG_VALIDSUB= 1 ;
if(!qbevent)break;evnt(10276);}while(r);
do{
goto dl_exit_1561;
if(!qbevent)break;evnt(10276);}while(r);
}
S_12478:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(10277);if(r)goto S_12478;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10278);}while(r);
S_12480:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10278);if(r)goto S_12480;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1562= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10278);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(10279);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10280);}while(r);
S_12485:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10281);if(r)goto S_12485;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10281);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(10283);}while(r);
}
dl_continue_1561:;
}
dl_exit_1561:;
S_12492:;
if ((-(*__LONG_VALIDSUB== 0 ))||is_error_pending()){
if(qbevent){evnt(10286);if(r)goto S_12492;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10286);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10286);}while(r);
}
}
S_12497:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10290);if(r)goto S_12497;}
S_12498:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(10292);if(r)goto S_12498;}
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10292);}while(r);
}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10294);}while(r);
S_12502:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10294);if(r)goto S_12502;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1563= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10294);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10295);}while(r);
S_12506:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10296);if(r)goto S_12506;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10296);}while(r);
}
S_12509:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(10297);if(r)goto S_12509;}
S_12510:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+544)))== 2 ))||is_error_pending()){
if(qbevent){evnt(10298);if(r)goto S_12510;}
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(qbs_add(__STRING_FIRSTELEMENT,qbs_new_txt_len("",0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10301);}while(r);
S_12512:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10302);if(r)goto S_12512;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10302);}while(r);
}
S_12515:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))== 36 )))||is_error_pending()){
if(qbevent){evnt(10303);if(r)goto S_12515;}
S_12516:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(10304);if(r)goto S_12516;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10304);}while(r);
}
}else{
S_12520:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(10306);if(r)goto S_12520;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10306);}while(r);
}
}
S_12524:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10309);if(r)goto S_12524;}
S_12525:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1613))),256,1))!= 61 )))||is_error_pending()){
if(qbevent){evnt(10310);if(r)goto S_12525;}
S_12526:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1566= 2 )))== 61 )))||is_error_pending()){
if(qbevent){evnt(10311);if(r)goto S_12526;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10311);}while(r);
}
}
}
S_12531:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(10315);if(r)goto S_12531;}
S_12532:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||is_error_pending()){
if(qbevent){evnt(10316);if(r)goto S_12532;}
S_12533:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1567= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10317);if(r)goto S_12533;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(10318);}while(r);
S_12535:;
fornext_value1569= 3 ;
fornext_finalvalue1569=*__LONG_N;
fornext_step1569= 1 ;
if (fornext_step1569<0) fornext_step_negative1569=1; else fornext_step_negative1569=0;
if (is_error_pending()) goto fornext_error1569;
goto fornext_entrylabel1569;
while(1){
fornext_value1569=fornext_step1569+(*__LONG_I);
fornext_entrylabel1569:
*__LONG_I=fornext_value1569;
if (fornext_step_negative1569){
if (fornext_value1569<fornext_finalvalue1569) break;
}else{
if (fornext_value1569>fornext_finalvalue1569) break;
}
fornext_error1569:;
if(qbevent){evnt(10319);if(r)goto S_12535;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10320);}while(r);
S_12537:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10321);if(r)goto S_12537;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10321);}while(r);
}
S_12540:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10322);if(r)goto S_12540;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10323);}while(r);
S_12542:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(10324);if(r)goto S_12542;}
S_12543:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10325);if(r)goto S_12543;}
do{
goto fornext_exit_1568;
if(!qbevent)break;evnt(10325);}while(r);
}
S_12546:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1570=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(10326);if(r)goto S_12546;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10326);}while(r);
}
}
}
fornext_continue_1568:;
}
fornext_exit_1568:;
}
}
}
S_12555:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(10336);if(r)goto S_12555;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB _GL directly",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10337);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10337);}while(r);
}
S_12559:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||is_error_pending()){
if(qbevent){evnt(10340);if(r)goto S_12559;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB VWATCH directly",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10341);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10341);}while(r);
}
S_12563:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
if(qbevent){evnt(10344);if(r)goto S_12563;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10346);}while(r);
S_12565:;
fornext_value1572= 2 ;
fornext_finalvalue1572=*__LONG_N;
fornext_step1572= 1 ;
if (fornext_step1572<0) fornext_step_negative1572=1; else fornext_step_negative1572=0;
if (is_error_pending()) goto fornext_error1572;
goto fornext_entrylabel1572;
while(1){
fornext_value1572=fornext_step1572+(*__LONG_X);
fornext_entrylabel1572:
*__LONG_X=fornext_value1572;
if (fornext_step_negative1572){
if (fornext_value1572<fornext_finalvalue1572) break;
}else{
if (fornext_value1572>fornext_finalvalue1572) break;
}
fornext_error1572:;
if(qbevent){evnt(10347);if(r)goto S_12565;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10348);}while(r);
S_12567:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10349);if(r)goto S_12567;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10349);}while(r);
}
S_12570:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10350);if(r)goto S_12570;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10350);}while(r);
}
S_12573:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("FOR",3)))|(qbs_equal(__STRING_A2,qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(10351);if(r)goto S_12573;}
do{
goto fornext_exit_1571;
if(!qbevent)break;evnt(10351);}while(r);
}
S_12576:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(10352);if(r)goto S_12576;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(10353);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10354);}while(r);
S_12579:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10355);if(r)goto S_12579;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10355);}while(r);
}
do{
goto fornext_exit_1571;
if(!qbevent)break;evnt(10356);}while(r);
}
fornext_continue_1571:;
}
fornext_exit_1571:;
}
S_12586:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLOSE",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5)))))||is_error_pending()){
if(qbevent){evnt(10366);if(r)goto S_12586;}
S_12587:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||is_error_pending()){
if(qbevent){evnt(10367);if(r)goto S_12587;}
S_12588:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10368);if(r)goto S_12588;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - RESET takes no parameters",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10368);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10368);}while(r);
}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Reset",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10369);}while(r);
}else{
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Close",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10371);}while(r);
}
S_12596:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10374);if(r)goto S_12596;}
do{
SUB_WRITEBUFLINE(&(pass1573=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_close(NULL,0);",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10375);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10377);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10378);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10379);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10380);}while(r);
S_12603:;
fornext_value1575= 2 ;
fornext_finalvalue1575=*__LONG_N;
fornext_step1575= 1 ;
if (fornext_step1575<0) fornext_step_negative1575=1; else fornext_step_negative1575=0;
if (is_error_pending()) goto fornext_error1575;
goto fornext_entrylabel1575;
while(1){
fornext_value1575=fornext_step1575+(*__LONG_X);
fornext_entrylabel1575:
*__LONG_X=fornext_value1575;
if (fornext_step_negative1575){
if (fornext_value1575<fornext_finalvalue1575) break;
}else{
if (fornext_value1575>fornext_finalvalue1575) break;
}
fornext_error1575:;
if(qbevent){evnt(10381);if(r)goto S_12603;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10382);}while(r);
S_12605:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10383);if(r)goto S_12605;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10383);}while(r);
}
S_12608:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10384);if(r)goto S_12608;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10384);}while(r);
}
S_12611:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10385);if(r)goto S_12611;}
S_12612:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(10386);if(r)goto S_12612;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10386);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10386);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10386);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("#",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10387);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(10388);}while(r);
}
S_12621:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10391);if(r)goto S_12621;}
S_12622:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(10392);if(r)goto S_12622;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10393);}while(r);
S_12624:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10394);if(r)goto S_12624;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10394);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10395);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1576= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10396);}while(r);
S_12629:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10397);if(r)goto S_12629;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10397);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1577=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10398);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10399);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10400);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(10401);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before ,",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10403);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10403);}while(r);
}
}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10407);}while(r);
S_12642:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10408);if(r)goto S_12642;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10408);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10408);}while(r);
}
LABEL_CLOSENEXTA:;
if(qbevent){evnt(10410);r=0;}
fornext_continue_1574:;
}
fornext_exit_1574:;
S_12648:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(10413);if(r)goto S_12648;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10414);}while(r);
S_12650:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10415);if(r)goto S_12650;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10415);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10416);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1578= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10417);}while(r);
S_12655:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10418);if(r)goto S_12655;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10418);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1579=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10419);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10421);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10425);}while(r);
S_12664:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10425);if(r)goto S_12664;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10425);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10425);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10426);}while(r);
}
S_12671:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||is_error_pending()){
if(qbevent){evnt(10445);if(r)goto S_12671;}
do{
SUB_XREAD(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10446);}while(r);
S_12673:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10447);if(r)goto S_12673;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10447);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10449);}while(r);
}
do{
*__LONG_LINEINPUT= 0 ;
if(!qbevent)break;evnt(10488);}while(r);
S_12679:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10489);if(r)goto S_12679;}
S_12680:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LINE",4)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("INPUT",5)))))||is_error_pending()){
if(qbevent){evnt(10490);if(r)goto S_12680;}
do{
*__LONG_LINEINPUT= 1 ;
if(!qbevent)break;evnt(10491);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len- 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10492);}while(r);
do{
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 5 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10492);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(10492);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10493);}while(r);
}
}
S_12688:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(10497);if(r)goto S_12688;}
S_12689:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10498);if(r)goto S_12689;}
S_12690:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1584= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10499);if(r)goto S_12690;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Input",5)),__STRING1_SP),qbs_new_txt_len("#",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10500);}while(r);
S_12692:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10500);if(r)goto S_12692;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10500);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10502);}while(r);
S_12696:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(10504);if(r)goto S_12696;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10504);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10504);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10505);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10506);}while(r);
S_12702:;
fornext_value1586= 3 ;
fornext_finalvalue1586=*__LONG_N;
fornext_step1586= 1 ;
if (fornext_step1586<0) fornext_step_negative1586=1; else fornext_step_negative1586=0;
if (is_error_pending()) goto fornext_error1586;
goto fornext_entrylabel1586;
while(1){
fornext_value1586=fornext_step1586+(*__LONG_I);
fornext_entrylabel1586:
*__LONG_I=fornext_value1586;
if (fornext_step_negative1586){
if (fornext_value1586<fornext_finalvalue1586) break;
}else{
if (fornext_value1586>fornext_finalvalue1586) break;
}
fornext_error1586:;
if(qbevent){evnt(10507);if(r)goto S_12702;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10508);}while(r);
S_12704:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10509);if(r)goto S_12704;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10509);}while(r);
}
S_12707:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10510);if(r)goto S_12707;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10510);}while(r);
}
S_12710:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10511);if(r)goto S_12710;}
S_12711:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10512);if(r)goto S_12711;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10512);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10512);}while(r);
}
do{
goto LABEL_INPUTGOTFN;
if(!qbevent)break;evnt(10513);}while(r);
}
S_12717:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10515);if(r)goto S_12717;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10515);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10515);}while(r);
}
fornext_continue_1585:;
}
fornext_exit_1585:;
LABEL_INPUTGOTFN:;
if(qbevent){evnt(10517);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10518);}while(r);
S_12724:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10519);if(r)goto S_12724;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10519);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10520);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1587= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10521);}while(r);
S_12729:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10522);if(r)goto S_12729;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10522);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1588=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10523);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1589=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10524);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10525);}while(r);
S_12735:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10526);if(r)goto S_12735;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10526);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10526);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10527);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10528);}while(r);
S_12741:;
fornext_value1591=*__LONG_I;
fornext_finalvalue1591=*__LONG_N;
fornext_step1591= 1 ;
if (fornext_step1591<0) fornext_step_negative1591=1; else fornext_step_negative1591=0;
if (is_error_pending()) goto fornext_error1591;
goto fornext_entrylabel1591;
while(1){
fornext_value1591=fornext_step1591+(*__LONG_I);
fornext_entrylabel1591:
*__LONG_I=fornext_value1591;
if (fornext_step_negative1591){
if (fornext_value1591<fornext_finalvalue1591) break;
}else{
if (fornext_value1591>fornext_finalvalue1591) break;
}
fornext_error1591:;
if(qbevent){evnt(10529);if(r)goto S_12741;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10530);}while(r);
S_12743:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10531);if(r)goto S_12743;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10531);}while(r);
}
S_12746:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10532);if(r)goto S_12746;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10532);}while(r);
}
S_12749:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10533);if(r)goto S_12749;}
S_12750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10534);if(r)goto S_12750;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10534);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10534);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10535);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10535);}while(r);
}
S_12758:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10537);if(r)goto S_12758;}
S_12759:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10538);if(r)goto S_12759;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10538);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10538);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10539);}while(r);
S_12764:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10540);if(r)goto S_12764;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10540);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10541);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10542);}while(r);
S_12769:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10543);if(r)goto S_12769;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10543);}while(r);
}
S_12772:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10544);if(r)goto S_12772;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10544);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10544);}while(r);
}
S_12776:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10545);if(r)goto S_12776;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1592= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10546);}while(r);
S_12778:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10547);if(r)goto S_12778;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10547);}while(r);
}
S_12781:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10548);if(r)goto S_12781;}
do{
SUB_WRITEBUFLINE(&(pass1593=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_line_input_string(tmp_fileno,",38),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10549);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1594=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10550);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1595=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10552);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1596=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10553);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(10555);}while(r);
}else{
S_12790:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10557);if(r)goto S_12790;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10557);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10557);}while(r);
}
S_12794:;
if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||is_error_pending()){
if(qbevent){evnt(10560);if(r)goto S_12794;}
S_12795:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(10561);if(r)goto S_12795;}
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len("))",2)),&(pass1597= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10562);}while(r);
S_12797:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10563);if(r)goto S_12797;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10563);}while(r);
}
}else{
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_file_input_float(tmp_fileno,",33),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len(")",1)),&(pass1598= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10565);}while(r);
S_12802:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10566);if(r)goto S_12802;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10566);}while(r);
}
}
}else{
S_12807:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10569);if(r)goto S_12807;}
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1599= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10570);}while(r);
S_12809:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10571);if(r)goto S_12809;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10571);}while(r);
}
}else{
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1600= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10573);}while(r);
S_12814:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10574);if(r)goto S_12814;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10574);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(&(pass1601=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (is_error_pending()) goto skip",33),__STRING_U),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10578);}while(r);
}
S_12821:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10581);if(r)goto S_12821;}
do{
goto fornext_exit_1590;
if(!qbevent)break;evnt(10581);}while(r);
}
S_12824:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10582);if(r)goto S_12824;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10582);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10582);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10583);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10583);}while(r);
}
S_12831:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10585);if(r)goto S_12831;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10585);}while(r);
}else{
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10585);}while(r);
}
fornext_continue_1590:;
}
fornext_exit_1590:;
do{
SUB_WRITEBUFLINE(&(pass1602=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10587);}while(r);
S_12838:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(10588);if(r)goto S_12838;}
do{
SUB_WRITEBUFLINE(&(pass1603=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10588);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10589);}while(r);
S_12842:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10589);if(r)goto S_12842;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10589);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10589);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10590);}while(r);
}
}
}
S_12851:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(10596);if(r)goto S_12851;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10597);}while(r);
S_12853:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10597);if(r)goto S_12853;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10597);}while(r);
}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(10598);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(10599);}while(r);
do{
*__LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(10601);}while(r);
S_12859:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(10601);if(r)goto S_12859;}
do{
*__LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(10601);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10601);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10601);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10603);}while(r);
S_12865:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(10604);if(r)goto S_12865;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10605);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10605);}while(r);
S_12868:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10606);if(r)goto S_12868;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10606);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1605=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt_len(",26),__STRING_A2),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10607);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10608);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10610);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10611);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10612);}while(r);
S_12876:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(10613);if(r)goto S_12876;}
S_12877:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10614);if(r)goto S_12877;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10614);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1606=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10615);}while(r);
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10616);}while(r);
}
S_12883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(10618);if(r)goto S_12883;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(10619);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10621);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10621);}while(r);
}
S_12889:;
if ((-(*__LONG_LINEINPUT== 0 ))||is_error_pending()){
if(qbevent){evnt(10624);if(r)goto S_12889;}
do{
SUB_WRITEBUFLINE(&(pass1607=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10624);}while(r);
}
LABEL_FINISHEDPROMPTSTRING:;
if(qbevent){evnt(10625);r=0;}
do{
*__LONG_NUMVAR= 0 ;
if(!qbevent)break;evnt(10626);}while(r);
S_12893:;
fornext_value1609=*__LONG_I;
fornext_finalvalue1609=*__LONG_N;
fornext_step1609= 1 ;
if (fornext_step1609<0) fornext_step_negative1609=1; else fornext_step_negative1609=0;
if (is_error_pending()) goto fornext_error1609;
goto fornext_entrylabel1609;
while(1){
fornext_value1609=fornext_step1609+(*__LONG_I);
fornext_entrylabel1609:
*__LONG_I=fornext_value1609;
if (fornext_step_negative1609){
if (fornext_value1609<fornext_finalvalue1609) break;
}else{
if (fornext_value1609>fornext_finalvalue1609) break;
}
fornext_error1609:;
if(qbevent){evnt(10627);if(r)goto S_12893;}
S_12894:;
if ((-(*__LONG_COMMANEEDED== 1 ))||is_error_pending()){
if(qbevent){evnt(10628);if(r)goto S_12894;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10629);}while(r);
S_12896:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(10630);if(r)goto S_12896;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10630);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10630);}while(r);
}
}else{
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10633);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10634);}while(r);
S_12903:;
fornext_value1611=*__LONG_I;
fornext_finalvalue1611=*__LONG_N;
fornext_step1611= 1 ;
if (fornext_step1611<0) fornext_step_negative1611=1; else fornext_step_negative1611=0;
if (is_error_pending()) goto fornext_error1611;
goto fornext_entrylabel1611;
while(1){
fornext_value1611=fornext_step1611+(*__LONG_I2);
fornext_entrylabel1611:
*__LONG_I2=fornext_value1611;
if (fornext_step_negative1611){
if (fornext_value1611<fornext_finalvalue1611) break;
}else{
if (fornext_value1611>fornext_finalvalue1611) break;
}
fornext_error1611:;
if(qbevent){evnt(10635);if(r)goto S_12903;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10636);}while(r);
S_12905:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10637);if(r)goto S_12905;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10637);}while(r);
}
S_12908:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10638);if(r)goto S_12908;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10638);}while(r);
}
S_12911:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10639);if(r)goto S_12911;}
do{
*__LONG_I2=*__LONG_I2- 1 ;
if(!qbevent)break;evnt(10639);}while(r);
do{
goto fornext_exit_1610;
if(!qbevent)break;evnt(10639);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10640);}while(r);
fornext_continue_1610:;
}
fornext_exit_1610:;
do{
*__LONG_I=*__LONG_I2;
if(!qbevent)break;evnt(10642);}while(r);
S_12918:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10642);if(r)goto S_12918;}
do{
*__LONG_I=*__LONG_N;
if(!qbevent)break;evnt(10642);}while(r);
}
S_12921:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10643);if(r)goto S_12921;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10643);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10643);}while(r);
}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10644);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10645);}while(r);
S_12927:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10646);if(r)goto S_12927;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10646);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10647);}while(r);
S_12931:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10647);if(r)goto S_12931;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10647);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10648);}while(r);
S_12935:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10649);if(r)goto S_12935;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10649);}while(r);
}
S_12938:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10650);if(r)goto S_12938;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10650);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10650);}while(r);
}
S_12942:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10652);if(r)goto S_12942;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1613= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10653);}while(r);
S_12944:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10654);if(r)goto S_12944;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10654);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(10655);}while(r);
S_12948:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10656);if(r)goto S_12948;}
do{
SUB_WRITEBUFLINE(&(pass1614=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=ISSTRING+512;",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10657);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1615=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=ISSTRING;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10659);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1616=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10661);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(10662);}while(r);
}
S_12956:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10665);if(r)goto S_12956;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10665);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10665);}while(r);
}
S_12960:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(10666);if(r)goto S_12960;}
S_12961:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(10667);if(r)goto S_12961;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle _BIT array elements",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10668);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10668);}while(r);
}
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1617= 0 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10671);}while(r);
S_12967:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10672);if(r)goto S_12967;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10672);}while(r);
}
S_12970:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10675);if(r)goto S_12970;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10675);}while(r);
}
S_12973:;
if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
if(qbevent){evnt(10676);if(r)goto S_12973;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10676);}while(r);
}
S_12976:;
if (((*__LONG_T&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(10677);if(r)goto S_12976;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(10677);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(10688);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1618=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),qbs__tostr((int32)(*__LONG_T),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10689);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1619=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10690);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(10691);}while(r);
}
LABEL_GOTINPUTVAR:;
if(qbevent){evnt(10694);r=0;}
do{
*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ;
if(!qbevent)break;evnt(10695);}while(r);
S_12985:;
if ((-(*__LONG_COMMANEEDED== 2 ))||is_error_pending()){
if(qbevent){evnt(10695);if(r)goto S_12985;}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(10695);}while(r);
}
fornext_continue_1608:;
}
fornext_exit_1608:;
S_12989:;
if ((-(*__LONG_NUMVAR== 0 ))||is_error_pending()){
if(qbevent){evnt(10697);if(r)goto S_12989;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10697);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10697);}while(r);
}
S_12993:;
if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||is_error_pending()){
if(qbevent){evnt(10698);if(r)goto S_12993;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10698);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10698);}while(r);
}
S_12997:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(10699);if(r)goto S_12997;}
do{
SUB_WRITEBUFLINE(&(pass1620=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10700);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1621=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),qbs__tostr((int32)(*__LONG_NUMVAR),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_NEWLINE),NULL,0)),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10702);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1622=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (stop_program) end();",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10703);}while(r);
S_13002:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(10704);if(r)goto S_13002;}
do{
SUB_WRITEBUFLINE(&(pass1623=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10705);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1624=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10707);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10708);}while(r);
S_13007:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10708);if(r)goto S_13007;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10708);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10708);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10709);}while(r);
}
S_13014:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(10714);if(r)goto S_13014;}
S_13015:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10715);if(r)goto S_13015;}
S_13016:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1626= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10716);if(r)goto S_13016;}
do{
SUB_XFILEWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10717);}while(r);
S_13018:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10718);if(r)goto S_13018;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10718);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10719);}while(r);
}
}
}
S_13025:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(10724);if(r)goto S_13025;}
do{
SUB_XWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10725);}while(r);
S_13027:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10726);if(r)goto S_13027;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10726);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10727);}while(r);
}
S_13032:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(10730);if(r)goto S_13032;}
S_13033:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10731);if(r)goto S_13033;}
S_13034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1627= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10732);if(r)goto S_13034;}
do{
SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10733);}while(r);
S_13036:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10734);if(r)goto S_13036;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10734);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10735);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10736);}while(r);
S_13041:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10736);if(r)goto S_13041;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10736);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10736);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10737);}while(r);
}
}
}
S_13050:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||is_error_pending()){
if(qbevent){evnt(10742);if(r)goto S_13050;}
S_13051:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(10743);if(r)goto S_13051;}
do{
*__LONG_ELEMENTON= 2 ;
if(!qbevent)break;evnt(10744);}while(r);
LABEL_REDOSEMI:;
if(qbevent){evnt(10745);r=0;}
S_13053:;
fornext_value1630=*__LONG_ELEMENTON;
fornext_finalvalue1630=*__LONG_N- 1 ;
fornext_step1630= 1 ;
if (fornext_step1630<0) fornext_step_negative1630=1; else fornext_step_negative1630=0;
if (is_error_pending()) goto fornext_error1630;
goto fornext_entrylabel1630;
while(1){
fornext_value1630=fornext_step1630+(*__LONG_I);
fornext_entrylabel1630:
*__LONG_I=fornext_value1630;
if (fornext_step_negative1630){
if (fornext_value1630<fornext_finalvalue1630) break;
}else{
if (fornext_value1630>fornext_finalvalue1630) break;
}
fornext_error1630:;
if(qbevent){evnt(10746);if(r)goto S_13053;}
do{
qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1631=*__LONG_I+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10747);}while(r);
S_13055:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+)<=>=<>",10),__STRING_NEXTCHAR,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(10750);if(r)goto S_13055;}
do{
qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10751);}while(r);
do{
*__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10752);}while(r);
do{
*__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10753);}while(r);
S_13059:;
if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||is_error_pending()){
if(qbevent){evnt(10754);if(r)goto S_13059;}
do{
*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ;
if(!qbevent)break;evnt(10756);}while(r);
do{
qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs__tostr((int32)(*__LONG_TEXTLENGTH),NULL,0))->len),0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10757);}while(r);
S_13062:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||is_error_pending()){
if(qbevent){evnt(10758);if(r)goto S_13062;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10759);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10760);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(10761);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(10762);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(10763);}while(r);
}
}
S_13070:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(10766);if(r)goto S_13070;}
S_13071:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(10767);if(r)goto S_13071;}
S_13072:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+(<=>=<>",10),__STRING_TEMP1,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(10768);if(r)goto S_13072;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10770);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10771);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(10772);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(10773);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(10774);}while(r);
}
}
}
}
fornext_continue_1629:;
}
fornext_exit_1629:;
}
do{
SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10782);}while(r);
S_13085:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10783);if(r)goto S_13085;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10783);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10784);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10785);}while(r);
S_13090:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10785);if(r)goto S_13090;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10785);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10785);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10786);}while(r);
}
S_13097:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||is_error_pending()){
if(qbevent){evnt(10791);if(r)goto S_13097;}
S_13098:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10792);if(r)goto S_13098;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("CLEAR cannot be used inside a SUB/FUNCTION",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10792);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10792);}while(r);
}
S_13102:;
fornext_value1634= 2 ;
fornext_finalvalue1634=*__LONG_N;
fornext_step1634= 1 ;
if (fornext_step1634<0) fornext_step_negative1634=1; else fornext_step_negative1634=0;
if (is_error_pending()) goto fornext_error1634;
goto fornext_entrylabel1634;
while(1){
fornext_value1634=fornext_step1634+(*__LONG_I2);
fornext_entrylabel1634:
*__LONG_I2=fornext_value1634;
if (fornext_step_negative1634){
if (fornext_value1634<fornext_finalvalue1634) break;
}else{
if (fornext_value1634>fornext_finalvalue1634) break;
}
fornext_error1634:;
if(qbevent){evnt(10793);if(r)goto S_13102;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10794);}while(r);
S_13104:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("(",1)))|(qbs_equal(__STRING_A2,qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(10795);if(r)goto S_13104;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10795);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10795);}while(r);
}
fornext_continue_1633:;
}
fornext_exit_1633:;
}
S_13110:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RSET",4)))))||is_error_pending()){
if(qbevent){evnt(10800);if(r)goto S_13110;}
S_13111:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10801);if(r)goto S_13111;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" ...",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10801);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10801);}while(r);
}
S_13115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(10802);if(r)goto S_13115;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10802);}while(r);
}else{
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("RSet",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10802);}while(r);
}
do{
qbs_set(__STRING_DEST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10803);}while(r);
do{
qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10804);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(10805);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(10806);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10807);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10808);}while(r);
S_13126:;
do{
if(qbevent){evnt(10809);if(r)goto S_13126;}
S_13127:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10810);if(r)goto S_13127;}
S_13128:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(10811);if(r)goto S_13128;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10811);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10811);}while(r);
}
do{
qbs_set(__STRING_SOURCE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10812);}while(r);
do{
goto dl_exit_1635;
if(!qbevent)break;evnt(10813);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10815);}while(r);
S_13136:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10816);if(r)goto S_13136;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10816);}while(r);
}
S_13139:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10817);if(r)goto S_13139;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10817);}while(r);
}
S_13142:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10818);if(r)goto S_13142;}
S_13143:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(10819);if(r)goto S_13143;}
do{
qbs_set(__STRING_DEST,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10819);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(10819);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10819);}while(r);
do{
goto LABEL_LRSETGOTPART;
if(!qbevent)break;evnt(10819);}while(r);
}
}
S_13150:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(10821);if(r)goto S_13150;}
do{
qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10821);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10821);}while(r);
}
LABEL_LRSETGOTPART:;
if(qbevent){evnt(10822);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10823);}while(r);
dl_continue_1635:;
}while(1);
dl_exit_1635:;
S_13157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10825);if(r)goto S_13157;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10825);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10825);}while(r);
}
do{
qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10827);}while(r);
S_13162:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10828);if(r)goto S_13162;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10828);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("=",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10829);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10830);}while(r);
S_13167:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10831);if(r)goto S_13167;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10831);}while(r);
}
S_13170:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(10832);if(r)goto S_13170;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LSET/RSET expects a string variable/array-element as its first argument",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10832);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10832);}while(r);
}
do{
qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10833);}while(r);
S_13175:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10834);if(r)goto S_13175;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10834);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10835);}while(r);
S_13179:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10836);if(r)goto S_13179;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10836);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10837);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10838);}while(r);
S_13184:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10838);if(r)goto S_13184;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10838);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10838);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10839);}while(r);
S_13190:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10840);if(r)goto S_13190;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10840);}while(r);
}
S_13193:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(10841);if(r)goto S_13193;}
do{
SUB_WRITEBUFLINE(&(pass1638=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_lset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10842);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1639=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_rset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10844);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10846);}while(r);
}
S_13200:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||is_error_pending()){
if(qbevent){evnt(10850);if(r)goto S_13200;}
S_13201:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(10851);if(r)goto S_13201;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10851);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10851);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10852);}while(r);
do{
*__LONG_ELE= 1 ;
if(!qbevent)break;evnt(10853);}while(r);
do{
qbs_set(__STRING_E1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10854);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10855);}while(r);
S_13209:;
fornext_value1641= 2 ;
fornext_finalvalue1641=*__LONG_N;
fornext_step1641= 1 ;
if (fornext_step1641<0) fornext_step_negative1641=1; else fornext_step_negative1641=0;
if (is_error_pending()) goto fornext_error1641;
goto fornext_entrylabel1641;
while(1){
fornext_value1641=fornext_step1641+(*__LONG_I);
fornext_entrylabel1641:
*__LONG_I=fornext_value1641;
if (fornext_step_negative1641){
if (fornext_value1641<fornext_finalvalue1641) break;
}else{
if (fornext_value1641>fornext_finalvalue1641) break;
}
fornext_error1641:;
if(qbevent){evnt(10856);if(r)goto S_13209;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10857);}while(r);
S_13211:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10858);if(r)goto S_13211;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10858);}while(r);
}
S_13214:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10859);if(r)goto S_13214;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10859);}while(r);
}
S_13217:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10860);if(r)goto S_13217;}
S_13218:;
if ((-(*__LONG_ELE== 2 ))||is_error_pending()){
if(qbevent){evnt(10861);if(r)goto S_13218;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10861);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10861);}while(r);
}
do{
*__LONG_ELE= 2 ;
if(!qbevent)break;evnt(10862);}while(r);
}else{
S_13224:;
if ((-(*__LONG_ELE== 1 ))||is_error_pending()){
if(qbevent){evnt(10864);if(r)goto S_13224;}
do{
qbs_set(__STRING_E1,qbs_add(qbs_add(__STRING_E1,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10864);}while(r);
}else{
do{
qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10864);}while(r);
}
}
fornext_continue_1640:;
}
fornext_exit_1640:;
S_13231:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10867);if(r)goto S_13231;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10867);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10867);}while(r);
}
do{
qbs_set(__STRING_E1,qbs_right(__STRING_E1,__STRING_E1->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10868);}while(r);
do{
qbs_set(__STRING_E2,qbs_right(__STRING_E2,__STRING_E2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10868);}while(r);
do{
qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10870);}while(r);
S_13238:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10871);if(r)goto S_13238;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10871);}while(r);
}
do{
qbs_set(__STRING_E1L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10872);}while(r);
do{
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10873);}while(r);
S_13243:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10874);if(r)goto S_13243;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10874);}while(r);
}
do{
qbs_set(__STRING_E2L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10875);}while(r);
do{
qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10876);}while(r);
do{
qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10876);}while(r);
S_13249:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10877);if(r)goto S_13249;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10877);}while(r);
}
S_13252:;
if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(10878);if(r)goto S_13252;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10878);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10878);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10880);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Swap",4)),__STRING1_SP),__STRING_E1L),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_E2L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10881);}while(r);
S_13258:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(10882);if(r)goto S_13258;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10882);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10882);}while(r);
}
S_13263:;
if (((*__LONG_E1TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10885);if(r)goto S_13263;}
S_13264:;
if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(10886);if(r)goto S_13264;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10886);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10886);}while(r);
}
do{
qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1645= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10887);}while(r);
do{
qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1646= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10887);}while(r);
S_13270:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10888);if(r)goto S_13270;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10888);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1647=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_string(",12),__STRING_E1),qbs_new_txt_len(",",1)),__STRING_E2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10889);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10890);}while(r);
}
S_13276:;
if ((*__LONG_E1TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10898);if(r)goto S_13276;}
do{
qbs_set(__STRING_A,__STRING_E1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10899);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10901);}while(r);
S_13279:;
if ((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(10902);if(r)goto S_13279;}
do{
*__LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(__STRING_A,*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10903);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10903);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER);
if(!qbevent)break;evnt(10904);}while(r);
S_13283:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10905);if(r)goto S_13283;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10905);}while(r);
}
do{
*__LONG_U=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10906);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10907);}while(r);
do{
qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10907);}while(r);
do{
*__LONG_E=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10907);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10908);}while(r);
do{
qbs_set(__STRING_O,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10908);}while(r);
do{
qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10909);}while(r);
S_13293:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+536)))== 0 ))||is_error_pending()){
if(qbevent){evnt(10909);if(r)goto S_13293;}
do{
qbs_set(__STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10909);}while(r);
}
S_13296:;
if ((-(*__LONG_E== 0 ))||is_error_pending()){
if(qbevent){evnt(10910);if(r)goto S_13296;}
do{
qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10911);}while(r);
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10912);}while(r);
do{
*__LONG_T2=*__LONG_E2TYP;
if(!qbevent)break;evnt(10912);}while(r);
S_13300:;
if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(10913);if(r)goto S_13300;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10913);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10913);}while(r);
}
do{
*__LONG_IDNUMBER2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10914);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER2);
if(!qbevent)break;evnt(10915);}while(r);
S_13306:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10916);if(r)goto S_13306;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10916);}while(r);
}
do{
qbs_set(__STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10917);}while(r);
S_13310:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+536)))== 0 ))||is_error_pending()){
if(qbevent){evnt(10917);if(r)goto S_13310;}
do{
qbs_set(__STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N2),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10917);}while(r);
}
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10918);}while(r);
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10918);}while(r);
do{
*__LONG_U2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10918);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10919);}while(r);
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10919);}while(r);
do{
*__LONG_E2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10919);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10921);}while(r);
do{
qbs_set(__STRING_O2,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10921);}while(r);
S_13321:;
if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||is_error_pending()){
if(qbevent){evnt(10923);if(r)goto S_13321;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10923);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10923);}while(r);
}
do{
qbs_set(__STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),__STRING_LHSSCOPE),__STRING_N),qbs_new_txt_len(")+(",3)),__STRING_O),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10924);}while(r);
do{
qbs_set(__STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),__STRING_N2),qbs_new_txt_len(")+(",3)),__STRING_O2),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10925);}while(r);
do{
*__LONG_B=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ;
if(!qbevent)break;evnt(10926);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10927);}while(r);
S_13329:;
if ((-(*__LONG_B== 1 ))||is_error_pending()){
if(qbevent){evnt(10928);if(r)goto S_13329;}
do{
SUB_WRITEBUFLINE(&(pass1654=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_8(",7),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10928);}while(r);
}
S_13332:;
if ((-(*__LONG_B== 2 ))||is_error_pending()){
if(qbevent){evnt(10929);if(r)goto S_13332;}
do{
SUB_WRITEBUFLINE(&(pass1655=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_16(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10929);}while(r);
}
S_13335:;
if ((-(*__LONG_B== 4 ))||is_error_pending()){
if(qbevent){evnt(10930);if(r)goto S_13335;}
do{
SUB_WRITEBUFLINE(&(pass1656=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_32(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10930);}while(r);
}
S_13338:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(10931);if(r)goto S_13338;}
do{
SUB_WRITEBUFLINE(&(pass1657=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_64(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10931);}while(r);
}
S_13341:;
if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||is_error_pending()){
if(qbevent){evnt(10932);if(r)goto S_13341;}
do{
SUB_WRITEBUFLINE(&(pass1658=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_block(",11),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(",",1)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10932);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10933);}while(r);
}
}
}
do{
*__LONG_E1TYPC=*__LONG_E1TYP;
if(!qbevent)break;evnt(10939);}while(r);
S_13349:;
if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(10940);if(r)goto S_13349;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10940);}while(r);
}
S_13352:;
if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(10941);if(r)goto S_13352;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10941);}while(r);
}
S_13355:;
if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(10942);if(r)goto S_13355;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(10942);}while(r);
}
S_13358:;
if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10943);if(r)goto S_13358;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(10943);}while(r);
}
S_13361:;
if ((*__LONG_E1TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10944);if(r)goto S_13361;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(10944);}while(r);
}
do{
*__LONG_E2TYPC=*__LONG_E2TYP;
if(!qbevent)break;evnt(10945);}while(r);
S_13365:;
if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(10946);if(r)goto S_13365;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10946);}while(r);
}
S_13368:;
if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(10947);if(r)goto S_13368;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(10947);}while(r);
}
S_13371:;
if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(10948);if(r)goto S_13371;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(10948);}while(r);
}
S_13374:;
if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10949);if(r)goto S_13374;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(10949);}while(r);
}
S_13377:;
if ((*__LONG_E2TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(10950);if(r)goto S_13377;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(10950);}while(r);
}
S_13380:;
if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||is_error_pending()){
if(qbevent){evnt(10951);if(r)goto S_13380;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10951);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10951);}while(r);
}
do{
*__LONG_T=*__LONG_E1TYP;
if(!qbevent)break;evnt(10952);}while(r);
S_13385:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(10953);if(r)goto S_13385;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP bit-length variables",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10953);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10953);}while(r);
}
do{
*__LONG_B=*__LONG_T& 511 ;
if(!qbevent)break;evnt(10954);}while(r);
do{
qbs_set(__STRING_T,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10955);}while(r);
S_13391:;
if ((-(*__LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(10955);if(r)goto S_13391;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10955);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1659=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_",5),__STRING_T),qbs_new_txt_len("(&",2)),FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1660= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1661= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10956);}while(r);
S_13395:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10957);if(r)goto S_13395;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10957);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10958);}while(r);
}
S_13400:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(10961);if(r)goto S_13400;}
S_13401:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10962);if(r)goto S_13401;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10962);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10962);}while(r);
}
S_13406:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10963);if(r)goto S_13406;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10963);}while(r);
}
S_13409:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10964);if(r)goto S_13409;}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10964);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10964);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1662= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10965);}while(r);
S_13414:;
if(qbevent){evnt(10966);if(r)goto S_13414;}
S_13415:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(10967);if(r)goto S_13415;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1664= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10968);}while(r);
S_13417:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_L,qbs_new_txt_len("0",1)))&(qbs_notequal(__STRING_L,qbs_new_txt_len("1",1)))))||is_error_pending()){
if(qbevent){evnt(10969);if(r)goto S_13417;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected OPTION BASE 0 or 1",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10969);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10969);}while(r);
}
S_13421:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(10970);if(r)goto S_13421;}
do{
*__INTEGER_OPTIONBASE= 1 ;
if(!qbevent)break;evnt(10970);}while(r);
}else{
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(10970);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("Base",4))),__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10971);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10972);}while(r);
S_13428:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10972);if(r)goto S_13428;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10972);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10972);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10973);}while(r);
sc_ec_34_end:;
goto sc_1663_end;
}
S_13434:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||is_error_pending()){
if(qbevent){evnt(10974);if(r)goto S_13434;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass1666= 1 ));
if(!qbevent)break;evnt(10975);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_Explicit",9))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10976);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10977);}while(r);
S_13438:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10977);if(r)goto S_13438;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10977);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10977);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10978);}while(r);
sc_ec_35_end:;
goto sc_1663_end;
}
S_13444:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||is_error_pending()){
if(qbevent){evnt(10979);if(r)goto S_13444;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ),&(pass1668= 1 ));
if(!qbevent)break;evnt(10980);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("_ExplicitArray",14))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10981);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10982);}while(r);
S_13448:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10982);if(r)goto S_13448;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10982);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10982);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10983);}while(r);
sc_ec_36_end:;
goto sc_1663_end;
}
S_13455:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10985);if(r)goto S_13455;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10985);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10985);}while(r);
}
S_13460:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(10986);if(r)goto S_13460;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICITARRAY",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10986);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10987);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10987);}while(r);
sc_1663_end:;
}
S_13467:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGTRACE",9))))||is_error_pending()){
if(qbevent){evnt(10991);if(r)goto S_13467;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1670= 2 ),__LONG_N),qbs_new_txt_len("TRACE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10992);}while(r);
S_13469:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10993);if(r)goto S_13469;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10993);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10994);}while(r);
}
S_13474:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGINFO",8))))||is_error_pending()){
if(qbevent){evnt(10997);if(r)goto S_13474;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1671= 2 ),__LONG_N),qbs_new_txt_len("INFO",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10998);}while(r);
S_13476:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10999);if(r)goto S_13476;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10999);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11000);}while(r);
}
S_13481:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGWARN",8))))||is_error_pending()){
if(qbevent){evnt(11003);if(r)goto S_13481;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1672= 2 ),__LONG_N),qbs_new_txt_len("WARN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11004);}while(r);
S_13483:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11005);if(r)goto S_13483;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11005);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11006);}while(r);
}
S_13488:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGERROR",9))))||is_error_pending()){
if(qbevent){evnt(11009);if(r)goto S_13488;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1673= 2 ),__LONG_N),qbs_new_txt_len("ERROR",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11010);}while(r);
S_13490:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11011);if(r)goto S_13490;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11011);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11012);}while(r);
}
do{
memcpy((((char*)__UDT_ID2)+((0+0))+ 0),(((char*)__UDT_ID)+((0+0))+ 0), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 256),(((char*)__UDT_ID)+((0+0))+ 256), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 512),(((char*)__UDT_ID)+((0+0))+ 512), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 516),(((char*)__UDT_ID)+((0+0))+ 516), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 518),(((char*)__UDT_ID)+((0+0))+ 518), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 520),(((char*)__UDT_ID)+((0+0))+ 520), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 528),(((char*)__UDT_ID)+((0+0))+ 528), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 536),(((char*)__UDT_ID)+((0+0))+ 536), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 540),(((char*)__UDT_ID)+((0+0))+ 540), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 544),(((char*)__UDT_ID)+((0+0))+ 544), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 546),(((char*)__UDT_ID)+((0+0))+ 546), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 548),(((char*)__UDT_ID)+((0+0))+ 548), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 550),(((char*)__UDT_ID)+((0+0))+ 550), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 806),(((char*)__UDT_ID)+((0+0))+ 806), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 808),(((char*)__UDT_ID)+((0+0))+ 808), 1);
memcpy((((char*)__UDT_ID2)+((0+0))+ 809),(((char*)__UDT_ID)+((0+0))+ 809), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 811),(((char*)__UDT_ID)+((0+0))+ 811), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1213),(((char*)__UDT_ID)+((0+0))+ 1213), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1613),(((char*)__UDT_ID)+((0+0))+ 1613), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1869),(((char*)__UDT_ID)+((0+0))+ 1869), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2125),(((char*)__UDT_ID)+((0+0))+ 2125), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2381),(((char*)__UDT_ID)+((0+0))+ 2381), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2641),(((char*)__UDT_ID)+((0+0))+ 2641), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2647),(((char*)__UDT_ID)+((0+0))+ 2647), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2747),(((char*)__UDT_ID)+((0+0))+ 2747), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2847),(((char*)__UDT_ID)+((0+0))+ 2847), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2853),(((char*)__UDT_ID)+((0+0))+ 2853), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2855),(((char*)__UDT_ID)+((0+0))+ 2855), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2859),(((char*)__UDT_ID)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2861), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2861));
if(!qbevent)break;evnt(11017);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(11019);}while(r);
S_13497:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_stub",8))))||is_error_pending()){
if(qbevent){evnt(11021);if(r)goto S_13497;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11021);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11021);}while(r);
}
S_13501:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(11023);if(r)goto S_13501;}
S_13502:;
if ((-(*(int16*)(((char*)__UDT_ID2)+((0+809)))== 0 ))||is_error_pending()){
if(qbevent){evnt(11024);if(r)goto S_13502;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB does not require any arguments",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11024);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11024);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass1674=*(int16*)(((char*)__UDT_ID2)+((0+546)))));
if(!qbevent)break;evnt(11027);}while(r);
do{
*__LONG_SEPERATEARGS_ERROR= 0 ;
if(!qbevent)break;evnt(11029);}while(r);
do{
*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1675= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1676= 2 ),__LONG_N),__LONG_PASSED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11030);}while(r);
S_13510:;
if ((*__LONG_SEPERATEARGS_ERROR)||is_error_pending()){
if(qbevent){evnt(11031);if(r)goto S_13510;}
do{
qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11031);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11031);}while(r);
}
S_13514:;
fornext_value1678= 1 ;
fornext_finalvalue1678=*__LONG_OPTMAX;
fornext_step1678= 1 ;
if (fornext_step1678<0) fornext_step_negative1678=1; else fornext_step_negative1678=0;
if (is_error_pending()) goto fornext_error1678;
goto fornext_entrylabel1678;
while(1){
fornext_value1678=fornext_step1678+(*__LONG_I);
fornext_entrylabel1678:
*__LONG_I=fornext_value1678;
if (fornext_step_negative1678){
if (fornext_value1678<fornext_finalvalue1678) break;
}else{
if (fornext_value1678>fornext_finalvalue1678) break;
}
fornext_error1678:;
if(qbevent){evnt(11034);if(r)goto S_13514;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11034);}while(r);
fornext_continue_1677:;
}
fornext_exit_1677:;
S_13517:;
fornext_value1680= 1 ;
fornext_finalvalue1680=*__LONG_OPTMAX+ 1 ;
fornext_step1680= 1 ;
if (fornext_step1680<0) fornext_step_negative1680=1; else fornext_step_negative1680=0;
if (is_error_pending()) goto fornext_error1680;
goto fornext_entrylabel1680;
while(1){
fornext_value1680=fornext_step1680+(*__LONG_I);
fornext_entrylabel1680:
*__LONG_I=fornext_value1680;
if (fornext_step_negative1680){
if (fornext_value1680<fornext_finalvalue1680) break;
}else{
if (fornext_value1680>fornext_finalvalue1680) break;
}
fornext_error1680:;
if(qbevent){evnt(11035);if(r)goto S_13517;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11035);}while(r);
fornext_continue_1679:;
}
fornext_exit_1679:;
S_13520:;
fornext_value1682= 1 ;
fornext_finalvalue1682=*(int16*)(((char*)__UDT_ID2)+((0+809)));
fornext_step1682= 1 ;
if (fornext_step1682<0) fornext_step_negative1682=1; else fornext_step_negative1682=0;
if (is_error_pending()) goto fornext_error1682;
goto fornext_entrylabel1682;
while(1){
fornext_value1682=fornext_step1682+(*__LONG_I);
fornext_entrylabel1682:
*__LONG_I=fornext_value1682;
if (fornext_step_negative1682){
if (fornext_value1682<fornext_finalvalue1682) break;
}else{
if (fornext_value1682>fornext_finalvalue1682) break;
}
fornext_error1682:;
if(qbevent){evnt(11036);if(r)goto S_13520;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11036);}while(r);
fornext_continue_1681:;
}
fornext_exit_1681:;
S_13523:;
fornext_value1684= 1 ;
fornext_finalvalue1684=*(int16*)(((char*)__UDT_ID2)+((0+809)))+ 1 ;
fornext_step1684= 1 ;
if (fornext_step1684<0) fornext_step_negative1684=1; else fornext_step_negative1684=0;
if (is_error_pending()) goto fornext_error1684;
goto fornext_entrylabel1684;
while(1){
fornext_value1684=fornext_step1684+(*__LONG_I);
fornext_entrylabel1684:
*__LONG_I=fornext_value1684;
if (fornext_step_negative1684){
if (fornext_value1684<fornext_finalvalue1684) break;
}else{
if (fornext_value1684>fornext_finalvalue1684) break;
}
fornext_error1684:;
if(qbevent){evnt(11037);if(r)goto S_13523;}
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11037);}while(r);
fornext_continue_1683:;
}
fornext_exit_1683:;
S_13526:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11041);if(r)goto S_13526;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1685;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1);
if (is_error_pending()) goto skip1685;
skip1685:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11042);}while(r);
S_13528:;
fornext_value1687= 1 ;
fornext_finalvalue1687=*(int16*)(((char*)__UDT_ID2)+((0+809)));
fornext_step1687= 1 ;
if (fornext_step1687<0) fornext_step_negative1687=1; else fornext_step_negative1687=0;
if (is_error_pending()) goto fornext_error1687;
goto fornext_entrylabel1687;
while(1){
fornext_value1687=fornext_step1687+(*__LONG_I);
fornext_entrylabel1687:
*__LONG_I=fornext_value1687;
if (fornext_step_negative1687){
if (fornext_value1687<fornext_finalvalue1687) break;
}else{
if (fornext_value1687>fornext_finalvalue1687) break;
}
fornext_error1687:;
if(qbevent){evnt(11042);if(r)goto S_13528;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1688;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1688;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 0, 0, 1);
if (is_error_pending()) goto skip1688;
skip1688:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11042);}while(r);
fornext_continue_1686:;
}
fornext_exit_1686:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1689;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0, 0, 1);
if (is_error_pending()) goto skip1689;
skip1689:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11043);}while(r);
S_13532:;
fornext_value1691= 1 ;
fornext_finalvalue1691=*(int16*)(((char*)__UDT_ID2)+((0+809)))+ 1 ;
fornext_step1691= 1 ;
if (fornext_step1691<0) fornext_step_negative1691=1; else fornext_step_negative1691=0;
if (is_error_pending()) goto fornext_error1691;
goto fornext_entrylabel1691;
while(1){
fornext_value1691=fornext_step1691+(*__LONG_I);
fornext_entrylabel1691:
*__LONG_I=fornext_value1691;
if (fornext_step_negative1691){
if (fornext_value1691<fornext_finalvalue1691) break;
}else{
if (fornext_value1691>fornext_finalvalue1691) break;
}
fornext_error1691:;
if(qbevent){evnt(11043);if(r)goto S_13532;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1692;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1692;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])), 0, 0, 1);
if (is_error_pending()) goto skip1692;
skip1692:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11043);}while(r);
fornext_continue_1690:;
}
fornext_exit_1690:;
}
S_13536:;
if ((*__LONG_USECALL)||is_error_pending()){
if(qbevent){evnt(11055);if(r)goto S_13536;}
S_13537:;
if ((*(int16*)(((char*)__UDT_ID)+((0+548))))||is_error_pending()){
if(qbevent){evnt(11056);if(r)goto S_13537;}
S_13538:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11057);if(r)goto S_13538;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11057);}while(r);
}
S_13541:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(11058);if(r)goto S_13541;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11058);}while(r);
}
}else{
S_13545:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11060);if(r)goto S_13545;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11060);}while(r);
}
S_13548:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(11061);if(r)goto S_13548;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11061);}while(r);
}
}
}else{
S_13553:;
if ((*(int16*)(((char*)__UDT_ID)+((0+548))))||is_error_pending()){
if(qbevent){evnt(11064);if(r)goto S_13553;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11065);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+256))),256,1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+528))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11067);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11071);}while(r);
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11072);}while(r);
do{
*__LONG_FIELDCALL= 0 ;
if(!qbevent)break;evnt(11074);}while(r);
S_13562:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_get",7)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_put",7)))))||is_error_pending()){
if(qbevent){evnt(11076);if(r)goto S_13562;}
S_13563:;
if ((*__LONG_PASSED& 2 )||is_error_pending()){
if(qbevent){evnt(11077);if(r)goto S_13563;}
do{
*__LONG_PASSED=*__LONG_PASSED- 2 ;
if(!qbevent)break;evnt(11079);}while(r);
}else{
S_13566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_get",7))))||is_error_pending()){
if(qbevent){evnt(11082);if(r)goto S_13566;}
do{
*__LONG_FIELDCALL= 1 ;
if(!qbevent)break;evnt(11083);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11084);}while(r);
}else{
do{
*__LONG_FIELDCALL= 2 ;
if(!qbevent)break;evnt(11086);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11087);}while(r);
}
}
}
S_13575:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_key",7)))))||is_error_pending()){
if(qbevent){evnt(11092);if(r)goto S_13575;}
S_13576:;
if ((-(*__LONG_USECALL== 0 ))||is_error_pending()){
if(qbevent){evnt(11093);if(r)goto S_13576;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11094);}while(r);
}
}
S_13580:;
fornext_value1695= 1 ;
fornext_finalvalue1695=*(int16*)(((char*)__UDT_ID2)+((0+809)));
fornext_step1695= 1 ;
if (fornext_step1695<0) fornext_step_negative1695=1; else fornext_step_negative1695=0;
if (is_error_pending()) goto fornext_error1695;
goto fornext_entrylabel1695;
while(1){
fornext_value1695=fornext_step1695+(*__LONG_I);
fornext_entrylabel1695:
*__LONG_I=fornext_value1695;
if (fornext_step_negative1695){
if (fornext_value1695<fornext_finalvalue1695) break;
}else{
if (fornext_value1695>fornext_finalvalue1695) break;
}
fornext_error1695:;
if(qbevent){evnt(11098);if(r)goto S_13580;}
do{
*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+813))),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11099);}while(r);
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2647))),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11100);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2747))),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11101);}while(r);
do{
*__LONG_ADDLAYOUT= 1 ;
if(!qbevent)break;evnt(11103);}while(r);
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(11104);}while(r);
do{
qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11105);}while(r);
S_13587:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(11106);if(r)goto S_13587;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11107);}while(r);
S_13589:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(11108);if(r)goto S_13589;}
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(11109);}while(r);
do{
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11110);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11111);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(11113);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(11114);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11115);}while(r);
S_13596:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(11116);if(r)goto S_13596;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11116);}while(r);
}
S_13599:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(11117);if(r)goto S_13599;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11118);}while(r);
S_13601:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11119);if(r)goto S_13601;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11119);}while(r);
}
}else{
S_13605:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11121);if(r)goto S_13605;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11121);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(11123);}while(r);
S_13610:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11125);if(r)goto S_13610;}
do{
*__LONG_CONVERTSPACING= 1 ;
if(!qbevent)break;evnt(11125);}while(r);
}
S_13613:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
if(qbevent){evnt(11128);if(r)goto S_13613;}
}
S_13615:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||is_error_pending()){
if(qbevent){evnt(11152);if(r)goto S_13615;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11156);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11157);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11158);}while(r);
}
S_13620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(11161);if(r)goto S_13620;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11162);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11163);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11164);}while(r);
}
S_13625:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11167);if(r)goto S_13625;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11168);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11169);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11170);}while(r);
}
S_13630:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11173);if(r)goto S_13630;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11173);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11173);}while(r);
}
S_13634:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(11176);if(r)goto S_13634;}
S_13635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(11177);if(r)goto S_13635;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11177);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11177);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11178);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11178);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11182);}while(r);
LABEL_CUSTOMLAYCHAR:;
if(qbevent){evnt(11188);r=0;}
S_13643:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(11189);if(r)goto S_13643;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11189);}while(r);
}
S_13646:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(11190);if(r)goto S_13646;}
S_13647:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11191);if(r)goto S_13647;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11191);}while(r);
}
S_13650:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(11192);if(r)goto S_13650;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11192);}while(r);
}
S_13653:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(11193);if(r)goto S_13653;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11193);}while(r);
}
}
S_13657:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_key",7)))))&(-(*__LONG_I==*(int16*)(((char*)__UDT_ID2)+((0+809)))))))||is_error_pending()){
if(qbevent){evnt(11196);if(r)goto S_13657;}
S_13658:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||is_error_pending()){
if(qbevent){evnt(11197);if(r)goto S_13658;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11198);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11202);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(11205);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11206);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11208);}while(r);
dl_continue_1697:;
}
dl_exit_1697:;
S_13669:;
if ((-(*__LONG_TARGETTYP== -3 ))||is_error_pending()){
if(qbevent){evnt(11217);if(r)goto S_13669;}
S_13670:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(11218);if(r)goto S_13670;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11218);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11218);}while(r);
}
do{
qbs_set(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11220);}while(r);
S_13675:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(11222);if(r)goto S_13675;}
do{
qbs_set(__STRING_TRY_STRING,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11223);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11224);}while(r);
S_13678:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11225);if(r)goto S_13678;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11225);}while(r);
}
S_13681:;
do{
if(qbevent){evnt(11226);if(r)goto S_13681;}
S_13682:;
if ((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(11227);if(r)goto S_13682;}
S_13683:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(11228);if(r)goto S_13683;}
S_13684:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11229);if(r)goto S_13684;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11230);}while(r);
do{
goto dl_exit_1702;
if(!qbevent)break;evnt(11231);}while(r);
}
}
S_13689:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11235);if(r)goto S_13689;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11235);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11235);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11235);}while(r);
}
S_13695:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11236);if(r)goto S_13695;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11236);}while(r);
}
}
S_13699:;
if ((-(*__LONG_TRY== 0 ))||is_error_pending()){
if(qbevent){evnt(11238);if(r)goto S_13699;}
S_13700:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||is_error_pending()){
if(qbevent){evnt(11239);if(r)goto S_13700;}
S_13701:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11240);if(r)goto S_13701;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11240);}while(r);
}
do{
*__LONG_A=qbs_asc(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11241);}while(r);
S_13705:;
if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||is_error_pending()){
if(qbevent){evnt(11242);if(r)goto S_13705;}
do{
*__LONG_A=*__LONG_A- 32 ;
if(!qbevent)break;evnt(11242);}while(r);
}
S_13708:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(11243);if(r)goto S_13708;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(11243);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(11244);}while(r);
S_13712:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))->len))||is_error_pending()){
if(qbevent){evnt(11245);if(r)goto S_13712;}
do{
qbs_set(__STRING_TRY_STRING,qbs_add(__STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11245);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11245);}while(r);
}
S_13716:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11246);if(r)goto S_13716;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11246);}while(r);
}
}
}
S_13721:;
dl_continue_1702:;
}while((!(-(*__LONG_TRY== 0 )))&&(!is_error_pending()));
dl_exit_1702:;
if(qbevent){evnt(11249);if(r)goto S_13721;}
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11254);}while(r);
S_13724:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11255);if(r)goto S_13724;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11255);}while(r);
}
S_13727:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11256);if(r)goto S_13727;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11256);}while(r);
}
S_13730:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11257);if(r)goto S_13730;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11257);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11257);}while(r);
}
S_13734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_WAVE",5))))||is_error_pending()){
if(qbevent){evnt(11262);if(r)goto S_13734;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11263);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11265);}while(r);
S_13737:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11266);if(r)goto S_13737;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11266);}while(r);
}
S_13740:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(11269);if(r)goto S_13740;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11270);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11270);}while(r);
}
S_13744:;
if ((((*__LONG_SOURCETYP&*__LONG_ISSTRING))|((*__LONG_SOURCETYP&*__LONG_ISFLOAT))|((*__LONG_SOURCETYP&*__LONG_ISOFFSET))|((*__LONG_SOURCETYP&*__LONG_ISUDT))|((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED))|(-((*__LONG_SOURCETYP& 511 )!= 8 )))||is_error_pending()){
if(qbevent){evnt(11274);if(r)goto S_13744;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11275);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11275);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11278);}while(r);
}
S_13750:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_SNDRAWBATCH",12))))||is_error_pending()){
if(qbevent){evnt(11282);if(r)goto S_13750;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11283);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11285);}while(r);
S_13753:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11286);if(r)goto S_13753;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11286);}while(r);
}
S_13756:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(11289);if(r)goto S_13756;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11290);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11290);}while(r);
}
S_13760:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISFLOAT)== 0 ))|(-((*__LONG_SOURCETYP& 511 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(11294);if(r)goto S_13760;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11295);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11295);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11298);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1705= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11303);}while(r);
S_13767:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11304);if(r)goto S_13767;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11304);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11305);}while(r);
}
S_13772:;
if ((-(*__LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(11309);if(r)goto S_13772;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11310);}while(r);
S_13774:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11311);if(r)goto S_13774;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11311);}while(r);
}
S_13777:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11312);if(r)goto S_13777;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11312);}while(r);
}
S_13780:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11313);if(r)goto S_13780;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11313);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11313);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1707= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11314);}while(r);
S_13785:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11315);if(r)goto S_13785;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11315);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11316);}while(r);
}
S_13790:;
if ((-(*__LONG_TARGETTYP== -4 ))||is_error_pending()){
if(qbevent){evnt(11319);if(r)goto S_13790;}
S_13791:;
if ((*__LONG_FIELDCALL)||is_error_pending()){
if(qbevent){evnt(11321);if(r)goto S_13791;}
do{
*__LONG_I=*(int16*)(((char*)__UDT_ID2)+((0+809)))+ 1 ;
if(!qbevent)break;evnt(11322);}while(r);
do{
goto fornext_exit_1694;
if(!qbevent)break;evnt(11323);}while(r);
}
S_13795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(11326);if(r)goto S_13795;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable name/array element",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11326);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11326);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11327);}while(r);
S_13800:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11328);if(r)goto S_13800;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11328);}while(r);
}
S_13803:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11329);if(r)goto S_13803;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11329);}while(r);
}
S_13806:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11330);if(r)goto S_13806;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11330);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11330);}while(r);
}
S_13810:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PUT",3)))))||is_error_pending()){
if(qbevent){evnt(11333);if(r)goto S_13810;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11334);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11335);}while(r);
S_13813:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11336);if(r)goto S_13813;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11336);}while(r);
}
S_13816:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11337);if(r)goto S_13816;}
S_13817:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(11338);if(r)goto S_13817;}
do{
qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11340);}while(r);
S_13819:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
if(qbevent){evnt(11342);if(r)goto S_13819;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_get2",8),__STRING_SUBCALL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11343);}while(r);
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1710= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11344);}while(r);
S_13822:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11345);if(r)goto S_13822;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11345);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11346);}while(r);
}else{
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_put2",8),__STRING_SUBCALL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11348);}while(r);
}
}
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11353);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1711= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11356);}while(r);
S_13834:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11357);if(r)goto S_13834;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11357);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11358);}while(r);
}
S_13839:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||is_error_pending()){
if(qbevent){evnt(11361);if(r)goto S_13839;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11362);}while(r);
}else{
do{
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11365);}while(r);
S_13843:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11366);if(r)goto S_13843;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11366);}while(r);
}
S_13846:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11367);if(r)goto S_13846;}
do{
qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11367);}while(r);
}
S_13849:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11368);if(r)goto S_13849;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11368);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11368);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11370);}while(r);
S_13854:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11371);if(r)goto S_13854;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11371);}while(r);
}
S_13857:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(11373);if(r)goto S_13857;}
S_13858:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(11374);if(r)goto S_13858;}
S_13859:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11375);if(r)goto S_13859;}
do{
*__LONG_TARGETTYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(11376);}while(r);
}
}
}
S_13864:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(11381);if(r)goto S_13864;}
do{
*__LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(11381);}while(r);
}else{
do{
*__LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(11381);}while(r);
}
S_13869:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11384);if(r)goto S_13869;}
S_13870:;
if ((-(*__LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(11385);if(r)goto S_13870;}
S_13871:;
if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11388);if(r)goto S_13871;}
S_13872:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(11389);if(r)goto S_13872;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11389);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11389);}while(r);
}
S_13876:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(11390);if(r)goto S_13876;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11390);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11390);}while(r);
}
S_13880:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11391);if(r)goto S_13880;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1713;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:[",21),__STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1713;
skip1713:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11391);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(11394);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(11394);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(11395);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(11396);}while(r);
S_13887:;
if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(11397);if(r)goto S_13887;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11397);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11397);}while(r);
}
S_13891:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
if(qbevent){evnt(11401);if(r)goto S_13891;}
}else{
do{
*__LONG_S1=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11404);}while(r);
S_13894:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11405);if(r)goto S_13894;}
do{
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11406);}while(r);
}else{
do{
*__LONG_S2= 0 ;
if(!qbevent)break;evnt(11408);}while(r);
}
S_13899:;
if ((*__LONG_S2)||is_error_pending()){
if(qbevent){evnt(11411);if(r)goto S_13899;}
do{
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11412);}while(r);
}else{
do{
*__LONG_S3= 0 ;
if(!qbevent)break;evnt(11414);}while(r);
}
S_13904:;
if ((-(*__LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(11417);if(r)goto S_13904;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11417);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11417);}while(r);
}
do{
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_S2+1,*__LONG_S3-*__LONG_S2-1,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11419);}while(r);
do{
qbs_set(__STRING_O,func_mid(__STRING_E,*__LONG_S3+1,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11420);}while(r);
S_13910:;
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(11422);if(r)goto S_13910;}
S_13911:;
if ((-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11423);if(r)goto S_13911;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11423);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11423);}while(r);
}
S_13915:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4)))|(qbs_equal(qbs_left(__STRING_O, 5 ),qbs_new_txt_len("((0)*",5))))){
if(qbevent){evnt(11425);if(r)goto S_13915;}
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11428);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11428);}while(r);
}
}
}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11432);}while(r);
do{
SUB_GETID(__LONG_IDNUM);
if(!qbevent)break;evnt(11433);}while(r);
S_13923:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11434);if(r)goto S_13923;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11434);}while(r);
}
S_13926:;
if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(11436);if(r)goto S_13926;}
do{
*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+1213))),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11437);}while(r);
S_13928:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!=*__LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(11438);if(r)goto S_13928;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11438);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11438);}while(r);
}
}
S_13933:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11441);if(r)goto S_13933;}
S_13934:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11442);if(r)goto S_13934;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(11443);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11444);}while(r);
}
}
S_13939:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2847)))== 0 ))||is_error_pending()){
if(qbevent){evnt(11448);if(r)goto S_13939;}
S_13940:;
if ((-(*__LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(11454);if(r)goto S_13940;}
S_13941:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))> 0 ))||is_error_pending()){
if(qbevent){evnt(11458);if(r)goto S_13941;}
do{
*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(11460);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2747))),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1);
if(!qbevent)break;evnt(11461);}while(r);
}
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 0),(((char*)__UDT_ID2)+((0+0))+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 256),(((char*)__UDT_ID2)+((0+0))+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 512),(((char*)__UDT_ID2)+((0+0))+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 516),(((char*)__UDT_ID2)+((0+0))+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 518),(((char*)__UDT_ID2)+((0+0))+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 528),(((char*)__UDT_ID2)+((0+0))+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 536),(((char*)__UDT_ID2)+((0+0))+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 540),(((char*)__UDT_ID2)+((0+0))+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 546),(((char*)__UDT_ID2)+((0+0))+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 548),(((char*)__UDT_ID2)+((0+0))+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 806),(((char*)__UDT_ID2)+((0+0))+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 808),(((char*)__UDT_ID2)+((0+0))+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 809),(((char*)__UDT_ID2)+((0+0))+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 811),(((char*)__UDT_ID2)+((0+0))+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1213),(((char*)__UDT_ID2)+((0+0))+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1613),(((char*)__UDT_ID2)+((0+0))+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1869),(((char*)__UDT_ID2)+((0+0))+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2125),(((char*)__UDT_ID2)+((0+0))+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2381),(((char*)__UDT_ID2)+((0+0))+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2641),(((char*)__UDT_ID2)+((0+0))+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2647),(((char*)__UDT_ID2)+((0+0))+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2747),(((char*)__UDT_ID2)+((0+0))+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2847),(((char*)__UDT_ID2)+((0+0))+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2853),(((char*)__UDT_ID2)+((0+0))+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2855),(((char*)__UDT_ID2)+((0+0))+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2859),(((char*)__UDT_ID2)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2861), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2861));
if(!qbevent)break;evnt(11467);}while(r);
}else{
S_13947:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!=*__LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(11474);if(r)goto S_13947;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11474);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11474);}while(r);
}
}
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1719= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11480);}while(r);
S_13954:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11481);if(r)goto S_13954;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11481);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11482);}while(r);
}
S_13959:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11489);if(r)goto S_13959;}
S_13960:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11490);if(r)goto S_13960;}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11491);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(11493);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(11493);}while(r);
do{
*__LONG_ARR= 0 ;
if(!qbevent)break;evnt(11496);}while(r);
S_13965:;
if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11496);if(r)goto S_13965;}
do{
*__LONG_ARR= 1 ;
if(!qbevent)break;evnt(11496);}while(r);
}
do{
*__LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(11497);}while(r);
S_13969:;
if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(11497);if(r)goto S_13969;}
do{
*__LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(11497);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(11497);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(11500);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(11501);}while(r);
S_13975:;
if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(11504);if(r)goto S_13975;}
S_13976:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11506);if(r)goto S_13976;}
do{
*__LONG_UDTREFID=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11510);}while(r);
do{
SUB_GETID(__LONG_UDTREFID);
if(!qbevent)break;evnt(11511);}while(r);
S_13979:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11512);if(r)goto S_13979;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11512);}while(r);
}
do{
*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11513);}while(r);
do{
*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11514);}while(r);
do{
*__LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11515);}while(r);
do{
*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11516);}while(r);
do{
*__LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11517);}while(r);
do{
qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11518);}while(r);
S_13988:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(11521);if(r)goto S_13988;}
do{
qbs_set(__STRING_N,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11522);}while(r);
}else{
do{
qbs_set(__STRING_N,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11524);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),__STRING_N),qbs_new_txt_len(")) + (",6)),__STRING_O),qbs_new_txt_len(") )",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11527);}while(r);
S_13994:;
if ((*__LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(11530);if(r)goto S_13994;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1721=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11530);}while(r);
}
S_13997:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11531);if(r)goto S_13997;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11531);}while(r);
}
}else{
S_14001:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(11535);if(r)goto S_14001;}
S_14002:;
if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(11536);if(r)goto S_14002;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass _BIT array offsets",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11536);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11536);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1722= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11537);}while(r);
S_14007:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11538);if(r)goto S_14007;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11538);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1723= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11540);}while(r);
S_14012:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11541);if(r)goto S_14012;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11541);}while(r);
}
}
S_14016:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(11545);if(r)goto S_14016;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1724=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11546);}while(r);
S_14018:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11547);if(r)goto S_14018;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11547);}while(r);
}
}
}
S_14023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11552);if(r)goto S_14023;}
S_14024:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11553);if(r)goto S_14024;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(11554);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11555);}while(r);
}
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11559);}while(r);
}
}
}else{
S_14033:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11564);if(r)goto S_14033;}
do{
*__LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11565);}while(r);
S_14035:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11566);if(r)goto S_14035;}
S_14036:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(11567);if(r)goto S_14036;}
do{
tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(11568);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11569);}while(r);
}
}
}
}
}
}
S_14045:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11581);if(r)goto S_14045;}
S_14046:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11582);if(r)goto S_14046;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11583);}while(r);
S_14048:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(11584);if(r)goto S_14048;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11584);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11584);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a string",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11585);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11585);}while(r);
}
}
S_14056:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11588);if(r)goto S_14056;}
S_14057:;
if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11589);if(r)goto S_14057;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11590);}while(r);
S_14059:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(11591);if(r)goto S_14059;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11591);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11591);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a number",31)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11592);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11592);}while(r);
}
}
S_14067:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11597);if(r)goto S_14067;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1725= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11598);}while(r);
S_14069:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11599);if(r)goto S_14069;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11599);}while(r);
}
}
S_14073:;
if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(11602);if(r)goto S_14073;}
S_14074:;
if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11603);if(r)goto S_14074;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(11604);}while(r);
do{
qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11605);}while(r);
S_14077:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809)))== 1 ))||is_error_pending()){
if(qbevent){evnt(11606);if(r)goto S_14077;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),__STRING_X),qbs_new_txt_len(" required for sub",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11606);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11606);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires TYPE ",28)),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11607);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11607);}while(r);
}
}else{
S_14085:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11610);if(r)goto S_14085;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11610);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11610);}while(r);
}
}
S_14090:;
if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(11614);if(r)goto S_14090;}
S_14091:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(11615);if(r)goto S_14091;}
do{
*__LONG_BITS=*__LONG_TARGETTYP& 511 ;
if(!qbevent)break;evnt(11617);}while(r);
S_14093:;
if ((-(*__LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(11618);if(r)goto S_14093;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11618);}while(r);
}
S_14096:;
if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(11619);if(r)goto S_14096;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11619);}while(r);
}
S_14099:;
if ((-(*__LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(11620);if(r)goto S_14099;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11620);}while(r);
}
}
}
S_14104:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11624);if(r)goto S_14104;}
S_14105:;
if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11625);if(r)goto S_14105;}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11625);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TARGETTYP,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11626);}while(r);
S_14109:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11627);if(r)goto S_14109;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11627);}while(r);
}
do{
qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11628);}while(r);
S_14113:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(11630);if(r)goto S_14113;}
do{
*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/  8 ;
if(!qbevent)break;evnt(11631);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" *",2)),__STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11632);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1726=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11633);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1727=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*__LONG_BYTESREQ),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11634);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1728=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_V,qbs_new_txt_len("=(",2)),__STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11635);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1729=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11636);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1730=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11637);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(*",3),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11638);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1731=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_V),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11640);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(",2),__STRING_V),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11641);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11643);}while(r);
}
}
LABEL_SETE:;
if(qbevent){evnt(11648);r=0;}
S_14129:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(11650);if(r)goto S_14129;}
S_14130:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(11651);if(r)goto S_14130;}
S_14131:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11652);if(r)goto S_14131;}
do{
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(qbs*)",6),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11653);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(qbs_new_txt_len("(uint32)",8),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11655);}while(r);
}
}
}
S_14138:;
if ((*(int16*)(((char*)__UDT_ID2)+((0+806))))||is_error_pending()){
if(qbevent){evnt(11660);if(r)goto S_14138;}
S_14139:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
if(qbevent){evnt(11663);if(r)goto S_14139;}
do{
qbs_set(__STRING_E,FUNC_REMOVECAST(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11664);}while(r);
}
S_14142:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(11667);if(r)goto S_14142;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(char*)(",8),__STRING_E),qbs_new_txt_len(")->chr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11668);}while(r);
}
S_14145:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(11671);if(r)goto S_14145;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11671);}while(r);
}
}
S_14149:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(11675);if(r)goto S_14149;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11675);}while(r);
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11676);}while(r);
fornext_continue_1694:;
}
fornext_exit_1694:;
do{
qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11680);}while(r);
S_14155:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(11681);if(r)goto S_14155;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11682);}while(r);
S_14157:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(11683);if(r)goto S_14157;}
do{
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11684);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11685);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(11687);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(11688);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11689);}while(r);
S_14163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(11690);if(r)goto S_14163;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11690);}while(r);
}
S_14166:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(11691);if(r)goto S_14166;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11692);}while(r);
S_14168:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11693);if(r)goto S_14168;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11693);}while(r);
}
}else{
S_14172:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(11696);if(r)goto S_14172;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11696);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(11699);}while(r);
S_14177:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||is_error_pending()){
if(qbevent){evnt(11701);if(r)goto S_14177;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11702);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11703);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11704);}while(r);
}
S_14182:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(11707);if(r)goto S_14182;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11708);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11709);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11710);}while(r);
}
S_14187:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11713);if(r)goto S_14187;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11714);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11715);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11716);}while(r);
}
S_14192:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11719);if(r)goto S_14192;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11719);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11719);}while(r);
}
S_14196:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(11721);if(r)goto S_14196;}
S_14197:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(11722);if(r)goto S_14197;}
do{
qbs_set(__STRING_X2,qbs_add(FUNC_SCASE(qbs_new_txt_len("Step",4)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11722);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11722);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11723);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(11723);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11727);}while(r);
LABEL_CUSTOMLAYCHAR2:;
if(qbevent){evnt(11728);r=0;}
S_14205:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(11729);if(r)goto S_14205;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11729);}while(r);
}
S_14208:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(11730);if(r)goto S_14208;}
S_14209:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11731);if(r)goto S_14209;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11731);}while(r);
}
S_14212:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(11732);if(r)goto S_14212;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11732);}while(r);
}
S_14215:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(11733);if(r)goto S_14215;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11733);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11735);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(11738);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11739);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11741);}while(r);
dl_continue_1733:;
}
dl_exit_1733:;
S_14226:;
if ((*__LONG_PASSEDNEEDED)||is_error_pending()){
if(qbevent){evnt(11749);if(r)goto S_14226;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),qbs__tostr((int32)(*__LONG_PASSED),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11750);}while(r);
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11752);}while(r);
S_14230:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(11754);if(r)goto S_14230;}
S_14231:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(11755);if(r)goto S_14231;}
do{
SUB_WRITEBUFLINE(&(pass1737=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11756);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1738=*__LONG_MAINTXTBUF),__STRING_SUBCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11760);}while(r);
S_14236:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(11762);if(r)goto S_14236;}
S_14237:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(11763);if(r)goto S_14237;}
do{
SUB_WRITEBUFLINE(&(pass1739=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11764);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11768);}while(r);
S_14242:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(11769);if(r)goto S_14242;}
do{
SUB_WRITEBUFLINE(&(pass1740=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11769);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11771);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11772);}while(r);
S_14247:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||is_error_pending()){
if(qbevent){evnt(11772);if(r)goto S_14247;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11772);}while(r);
}
S_14250:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11773);if(r)goto S_14250;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11773);}while(r);
}
S_14253:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11774);if(r)goto S_14253;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1742;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("SUB layout:[",12),__STRING_L),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1742;
skip1742:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11774);}while(r);
}
S_14256:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(11775);if(r)goto S_14256;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11775);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11775);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11776);}while(r);
}
S_14263:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11781);if(r)goto S_14263;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11782);}while(r);
S_14265:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(11782);if(r)goto S_14265;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1744= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11782);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11783);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11784);}while(r);
S_14270:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11785);if(r)goto S_14270;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11785);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11787);}while(r);
}
dl_continue_1564:;
}
dl_exit_1564:;
}
LABEL_NOTSUBCALL:;
if(qbevent){evnt(11793);r=0;}
S_14278:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(11795);if(r)goto S_14278;}
S_14279:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||is_error_pending()){
if(qbevent){evnt(11796);if(r)goto S_14279;}
S_14280:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(11797);if(r)goto S_14280;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)",83));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11797);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11797);}while(r);
}
do{
qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11798);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(11799);}while(r);
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Let",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11800);}while(r);
S_14287:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11801);if(r)goto S_14287;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11801);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11801);}while(r);
}
do{
goto LABEL_LETUSED;
if(!qbevent)break;evnt(11803);}while(r);
}
}
S_14295:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(11808);if(r)goto S_14295;}
S_14296:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1)),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(11809);if(r)goto S_14296;}
LABEL_LETUSED:;
if(qbevent){evnt(11810);r=0;}
do{
SUB_ASSIGN(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11811);}while(r);
S_14298:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11812);if(r)goto S_14298;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11812);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11813);}while(r);
S_14302:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(11814);if(r)goto S_14302;}
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11814);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11814);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11815);}while(r);
}
}
S_14310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||is_error_pending()){
if(qbevent){evnt(11818);if(r)goto S_14310;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11818);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11818);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11821);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11821);}while(r);
LABEL_FINISHEDLINE:;
if(qbevent){evnt(11823);r=0;}
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(11824);}while(r);
LABEL_FINISHEDLINE2:;
if(qbevent){evnt(11825);r=0;}
S_14317:;
if ((*__BYTE_INPUTFUNCTIONCALLED)||is_error_pending()){
if(qbevent){evnt(11827);if(r)goto S_14317;}
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(11828);}while(r);
S_14319:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(11829);if(r)goto S_14319;}
do{
SUB_WRITEBUFLINE(&(pass1748=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11830);}while(r);
}
}
S_14323:;
if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(11834);if(r)goto S_14323;}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(11834);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11836);}while(r);
S_14327:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(11837);if(r)goto S_14327;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11838);}while(r);
do{
qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11839);}while(r);
do{
qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11840);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11841);}while(r);
}
S_14333:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(11843);if(r)goto S_14333;}
S_14334:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(11844);if(r)goto S_14334;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11844);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11844);}while(r);
}
S_14339:;
if ((*__LONG_DYNSCOPE)||is_error_pending()){
if(qbevent){evnt(11845);if(r)goto S_14339;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(11846);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1750=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),qbs__tostr((int32)(*__LONG_STATEMENTN),NULL,0)),qbs_new_txt_len(";}",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11847);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1751=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(!qbevent)break;",18),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11849);}while(r);
}
}
LABEL_FINISHEDNONEXEC:;
if(qbevent){evnt(11853);r=0;}
S_14346:;
if ((-(*__LONG_LAYOUTDONE== 0 ))||is_error_pending()){
if(qbevent){evnt(11855);if(r)goto S_14346;}
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(11855);}while(r);
}
S_14349:;
if ((-(*__LONG_CONTINUELINEFROM== 0 ))||is_error_pending()){
if(qbevent){evnt(11857);if(r)goto S_14349;}
S_14350:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(11860);if(r)goto S_14350;}
S_14351:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11862);if(r)goto S_14351;}
do{
qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11864);}while(r);
do{
*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK;
if(!qbevent)break;evnt(11865);}while(r);
do{
qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11866);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL_BACKUP,__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11867);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE_BACKUP,__STRING_IDECOMPILEDLINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11868);}while(r);
do{
*__LONG_IDEAUTOINDENT_BACKUP=*__LONG_IDEAUTOINDENT;
if(!qbevent)break;evnt(11869);}while(r);
do{
*__LONG_IDEAUTOLAYOUT_BACKUP=*__LONG_IDEAUTOLAYOUT;
if(!qbevent)break;evnt(11870);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11873);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11873);}while(r);
S_14362:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11875);if(r)goto S_14362;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(11876);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(11877);}while(r);
LABEL_AUTOINCLUDE:;
if(qbevent){evnt(11878);r=0;}
S_14365:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(11879);if(r)goto S_14365;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1753=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11880);}while(r);
S_14367:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(11881);if(r)goto S_14367;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(11881);}while(r);
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(11881);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(11882);}while(r);
S_14372:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_A, 18 ),qbs_new_txt_len("beforefirstline.bi",18)))|(qbs_equal(qbs_right(__STRING_A, 16 ),qbs_new_txt_len("afterlastline.bm",16)))))||is_error_pending()){
if(qbevent){evnt(11883);if(r)goto S_14372;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(11884);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(11886);}while(r);
}
}
S_14378:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(11890);if(r)goto S_14378;}
S_14379:;
fornext_value1755= 200 ;
fornext_finalvalue1755= 299 ;
fornext_step1755= 1 ;
if (fornext_step1755<0) fornext_step_negative1755=1; else fornext_step_negative1755=0;
if (is_error_pending()) goto fornext_error1755;
goto fornext_entrylabel1755;
while(1){
fornext_value1755=fornext_step1755+(*__LONG_FH);
fornext_entrylabel1755:
*__LONG_FH=fornext_value1755;
if (fornext_step_negative1755){
if (fornext_value1755<fornext_finalvalue1755) break;
}else{
if (fornext_value1755>fornext_finalvalue1755) break;
}
fornext_error1755:;
if(qbevent){evnt(11891);if(r)goto S_14379;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11891);}while(r);
fornext_continue_1754:;
}
fornext_exit_1754:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11892);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11892);}while(r);
}
S_14385:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len(".\\",2)))|(qbs_equal(qbs_left(__STRING_A, 2 ),qbs_new_txt_len("./",2)))))||is_error_pending()){
if(qbevent){evnt(11895);if(r)goto S_14385;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11895);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(11896);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(11898);}while(r);
S_14390:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(11899);if(r)goto S_14390;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(11899);}while(r);
}
S_14393:;
fornext_value1757=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue1757= 2 ;
fornext_step1757= 1 ;
if (fornext_step1757<0) fornext_step_negative1757=1; else fornext_step_negative1757=0;
if (is_error_pending()) goto fornext_error1757;
goto fornext_entrylabel1757;
while(1){
fornext_value1757=fornext_step1757+(*__LONG_TRY);
fornext_entrylabel1757:
*__LONG_TRY=fornext_value1757;
if (fornext_step_negative1757){
if (fornext_value1757<fornext_finalvalue1757) break;
}else{
if (fornext_value1757>fornext_finalvalue1757) break;
}
fornext_error1757:;
if(qbevent){evnt(11900);if(r)goto S_14393;}
S_14394:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(11901);if(r)goto S_14394;}
S_14395:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11902);if(r)goto S_14395;}
S_14396:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11903);if(r)goto S_14396;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11903);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11903);}while(r);
}
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11905);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11907);}while(r);
}
S_14406:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11909);if(r)goto S_14406;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11909);}while(r);
}
S_14409:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(11910);if(r)goto S_14409;}
do{
*__INTEGER_QBERRORHAPPENED= -2 ;
if(!qbevent)break;evnt(11911);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11912);}while(r);
LABEL_QBERRORHAPPENED2:;
if(qbevent){evnt(11913);r=0;}
S_14412:;
if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||is_error_pending()){
if(qbevent){evnt(11914);if(r)goto S_14412;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11916);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11917);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11918);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11919);}while(r);
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11920);}while(r);
S_14418:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(11921);if(r)goto S_14418;}
S_14419:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(11922);if(r)goto S_14419;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_new_txt_len("$INCLUDEONCE",12),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11922);}while(r);
}
S_14422:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(11923);if(r)goto S_14422;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),i2string( 2573 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11924);}while(r);
S_14424:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(11925);if(r)goto S_14424;}
do{
*__LONG_INCPOS=func_instr(NULL,__STRING_INCDAT,qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("$INCLUDEONCE",12)),func_chr( 10 )),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11925);}while(r);
}
}
}
S_14429:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(11928);if(r)goto S_14429;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass1758=*__LONG_INCONEBUF),&(pass1759= 0 ),&(pass1760= -22ll ));
if(!qbevent)break;evnt(11929);}while(r);
S_14431:;
while((~(FUNC_ENDOFBUF(&(pass1762=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(11930);if(r)goto S_14431;}
S_14432:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass1763=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(11931);if(r)goto S_14432;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11932);}while(r);
do{
goto LABEL_SKIPINC2;
if(!qbevent)break;evnt(11933);}while(r);
}
ww_continue_1761:;
}
ww_exit_1761:;
}
do{
SUB_WRITEBUFLINE(&(pass1764=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11937);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1765=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("INCL: ",6),func__fullpath(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11938);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11939);}while(r);
do{
goto fornext_exit_1756;
if(!qbevent)break;evnt(11941);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11944);}while(r);
fornext_continue_1756:;
}
fornext_exit_1756:;
S_14446:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||is_error_pending()){
if(qbevent){evnt(11946);if(r)goto S_14446;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(11946);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11946);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11946);}while(r);
}
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(11947);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11947);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(11947);}while(r);
}
S_14455:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(11950);if(r)goto S_14455;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(11951);}while(r);
S_14457:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(11953);if(r)goto S_14457;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip1767;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip1767;
skip1767:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11954);}while(r);
do{
qbs_set(__STRING_A3,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11955);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(11956);}while(r);
do{
tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ;
if(!qbevent)break;evnt(11957);}while(r);
do{
*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])];
if(!qbevent)break;evnt(11959);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),qbs__tostr((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]),NULL,0)),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11960);}while(r);
S_14464:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11961);if(r)goto S_14464;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" auto-included",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11961);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" included",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11961);}while(r);
}
S_14469:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(11962);if(r)goto S_14469;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11963);}while(r);
S_14471:;
fornext_value1769= 1 ;
fornext_finalvalue1769=*__LONG_INCLEVEL- 1 ;
fornext_step1769= 1 ;
if (fornext_step1769<0) fornext_step_negative1769=1; else fornext_step_negative1769=0;
if (is_error_pending()) goto fornext_error1769;
goto fornext_entrylabel1769;
while(1){
fornext_value1769=fornext_step1769+(*__LONG_X);
fornext_entrylabel1769:
*__LONG_X=fornext_value1769;
if (fornext_step_negative1769){
if (fornext_value1769<fornext_finalvalue1769) break;
}else{
if (fornext_value1769>fornext_finalvalue1769) break;
}
fornext_error1769:;
if(qbevent){evnt(11964);if(r)goto S_14471;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11965);}while(r);
S_14473:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(11966);if(r)goto S_14473;}
S_14474:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(11967);if(r)goto S_14474;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11968);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11970);}while(r);
}
}
fornext_continue_1768:;
}
fornext_exit_1768:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11974);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11976);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(11977);}while(r);
S_14485:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(11978);if(r)goto S_14485;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11978);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(11978);}while(r);
}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(11979);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(11982);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(11983);}while(r);
LABEL_SKIPINC2:;
if(qbevent){evnt(11984);r=0;}
S_14493:;
if ((((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 ))))||is_error_pending()){
if(qbevent){evnt(11985);if(r)goto S_14493;}
S_14494:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11986);if(r)goto S_14494;}
S_14495:;
if ((~(FUNC_ENDOFBUF(&(pass1770=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(11987);if(r)goto S_14495;}
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(11987);}while(r);
}
}
S_14499:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(11989);if(r)goto S_14499;}
do{
*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP;
if(!qbevent)break;evnt(11991);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11992);}while(r);
do{
qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11993);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTORIGINAL_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11994);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_IDECOMPILEDLINE_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11995);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_IDEAUTOINDENT_BACKUP;
if(!qbevent)break;evnt(11996);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_IDEAUTOLAYOUT_BACKUP;
if(!qbevent)break;evnt(11997);}while(r);
}
S_14508:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(11999);if(r)goto S_14508;}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(12000);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(12001);}while(r);
}
}
dl_continue_1766:;
}
dl_exit_1766:;
}
S_14515:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12010);if(r)goto S_14515;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1771;
sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1);
if (is_error_pending()) goto skip1771;
skip1771:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12011);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1772;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUTORIGINAL),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1772;
skip1772:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12012);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1773;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUT),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip1773;
skip1773:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12013);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1774;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1);
if (is_error_pending()) goto skip1774;
skip1774:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12014);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1775;
sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1);
if (is_error_pending()) goto skip1775;
skip1775:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12015);}while(r);
}
S_14522:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(12018);if(r)goto S_14522;}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(12018);}while(r);
}
S_14525:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||is_error_pending()){
if(qbevent){evnt(12020);if(r)goto S_14525;}
S_14526:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(12021);if(r)goto S_14526;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_LAYOUTCOMMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12021);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12021);}while(r);
}
}
S_14532:;
if ((-(*__LONG_LAYOUTOK== 0 ))||is_error_pending()){
if(qbevent){evnt(12024);if(r)goto S_14532;}
do{
qbs_set(__STRING_LAYOUT,qbs__trim(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12025);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,FUNC_STRREPLACE(__STRING_LAYOUT,__STRING_FIX046,qbs_new_txt_len(".",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12028);}while(r);
}
do{
*__LONG_X=*__LONG_LHSCONTROLLEVEL;
if(!qbevent)break;evnt(12030);}while(r);
S_14538:;
if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||is_error_pending()){
if(qbevent){evnt(12030);if(r)goto S_14538;}
do{
*__LONG_X=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(12030);}while(r);
}
S_14541:;
if ((-(*__LONG_DEFININGTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(12031);if(r)goto S_14541;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12031);}while(r);
}
S_14544:;
if ((-(*__LONG_DEFININGTYPE> 0 ))||is_error_pending()){
if(qbevent){evnt(12032);if(r)goto S_14544;}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(12032);}while(r);
}
S_14547:;
if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||is_error_pending()){
if(qbevent){evnt(12033);if(r)goto S_14547;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12033);}while(r);
}
S_14550:;
if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||is_error_pending()){
if(qbevent){evnt(12034);if(r)goto S_14550;}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(12034);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__LONG_X),__STRING_LAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12035);}while(r);
S_14554:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(12036);if(r)goto S_14554;}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12036);}while(r);
}
S_14557:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12038);if(r)goto S_14557;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(12038);}while(r);
}
S_14560:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(12039);if(r)goto S_14560;}
do{
goto dl_exit_383;
if(!qbevent)break;evnt(12039);}while(r);
}
LABEL_SKIP_INVALIDATED_LINE:;
if(qbevent){evnt(12041);r=0;}
S_14563:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(12042);if(r)goto S_14563;}
S_14564:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(12043);if(r)goto S_14564;}
do{
SUB_WRITEBUFLINE(&(pass1778=*__LONG_FORMATBUF),qbs_add(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTCONTINUATIONS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12046);}while(r);
}else{
do{
qbs_set(__STRING_INDENTED,FUNC_APPLY_LAYOUT_INDENT(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12048);}while(r);
S_14568:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_INDENTED->len))||is_error_pending()){
if(qbevent){evnt(12049);if(r)goto S_14568;}
do{
SUB_WRITEBUFLINE(&(pass1780=*__LONG_FORMATBUF),__STRING_INDENTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12049);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1781=*__LONG_FORMATBUF),__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12049);}while(r);
}
}
}
dl_continue_383:;
}while(1);
dl_exit_383:;
S_14576:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(12055);if(r)goto S_14576;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(12056);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(12057);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12058);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(12059);}while(r);
}
LABEL_IDE5:;
if(qbevent){evnt(12062);r=0;}
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(12063);}while(r);
do{
SUB_CLOSEMAIN();
if(!qbevent)break;evnt(12064);}while(r);
S_14584:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(12066);if(r)goto S_14584;}
do{
*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR;
if(!qbevent)break;evnt(12066);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("TYPE without END TYPE",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12066);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12066);}while(r);
}
S_14589:;
if ((*__INTEGER_CONTROLLEVEL)||is_error_pending()){
if(qbevent){evnt(12069);if(r)goto S_14589;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12070);}while(r);
S_14591:;
sc_1782=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(12071);if(r)goto S_14591;}
S_14592:;
if (((sc_1782==( 1 )))||is_error_pending()){
if(qbevent){evnt(12072);if(r)goto S_14592;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12072);}while(r);
sc_ec_37_end:;
goto sc_1782_end;
}
S_14594:;
if (((sc_1782==( 2 )))||is_error_pending()){
if(qbevent){evnt(12073);if(r)goto S_14594;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12073);}while(r);
sc_ec_38_end:;
goto sc_1782_end;
}
S_14596:;
if (((sc_1782==( 3 ))||(sc_1782==( 4 )))||is_error_pending()){
if(qbevent){evnt(12074);if(r)goto S_14596;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12074);}while(r);
sc_ec_39_end:;
goto sc_1782_end;
}
S_14598:;
if (((sc_1782==( 5 )))||is_error_pending()){
if(qbevent){evnt(12075);if(r)goto S_14598;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12075);}while(r);
sc_ec_40_end:;
goto sc_1782_end;
}
S_14600:;
if (((sc_1782==( 6 )))||is_error_pending()){
if(qbevent){evnt(12076);if(r)goto S_14600;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12076);}while(r);
sc_ec_41_end:;
goto sc_1782_end;
}
S_14602:;
if ((((sc_1782>=( 10 ))&&(sc_1782<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(12077);if(r)goto S_14602;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12077);}while(r);
sc_ec_42_end:;
goto sc_1782_end;
}
S_14604:;
if (((sc_1782==( 32 )))||is_error_pending()){
if(qbevent){evnt(12078);if(r)goto S_14604;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12078);}while(r);
sc_ec_43_end:;
goto sc_1782_end;
}
sc_1782_end:;
do{
*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])];
if(!qbevent)break;evnt(12080);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12081);}while(r);
}
S_14610:;
if ((-(*__LONG_IDEINDENTSUBS== 0 ))||is_error_pending()){
if(qbevent){evnt(12084);if(r)goto S_14610;}
S_14611:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(12085);if(r)goto S_14611;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12085);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12085);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1784=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12089);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1785=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12090);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12093);}while(r);
S_14619:;
fornext_value1787= 1 ;
fornext_finalvalue1787=*__LONG_IDN;
fornext_step1787= 1 ;
if (fornext_step1787<0) fornext_step_negative1787=1; else fornext_step_negative1787=0;
if (is_error_pending()) goto fornext_error1787;
goto fornext_entrylabel1787;
while(1){
fornext_value1787=fornext_step1787+(*__LONG_I);
fornext_entrylabel1787:
*__LONG_I=fornext_value1787;
if (fornext_step_negative1787){
if (fornext_value1787<fornext_finalvalue1787) break;
}else{
if (fornext_value1787>fornext_finalvalue1787) break;
}
fornext_error1787:;
if(qbevent){evnt(12095);if(r)goto S_14619;}
S_14620:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2853))))||is_error_pending()){
if(qbevent){evnt(12097);if(r)goto S_14620;}
do{
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12098);}while(r);
do{
goto LABEL_CLEARSTATICSCOPE;
if(!qbevent)break;evnt(12099);}while(r);
}
do{
*__LONG_A=qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385))),256,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12102);}while(r);
S_14625:;
if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||is_error_pending()){
if(qbevent){evnt(12103);if(r)goto S_14625;}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12104);}while(r);
LABEL_CLEARSTATICSCOPE:;
if(qbevent){evnt(12105);r=0;}
S_14627:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))))||is_error_pending()){
if(qbevent){evnt(12107);if(r)goto S_14627;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12108);}while(r);
S_14629:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12109);if(r)goto S_14629;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12109);}while(r);
}
S_14632:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(12110);if(r)goto S_14632;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(12110);}while(r);
}
S_14635:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1))),qbs_new_txt_len("@",1)),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(12111);if(r)goto S_14635;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(12112);}while(r);
}
do{
*__LONG_CLEARERASERETURN= 1 ;
if(!qbevent)break;evnt(12114);}while(r);
do{
goto LABEL_CLEARERASE;
if(!qbevent)break;evnt(12114);}while(r);
}
S_14641:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))))||is_error_pending()){
if(qbevent){evnt(12117);if(r)goto S_14641;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12118);}while(r);
S_14643:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12119);if(r)goto S_14643;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12119);}while(r);
}
do{
qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1788= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12120);}while(r);
S_14647:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12121);if(r)goto S_14647;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12121);}while(r);
}
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+536)))+*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(12123);}while(r);
S_14651:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12124);if(r)goto S_14651;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs__tostr((int32)(*__LONG_I),NULL,0),__STRING1_SP3),qbs__tostr((int64)(*__LONG_TYP& 511 ),NULL,0)),__STRING1_SP3),qbs_new_txt_len("0",1)),__STRING1_SP3),qbs_new_txt_len("0",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12125);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs__tostr((int32)(*__LONG_I),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12127);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1789= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12129);}while(r);
S_14657:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12130);if(r)goto S_14657;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12130);}while(r);
}
S_14660:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12131);if(r)goto S_14660;}
S_14661:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(12132);if(r)goto S_14661;}
do{
SUB_WRITEBUFLINE(&(pass1790=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_E),qbs_new_txt_len("->chr),0,",9)),__STRING_BYTES),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12133);}while(r);
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12134);}while(r);
}else{
S_14665:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||is_error_pending()){
if(qbevent){evnt(12136);if(r)goto S_14665;}
do{
SUB_WRITEBUFLINE(&(pass1791=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12137);}while(r);
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12139);}while(r);
}
}
S_14671:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12142);if(r)goto S_14671;}
S_14672:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(12143);if(r)goto S_14672;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1792=*__LONG_TYP& 511 ),__LONG_MAINTXTBUF,&(pass1793= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12145);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1794=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_E),qbs_new_txt_len(",0,",3)),__STRING_BYTES),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12147);}while(r);
}
}else{
S_14678:;
if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||is_error_pending()){
if(qbevent){evnt(12150);if(r)goto S_14678;}
do{
SUB_WRITEBUFLINE(&(pass1795=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12151);}while(r);
}
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12154);}while(r);
}
}
LABEL_CLEARED:;
if(qbevent){evnt(12159);r=0;}
LABEL_CLEARERASERETURNED:;
if(qbevent){evnt(12160);r=0;}
fornext_continue_1786:;
}
fornext_exit_1786:;
S_14686:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12163);if(r)goto S_14686;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1796;
sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1);
if (is_error_pending()) goto skip1796;
skip1796:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12164);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1797;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0);
if (is_error_pending()) goto skip1797;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1);
if (is_error_pending()) goto skip1797;
skip1797:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12165);}while(r);
}
S_14690:;
fornext_value1799= 1 ;
fornext_finalvalue1799=*__LONG_IDN;
fornext_step1799= 1 ;
if (fornext_step1799<0) fornext_step_negative1799=1; else fornext_step_negative1799=0;
if (is_error_pending()) goto fornext_error1799;
goto fornext_entrylabel1799;
while(1){
fornext_value1799=fornext_step1799+(*__LONG_I);
fornext_entrylabel1799:
*__LONG_I=fornext_value1799;
if (fornext_step_negative1799){
if (fornext_value1799<fornext_finalvalue1799) break;
}else{
if (fornext_value1799>fornext_finalvalue1799) break;
}
fornext_error1799:;
if(qbevent){evnt(12169);if(r)goto S_14690;}
S_14691:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(12170);if(r)goto S_14691;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12172);}while(r);
S_14693:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12173);if(r)goto S_14693;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12173);}while(r);
}
S_14696:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12175);if(r)goto S_14696;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1800;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0);
if (is_error_pending()) goto skip1800;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)), 0, 0, 1);
if (is_error_pending()) goto skip1800;
skip1800:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12175);}while(r);
}
S_14699:;
if ((*(int32*)(((char*)__UDT_ID)+((0+2855))))||is_error_pending()){
if(qbevent){evnt(12177);if(r)goto S_14699;}
S_14700:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12179);if(r)goto S_14700;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1801;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0, 0, 1);
if (is_error_pending()) goto skip1801;
skip1801:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12179);}while(r);
}
do{
*__LONG_I2=*(int32*)(((char*)__UDT_ID)+((0+2855)));
if(!qbevent)break;evnt(12181);}while(r);
do{
*__LONG_X=*(int16*)(((char*)__UDT_ID)+((0+2859)));
if(!qbevent)break;evnt(12182);}while(r);
S_14705:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12184);if(r)goto S_14705;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1802;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0);
if (is_error_pending()) goto skip1802;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1802;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1802;
skip1802:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12184);}while(r);
}
S_14708:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(12187);if(r)goto S_14708;}
do{
sub_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,func_chr( 1 ),1);
if(!qbevent)break;evnt(12188);}while(r);
S_14710:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12191);if(r)goto S_14710;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1803;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0);
if (is_error_pending()) goto skip1803;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1803;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1803;
skip1803:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12191);}while(r);
}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12194);}while(r);
}
}
}
fornext_continue_1798:;
}
fornext_exit_1798:;
do{
*__LONG_UNRESOLVED= 0 ;
if(!qbevent)break;evnt(12200);}while(r);
S_14719:;
fornext_value1805= 1 ;
fornext_finalvalue1805=*__LONG_IDN;
fornext_step1805= 1 ;
if (fornext_step1805<0) fornext_step_negative1805=1; else fornext_step_negative1805=0;
if (is_error_pending()) goto fornext_error1805;
goto fornext_entrylabel1805;
while(1){
fornext_value1805=fornext_step1805+(*__LONG_I);
fornext_entrylabel1805:
*__LONG_I=fornext_value1805;
if (fornext_step_negative1805){
if (fornext_value1805<fornext_finalvalue1805) break;
}else{
if (fornext_value1805>fornext_finalvalue1805) break;
}
fornext_error1805:;
if(qbevent){evnt(12201);if(r)goto S_14719;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12202);}while(r);
S_14721:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12203);if(r)goto S_14721;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12203);}while(r);
}
S_14724:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12205);if(r)goto S_14724;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1806;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0);
if (is_error_pending()) goto skip1806;
sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1), 0, 0, 1);
if (is_error_pending()) goto skip1806;
skip1806:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12205);}while(r);
}
S_14727:;
if ((*(int16*)(((char*)__UDT_ID)+((0+544))))||is_error_pending()){
if(qbevent){evnt(12207);if(r)goto S_14727;}
S_14728:;
fornext_value1808= 1 ;
fornext_finalvalue1808=*(int16*)(((char*)__UDT_ID)+((0+809)));
fornext_step1808= 1 ;
if (fornext_step1808<0) fornext_step_negative1808=1; else fornext_step_negative1808=0;
if (is_error_pending()) goto fornext_error1808;
goto fornext_entrylabel1808;
while(1){
fornext_value1808=fornext_step1808+(*__LONG_I2);
fornext_entrylabel1808:
*__LONG_I2=fornext_value1808;
if (fornext_step_negative1808){
if (fornext_value1808<fornext_finalvalue1808) break;
}else{
if (fornext_value1808>fornext_finalvalue1808) break;
}
fornext_error1808:;
if(qbevent){evnt(12208);if(r)goto S_14728;}
do{
*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+813))),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12209);}while(r);
S_14730:;
if ((-(*__LONG_T> 0 ))||is_error_pending()){
if(qbevent){evnt(12210);if(r)goto S_14730;}
S_14731:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(12211);if(r)goto S_14731;}
S_14732:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(12212);if(r)goto S_14732;}
S_14733:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12214);if(r)goto S_14733;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1809;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0);
if (is_error_pending()) goto skip1809;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1809;
sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0);
if (is_error_pending()) goto skip1809;
sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+((0+809))))), 1, 0, 1);
if (is_error_pending()) goto skip1809;
skip1809:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12214);}while(r);
}
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2647))),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12216);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2747))),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12217);}while(r);
S_14738:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12219);if(r)goto S_14738;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1810;
sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0);
if (is_error_pending()) goto skip1810;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1);
if (is_error_pending()) goto skip1810;
skip1810:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12219);}while(r);
}
S_14741:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12220);if(r)goto S_14741;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1811;
sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0);
if (is_error_pending()) goto skip1811;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1);
if (is_error_pending()) goto skip1811;
skip1811:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12220);}while(r);
}
S_14744:;
if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(12222);if(r)goto S_14744;}
S_14745:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12224);if(r)goto S_14745;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1812;
sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0, 0, 1);
if (is_error_pending()) goto skip1812;
skip1812:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12224);}while(r);
}
do{
*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ;
if(!qbevent)break;evnt(12226);}while(r);
do{
*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ;
if(!qbevent)break;evnt(12227);}while(r);
S_14750:;
if ((-(*__INTEGER_SFLISTN> 25000 ))||is_error_pending()){
if(qbevent){evnt(12228);if(r)goto S_14750;}
do{
qbs_set(__STRING_ERROR_MESSAGE,qbs_new_txt_len("ERROR: QB64PE currently limits a program to have a maximum of 25,000 subs and functions, and this limit has been exceeded.  Please reduce Sub/Function count, or else report this issue with sample code that produced it over at the QB64PE forums, so we can look further into this issue.",284));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12229);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12230);}while(r);
}
do{
*__LONG_UBOUND_SF=func_ubound(__ARRAY_LONG_SFIDLIST,1,1);
if(!qbevent)break;evnt(12232);}while(r);
S_14755:;
if ((-(*__INTEGER_SFLISTN>*__LONG_UBOUND_SF))||is_error_pending()){
if(qbevent){evnt(12233);if(r)goto S_14755;}
do{
if (__ARRAY_LONG_SFIDLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_SFIDLIST[2]&1){
preserve_old_ptr=__ARRAY_LONG_SFIDLIST[0];
preserve_old_flags=__ARRAY_LONG_SFIDLIST[2];
preserve_old_total=__ARRAY_LONG_SFIDLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_UBOUND_SF+ 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_SFIDLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SFIDLIST[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_SFIDLIST[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_SFIDLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_SFIDLIST[0]) error(257);
}
}
__ARRAY_LONG_SFIDLIST[2]|=1;
__ARRAY_LONG_SFIDLIST[4]=alloc_new_desc[4];
__ARRAY_LONG_SFIDLIST[5]=alloc_new_desc[5];
__ARRAY_LONG_SFIDLIST[6]=alloc_new_desc[6];
__ARRAY_LONG_SFIDLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(12234);}while(r);
do{
if (__ARRAY_INTEGER_SFARGLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_SFARGLIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_SFARGLIST[0];
preserve_old_flags=__ARRAY_INTEGER_SFARGLIST[2];
preserve_old_total=__ARRAY_INTEGER_SFARGLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_UBOUND_SF+ 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_SFARGLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFARGLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFARGLIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFARGLIST[2]|=1;
__ARRAY_INTEGER_SFARGLIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_SFARGLIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_SFARGLIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_SFARGLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(12235);}while(r);
do{
if (__ARRAY_INTEGER_SFELELIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_INTEGER_SFELELIST[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_SFELELIST[0];
preserve_old_flags=__ARRAY_INTEGER_SFELELIST[2];
preserve_old_total=__ARRAY_INTEGER_SFELELIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_UBOUND_SF+ 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_INTEGER_SFELELIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFELELIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*2);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_INTEGER_SFELELIST[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_SFELELIST[0]) error(257);
}
}
__ARRAY_INTEGER_SFELELIST[2]|=1;
__ARRAY_INTEGER_SFELELIST[4]=alloc_new_desc[4];
__ARRAY_INTEGER_SFELELIST[5]=alloc_new_desc[5];
__ARRAY_INTEGER_SFELELIST[6]=alloc_new_desc[6];
__ARRAY_INTEGER_SFELELIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(12236);}while(r);
}
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I;
if(!qbevent)break;evnt(12238);}while(r);
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2;
if(!qbevent)break;evnt(12239);}while(r);
do{
tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ;
if(!qbevent)break;evnt(12240);}while(r);
}
}
}
}
fornext_continue_1807:;
}
fornext_exit_1807:;
}
fornext_continue_1804:;
}
fornext_exit_1804:;
S_14770:;
if ((-(*__LONG_UNRESOLVED> 0 ))||is_error_pending()){
if(qbevent){evnt(12250);if(r)goto S_14770;}
S_14771:;
if ((-(*__LONG_LASTUNRESOLVED== -1 ))||is_error_pending()){
if(qbevent){evnt(12251);if(r)goto S_14771;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12253);}while(r);
S_14773:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12254);if(r)goto S_14773;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1813;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0, 0, 1);
if (is_error_pending()) goto skip1813;
skip1813:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12255);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1814;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1814;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1814;
skip1814:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12256);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1815;
sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1815;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1815;
skip1815:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12257);}while(r);
}
}else{
S_14779:;
if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||is_error_pending()){
if(qbevent){evnt(12261);if(r)goto S_14779;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12262);}while(r);
S_14781:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12263);if(r)goto S_14781;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1816;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0, 0, 1);
if (is_error_pending()) goto skip1816;
skip1816:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12264);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1817;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1817;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1817;
skip1817:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12265);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1818;
sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1818;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1818;
skip1818:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12266);}while(r);
}
}
}
}
do{
*__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED;
if(!qbevent)break;evnt(12271);}while(r);
S_14790:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12297);if(r)goto S_14790;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1819;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1);
if (is_error_pending()) goto skip1819;
skip1819:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12297);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(12298);}while(r);
S_14794:;
fornext_value1821= 1 ;
fornext_finalvalue1821=*__LONG_COMMONARRAYLISTN;
fornext_step1821= 1 ;
if (fornext_step1821<0) fornext_step_negative1821=1; else fornext_step_negative1821=0;
if (is_error_pending()) goto fornext_error1821;
goto fornext_entrylabel1821;
while(1){
fornext_value1821=fornext_step1821+(*__LONG_X);
fornext_entrylabel1821:
*__LONG_X=fornext_value1821;
if (fornext_step_negative1821){
if (fornext_value1821<fornext_finalvalue1821) break;
}else{
if (fornext_value1821>fornext_finalvalue1821) break;
}
fornext_error1821:;
if(qbevent){evnt(12299);if(r)goto S_14794;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12300);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12300);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12301);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12301);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12302);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12302);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12303);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12303);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12305);}while(r);
S_14804:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12306);if(r)goto S_14804;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12306);}while(r);
}
S_14807:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12307);if(r)goto S_14807;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12307);}while(r);
}
S_14810:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12308);if(r)goto S_14810;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12308);}while(r);
}
S_14813:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12310);if(r)goto S_14813;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1822;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Checking for array '",20),__STRING_VARNAME),qbs_new_txt_len("'...",4)), 0, 0, 1);
if (is_error_pending()) goto skip1822;
skip1822:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12310);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12312);}while(r);
S_14817:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12313);if(r)goto S_14817;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12313);}while(r);
}
S_14820:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(12314);if(r)goto S_14820;}
S_14821:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(12315);if(r)goto S_14821;}
do{
goto LABEL_FOUNDCOMMONARRAY2;
if(!qbevent)break;evnt(12315);}while(r);
}
S_14824:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12316);if(r)goto S_14824;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(12316);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12316);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(12316);}while(r);
}
S_14830:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12317);if(r)goto S_14830;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12317);}while(r);
}
dl_continue_1823:;
}
dl_exit_1823:;
LABEL_FOUNDCOMMONARRAY2:;
if(qbevent){evnt(12319);r=0;}
S_14834:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12321);if(r)goto S_14834;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1824;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found array '",13),__STRING_VARNAME),qbs_new_txt_len("!",1)), 0, 0, 1);
if (is_error_pending()) goto skip1824;
skip1824:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12321);}while(r);
}
S_14837:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(12323);if(r)goto S_14837;}
S_14838:;
if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||is_error_pending()){
if(qbevent){evnt(12324);if(r)goto S_14838;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12324);}while(r);
}
S_14841:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12325);if(r)goto S_14841;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1825;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0, 0, 1);
if (is_error_pending()) goto skip1825;
skip1825:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12325);}while(r);
}
}
fornext_continue_1820:;
}
fornext_exit_1820:;
S_14846:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12328);if(r)goto S_14846;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1826;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1);
if (is_error_pending()) goto skip1826;
skip1826:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12328);}while(r);
}
S_14849:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(12330);if(r)goto S_14849;}
LABEL_DO_RECOMPILE:;
if(qbevent){evnt(12331);r=0;}
S_14850:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12332);if(r)goto S_14850;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1827;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1);
if (is_error_pending()) goto skip1827;
skip1827:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12332);}while(r);
}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(12333);}while(r);
S_14854:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12334);if(r)goto S_14854;}
do{
*__LONG_IDERECOMPILE= 1 ;
if(!qbevent)break;evnt(12334);}while(r);
}
S_14857:;
fornext_value1829= 1 ;
fornext_finalvalue1829= 300 ;
fornext_step1829= 1 ;
if (fornext_step1829<0) fornext_step_negative1829=1; else fornext_step_negative1829=0;
if (is_error_pending()) goto fornext_error1829;
goto fornext_entrylabel1829;
while(1){
fornext_value1829=fornext_step1829+(*__LONG_CLOSEALL);
fornext_entrylabel1829:
*__LONG_CLOSEALL=fornext_value1829;
if (fornext_step_negative1829){
if (fornext_value1829<fornext_finalvalue1829) break;
}else{
if (fornext_value1829>fornext_finalvalue1829) break;
}
fornext_error1829:;
if(qbevent){evnt(12335);if(r)goto S_14857;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(12335);}while(r);
fornext_continue_1828:;
}
fornext_exit_1828:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12336);}while(r);
do{
goto LABEL_RECOMPILE;
if(!qbevent)break;evnt(12337);}while(r);
}
S_14863:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12340);if(r)goto S_14863;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1830;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1);
if (is_error_pending()) goto skip1830;
skip1830:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12340);}while(r);
}
S_14866:;
fornext_value1832= 1 ;
fornext_finalvalue1832=*__LONG_NLABELS;
fornext_step1832= 1 ;
if (fornext_step1832<0) fornext_step_negative1832=1; else fornext_step_negative1832=0;
if (is_error_pending()) goto fornext_error1832;
goto fornext_entrylabel1832;
while(1){
fornext_value1832=fornext_step1832+(*__LONG_R);
fornext_entrylabel1832:
*__LONG_R=fornext_value1832;
if (fornext_step_negative1832){
if (fornext_value1832<fornext_finalvalue1832) break;
}else{
if (fornext_value1832>fornext_finalvalue1832) break;
}
fornext_error1832:;
if(qbevent){evnt(12341);if(r)goto S_14866;}
S_14867:;
if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))))||is_error_pending()){
if(qbevent){evnt(12343);if(r)goto S_14867;}
do{
qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12344);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12345);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1833= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12346);}while(r);
LABEL_ADDLABCHK7:;
if(qbevent){evnt(12347);r=0;}
S_14871:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(12348);if(r)goto S_14871;}
S_14872:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R2)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)))==*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))))||is_error_pending()){
if(qbevent){evnt(12349);if(r)goto S_14872;}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
if(!qbevent)break;evnt(12350);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("Common label within a SUB/FUNCTION",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12350);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12350);}while(r);
}
S_14877:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(12352);if(r)goto S_14877;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(12352);}while(r);
do{
goto LABEL_ADDLABCHK7;
if(!qbevent)break;evnt(12352);}while(r);
}
}
}
S_14883:;
if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+0)))== 0 ))||is_error_pending()){
if(qbevent){evnt(12357);if(r)goto S_14883;}
S_14884:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)))),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(12359);if(r)goto S_14884;}
S_14885:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)))),__STRING1_SP),0)== 0 )))||is_error_pending()){
if(qbevent){evnt(12360);if(r)goto S_14885;}
do{
qbs_set(__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING_SUBNAMELABELS,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12361);}while(r);
S_14887:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12362);if(r)goto S_14887;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1834;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0);
if (is_error_pending()) goto skip1834;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)), 0, 0, 1);
if (is_error_pending()) goto skip1834;
skip1834:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12362);}while(r);
}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(12363);}while(r);
}
}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
if(!qbevent)break;evnt(12367);}while(r);
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Label '",7),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1))),qbs_new_txt_len("' not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12367);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12367);}while(r);
}
S_14897:;
if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))))||is_error_pending()){
if(qbevent){evnt(12371);if(r)goto S_14897;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(12374);}while(r);
do{
qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12375);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12376);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1835= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12377);}while(r);
LABEL_ADDLABCHK4:;
if(qbevent){evnt(12378);r=0;}
S_14902:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(12379);if(r)goto S_14902;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12380);}while(r);
S_14904:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(12381);if(r)goto S_14904;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(12381);}while(r);
do{
goto LABEL_ADDLABCHK4;
if(!qbevent)break;evnt(12381);}while(r);
}
}
S_14909:;
if ((-(*__LONG_X!= 1 ))||is_error_pending()){
if(qbevent){evnt(12383);if(r)goto S_14909;}
do{
*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)));
if(!qbevent)break;evnt(12383);}while(r);
do{
qbs_set(__STRING_A,qbs_new_txt_len("Ambiguous DATA label",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12383);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12383);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1836=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_at_LABEL_",23),__STRING_A),qbs_new_txt_len("=",1)),qbs__tostr((int64)(*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+(((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261)))),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12386);}while(r);
}
fornext_continue_1831:;
}
fornext_exit_1831:;
S_14917:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12391);if(r)goto S_14917;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1837;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1);
if (is_error_pending()) goto skip1837;
skip1837:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12391);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12401);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(12402);}while(r);
do{
*__LONG_DATATXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12403);}while(r);
do{
*__LONG_FREETXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12404);}while(r);
S_14924:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12406);if(r)goto S_14924;}
do{
SUB_WRITEBUFLINE(&(pass1838=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12407);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1839=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12409);}while(r);
}
S_14929:;
if ((*__LONG_SCREENHIDEON)||is_error_pending()){
if(qbevent){evnt(12412);if(r)goto S_14929;}
do{
SUB_WRITEBUFLINE(&(pass1840=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12413);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1841=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12415);}while(r);
}
S_14934:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12418);if(r)goto S_14934;}
do{
SUB_WRITEBUFLINE(&(pass1842=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12419);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1843=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12421);}while(r);
}
S_14939:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12424);if(r)goto S_14939;}
do{
SUB_WRITEBUFLINE(&(pass1844=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12425);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1845=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12427);}while(r);
}
do{
*__LONG_BH=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12430);}while(r);
S_14945:;
if ((*__LONG_RESIZEON)||is_error_pending()){
if(qbevent){evnt(12431);if(r)goto S_14945;}
do{
SUB_WRITEBUFLINE(&(pass1846=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12432);}while(r);
}
S_14948:;
if ((*__LONG_RESIZESCALE)||is_error_pending()){
if(qbevent){evnt(12434);if(r)goto S_14948;}
do{
SUB_WRITEBUFLINE(&(pass1847=*__LONG_BH),qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),qbs__tostr((int32)(*__LONG_RESIZESCALE),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12435);}while(r);
}
S_14951:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12438);if(r)goto S_14951;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1848= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12439);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1849=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),qbs__tostr((int32)(*__LONG_DATAOFFSET),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12444);}while(r);
S_14955:;
if ((-(*__LONG_DATAOFFSET== 0 ))||is_error_pending()){
if(qbevent){evnt(12445);if(r)goto S_14955;}
do{
SUB_WRITEBUFLINE(&(pass1850=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12447);}while(r);
}else{
do{
*__LONG_FF=FUNC_OPENBUFFER(qbs_new_txt_len("B",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12452);}while(r);
do{
qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1851=*__LONG_FF),&(pass1853=FUNC_GETBUFLEN(&(pass1852=*__LONG_FF)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12453);}while(r);
do{
*__LONG_IDSL=((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check(( 255 )-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])]))->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12455);}while(r);
do{
*__LONG_XL=__STRING_X->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12456);}while(r);
do{
qbs_set(__STRING_X2,func_space(*__LONG_XL**__LONG_IDSL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12458);}while(r);
do{
*__LONG_X2OFS= 1 ;
if(!qbevent)break;evnt(12460);}while(r);
S_14964:;
fornext_value1857= 1 ;
fornext_finalvalue1857=*__LONG_XL;
fornext_step1857= 1 ;
if (fornext_step1857<0) fornext_step_negative1857=1; else fornext_step_negative1857=0;
if (is_error_pending()) goto fornext_error1857;
goto fornext_entrylabel1857;
while(1){
fornext_value1857=fornext_step1857+(*__LONG_I);
fornext_entrylabel1857:
*__LONG_I=fornext_value1857;
if (fornext_step_negative1857){
if (fornext_value1857<fornext_finalvalue1857) break;
}else{
if (fornext_value1857>fornext_finalvalue1857) break;
}
fornext_error1857:;
if(qbevent){evnt(12461);if(r)goto S_14964;}
do{
sub_mid(__STRING_X2,*__LONG_X2OFS,*__LONG_IDSL,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])),1);
if(!qbevent)break;evnt(12462);}while(r);
do{
*__LONG_X2OFS=*__LONG_X2OFS+*__LONG_IDSL;
if(!qbevent)break;evnt(12463);}while(r);
fornext_continue_1856:;
}
fornext_exit_1856:;
do{
SUB_WRITEBUFLINE(&(pass1858=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 inline_data[]={",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12466);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1859=*__LONG_GLOBTXTBUF),__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12467);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1860=*__LONG_GLOBTXTBUF),qbs_new_txt_len("0};",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12468);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1861=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12469);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12471);}while(r);
do{
qbs_set(__STRING_X2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12471);}while(r);
}
S_14975:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12475);if(r)goto S_14975;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1862;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0, 0, 1);
if (is_error_pending()) goto skip1862;
skip1862:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12475);}while(r);
}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(12476);}while(r);
do{
*__LONG_NCOMMONTMP= 0 ;
if(!qbevent)break;evnt(12477);}while(r);
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(12478);}while(r);
S_14981:;
fornext_value1864= 1 ;
fornext_finalvalue1864=*__LONG_COMMONARRAYLISTN;
fornext_step1864= 1 ;
if (fornext_step1864<0) fornext_step_negative1864=1; else fornext_step_negative1864=0;
if (is_error_pending()) goto fornext_error1864;
goto fornext_entrylabel1864;
while(1){
fornext_value1864=fornext_step1864+(*__LONG_X);
fornext_entrylabel1864:
*__LONG_X=fornext_value1864;
if (fornext_step_negative1864){
if (fornext_value1864<fornext_finalvalue1864) break;
}else{
if (fornext_value1864>fornext_finalvalue1864) break;
}
fornext_error1864:;
if(qbevent){evnt(12479);if(r)goto S_14981;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12480);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12480);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12481);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12481);}while(r);
do{
*__LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12482);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12482);}while(r);
do{
*__LONG_DIMSHARED2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12483);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12483);}while(r);
do{
qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12486);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12487);}while(r);
S_14992:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12488);if(r)goto S_14992;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12488);}while(r);
}
S_14995:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12489);if(r)goto S_14995;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12489);}while(r);
}
S_14998:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12490);if(r)goto S_14998;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12490);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12491);}while(r);
S_15002:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12492);if(r)goto S_15002;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12492);}while(r);
}
S_15005:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(12493);if(r)goto S_15005;}
S_15006:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(12494);if(r)goto S_15006;}
do{
goto LABEL_FOUNDCOMMONARRAY;
if(!qbevent)break;evnt(12494);}while(r);
}
S_15009:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12495);if(r)goto S_15009;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(12495);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12495);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(12495);}while(r);
}
S_15015:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12496);if(r)goto S_15015;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12496);}while(r);
}
dl_continue_1865:;
}
dl_exit_1865:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12498);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12498);}while(r);
LABEL_FOUNDCOMMONARRAY:;
if(qbevent){evnt(12499);r=0;}
S_15021:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12500);if(r)goto S_15021;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1866;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found common array '",20),__STRING_VARNAME),qbs_new_txt_len("'!",2)), 0, 0, 1);
if (is_error_pending()) goto skip1866;
skip1866:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12500);}while(r);
}
do{
*__LONG_I=*__LONG_CURRENTID;
if(!qbevent)break;evnt(12502);}while(r);
do{
*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(12503);}while(r);
do{
*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(12504);}while(r);
do{
qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12505);}while(r);
S_15028:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12506);if(r)goto S_15028;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12506);}while(r);
}
S_15031:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12507);if(r)goto S_15031;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12507);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12508);}while(r);
do{
qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+550))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12509);}while(r);
do{
*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(12510);}while(r);
do{
*__LONG_COMMAND= 3 ;
if(!qbevent)break;evnt(12513);}while(r);
S_15038:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12514);if(r)goto S_15038;}
S_15039:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(12515);if(r)goto S_15039;}
do{
*__LONG_COMMAND= 4 ;
if(!qbevent)break;evnt(12516);}while(r);
}
}
S_15043:;
if ((-(*__LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(12528);if(r)goto S_15043;}
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12534);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1867=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12535);}while(r);
do{
qbs_set(__STRING_X,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12537);}while(r);
do{
qbs_set(__STRING_X1,qbs_add(qbs_new_txt_len("chainarraybuf",13),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12538);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(qbs_new_txt_len("chainarraybufsiz",16),__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12539);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1868=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12540);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1869=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12541);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1870=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12543);}while(r);
S_15052:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12545);if(r)goto S_15052;}
do{
SUB_WRITEBUFLINE(&(pass1871=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12545);}while(r);
}
S_15055:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12546);if(r)goto S_15055;}
do{
SUB_WRITEBUFLINE(&(pass1872=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12546);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1873=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12547);}while(r);
S_15059:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12549);if(r)goto S_15059;}
do{
SUB_WRITEBUFLINE(&(pass1874=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12551);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1875=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12552);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1876=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=int64val>>3;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12553);}while(r);
}
S_15064:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12556);if(r)goto S_15064;}
do{
SUB_WRITEBUFLINE(&(pass1877=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12556);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1878=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12559);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1879=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12560);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1880=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(int32val--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12563);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1881=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12564);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1882=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12565);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1883=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12566);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1884=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val2;",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12567);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1885=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12568);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1886=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12569);}while(r);
S_15076:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12571);if(r)goto S_15076;}
do{
SUB_WRITEBUFLINE(&(pass1887=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=bytes; ",9)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12573);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1888=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-bytes),bytes,",14)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12574);}while(r);
}
S_15080:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12577);if(r)goto S_15080;}
do{
SUB_WRITEBUFLINE(&(pass1889=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12578);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1890=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12579);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1891=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12580);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1892=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12581);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1893=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=(int64val>>3); ",17)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12582);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1894=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-(int64val>>3)),(int64val>>3),",30)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12583);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1895=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12584);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1896=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12585);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1897=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12589);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1898=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12590);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1899=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12592);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12597);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1900=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12598);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1901=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12599);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1902=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)",37),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12601);}while(r);
}else{
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12611);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1903=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12613);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1904=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12614);}while(r);
S_15101:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12616);if(r)goto S_15101;}
do{
SUB_WRITEBUFLINE(&(pass1905=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12616);}while(r);
}
S_15104:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12617);if(r)goto S_15104;}
do{
SUB_WRITEBUFLINE(&(pass1906=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12617);}while(r);
}
S_15107:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12619);if(r)goto S_15107;}
do{
SUB_WRITEBUFLINE(&(pass1907=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12621);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1908=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12626);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12629);}while(r);
S_15112:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12630);if(r)goto S_15112;}
do{
SUB_WRITEBUFLINE(&(pass1909=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12630);}while(r);
}
S_15115:;
fornext_value1911= 1 ;
fornext_finalvalue1911=*__LONG_ARRAYELEMENTS;
fornext_step1911= 1 ;
if (fornext_step1911<0) fornext_step_negative1911=1; else fornext_step_negative1911=0;
if (is_error_pending()) goto fornext_error1911;
goto fornext_entrylabel1911;
while(1){
fornext_value1911=fornext_step1911+(*__LONG_X2);
fornext_entrylabel1911:
*__LONG_X2=fornext_value1911;
if (fornext_step_negative1911){
if (fornext_value1911<fornext_finalvalue1911) break;
}else{
if (fornext_value1911>fornext_finalvalue1911) break;
}
fornext_error1911:;
if(qbevent){evnt(12631);if(r)goto S_15115;}
S_15116:;
if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||is_error_pending()){
if(qbevent){evnt(12634);if(r)goto S_15116;}
do{
*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ;
if(!qbevent)break;evnt(12635);}while(r);
S_15118:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12637);if(r)goto S_15118;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1912;
sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1);
if (is_error_pending()) goto skip1912;
skip1912:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12637);}while(r);
}
S_15121:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12638);if(r)goto S_15121;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12638);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),qbs__tostr((int32)(*__LONG_NCOMMONTMP),NULL,0)),qbs_new_txt_len("_INTEGER64",10),&(pass1913= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12639);}while(r);
S_15125:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12640);if(r)goto S_15125;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12640);}while(r);
}
do{
*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),qbs__tostr((int32)(*__LONG_NCOMMONTMP),NULL,0)),qbs_new_txt_len("_INTEGER64",10),&(pass1914= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12641);}while(r);
S_15129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12642);if(r)goto S_15129;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12642);}while(r);
}
S_15132:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12643);if(r)goto S_15132;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1915;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1);
if (is_error_pending()) goto skip1915;
skip1915:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12643);}while(r);
}
S_15135:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12644);if(r)goto S_15135;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12644);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1916=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12649);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1917=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),qbs__tostr((int32)(*__LONG_X2),NULL,0)),qbs_new_txt_len("=int64val;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12650);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1918=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12651);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1919=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),qbs__tostr((int32)(*__LONG_X2),NULL,0)),qbs_new_txt_len("=int64val2;",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12652);}while(r);
S_15143:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12653);if(r)goto S_15143;}
do{
SUB_WRITEBUFLINE(&(pass1920=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12653);}while(r);
}
S_15146:;
if ((-(*__LONG_X2> 1 ))||is_error_pending()){
if(qbevent){evnt(12654);if(r)goto S_15146;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12654);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25)),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),qbs__tostr((int32)(*__LONG_X2),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12655);}while(r);
fornext_continue_1910:;
}
fornext_exit_1910:;
S_15151:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12658);if(r)goto S_15151;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1921;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Calling DIM2(",13),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")...",4)), 0, 0, 1);
if (is_error_pending()) goto skip1921;
skip1921:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12658);}while(r);
}
S_15154:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12659);if(r)goto S_15154;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12659);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(12661);}while(r);
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1922= 0 ),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12662);}while(r);
S_15159:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12663);if(r)goto S_15159;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12663);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(12664);}while(r);
S_15163:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12665);if(r)goto S_15163;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1923;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Finished calling DIM2(",22),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")!",2)), 0, 0, 1);
if (is_error_pending()) goto skip1923;
skip1923:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12665);}while(r);
}
S_15166:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12666);if(r)goto S_15166;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12666);}while(r);
}
S_15169:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12668);if(r)goto S_15169;}
do{
qbs_set(__STRING_VARNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARNAME,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12670);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1924= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12671);}while(r);
S_15172:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12672);if(r)goto S_15172;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12672);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1925=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12673);}while(r);
}
S_15177:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12676);if(r)goto S_15177;}
do{
SUB_WRITEBUFLINE(&(pass1926=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12677);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1927=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12678);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1928=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12679);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1929=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs*)(((uint64*)(",24),__STRING_N2),qbs_new_txt_len("[0]))[bytei]));",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12680);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1930=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_set(tqbs,qbs_new(int64val>>3,1));",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12681);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1931=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)tqbs->chr,int64val>>3,",59),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12682);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1932=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12683);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1933=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12684);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1934=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12688);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1935=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12689);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1936=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12690);}while(r);
do{
*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len(".txt",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12694);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1937=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12696);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1938=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12697);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1939=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12699);}while(r);
S_15194:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12701);if(r)goto S_15194;}
do{
SUB_WRITEBUFLINE(&(pass1940=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=3;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12701);}while(r);
}
S_15197:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12702);if(r)goto S_15197;}
do{
SUB_WRITEBUFLINE(&(pass1941=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12702);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1942=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12703);}while(r);
S_15201:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12705);if(r)goto S_15201;}
do{
*__LONG_BITS=*__LONG_T& 511 ;
if(!qbevent)break;evnt(12707);}while(r);
S_15203:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12708);if(r)goto S_15203;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(12708);}while(r);
}
S_15206:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12709);if(r)goto S_15206;}
do{
*__LONG_BITS=*__LONG_TSIZE* 8 ;
if(!qbevent)break;evnt(12709);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1943=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),qbs__tostr((int32)(*__LONG_BITS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12710);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1944=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12711);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1945=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),qbs__tostr((int32)(*__LONG_ARRAYELEMENTS),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12714);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1946=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12715);}while(r);
S_15214:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(12717);if(r)goto S_15214;}
S_15215:;
fornext_value1948= 1 ;
fornext_finalvalue1948=*__LONG_ARRAYELEMENTS;
fornext_step1948= 1 ;
if (fornext_step1948<0) fornext_step_negative1948=1; else fornext_step_negative1948=0;
if (is_error_pending()) goto fornext_error1948;
goto fornext_entrylabel1948;
while(1){
fornext_value1948=fornext_step1948+(*__LONG_X2);
fornext_entrylabel1948:
*__LONG_X2=fornext_value1948;
if (fornext_step_negative1948){
if (fornext_value1948<fornext_finalvalue1948) break;
}else{
if (fornext_value1948>fornext_finalvalue1948) break;
}
fornext_error1948:;
if(qbevent){evnt(12719);if(r)goto S_15215;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12721);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1949= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12722);}while(r);
S_15218:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12723);if(r)goto S_15218;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12723);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1950=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12724);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1951=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12725);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12726);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1952= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12727);}while(r);
S_15225:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12728);if(r)goto S_15225;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12728);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1953=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12729);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1954=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12730);}while(r);
fornext_continue_1947:;
}
fornext_exit_1947:;
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_N,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))),&(pass1955= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12734);}while(r);
S_15232:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12735);if(r)goto S_15232;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12735);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1956=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12736);}while(r);
}
S_15237:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(12740);if(r)goto S_15237;}
do{
SUB_WRITEBUFLINE(&(pass1957=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12743);}while(r);
S_15239:;
fornext_value1959= 1 ;
fornext_finalvalue1959=*__LONG_ARRAYELEMENTS;
fornext_step1959= 1 ;
if (fornext_step1959<0) fornext_step_negative1959=1; else fornext_step_negative1959=0;
if (is_error_pending()) goto fornext_error1959;
goto fornext_entrylabel1959;
while(1){
fornext_value1959=fornext_step1959+(*__LONG_X2);
fornext_entrylabel1959:
*__LONG_X2=fornext_value1959;
if (fornext_step_negative1959){
if (fornext_value1959<fornext_finalvalue1959) break;
}else{
if (fornext_value1959>fornext_finalvalue1959) break;
}
fornext_error1959:;
if(qbevent){evnt(12744);if(r)goto S_15239;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12745);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1960= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12746);}while(r);
S_15242:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12747);if(r)goto S_15242;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12747);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1961=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12748);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1962=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12749);}while(r);
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs__tostr((int32)(*__LONG_X2),NULL,0)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12750);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1963= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12751);}while(r);
S_15249:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12752);if(r)goto S_15249;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12752);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1964=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12753);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1965=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12754);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1966=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12755);}while(r);
fornext_continue_1958:;
}
fornext_exit_1958:;
do{
SUB_WRITEBUFLINE(&(pass1967=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12758);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1968=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12759);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1969=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=((qbs*)(((uint64*)(",24),__STRING_N2),qbs_new_txt_len("[0]))[bytei]));",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12760);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1970=*__LONG_MAINTXTBUF),qbs_new_txt_len("int64val=tqbs->len; int64val<<=3;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12761);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1971=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12762);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1972=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)tqbs->chr,tqbs->len,",57),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12763);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1973=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12764);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1974=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12765);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1975=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12769);}while(r);
}
fornext_continue_1863:;
}
fornext_exit_1863:;
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(12776);}while(r);
S_15269:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12777);if(r)goto S_15269;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1976;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0, 0, 1);
if (is_error_pending()) goto skip1976;
skip1976:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12777);}while(r);
}
S_15272:;
fornext_value1978= 1 ;
fornext_finalvalue1978= 300 ;
fornext_step1978= 1 ;
if (fornext_step1978<0) fornext_step_negative1978=1; else fornext_step_negative1978=0;
if (is_error_pending()) goto fornext_error1978;
goto fornext_entrylabel1978;
while(1){
fornext_value1978=fornext_step1978+(*__LONG_CLOSEALL);
fornext_entrylabel1978:
*__LONG_CLOSEALL=fornext_value1978;
if (fornext_step_negative1978){
if (fornext_value1978<fornext_finalvalue1978) break;
}else{
if (fornext_value1978>fornext_finalvalue1978) break;
}
fornext_error1978:;
if(qbevent){evnt(12780);if(r)goto S_15272;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(12780);}while(r);
fornext_continue_1977:;
}
fornext_exit_1977:;
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12781);}while(r);
do{
qbs_set(__STRING_COMPILELOG,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("compilelog.txt",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12783);}while(r);
do{
sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12785);}while(r);
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(12785);}while(r);
S_15279:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(12787);if(r)goto S_15279;}
S_15280:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(12788);if(r)goto S_15280;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_MAXPROGRESSWIDTH,(qbs_new_txt_len(".",1)->chr[0]))),qbs_new_txt_len("] 100%",6)));
if (is_error_pending()) goto skip1979;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1979:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12789);}while(r);
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(12791);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(func_string(*__LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5)));
if (is_error_pending()) goto skip1980;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1980:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12792);}while(r);
}
}
S_15287:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(12796);if(r)goto S_15287;}
do{
*__LONG_TOTALUNUSEDVARIABLES= 0 ;
if(!qbevent)break;evnt(12797);}while(r);
S_15289:;
fornext_value1982= 1 ;
fornext_finalvalue1982=*__LONG_TOTALVARIABLESCREATED;
fornext_step1982= 1 ;
if (fornext_step1982<0) fornext_step_negative1982=1; else fornext_step_negative1982=0;
if (is_error_pending()) goto fornext_error1982;
goto fornext_entrylabel1982;
while(1){
fornext_value1982=fornext_step1982+(*__LONG_I);
fornext_entrylabel1982:
*__LONG_I=fornext_value1982;
if (fornext_step_negative1982){
if (fornext_value1982<fornext_finalvalue1982) break;
}else{
if (fornext_value1982>fornext_finalvalue1982) break;
}
fornext_error1982:;
if(qbevent){evnt(12798);if(r)goto S_15289;}
S_15290:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28)))== 0 ))||is_error_pending()){
if(qbevent){evnt(12799);if(r)goto S_15290;}
do{
*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ;
if(!qbevent)break;evnt(12800);}while(r);
}
fornext_continue_1981:;
}
fornext_exit_1981:;
S_15294:;
if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||is_error_pending()){
if(qbevent){evnt(12804);if(r)goto S_15294;}
do{
*__LONG_MAXVARNAMELEN= 0 ;
if(!qbevent)break;evnt(12805);}while(r);
S_15296:;
fornext_value1984= 1 ;
fornext_finalvalue1984=*__LONG_TOTALVARIABLESCREATED;
fornext_step1984= 1 ;
if (fornext_step1984<0) fornext_step_negative1984=1; else fornext_step_negative1984=0;
if (is_error_pending()) goto fornext_error1984;
goto fornext_entrylabel1984;
while(1){
fornext_value1984=fornext_step1984+(*__LONG_I);
fornext_entrylabel1984:
*__LONG_I=fornext_value1984;
if (fornext_step_negative1984){
if (fornext_value1984<fornext_finalvalue1984) break;
}else{
if (fornext_value1984>fornext_finalvalue1984) break;
}
fornext_error1984:;
if(qbevent){evnt(12806);if(r)goto S_15296;}
S_15297:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28)))== 0 ))||is_error_pending()){
if(qbevent){evnt(12807);if(r)goto S_15297;}
S_15298:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))))->len>*__LONG_MAXVARNAMELEN)))||is_error_pending()){
if(qbevent){evnt(12808);if(r)goto S_15298;}
do{
*__LONG_MAXVARNAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))))->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12808);}while(r);
}
}
fornext_continue_1983:;
}
fornext_exit_1983:;
do{
qbs_set(__STRING_HEADER,qbs_new_txt_len("Unused variable",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12812);}while(r);
S_15304:;
fornext_value1986= 1 ;
fornext_finalvalue1986=*__LONG_TOTALVARIABLESCREATED;
fornext_step1986= 1 ;
if (fornext_step1986<0) fornext_step_negative1986=1; else fornext_step_negative1986=0;
if (is_error_pending()) goto fornext_error1986;
goto fornext_entrylabel1986;
while(1){
fornext_value1986=fornext_step1986+(*__LONG_I);
fornext_entrylabel1986:
*__LONG_I=fornext_value1986;
if (fornext_step_negative1986){
if (fornext_value1986<fornext_finalvalue1986) break;
}else{
if (fornext_value1986>fornext_finalvalue1986) break;
}
fornext_error1986:;
if(qbevent){evnt(12813);if(r)goto S_15304;}
S_15305:;
if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28)))== 0 ))||is_error_pending()){
if(qbevent){evnt(12814);if(r)goto S_15305;}
do{
SUB_ADDWARNING((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4)) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+8)) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + (((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)) ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56)))),__STRING_HEADER,qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))),func_space((*__LONG_MAXVARNAMELEN+ 1 )-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))))->len)),qbs_new_txt_len("  ",2)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+(((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12815);}while(r);
}
fornext_continue_1985:;
}
fornext_exit_1985:;
}
}
S_15311:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12821);if(r)goto S_15311;}
do{
goto LABEL_IDERET5;
if(!qbevent)break;evnt(12821);}while(r);
}
LABEL_IDE6:;
if(qbevent){evnt(12822);r=0;}
S_15314:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_NOCCOMPILEMODE)))||is_error_pending()){
if(qbevent){evnt(12824);if(r)goto S_15314;}
S_15315:;
if ((~(*__BYTE_QUIETMODE))||is_error_pending()){
if(qbevent){evnt(12825);if(r)goto S_15315;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip1987:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12826);}while(r);
S_15317:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(12827);if(r)goto S_15317;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37));
if (is_error_pending()) goto skip1988;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1988:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12828);}while(r);
}else{
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30));
if (is_error_pending()) goto skip1989;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1989:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12830);}while(r);
}
}
S_15323:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_CMDLINEOUTFILE->len> 0 )))||is_error_pending()){
if(qbevent){evnt(12835);if(r)goto S_15323;}
S_15324:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_CMDLINEOUTFILE->len))||is_error_pending()){
if(qbevent){evnt(12836);if(r)goto S_15324;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12838);}while(r);
do{
qbs_set(__STRING_F,func_mid(__STRING_CMDLINEOUTFILE,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12839);}while(r);
S_15327:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETFILEEXTENSION(__STRING_F)),qbs_new_txt_len("EXE",3))))||is_error_pending()){
if(qbevent){evnt(12841);if(r)goto S_15327;}
do{
qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12842);}while(r);
}else{
do{
qbs_set(__STRING_FILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12844);}while(r);
}
}
S_15333:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len> 0 )))||is_error_pending()){
if(qbevent){evnt(12848);if(r)goto S_15333;}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12849);}while(r);
S_15335:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||is_error_pending()){
if(qbevent){evnt(12851);if(r)goto S_15335;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip1994:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12852);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Can't create output executable - path not found: ",49),__STRING_PATH__ASCII_CHR_046__OUT));
if (is_error_pending()) goto skip1995;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip1995:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12853);}while(r);
S_15338:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(12854);if(r)goto S_15338;}
do{
if(qbevent){evnt(12854);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(12854);}while(r);
}
do{
if(qbevent){evnt(12855);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(12855);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12858);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12859);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12860);}while(r);
S_15346:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||is_error_pending()){
if(qbevent){evnt(12862);if(r)goto S_15346;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,qbs_add(__STRING_PATH__ASCII_CHR_046__OUT,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12862);}while(r);
}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__OUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12863);}while(r);
do{
*__LONG_SAVEEXEWITHSOURCE= -1ll ;
if(!qbevent)break;evnt(12865);}while(r);
}
}
do{
qbs_set(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__EXE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12868);}while(r);
S_15354:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(12869);if(r)goto S_15354;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(12870);}while(r);
do{
error_goto_line=7;
if(!qbevent)break;evnt(12871);}while(r);
do{
sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12872);}while(r);
do{
error_goto_line=8;
if(!qbevent)break;evnt(12873);}while(r);
S_15359:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(12874);if(r)goto S_15359;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CANNOT CREATE ",14),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" BECAUSE THE FILE IS ALREADY IN USE!",36)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12875);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12875);}while(r);
}
}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12878);}while(r);
}
S_15366:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(12881);if(r)goto S_15366;}
do{
*__LONG_LINENUMBER=*__LONG_EXEICONSET;
if(!qbevent)break;evnt(12882);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_add(qbs_add(qbs_new_txt_len(" $EXEICON:'",11),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12883);}while(r);
do{
*__LONG_FAIL=FUNC_COPYFILE(__STRING_EXEICONFILE,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.ico",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12887);}while(r);
S_15370:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(12888);if(r)goto S_15370;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error copying ",14),FUNC_QUOTEDFILENAME(__STRING_EXEICONFILE)),qbs_new_txt_len(" to temp directory",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12888);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12888);}while(r);
}
}
S_15375:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(12891);if(r)goto S_15375;}
do{
*__LONG_MANIBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12892);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1996=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<?xml version=",14),FUNC_ADDQUOTES(qbs_new_txt_len("1.0",3))),qbs_new_txt_len(" encoding=",10)),FUNC_ADDQUOTES(qbs_new_txt_len("UTF-8",5))),qbs_new_txt_len(" standalone=",12)),FUNC_ADDQUOTES(qbs_new_txt_len("yes",3))),qbs_new_txt_len("?>",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12893);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1997=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("<assembly xmlns=",16),FUNC_ADDQUOTES(qbs_new_txt_len("urn:schemas-microsoft-com:asm.v1",32))),qbs_new_txt_len(" manifestVersion=",17)),FUNC_ADDQUOTES(qbs_new_txt_len("1.0",3))),qbs_new_txt_len(">",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12894);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1998=*__LONG_MANIBUF),qbs_new_txt_len("<assemblyIdentity",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12895);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1999=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    version=",12),FUNC_ADDQUOTES(qbs_new_txt_len("1.0.0.0",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12896);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2000=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    processorArchitecture=",26),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12897);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2001=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    name=",9),FUNC_ADDQUOTES(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME),qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12898);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2002=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("    type=",9),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12899);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2003=*__LONG_MANIBUF),qbs_new_txt_len("/>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12900);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2004=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("<description>",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("</description>",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12901);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2005=*__LONG_MANIBUF),qbs_new_txt_len("<dependency>",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12902);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2006=*__LONG_MANIBUF),qbs_new_txt_len("    <dependentAssembly>",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12903);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2007=*__LONG_MANIBUF),qbs_new_txt_len("        <assemblyIdentity",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12904);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2008=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            type=",17),FUNC_ADDQUOTES(qbs_new_txt_len("win32",5))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12905);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2009=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            name=",17),FUNC_ADDQUOTES(qbs_new_txt_len("Microsoft.Windows.Common-Controls",33))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12906);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2010=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            version=",20),FUNC_ADDQUOTES(qbs_new_txt_len("6.0.0.0",7))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12907);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2011=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            processorArchitecture=",34),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12908);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2012=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            publicKeyToken=",27),FUNC_ADDQUOTES(qbs_new_txt_len("6595b64144ccf1df",16))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12909);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2013=*__LONG_MANIBUF),qbs_add(qbs_new_txt_len("            language=",21),FUNC_ADDQUOTES(qbs_new_txt_len("*",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12910);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2014=*__LONG_MANIBUF),qbs_new_txt_len("        />",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12911);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2015=*__LONG_MANIBUF),qbs_new_txt_len("    </dependentAssembly>",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12912);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2016=*__LONG_MANIBUF),qbs_new_txt_len("</dependency>",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12913);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2017=*__LONG_MANIBUF),qbs_new_txt_len("</assembly>",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12914);}while(r);
do{
*__LONG_MANIBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("manifest.h",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12916);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2018=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12917);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2019=*__LONG_MANIBUF),qbs_new_txt_len("#define   RESOURCE_H",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12918);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2020=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12919);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2021=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("extern ",7),FUNC_ADDQUOTES(qbs_new_txt_len("C",1))),qbs_new_txt_len(" {",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12920);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2022=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12921);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2023=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12922);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2024=*__LONG_MANIBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12923);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2025=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12924);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2026=*__LONG_MANIBUF),qbs_new_txt_len("#endif    /* RESOURCE_H */",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12925);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2027=*__LONG_MANIBUF),qbs_new_txt_len("#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/",70));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12926);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2028=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST                       24",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12927);}while(r);
}
S_15412:;
if ((*__BYTE_VERSIONINFOSET|(-(*__LONG_EXEICONSET!= 0 )))||is_error_pending()){
if(qbevent){evnt(12930);if(r)goto S_15412;}
do{
*__LONG_ICONRCBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12931);}while(r);
S_15414:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(12933);if(r)goto S_15414;}
do{
SUB_WRITEBUFLINE(&(pass2029=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("0 ICON ",7),FUNC_ADDQUOTES(qbs_new_txt_len("icon.ico",8))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12934);}while(r);
}
S_15417:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(12937);if(r)goto S_15417;}
do{
SUB_WRITEBUFLINE(&(pass2030=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12938);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2031=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("#include ",9),FUNC_ADDQUOTES(qbs_new_txt_len("manifest.h",10))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12939);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2032=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12940);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2033=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST ",47),FUNC_ADDQUOTES(qbs_add(qbs_add(__STRING_FILE,__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12941);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2034=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12942);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2035=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12943);}while(r);
S_15424:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(12944);if(r)goto S_15424;}
do{
SUB_WRITEBUFLINE(&(pass2037=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION     ",16),__STRING_VIFILEVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12944);}while(r);
}
S_15427:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(12945);if(r)goto S_15427;}
do{
SUB_WRITEBUFLINE(&(pass2039=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION  ",16),__STRING_VIPRODUCTVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12945);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2040=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12946);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2041=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("StringFileInfo",14))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12947);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2042=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12948);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2043=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("        BLOCK ",14),FUNC_ADDQUOTES(qbs_new_txt_len("040904E4",8))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12949);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2044=*__LONG_ICONRCBUF),qbs_new_txt_len("        BEGIN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12950);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2045=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("CompanyName",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12951);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2046=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("FileDescription",15))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12952);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2047=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("FileVersion",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIFILEVERSION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12953);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2048=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("InternalName",12))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIINTERNALNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12954);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2049=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("LegalCopyright",14))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12955);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2050=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("LegalTrademarks",15))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12956);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2051=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("OriginalFilename",16))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12957);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2052=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("ProductName",11))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIPRODUCTNAME,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12958);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2053=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("ProductVersion",14))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12959);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2054=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Comments",8))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VICOMMENTS,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12960);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2055=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Web",3))),qbs_new_txt_len(",",1)),FUNC_ADDQUOTES(qbs_add(__STRING_VIWEB,qbs_new_txt_len("\\0",2)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12961);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2056=*__LONG_ICONRCBUF),qbs_new_txt_len("        END",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12962);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2057=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12963);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2058=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("    BLOCK ",10),FUNC_ADDQUOTES(qbs_new_txt_len("VarFileInfo",11))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12964);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2059=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12965);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2060=*__LONG_ICONRCBUF),qbs_add(qbs_add(qbs_new_txt_len("            VALUE ",18),FUNC_ADDQUOTES(qbs_new_txt_len("Translation",11))),qbs_new_txt_len(", 0x409, 0x04E4",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12966);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2061=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12967);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2062=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12968);}while(r);
}
}
do{
SUB_WRITEBUFFERS(qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12974);}while(r);
S_15456:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(12976);if(r)goto S_15456;}
do{
*__LONG_FAIL=FUNC_COPYFILE(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("format.out",10)),qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12978);}while(r);
S_15458:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(12979);if(r)goto S_15458;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error saving formatted output to ",33),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12979);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12979);}while(r);
}
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(12980);}while(r);
}
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(12984);}while(r);
do{
sub_open_gwbasic(qbs_new_txt_len("O",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12985);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2063;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <stdint.h>",19), 0, 0, 1);
if (is_error_pending()) goto skip2063;
skip2063:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12987);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2064;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <string.h>",19), 0, 0, 1);
if (is_error_pending()) goto skip2064;
skip2064:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12988);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2065;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip2065;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb.h",12)), 0, 0, 1);
if (is_error_pending()) goto skip2065;
skip2065:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12989);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2066;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip2066;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb/include/compression.h",32)), 0, 0, 1);
if (is_error_pending()) goto skip2066;
skip2066:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12990);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2067;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip2067;
skip2067:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12991);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(12992);}while(r);
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12997);}while(r);
S_15473:;
fornext_value2069= 0 ;
fornext_finalvalue2069=*__LONG_EFLUB;
fornext_step2069= 1 ;
if (fornext_step2069<0) fornext_step_negative2069=1; else fornext_step_negative2069=0;
if (is_error_pending()) goto fornext_error2069;
goto fornext_entrylabel2069;
while(1){
fornext_value2069=fornext_step2069+(*__LONG_I);
fornext_entrylabel2069:
*__LONG_I=fornext_value2069;
if (fornext_step_negative2069){
if (fornext_value2069<fornext_finalvalue2069) break;
}else{
if (fornext_value2069>fornext_finalvalue2069) break;
}
fornext_error2069:;
if(qbevent){evnt(12998);if(r)goto S_15473;}
S_15474:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0)))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("yes",3)))))||is_error_pending()){
if(qbevent){evnt(12999);if(r)goto S_15474;}
S_15475:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_CONVERTFILETOCARRAY(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])))))||is_error_pending()){
if(qbevent){evnt(13000);if(r)goto S_15475;}
do{
SUB_SETDEPENDENCY(&(pass2070= 11ll ));
if(!qbevent)break;evnt(13001);}while(r);
}
do{
SUB_SETDEPENDENCY(&(pass2071= 12ll ));
if(!qbevent)break;evnt(13003);}while(r);
}
fornext_continue_2068:;
}
fornext_exit_2068:;
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(13007);}while(r);
do{
sub_open_gwbasic(qbs_new_txt_len("A",1),*__LONG_EFLFF,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("embedded.cpp",12)),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13008);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2072;
sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *func__embedded(qbs *handle)",32), 0, 0, 1);
if (is_error_pending()) goto skip2072;
skip2072:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13010);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2073;
sub_file_print(tmp_fileno,qbs_new_txt_len("{",1), 0, 0, 1);
if (is_error_pending()) goto skip2073;
skip2073:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13011);}while(r);
S_15485:;
fornext_value2075= 0 ;
fornext_finalvalue2075=*__LONG_EFLUB;
fornext_step2075= 1 ;
if (fornext_step2075<0) fornext_step_negative2075=1; else fornext_step_negative2075=0;
if (is_error_pending()) goto fornext_error2075;
goto fornext_entrylabel2075;
while(1){
fornext_value2075=fornext_step2075+(*__LONG_I);
fornext_entrylabel2075:
*__LONG_I=fornext_value2075;
if (fornext_step_negative2075){
if (fornext_value2075<fornext_finalvalue2075) break;
}else{
if (fornext_value2075>fornext_finalvalue2075) break;
}
fornext_error2075:;
if(qbevent){evnt(13012);if(r)goto S_15485;}
S_15486:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 2ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("",0)))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),qbs_new_txt_len("yes",3)))))||is_error_pending()){
if(qbevent){evnt(13013);if(r)goto S_15486;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2076;
sub_file_print(tmp_fileno,qbs_new_txt_len("    if (qbs_equal(handle, qbs_new_txt(",38), 0, 0, 0);
if (is_error_pending()) goto skip2076;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]]))), 0, 0, 0);
if (is_error_pending()) goto skip2076;
sub_file_print(tmp_fileno,qbs_new_txt_len("))) {return GetArrayData_",25), 0, 0, 0);
if (is_error_pending()) goto skip2076;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*__LONG_I)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])), 0, 0, 0);
if (is_error_pending()) goto skip2076;
sub_file_print(tmp_fileno,qbs_new_txt_len("();}",4), 0, 0, 1);
if (is_error_pending()) goto skip2076;
skip2076:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13014);}while(r);
}
fornext_continue_2074:;
}
fornext_exit_2074:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2077;
sub_file_print(tmp_fileno,qbs_new_txt_len("    return qbs_new_txt(",23), 0, 0, 0);
if (is_error_pending()) goto skip2077;
sub_file_print(tmp_fileno,i2string( 8738 ), 0, 0, 0);
if (is_error_pending()) goto skip2077;
sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0, 0, 1);
if (is_error_pending()) goto skip2077;
skip2077:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13017);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2078;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2078;
skip2078:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13018);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2079;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip2079;
skip2079:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13019);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(13020);}while(r);
do{
qbs_set(__STRING_O,qbs_lcase(__STRING_OS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13025);}while(r);
do{
*__LONG_WIN= 0 ;
if(!qbevent)break;evnt(13026);}while(r);
S_15496:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(13026);if(r)goto S_15496;}
do{
*__LONG_WIN= 1 ;
if(!qbevent)break;evnt(13026);}while(r);
}
do{
*__LONG_LNX= 0 ;
if(!qbevent)break;evnt(13027);}while(r);
S_15500:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13027);if(r)goto S_15500;}
do{
*__LONG_LNX= 1 ;
if(!qbevent)break;evnt(13027);}while(r);
}
do{
*__LONG_MAC= 0 ;
if(!qbevent)break;evnt(13028);}while(r);
S_15504:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13028);if(r)goto S_15504;}
do{
*__LONG_MAC= 1 ;
if(!qbevent)break;evnt(13028);}while(r);
do{
qbs_set(__STRING_O,qbs_new_txt_len("osx",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13028);}while(r);
}
do{
qbs_set(__STRING_VER,__STRING_VERSION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13029);}while(r);
do{
qbs_set(__STRING_LIBS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13030);}while(r);
do{
qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13031);}while(r);
do{
qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13033);}while(r);
S_15512:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13036);if(r)goto S_15512;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_GL=y",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13036);}while(r);
}
S_15515:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13037);if(r)goto S_15515;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_IMAGE_CODEC=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13037);}while(r);
}
S_15518:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13038);if(r)goto S_15518;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE_ONLY=y",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13038);}while(r);
}
S_15521:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13039);if(r)goto S_15521;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SOCKETS=y DEP_HTTP=y",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13039);}while(r);
}
S_15524:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13040);if(r)goto S_15524;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_PRINTER=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13040);}while(r);
}
S_15527:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13041);if(r)goto S_15527;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13041);}while(r);
}
S_15530:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13042);if(r)goto S_15530;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SCREENIMAGE=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13042);}while(r);
}
S_15533:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13043);if(r)goto S_15533;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_FONT=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13043);}while(r);
}
S_15536:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13044);if(r)goto S_15536;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_DEVICEINPUT=y",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13044);}while(r);
}
S_15539:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13045);if(r)goto S_15539;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ZLIB=y",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13045);}while(r);
}
S_15542:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13046);if(r)goto S_15542;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_EMBED=y",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13046);}while(r);
}
S_15545:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(13047);if(r)goto S_15545;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_CONSOLE=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13047);}while(r);
}
S_15548:;
if (((-(*__LONG_EXEICONSET!= 0 ))|*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(13049);if(r)goto S_15548;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_ICON_RC=y",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13049);}while(r);
}
S_15551:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13051);if(r)goto S_15551;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_MINIAUDIO=y",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13051);}while(r);
}
S_15554:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(13053);if(r)goto S_15554;}
do{
qbs_set(__STRING_MAKEDEPS,qbs_add(qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" TEMP_ID=",9)),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13053);}while(r);
}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13055);}while(r);
do{
qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13056);}while(r);
S_15559:;
if ((*__LONG_OPTIMIZECPPPROGRAM)||is_error_pending()){
if(qbevent){evnt(13059);if(r)goto S_15559;}
S_15560:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(13060);if(r)goto S_15560;}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -Og",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13061);}while(r);
}else{
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -O2",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13063);}while(r);
}
}else{
S_15566:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(13066);if(r)goto S_15566;}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,qbs_add(__STRING_CXXFLAGSEXTRA,qbs_new_txt_len(" -g",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13067);}while(r);
}
}
do{
qbs_set(__STRING_CXXLIBSEXTRA,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CXXLIBSEXTRA,qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),__STRING_MYLIBOPT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13071);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13075);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("\042",1),qbs_add(qbs_new_txt_len("\\",1),qbs_new_txt_len("\042",1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13078);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("$",1),qbs_new_txt_len("$$",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13079);}while(r);
S_15574:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13081);if(r)goto S_15574;}
do{
qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,qbs_new_txt_len("'",1),qbs_new_txt_len("'\\''",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13083);}while(r);
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("'",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13084);}while(r);
}else{
do{
qbs_set(__STRING_ESCAPEDEXE,qbs_add(qbs_add(qbs_new_txt_len("\042",1),__STRING_ESCAPEDEXE),qbs_new_txt_len("\042",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13086);}while(r);
}
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(qbs_add(FUNC_GETMAKEEXECUTABLE(),__STRING_MAKEDEPS),qbs_new_txt_len(" EXE=",5)),__STRING_ESCAPEDEXE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13089);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CXXFLAGS_EXTRA=",15),__STRING_CXXFLAGSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13090);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CFLAGS_EXTRA=",13),__STRING_CXXFLAGSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13091);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_add(qbs_new_txt_len("CXXLIBS_EXTRA=",14),__STRING_CXXLIBSEXTRA))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13092);}while(r);
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" -j",3)),FUNC_ADDQUOTES(qbs__tostr((int32)(*__LONG_MAXPARALLELPROCESSES),NULL,0))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13093);}while(r);
S_15585:;
if ((~(*__LONG_STRIPDEBUGSYMBOLS))||is_error_pending()){
if(qbevent){evnt(13095);if(r)goto S_15585;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" STRIP_SYMBOLS=n",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13096);}while(r);
}
S_15588:;
if ((*__LONG_GENERATELICENSEFILE&(~(*__BYTE_NOEXESAVED)))||is_error_pending()){
if(qbevent){evnt(13100);if(r)goto S_15588;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" GENERATE_LICENSE=y",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13101);}while(r);
}
S_15591:;
fornext_value2081= 1 ;
fornext_finalvalue2081=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2081= 1 ;
if (fornext_step2081<0) fornext_step_negative2081=1; else fornext_step_negative2081=0;
if (is_error_pending()) goto fornext_error2081;
goto fornext_entrylabel2081;
while(1){
fornext_value2081=fornext_step2081+(*__LONG_X);
fornext_entrylabel2081:
*__LONG_X=fornext_value2081;
if (fornext_step_negative2081){
if (fornext_value2081<fornext_finalvalue2081) break;
}else{
if (fornext_value2081>fornext_finalvalue2081) break;
}
fornext_error2081:;
if(qbevent){evnt(13105);if(r)goto S_15591;}
S_15592:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(13106);if(r)goto S_15592;}
do{
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2083= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13107);}while(r);
S_15594:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13108);if(r)goto S_15594;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13108);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13108);}while(r);
}
do{
qbs_set(__STRING_S,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2084= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13110);}while(r);
S_15599:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13111);if(r)goto S_15599;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13111);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13111);}while(r);
}
}
fornext_continue_2080:;
}
fornext_exit_2080:;
do{
error_goto_line=9;
if(!qbevent)break;evnt(13116);}while(r);
S_15606:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(13117);if(r)goto S_15606;}
do{
sub_kill(qbs_add(qbs_add(qbs_new_txt_len("internal/c/qbx",14),qbs__tostr((int32)(*__LONG_TEMPFOLDERINDEX),NULL,0)),qbs_new_txt_len(".o",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13118);}while(r);
}else{
do{
sub_kill(qbs_new_txt_len("internal/c/qbx.o",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13120);}while(r);
}
do{
error_goto_line=10;
if(!qbevent)break;evnt(13122);}while(r);
S_15612:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(13124);if(r)goto S_15612;}
S_15613:;
if ((*__LONG_USESYSTEMMINGW)||is_error_pending()){
if(qbevent){evnt(13126);if(r)goto S_15613;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" ",1)),FUNC_ADDQUOTES(qbs_new_txt_len("USE_SYSTEM_MINGW=y",18))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13127);}while(r);
}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=win",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13130);}while(r);
S_15617:;
fornext_value2086= 1 ;
fornext_finalvalue2086=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2086= 1 ;
if (fornext_step2086<0) fornext_step_negative2086=1; else fornext_step_negative2086=0;
if (is_error_pending()) goto fornext_error2086;
goto fornext_entrylabel2086;
while(1){
fornext_value2086=fornext_step2086+(*__LONG_X);
fornext_entrylabel2086:
*__LONG_X=fornext_value2086;
if (fornext_step_negative2086){
if (fornext_value2086<fornext_finalvalue2086) break;
}else{
if (fornext_value2086>fornext_finalvalue2086) break;
}
fornext_error2086:;
if(qbevent){evnt(13133);if(r)goto S_15617;}
do{
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2087= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13134);}while(r);
do{
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2088= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13135);}while(r);
S_15620:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(13136);if(r)goto S_15620;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(13138);}while(r);
S_15622:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(13139);if(r)goto S_15622;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),FUNC_GETCOMPILERPATH()),qbs_new_txt_len("nm.exe ",7)),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" --demangle -g >",16)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13140);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13142);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13143);}while(r);
S_15627:;
while((!(FUNC_ENDOFBUF(&(pass2090=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13144);if(r)goto S_15627;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2092=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13145);}while(r);
S_15629:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13146);if(r)goto S_15629;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13148);}while(r);
S_15631:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13149);if(r)goto S_15631;}
S_15632:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13150);if(r)goto S_15632;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13151);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13152);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13153);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13154);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2094;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2094;
skip2094:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13155);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13156);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13158);}while(r);
}
}
dl_continue_2091:;
}
dl_exit_2091:;
S_15644:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13162);if(r)goto S_15644;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13162);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13162);}while(r);
}
S_15648:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13164);if(r)goto S_15648;}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13165);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13166);}while(r);
S_15651:;
while((!(FUNC_ENDOFBUF(&(pass2095=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13167);if(r)goto S_15651;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2097=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13168);}while(r);
S_15653:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13169);if(r)goto S_15653;}
S_15654:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(13172);if(r)goto S_15654;}
do{
*__LONG_X1=-((qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))))||(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 2 )),(qbs_add(qbs_new_txt_len(" _",2),__STRING_S)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13175);}while(r);
}else{
do{
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13177);}while(r);
}
S_15659:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13179);if(r)goto S_15659;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13180);}while(r);
S_15661:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13181);if(r)goto S_15661;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13182);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2102;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2102;
skip2102:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13183);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2103;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2103;
skip2103:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13184);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2104;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2104;
skip2104:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13185);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13187);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2105;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2105;
skip2105:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13188);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13190);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13191);}while(r);
do{
goto dl_exit_2096;
if(!qbevent)break;evnt(13192);}while(r);
}
}
dl_continue_2096:;
}
dl_exit_2096:;
}
S_15677:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13198);if(r)goto S_15677;}
S_15678:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(13199);if(r)goto S_15678;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),FUNC_GETCOMPILERPATH()),qbs_new_txt_len("nm.exe ",7)),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" -D --demangle -g >",19)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE_DYNAMIC)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13200);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13202);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13203);}while(r);
S_15683:;
while((!(FUNC_ENDOFBUF(&(pass2106=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13204);if(r)goto S_15683;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2108=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13205);}while(r);
S_15685:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13206);if(r)goto S_15685;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13208);}while(r);
S_15687:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13209);if(r)goto S_15687;}
S_15688:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13210);if(r)goto S_15688;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13211);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13212);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13213);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13214);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2110;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2110;
skip2110:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13215);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13216);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13218);}while(r);
}
}
dl_continue_2107:;
}
dl_exit_2107:;
S_15700:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13222);if(r)goto S_15700;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13222);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13222);}while(r);
}
}
S_15705:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13225);if(r)goto S_15705;}
do{
qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13226);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13227);}while(r);
S_15708:;
while((!(FUNC_ENDOFBUF(&(pass2111=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13228);if(r)goto S_15708;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2113=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13229);}while(r);
S_15710:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13230);if(r)goto S_15710;}
S_15711:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(13233);if(r)goto S_15711;}
do{
*__LONG_X1=-((qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))))||(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 2 )),(qbs_add(qbs_new_txt_len(" _",2),__STRING_S)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13236);}while(r);
}else{
do{
*__LONG_X1=(qbs_equal((qbs_right(__STRING_A,__STRING_S->len+ 1 )),(qbs_add(qbs_new_txt_len(" ",1),__STRING_S))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13238);}while(r);
}
S_15716:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13240);if(r)goto S_15716;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13241);}while(r);
S_15718:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13242);if(r)goto S_15718;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13243);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2118;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2118;
skip2118:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13244);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2119;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2119;
skip2119:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13245);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2120;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2120;
skip2120:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13246);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13248);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2121;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2121;
skip2121:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13249);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13251);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13252);}while(r);
do{
goto dl_exit_2112;
if(!qbevent)break;evnt(13253);}while(r);
}
}
dl_continue_2112:;
}
dl_exit_2112:;
S_15733:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13257);if(r)goto S_15733;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13257);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13257);}while(r);
}
}
}
fornext_continue_2085:;
}
fornext_exit_2085:;
S_15740:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(13263);if(r)goto S_15740;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_MAKELINE),qbs_new_txt_len(" 1>> ",5)),__STRING_COMPILELOG),qbs_new_txt_len(" 2>&1",5)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13264);}while(r);
S_15742:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13266);if(r)goto S_15742;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2122= 0 ));
if(!qbevent)break;evnt(13268);}while(r);
}
}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13272);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_win.bat",13)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13273);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2123;
sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1);
if (is_error_pending()) goto skip2123;
skip2123:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13274);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2124;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1);
if (is_error_pending()) goto skip2124;
skip2124:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13275);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2125;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1);
if (is_error_pending()) goto skip2125;
skip2125:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13276);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2126;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo C++ Debugging: ",20),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using lldb.exe",15)), 0, 0, 1);
if (is_error_pending()) goto skip2126;
skip2126:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13277);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2127;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1);
if (is_error_pending()) goto skip2127;
skip2127:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13278);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2128;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo After the debugger launches type 'run' to start your program",65), 0, 0, 1);
if (is_error_pending()) goto skip2128;
skip2128:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13279);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2129;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo After your program crashes type 'list' to find where the problem is and fix/report it",90), 0, 0, 1);
if (is_error_pending()) goto skip2129;
skip2129:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13280);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2130;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1);
if (is_error_pending()) goto skip2130;
skip2130:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13281);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2131;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the LLDB debugger has many other useful commands, this advice is for beginners)",85), 0, 0, 1);
if (is_error_pending()) goto skip2131;
skip2131:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13282);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2132;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2132;
skip2132:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13283);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2133;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETCOMPILERPATH(),qbs_new_txt_len("lldb.exe ",9)),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0, 0, 1);
if (is_error_pending()) goto skip2133;
skip2133:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13284);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2134;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2134;
skip2134:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13285);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13286);}while(r);
}
S_15762:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13289);if(r)goto S_15762;}
S_15763:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13291);if(r)goto S_15763;}
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=osx",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13292);}while(r);
}else{
do{
qbs_set(__STRING_MAKELINE,qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" OS=lnx",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13294);}while(r);
}
S_15768:;
fornext_value2136= 1 ;
fornext_finalvalue2136=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2136= 1 ;
if (fornext_step2136<0) fornext_step_negative2136=1; else fornext_step_negative2136=0;
if (is_error_pending()) goto fornext_error2136;
goto fornext_entrylabel2136;
while(1){
fornext_value2136=fornext_step2136+(*__LONG_X);
fornext_entrylabel2136:
*__LONG_X=fornext_value2136;
if (fornext_step_negative2136){
if (fornext_value2136<fornext_finalvalue2136) break;
}else{
if (fornext_value2136>fornext_finalvalue2136) break;
}
fornext_error2136:;
if(qbevent){evnt(13297);if(r)goto S_15768;}
do{
qbs_set(__STRING_NM_OUTPUT_FILE,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2137= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13298);}while(r);
do{
qbs_set(__STRING_NM_OUTPUT_FILE_DYNAMIC,FUNC_MAKENMOUTPUTFILENAME(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])),&(pass2138= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13299);}while(r);
S_15771:;
if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||is_error_pending()){
if(qbevent){evnt(13300);if(r)goto S_15771;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(13302);}while(r);
S_15773:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(13303);if(r)goto S_15773;}
S_15774:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(13304);if(r)goto S_15774;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" --demangle -g >",16)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13304);}while(r);
}
S_15777:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13305);if(r)goto S_15777;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" >",2)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13305);}while(r);
}
}
S_15781:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(13308);if(r)goto S_15781;}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13309);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13310);}while(r);
S_15784:;
while((!(FUNC_ENDOFBUF(&(pass2140=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13311);if(r)goto S_15784;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2142=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13312);}while(r);
S_15786:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13313);if(r)goto S_15786;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13315);}while(r);
S_15788:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13316);if(r)goto S_15788;}
S_15789:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13317);if(r)goto S_15789;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13318);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13319);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13320);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13321);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2144;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2144;
skip2144:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13322);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13323);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13325);}while(r);
}
}
dl_continue_2141:;
}
dl_exit_2141:;
S_15801:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13329);if(r)goto S_15801;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13329);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13329);}while(r);
}
}
S_15806:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13332);if(r)goto S_15806;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13333);}while(r);
do{
qbs_set(__STRING_S2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13333);}while(r);
S_15809:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13334);if(r)goto S_15809;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" _",2),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13334);}while(r);
}
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13335);}while(r);
S_15813:;
while((!(FUNC_ENDOFBUF(&(pass2145=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13336);if(r)goto S_15813;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2147=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13337);}while(r);
S_15815:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13338);if(r)goto S_15815;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13340);}while(r);
S_15817:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13341);if(r)goto S_15817;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13342);}while(r);
S_15819:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13343);if(r)goto S_15819;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13344);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2150;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2150;
skip2150:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13345);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2151;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S2),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2151;
skip2151:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13346);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2152;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2152;
skip2152:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13347);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13349);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2153;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2153;
skip2153:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13350);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13352);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13353);}while(r);
do{
goto dl_exit_2146;
if(!qbevent)break;evnt(13354);}while(r);
}
}
dl_continue_2146:;
}
dl_exit_2146:;
}
S_15835:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13360);if(r)goto S_15835;}
S_15836:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13361);if(r)goto S_15836;}
do{
goto LABEL_MACOSX_LIBFIND_FAILED;
if(!qbevent)break;evnt(13361);}while(r);
}
S_15839:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(13362);if(r)goto S_15839;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),FUNC_ADDQUOTES(((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])])))),qbs_new_txt_len(" -D --demangle -g >",19)),FUNC_ADDQUOTES(__STRING_NM_OUTPUT_FILE_DYNAMIC)),qbs_new_txt_len(" 2>",3)),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_error.txt",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13363);}while(r);
}
do{
qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13365);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13366);}while(r);
S_15844:;
while((!(FUNC_ENDOFBUF(&(pass2154=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13367);if(r)goto S_15844;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2156=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13368);}while(r);
S_15846:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13369);if(r)goto S_15846;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13371);}while(r);
S_15848:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13372);if(r)goto S_15848;}
S_15849:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13373);if(r)goto S_15849;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13374);}while(r);
do{
*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13375);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13376);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13377);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2158;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,0|1)),qbs_new_txt_len(";",1)), 0, 0, 1);
if (is_error_pending()) goto skip2158;
skip2158:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13378);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13379);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13381);}while(r);
}
}
dl_continue_2155:;
}
dl_exit_2155:;
S_15861:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13385);if(r)goto S_15861;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13385);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13385);}while(r);
}
}
S_15866:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13388);if(r)goto S_15866;}
do{
qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13389);}while(r);
do{
*__LONG_FH=FUNC_OPENBUFFER(qbs_new_txt_len("I",1),__STRING_NM_OUTPUT_FILE_DYNAMIC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13390);}while(r);
S_15869:;
while((!(FUNC_ENDOFBUF(&(pass2159=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13391);if(r)goto S_15869;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2161=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13392);}while(r);
S_15871:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13393);if(r)goto S_15871;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13395);}while(r);
S_15873:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13396);if(r)goto S_15873;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13397);}while(r);
S_15875:;
if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||is_error_pending()){
if(qbevent){evnt(13398);if(r)goto S_15875;}
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13399);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2164;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0, 0, 1);
if (is_error_pending()) goto skip2164;
skip2164:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13400);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2165;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0, 0, 1);
if (is_error_pending()) goto skip2165;
skip2165:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13401);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2166;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2166;
skip2166:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13402);}while(r);
}else{
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),qbs__tostr((int32)(*__LONG_X),NULL,0)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13404);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2167;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0, 0, 1);
if (is_error_pending()) goto skip2167;
skip2167:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13405);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13407);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13408);}while(r);
do{
goto dl_exit_2160;
if(!qbevent)break;evnt(13409);}while(r);
}
}
dl_continue_2160:;
}
dl_exit_2160:;
LABEL_MACOSX_LIBFIND_FAILED:;
if(qbevent){evnt(13413);r=0;}
S_15890:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13414);if(r)goto S_15890;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13414);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13414);}while(r);
}
}
}
fornext_continue_2135:;
}
fornext_exit_2135:;
S_15897:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13420);if(r)goto S_15897;}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13422);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13423);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2168;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING1_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING1_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING1_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2168;
skip2168:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13424);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2169;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2169;
skip2169:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13425);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2170;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2170;
skip2170:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13426);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2171;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2171;
skip2171:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13427);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2172;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING1_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2172;
skip2172:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13428);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13429);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13430);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13432);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13433);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2173;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING1_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING1_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING1_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2173;
skip2173:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13434);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2174;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2174;
skip2174:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13435);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2175;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2175;
skip2175:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13436);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2176;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2176;
skip2176:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13437);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2177;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2177;
skip2177:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13438);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2178;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2178;
skip2178:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13439);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2179;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2179;
skip2179:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13440);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2180;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2180;
skip2180:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13441);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2181;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2181;
skip2181:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13442);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2182;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2182;
skip2182:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13443);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2183;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2183;
skip2183:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13444);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2184;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2184;
skip2184:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13445);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2185;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2185;
skip2185:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13446);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2186;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2186;
skip2186:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13447);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2187;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2187;
skip2187:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13448);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13449);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13450);}while(r);
}else{
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13454);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13455);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2188;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2188;
skip2188:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13456);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2189;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2189;
skip2189:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13457);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2190;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2190;
skip2190:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13458);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2191;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2191;
skip2191:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13459);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2192;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2192;
skip2192:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13460);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2193;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2193;
skip2193:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13461);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2194;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2194;
skip2194:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13462);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2195;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2195;
skip2195:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13463);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2196;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2196;
skip2196:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13464);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2197;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2197;
skip2197:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13465);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2198;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2198;
skip2198:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13466);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2199;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2199;
skip2199:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13467);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2200;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2200;
skip2200:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13468);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13469);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13470);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13472);}while(r);
do{
sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13473);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2201;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2201;
skip2201:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13474);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2202;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2202;
skip2202:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13475);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2203;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2203;
skip2203:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13476);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2204;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2204;
skip2204:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13477);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2205;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2205;
skip2205:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13478);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2206;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2206;
skip2206:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13479);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2207;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2207;
skip2207:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13480);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2208;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2208;
skip2208:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13481);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2209;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2209;
skip2209:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13482);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2210;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2210;
skip2210:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13483);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2211;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2211;
skip2211:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13484);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2212;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2212;
skip2212:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13485);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2213;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING1_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING1_CHR_QUOTE),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2213;
skip2213:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13486);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2214;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2214;
skip2214:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13487);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2215;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2215;
skip2215:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13488);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13489);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13490);}while(r);
}
S_15964:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(13494);if(r)goto S_15964;}
do{
sub_shell2(qbs_add(qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" 1>> ",5)),__STRING_COMPILELOG),qbs_new_txt_len(" 2>&1",5)),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13495);}while(r);
S_15966:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13496);if(r)goto S_15966;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2216= 0 ));
if(!qbevent)break;evnt(13498);}while(r);
}
}
S_15970:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13502);if(r)goto S_15970;}
do{
*__LONG_FF=func_freefile();
if(!qbevent)break;evnt(13503);}while(r);
S_15972:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||is_error_pending()){
if(qbevent){evnt(13504);if(r)goto S_15972;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13504);}while(r);
}
do{
sub_open(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)), 4 ,NULL,NULL,*__LONG_FF,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13505);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2217;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname ",10)),func_chr( 34 )),qbs_new_txt_len("$0",2)),func_chr( 34 )),qbs_new_txt_len(")",1)),func_chr( 34 )), 0, 0, 0);
if (is_error_pending()) goto skip2217;
skip2217:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13506);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2218;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2218;
skip2218:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13507);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2219;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" &",2)), 0, 0, 0);
if (is_error_pending()) goto skip2219;
skip2219:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13508);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2220;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2220;
skip2220:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13509);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2221;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'tell application ",31),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to close (every window whose name contains ",44)),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),func_chr( 34 )),qbs_new_txt_len(")' &",4)), 0, 0, 0);
if (is_error_pending()) goto skip2221;
skip2221:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13510);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2222;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2222;
skip2222:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13511);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2223;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'if (count the windows of application ",51),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(") is 0 then tell application ",29)),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to quit' &",11)), 0, 0, 0);
if (is_error_pending()) goto skip2223;
skip2223:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13512);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2224;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2224;
skip2224:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13513);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2225;
sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0);
if (is_error_pending()) goto skip2225;
skip2225:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13514);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2226;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2226;
skip2226:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13515);}while(r);
do{
sub_close(*__LONG_FF,1);
if(!qbevent)break;evnt(13516);}while(r);
do{
sub_shell2(qbs_add(qbs_new_txt_len("chmod +x ",9),FUNC_ADDQUOTES(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)))),2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13517);}while(r);
}
}
S_15990:;
if ((*__BYTE_NOCCOMPILEMODE)||is_error_pending()){
if(qbevent){evnt(13522);if(r)goto S_15990;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(13522);}while(r);
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(13522);}while(r);
}
S_15994:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||is_error_pending()){
if(qbevent){evnt(13523);if(r)goto S_15994;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13523);}while(r);
}
S_15997:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||is_error_pending()){
if(qbevent){evnt(13524);if(r)goto S_15997;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(13525);}while(r);
do{
qbs_set(__STRING_LASTBINARYGENERATED,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13526);}while(r);
}else{
do{
*__LONG_COMPFAILED= 1 ;
if(!qbevent)break;evnt(13528);}while(r);
}
S_16003:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(13531);if(r)goto S_16003;}
S_16004:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13532);if(r)goto S_16004;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("C++ Compilation failed ",23),func_chr( 0 )),qbs_new_txt_len("(Check ",7)),qbs__trim(__STRING_COMPILELOG)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13533);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(13534);}while(r);
}
S_16008:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(13536);if(r)goto S_16008;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30));
if (is_error_pending()) goto skip2227;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2227:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13537);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Check ",6),__STRING_COMPILELOG),qbs_new_txt_len(" for details.",13)));
if (is_error_pending()) goto skip2228;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2228:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13538);}while(r);
}
}else{
S_16013:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(13541);if(r)goto S_16013;}
do{
qbs_set(__STRING_LOCATION,__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13542);}while(r);
S_16015:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(13543);if(r)goto S_16015;}
do{
qbs_set(__STRING_LOCATION,qbs_add(func__cwd(),__STRING_LOCATION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13543);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Output: ",8));
if (is_error_pending()) goto skip2229;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,FUNC_REMOVEDOUBLESLASHES(__STRING_LOCATION));
if (is_error_pending()) goto skip2229;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2229:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13544);}while(r);
}
}
LABEL_SKIP_BUILD:;
if(qbevent){evnt(13548);r=0;}
S_16021:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13552);if(r)goto S_16021;}
do{
goto LABEL_IDERET6;
if(!qbevent)break;evnt(13552);}while(r);
}
LABEL_NOCCOMPILE:;
if(qbevent){evnt(13554);r=0;}
S_16024:;
if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(~(*__BYTE_CONSOLEMODE)))||is_error_pending()){
if(qbevent){evnt(13556);if(r)goto S_16024;}
do{
if(qbevent){evnt(13556);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(13556);}while(r);
}
S_16027:;
if ((-(*__LONG_COMPFAILED!= 0 ))||is_error_pending()){
if(qbevent){evnt(13557);if(r)goto S_16027;}
do{
if(qbevent){evnt(13557);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13557);}while(r);
}
do{
if(qbevent){evnt(13558);}
exit_code= 0 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13558);}while(r);
LABEL_QBERROR_TEST:;
if(qbevent){evnt(13560);r=0;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(13561);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}
if(!qbevent)break;evnt(13562);}while(r);
LABEL_QBERROR:;
if(qbevent){evnt(13564);r=0;}
S_16033:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13565);if(r)goto S_16033;}
S_16034:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13566);if(r)goto S_16034;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2230:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13567);}while(r);
}else{
do{
sub__autodisplay();
if(!qbevent)break;evnt(13569);}while(r);
do{
qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13);
if(!qbevent)break;evnt(13570);}while(r);
do{
qbg_sub_color( 7 , 0 ,NULL,NULL,3);
if(!qbevent)break;evnt(13571);}while(r);
}
do{
sub__controlchr( 2 );
if(!qbevent)break;evnt(13573);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("A QB error has occurred (and you have compiled in debugging support).",69));
if (is_error_pending()) goto skip2231;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2231:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13574);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64pe.bas):",34));
if (is_error_pending()) goto skip2232;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2232:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13575);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Error",5));
if (is_error_pending()) goto skip2233;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2233;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2233:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13576);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Description: ",13));
if (is_error_pending()) goto skip2234;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__errormessage(NULL,0));
if (is_error_pending()) goto skip2234;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2234:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13577);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Line",4));
if (is_error_pending()) goto skip2235;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2235;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2235:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13578);}while(r);
S_16047:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(13579);if(r)goto S_16047;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included line",13));
if (is_error_pending()) goto skip2236;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2236;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2236:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13580);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included file ",14));
if (is_error_pending()) goto skip2237;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__inclerrorfile());
if (is_error_pending()) goto skip2237;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2237:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13581);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2238:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13583);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27));
if (is_error_pending()) goto skip2239;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2239:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13584);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ideerror =",10));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("linenumber =",12));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2240;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2240:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13585);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7));
if (is_error_pending()) goto skip2241;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_CA);
if (is_error_pending()) goto skip2241;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18));
if (is_error_pending()) goto skip2241;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_IDECOMMAND);
if (is_error_pending()) goto skip2241;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2241;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2241:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13586);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16));
if (is_error_pending()) goto skip2242;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_LINEFRAGMENT);
if (is_error_pending()) goto skip2242;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2242;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2242:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13587);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(13588);}while(r);
}
S_16058:;
if ((*__LONG_IDEERROR)||is_error_pending()){
if(qbevent){evnt(13591);if(r)goto S_16058;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(13592);}while(r);
do{
sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 5 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13593);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2243;
sub_file_print(tmp_fileno,func_date(), 0, 0, 0);
if (is_error_pending()) goto skip2243;
sub_file_print(tmp_fileno,func_time(), 0, 0, 0);
if (is_error_pending()) goto skip2243;
sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1);
if (is_error_pending()) goto skip2243;
skip2243:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13594);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2244;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2244;
skip2244:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13595);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2245;
sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1);
if (is_error_pending()) goto skip2245;
skip2245:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13596);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2246;
sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1);
if (is_error_pending()) goto skip2246;
skip2246:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13597);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2247;
sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1);
if (is_error_pending()) goto skip2247;
skip2247:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13598);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2248;
sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1);
if (is_error_pending()) goto skip2248;
skip2248:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13599);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(13600);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13601);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;}
if(!qbevent)break;evnt(13602);}while(r);
}
do{
*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED;
if(!qbevent)break;evnt(13605);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 1 ;
if(!qbevent)break;evnt(13606);}while(r);
S_16073:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13608);if(r)goto S_16073;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2249;
sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1);
if (is_error_pending()) goto skip2249;
skip2249:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13608);}while(r);
}
S_16076:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13609);if(r)goto S_16076;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2250;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0);
if (is_error_pending()) goto skip2250;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2250;
skip2250:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13609);}while(r);
}
S_16079:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13610);if(r)goto S_16079;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2251;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0);
if (is_error_pending()) goto skip2251;
sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1);
if (is_error_pending()) goto skip2251;
skip2251:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13610);}while(r);
}
S_16082:;
if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||is_error_pending()){
if(qbevent){evnt(13612);if(r)goto S_16082;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(13614);}while(r);
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),func__errormessage(NULL,0)),qbs_new_txt_len(":",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13615);}while(r);
S_16085:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(13616);if(r)goto S_16085;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs__tostr((uint32)(get_error_err()),NULL,0)),qbs_new_txt_len("-",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13616);}while(r);
}
S_16088:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(13617);if(r)goto S_16088;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs__tostr((int32)(func__errorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13617);}while(r);
}
S_16091:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(13618);if(r)goto S_16091;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),qbs__tostr((int32)(func__inclerrorline()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13618);}while(r);
}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13619);}while(r);
S_16095:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(13620);if(r)goto S_16095;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13620);}while(r);
}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;}
if(!qbevent)break;evnt(13621);}while(r);
}
S_16100:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||is_error_pending()){
if(qbevent){evnt(13624);if(r)goto S_16100;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13625);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13625);}while(r);
}
do{
*__INTEGER_QBERRORCODE=get_error_err();
if(!qbevent)break;evnt(13629);}while(r);
do{
*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl());
if(!qbevent)break;evnt(13630);}while(r);
S_16106:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||is_error_pending()){
if(qbevent){evnt(13631);if(r)goto S_16106;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;}
if(!qbevent)break;evnt(13631);}while(r);
}
S_16109:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||is_error_pending()){
if(qbevent){evnt(13632);if(r)goto S_16109;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;}
if(!qbevent)break;evnt(13632);}while(r);
}
S_16112:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||is_error_pending()){
if(qbevent){evnt(13633);if(r)goto S_16112;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;}
if(!qbevent)break;evnt(13633);}while(r);
}
do{
sub_end();
if(!qbevent)break;evnt(13634);}while(r);
LABEL_ERRMES:;
if(qbevent){evnt(13636);r=0;}
S_16116:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13637);if(r)goto S_16116;}
do{
qbs_set(__STRING_A,__STRING_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13637);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(13637);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13638);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(13638);}while(r);
do{
*__LONG_ERLDIFF= 0 ;
if(!qbevent)break;evnt(13640);}while(r);
S_16123:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE== 1 ))||is_error_pending()){
if(qbevent){evnt(13641);if(r)goto S_16123;}
S_16124:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||is_error_pending()){
if(qbevent){evnt(13643);if(r)goto S_16124;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SUB/FUNCTION",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13643);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13643);}while(r);
}
S_16128:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("Name already in use (vwatch)",28))))||is_error_pending()){
if(qbevent){evnt(13644);if(r)goto S_16128;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax Error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13644);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13644);}while(r);
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(13644);}while(r);
}
S_16133:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("SUB/FUNCTION not allowed",24),0)))||is_error_pending()){
if(qbevent){evnt(13645);if(r)goto S_16133;}
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(13645);}while(r);
}
}
S_16137:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(qbs_notequal(__STRING_INCERROR,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(13647);if(r)goto S_16137;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,func_chr( 1 )),__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13647);}while(r);
}
S_16140:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13649);if(r)goto S_16140;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER+*__LONG_ERLDIFF;
if(!qbevent)break;evnt(13650);}while(r);
do{
qbs_set(__STRING_IDEMESSAGE,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13651);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(13652);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2252:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13655);}while(r);
S_16146:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13656);if(r)goto S_16146;}
S_16147:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(13657);if(r)goto S_16147;}
do{
qbg_sub_color( 4 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13658);}while(r);
}else{
do{
qbg_sub_color( 9 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13660);}while(r);
}
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_A);
if (is_error_pending()) goto skip2253;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2253:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13663);}while(r);
S_16154:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13664);if(r)goto S_16154;}
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13664);}while(r);
}
S_16157:;
fornext_value2255= 1 ;
fornext_finalvalue2255=__STRING_LINEFRAGMENT->len;
fornext_step2255= 1 ;
if (fornext_step2255<0) fornext_step_negative2255=1; else fornext_step_negative2255=0;
if (is_error_pending()) goto fornext_error2255;
goto fornext_entrylabel2255;
while(1){
fornext_value2255=fornext_step2255+(*__LONG_I);
fornext_entrylabel2255:
*__LONG_I=fornext_value2255;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2255){
if (fornext_value2255<fornext_finalvalue2255) break;
}else{
if (fornext_value2255>fornext_finalvalue2255) break;
}
fornext_error2255:;
if(qbevent){evnt(13665);if(r)goto S_16157;}
S_16158:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(13666);if(r)goto S_16158;}
do{
sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(13666);}while(r);
}
fornext_continue_2254:;
}
fornext_exit_2254:;
S_16162:;
fornext_value2258= 1 ;
fornext_finalvalue2258=__STRING_WHOLELINE->len;
fornext_step2258= 1 ;
if (fornext_step2258<0) fornext_step_negative2258=1; else fornext_step_negative2258=0;
if (is_error_pending()) goto fornext_error2258;
goto fornext_entrylabel2258;
while(1){
fornext_value2258=fornext_step2258+(*__LONG_I);
fornext_entrylabel2258:
*__LONG_I=fornext_value2258;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2258){
if (fornext_value2258<fornext_finalvalue2258) break;
}else{
if (fornext_value2258>fornext_finalvalue2258) break;
}
fornext_error2258:;
if(qbevent){evnt(13668);if(r)goto S_16162;}
S_16163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,0|1),__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(13669);if(r)goto S_16163;}
do{
sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(13669);}while(r);
}
fornext_continue_2257:;
}
fornext_exit_2257:;
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT));
if (is_error_pending()) goto skip2260;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2260:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13671);}while(r);
S_16168:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13672);if(r)goto S_16168;}
do{
qbg_sub_color( 8 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13672);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("LINE ",5));
if (is_error_pending()) goto skip2261;
makefit(tqbs);
qbs_print(tqbs,0);
skip2261:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13673);}while(r);
S_16172:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13674);if(r)goto S_16172;}
do{
qbg_sub_color( 15 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13674);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_add(qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0),qbs_new_txt_len(":",1)));
if (is_error_pending()) goto skip2262;
makefit(tqbs);
qbs_print(tqbs,0);
skip2262:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13675);}while(r);
S_16176:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(13676);if(r)goto S_16176;}
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(13676);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_WHOLELINE);
if (is_error_pending()) goto skip2263;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2263:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13677);}while(r);
S_16180:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13679);if(r)goto S_16180;}
do{
if(qbevent){evnt(13679);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13679);}while(r);
}
do{
if(qbevent){evnt(13680);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(13680);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(25770,20,"aftermain.bas");}while(r);
sub_end();
return;
}
