error_track_line(0,0,NULL);
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.6.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,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,13,"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,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{
if(!qbevent)break;evnt(33,31,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,32,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,33,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,34,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,35,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,36,"type.bi");}while(r);
do{
if(!qbevent)break;evnt(33,37,"type.bi");}while(r);
do{
*__LONG_ISSTRING= 1073741824 ;
if(!qbevent)break;evnt(33,39,"type.bi");}while(r);
do{
*__LONG_ISFLOAT= 536870912 ;
if(!qbevent)break;evnt(33,40,"type.bi");}while(r);
do{
*__LONG_ISUNSIGNED= 268435456 ;
if(!qbevent)break;evnt(33,41,"type.bi");}while(r);
do{
*__LONG_ISPOINTER= 134217728 ;
if(!qbevent)break;evnt(33,42,"type.bi");}while(r);
do{
*__LONG_ISFIXEDLENGTH= 67108864 ;
if(!qbevent)break;evnt(33,43,"type.bi");}while(r);
do{
*__LONG_ISINCONVENTIONALMEMORY= 33554432 ;
if(!qbevent)break;evnt(33,44,"type.bi");}while(r);
do{
*__LONG_ISOFFSETINBITS= 16777216 ;
if(!qbevent)break;evnt(33,45,"type.bi");}while(r);
do{
*__LONG_ISARRAY= 8388608 ;
if(!qbevent)break;evnt(33,46,"type.bi");}while(r);
do{
*__LONG_ISREFERENCE= 4194304 ;
if(!qbevent)break;evnt(33,47,"type.bi");}while(r);
do{
*__LONG_ISUDT= 2097152 ;
if(!qbevent)break;evnt(33,48,"type.bi");}while(r);
do{
*__LONG_ISOFFSET= 1048576 ;
if(!qbevent)break;evnt(33,49,"type.bi");}while(r);
do{
*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,51,"type.bi");}while(r);
do{
*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,52,"type.bi");}while(r);
do{
*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS;
if(!qbevent)break;evnt(33,53,"type.bi");}while(r);
do{
*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,54,"type.bi");}while(r);
do{
*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,55,"type.bi");}while(r);
do{
*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,56,"type.bi");}while(r);
do{
*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,57,"type.bi");}while(r);
do{
*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,58,"type.bi");}while(r);
do{
*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,59,"type.bi");}while(r);
do{
*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,60,"type.bi");}while(r);
do{
*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(33,61,"type.bi");}while(r);
do{
*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,62,"type.bi");}while(r);
do{
*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,63,"type.bi");}while(r);
do{
*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,64,"type.bi");}while(r);
do{
*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,65,"type.bi");}while(r);
S_126:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,65,"type.bi");if(r)goto S_126;}
do{
*__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,65,"type.bi");}while(r);
}
do{
*__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,66,"type.bi");}while(r);
S_130:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(33,66,"type.bi");if(r)goto S_130;}
do{
*__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,66,"type.bi");}while(r);
}
do{
*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER;
if(!qbevent)break;evnt(33,67,"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,69,"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,70,"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,71,"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,72,"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,73,"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,75,"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,76,"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,77,"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,78,"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,79,"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,80,"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,81,"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,82,"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,85,"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,86,"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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A1000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C4000003C5000003C6000003C7000003C80000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003C9000003AC000003AD000003AE000003CA000003AF000003CC000003CD000003CB000003CE0000038600000388000003890000038A0000038C0000038E0000038F000000B10000226500002264000003AA000003AB000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000106000000FC000000E900000101000000E400000123000000E500000107000001420000011300000156000001570000012B00000179000000C4000000C5000000C9000000E6000000C60000014D000000F600000122000000A20000015A0000015B000000D6000000DC000000F8000000A3000000D8000000D7000000A4000001000000012A000000F30000017B0000017C0000017A0000201D000000A6000000A9000000AE000000AC000000BD000000BC00000141000000AB000000BB0000259100002592000025930000250200002524000001040000010C00000118000001160000256300002551000025570000255D0000012E000001600000251000002514000025340000252C0000251C000025000000253C000001720000016A0000255A00002554000025690000256600002560000025500000256C0000017D000001050000010D00000119000001170000012F00000161000001730000016B0000017E000025180000250C00002588000025840000258C0000259000002580000000D3000000DF0000014C00000143000000F5000000D5000000B50000014400000136000001370000013B0000013C00000146000001120000014500002019000000AD000000B10000201C000000BE000000B6000000A7000000F70000201E000000B000002219000000B7000000B9000000B3000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000000D700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000F0000000D0000000CA000000CB000000C800000131000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B5000000FE000000DE000000DA000000DB000000D9000000FD000000DD000000AF000000B4000000AD000000B100002017000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E40000016F00000107000000E700000142000000EB0000015000000151000000EE00000179000000C400000106000000C9000001390000013A000000F4000000F60000013D0000013E0000015A0000015B000000D6000000DC000001640000016500000141000000D70000010D000000E1000000ED000000F3000000FA00000104000001050000017D0000017E0000011800000119000000AC0000017A0000010C0000015F000000AB000000BB0000259100002592000025930000250200002524000000C1000000C20000011A0000015E0000256300002551000025570000255D0000017B0000017C0000251000002514000025340000252C0000251C000025000000253C00000102000001030000255A00002554000025690000256600002560000025500000256C000000A400000111000001100000010E000000CB0000010F00000147000000CD000000CE0000011B000025180000250C0000258800002584000001620000016E00002580000000D3000000DF000000D4000001430000014400000148000001600000016100000154000000DA0000015500000170000000FD000000DD00000163000000B4000000AD000002DD000002DB000002C7000002D8000000A7000000F7000000B8000000B0000000A8000002D9000001710000015800000159000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000045200000402000004530000040300000451000004010000045400000404000004550000040500000456000004060000045700000407000004580000040800000459000004090000045A0000040A0000045B0000040B0000045C0000040C0000045E0000040E0000045F0000040F0000044E0000042E0000044A0000042A0000043000000410000004310000041100000446000004260000043400000414000004350000041500000444000004240000043300000413000000AB000000BB0000259100002592000025930000250200002524000004450000042500000438000004180000256300002551000025570000255D00000439000004190000251000002514000025340000252C0000251C000025000000253C0000043A0000041A0000255A00002554000025690000256600002560000025500000256C000000A40000043B0000041B0000043C0000041C0000043D0000041D0000043E0000041E0000043F000025180000250C00002588000025840000041F0000044F000025800000042F0000044000000420000004410000042100000442000004220000044300000423000004360000041600000432000004120000044C0000042C00002116000000AD0000044B0000042B000004370000041700000448000004280000044D0000042D00000449000004290000044700000427000000A7000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE00000131000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F900000130000000D6000000DC000000F8000000A3000000D80000015E0000015F000000E1000000ED000000F3000000FA000000F1000000D10000011E0000011F000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000BA000000AA000000CA000000CB000000C800000000000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B500000000000000D7000000DA000000DB000000D9000000EC000000FF000000AF000000B4000000AD000000B100000000000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E3000000E0000000C1000000E7000000EA000000CA000000E8000000CD000000D4000000EC000000C3000000C2000000C9000000C0000000C8000000F4000000F5000000F2000000DA000000F9000000CC000000D5000000DC000000A2000000A3000000D9000020A7000000D3000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000D2000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000D0000000F0000000DE000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000FE000000FB000000DD000000FD000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000C1000000CD000000D3000000DA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000C2000000E0000000B6000000E7000000EA000000EB000000E8000000EF000000EE00002017000000C0000000A7000000C9000000C8000000CA000000F4000000CB000000CF000000FB000000F9000000A4000000D4000000DC000000A2000000A3000000D9000000DB00000192000000A6000000B4000000F3000000FA000000A8000000B8000000B3000000AF000000CE00002310000000AC000000BD000000BC000000BE000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F00000020000000210000002200000023000000240000066A000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000B0000000B7000022190000221A0000259200002500000025020000253C000025240000252C0000251C00002534000025100000250C0000251400002518000003B20000221E000003C6000000B1000000BD000000BC00002248000000AB000000BB0000FEF70000FEF800000000000000000000FEFB0000FEFC00000000000000A0000000AD0000FE82000000A3000000A40000FE8400000000000000000000FE8E0000FE8F0000FE950000FE990000060C0000FE9D0000FEA10000FEA5000006600000066100000662000006630000066400000665000006660000066700000668000006690000FED10000061B0000FEB10000FEB50000FEB90000061F000000A20000FE800000FE810000FE830000FE850000FECA0000FE8B0000FE8D0000FE910000FE930000FE970000FE9B0000FE9F0000FEA30000FEA70000FEA90000FEAB0000FEAD0000FEAF0000FEB30000FEB70000FEBB0000FEBF0000FEC10000FEC50000FECB0000FECF000000A6000000AC000000F7000000D70000FEC9000006400000FED30000FED70000FEDB0000FEDF0000FEE30000FEE70000FEEB0000FEED0000FEEF0000FEF30000FEBD0000FECC0000FECE0000FECD0000FEE10000FE7D000006510000FEE50000FEE90000FEEC0000FEF00000FEF20000FED00000FED50000FEF50000FEF60000FEDD0000FED90000FEF1000025A000000000",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000A40000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F0000040100000451000004040000045400000407000004570000040E0000045E000000B000002219000000B70000221A00002116000000A4000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000000000000000000000000000000000000000000000000000038600000000000000B7000000AC000000A600002018000020190000038800002015000003890000038A000003AA0000038C00000000000000000000038E000003AB000000A90000038F000000B2000000B3000003AC000000A3000003AD000003AE000003AF000003CA00000390000003CC000003CD00000391000003920000039300000394000003950000039600000397000000BD0000039800000399000000AB000000BB00002591000025920000259300002502000025240000039A0000039B0000039C0000039D0000256300002551000025570000255D0000039E0000039F0000251000002514000025340000252C0000251C000025000000253C000003A0000003A10000255A00002554000025690000256600002560000025500000256C000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000025180000250C0000258800002584000003B4000003B500002580000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C400000384000000AD000000B1000003C5000003C6000003C7000000A7000003C800000385000000B0000000A8000003C9000003CB000003B0000003CE000025A0000000A0",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E000020260000202000002021000000000000203000000160000020390000015A000001640000017D000001790000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000001610000203A0000015B000001650000017E0000017A000000A0000002C7000002D800000141000000A400000104000000A6000000A7000000A8000000A90000015E000000AB000000AC000000AD000000AE0000017B000000B0000000B1000002DB00000142000000B4000000B5000000B6000000B7000000B8000001050000015F000000BB0000013D000002DD0000013E0000017C00000154000000C1000000C200000102000000C40000013900000106000000C70000010C000000C900000118000000CB0000011A000000CD000000CE0000010E000001100000014300000147000000D3000000D400000150000000D6000000D7000001580000016E000000DA00000170000000DC000000DD00000162000000DF00000155000000E1000000E200000103000000E40000013A00000107000000E70000010D000000E900000119000000EB0000011B000000ED000000EE0000010F000001110000014400000148000000F3000000F400000151000000F6000000F7000001590000016F000000FA00000171000000FC000000FD00000163000002D9",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000402000004030000201A000004530000201E000020260000202000002021000020AC0000203000000409000020390000040A0000040C0000040B0000040F0000045200002018000020190000201C0000201D0000202200002013000020140000000000002122000004590000203A0000045A0000045C0000045B0000045F000000A00000040E0000045E00000408000000A400000490000000A6000000A700000401000000A900000404000000AB000000AC000000AD000000AE00000407000000B0000000B1000004060000045600000491000000B5000000B6000000B7000004510000211600000454000000BB00000458000004050000045500000457000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C600002030000001600000203900000152000000000000017D000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000017E00000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF000000D0000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000000DD000000DE000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF000000F0000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000000FD000000FE000000FF",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E00002026000020200000202100000000000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000000000000000000000000000A00000038500000386000000A3000000A4000000A5000000A6000000A7000000A8000000A900000000000000AB000000AC000000AD000000AE00002015000000B0000000B1000000B2000000B300000384000000B5000000B6000000B700000388000003890000038A000000BB0000038C000000BD0000038E0000038F000003900000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A100000000000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003AA000003AB000003AC000003AD000003AE000003AF000003B0000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C2000003C3000003C4000003C5000003C6000003C7000003C8000003C9000003CA000003CB000003CC000003CD000003CE00000000",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000016000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF0000011E000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001300000015E000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF0000011F000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001310000015F000000FF",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000000000000000000000000000000000000A0000000A1000000A2000000A3000020AA000000A5000000A6000000A7000000A8000000A9000000D7000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000F7000000BB000000BC000000BD000000BE000000BF000005B0000005B1000005B2000005B3000005B4000005B5000005B6000005B7000005B8000005B900000000000005BB000005BC000005BD000005BE000005BF000005C0000005C1000005C2000005C3000005F0000005F1000005F2000005F3000005F400000000000000000000000000000000000000000000000000000000000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA00000000000000000000200E0000200F00000000",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000067E0000201A000001920000201E000020260000202000002021000002C600002030000006790000203900000152000006860000069800000688000006AF00002018000020190000201C0000201D000020220000201300002014000006A900002122000006910000203A000001530000200C0000200D000006BA000000A00000060C000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000006BE000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B90000061B000000BB000000BC000000BD000000BE0000061F000006C10000062100000622000006230000062400000625000006260000062700000628000006290000062A0000062B0000062C0000062D0000062E0000062F00000630000006310000063200000633000006340000063500000636000000D70000063700000638000006390000063A00000640000006410000064200000643000000E000000644000000E200000645000006460000064700000648000000E7000000E8000000E9000000EA000000EB000006490000064A000000EE000000EF0000064B0000064C0000064D0000064E000000F40000064F00000650000000F700000651000000F900000652000000FB000000FC0000200E0000200F000006D2",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E0000202600002020000020210000000000002030000000000000203900000000000000A8000002C7000000B80000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000AF000002DB00000000000000A000000000000000A2000000A3000000A400000000000000A6000000A7000000D8000000A900000156000000AB000000AC000000AD000000AE000000C6000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000F8000000B900000157000000BB000000BC000000BD000000BE000000E6000001040000012E0000010000000106000000C4000000C500000118000001120000010C000000C9000001790000011600000122000001360000012A0000013B000001600000014300000145000000D30000014C000000D5000000D6000000D700000172000001410000015A0000016A000000DC0000017B0000017D000000DF000001050000012F0000010100000107000000E4000000E500000119000001130000010D000000E90000017A0000011700000123000001370000012B0000013C000001610000014400000146000000F30000014D000000F5000000F6000000F700000173000001420000015B0000016B000000FC0000017C0000017E000002D9",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C200000102000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB00000300000000CD000000CE000000CF00000110000000D100000309000000D3000000D4000001A0000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001AF00000303000000DF000000E0000000E1000000E200000103000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB00000301000000ED000000EE000000EF00000111000000F100000323000000F3000000F4000001A1000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001B0000020AB000000FF",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",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("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F00002514000025340000252C0000251C000025000000253C00002563000025510000255A00002554000025690000256600002560000025500000256C00002510000025910000259200002593000025020000252400002116000000A7000025570000255D000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",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@$ERRORLOCATION@$EXEICON@$IF@$INCLUDEONCE@$LET@$MIDISOUNDFONT@$NOPREFIX@$RESIZE@$SCREENHIDE@$SCREENSHOW@$UNSTABLE@$USELIBRARY@$VERSIONINFO@",220)),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$@_DYNAMIC@",237)),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$@_STATIC@_STATUSCODE@_STRCMP@_STRETCH@_STRICMP@",664)),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(172);}while(r);
do{
if(!qbevent)break;evnt(174);}while(r);
do{
*__LONG_OPTMAX= 256 ;
if(!qbevent)break;evnt(175);}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(176);}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(180);}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(184);}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(189);}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(190);}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(191);}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(192);}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(194);}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(195);}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(199);}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(200);}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(201);}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(202);}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(203);}while(r);
do{
if(!qbevent)break;evnt(211);}while(r);
do{
if(!qbevent)break;evnt(213);}while(r);
do{
if(!qbevent)break;evnt(222);}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(223);}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(224);}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(225);}while(r);
do{
if(!qbevent)break;evnt(231);}while(r);
do{
qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(232);}while(r);
S_769:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||is_error_pending()){
if(qbevent){evnt(233);if(r)goto S_769;}
do{
qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(233);}while(r);
}
do{
if(!qbevent)break;evnt(235);}while(r);
S_773:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(236);if(r)goto S_773;}
do{
*__LONG_MACOSX= 1 ;
if(!qbevent)break;evnt(236);}while(r);
}
do{
if(!qbevent)break;evnt(239);}while(r);
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(240);}while(r);
S_778:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(241);if(r)goto S_778;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(241);}while(r);
}
S_781:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(242);if(r)goto S_781;}
do{
qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(242);}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(245);}while(r);
S_785:;
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(246);if(r)goto S_785;}
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(247);}while(r);
fornext_continue_8:;
}
fornext_exit_8:;
do{
if(!qbevent)break;evnt(251);}while(r);
do{
if(!qbevent)break;evnt(252);}while(r);
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(253);}while(r);
S_791:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(254);if(r)goto S_791;}
do{
qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(254);}while(r);
}
do{
if(!qbevent)break;evnt(256);}while(r);
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(257);}while(r);
S_796:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(258);if(r)goto S_796;}
do{
qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(258);}while(r);
}
do{
error_goto_line=1;
if(!qbevent)break;evnt(261);}while(r);
do{
if(!qbevent)break;evnt(263);}while(r);
S_801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(264);if(r)goto S_801;}
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\\\\",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(264);}while(r);
}
S_805:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(265);if(r)goto S_805;}
do{
qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(265);}while(r);
do{
qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(265);}while(r);
}
S_809:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||is_error_pending()){
if(qbevent){evnt(267);if(r)goto S_809;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(267);}while(r);
}
do{
*__LONG_THISINSTANCEPID=(  int32  )getpid();
if(!qbevent)break;evnt(273);}while(r);
do{
if(!qbevent)break;evnt(274);}while(r);
S_814:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||is_error_pending()){
if(qbevent){evnt(276);if(r)goto S_814;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(277);}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(278);}while(r);
do{
*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4)));
if(!qbevent)break;evnt(279);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(280);}while(r);
S_819:;
if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||is_error_pending()){
if(qbevent){evnt(281);if(r)goto S_819;}
do{
sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1);
if(!qbevent)break;evnt(283);}while(r);
}else{
S_822:;
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(285);if(r)goto S_822;}
do{
sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1);
if(!qbevent)break;evnt(287);}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(289);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(290);}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(291);}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(292);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(293);}while(r);
S_829:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_CHECKPID)== 1 )))||is_error_pending()){
if(qbevent){evnt(294);if(r)goto S_829;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1);
if(!qbevent)break;evnt(297);}while(r);
do{
goto fornext_exit_13;
if(!qbevent)break;evnt(298);}while(r);
}
fornext_continue_13:;
}
fornext_exit_13:;
S_834:;
if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||is_error_pending()){
if(qbevent){evnt(301);if(r)goto S_834;}
do{
sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1);
if(!qbevent)break;evnt(303);}while(r);
}
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(306);}while(r);
S_839:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(307);if(r)goto S_839;}
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(308);}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(308);}while(r);
S_842:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||is_error_pending()){
if(qbevent){evnt(309);if(r)goto S_842;}
do{
sub_mkdir(__STRING_TMPDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(310);}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(313);}while(r);
}else{
do{
error_goto_line=2;
if(!qbevent)break;evnt(315);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(316);}while(r);
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(317);}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(318);}while(r);
S_852:;
while((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(319);if(r)goto S_852;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(320);}while(r);
S_854:;
if ((-(*__LONG_I== 1000 ))||is_error_pending()){
if(qbevent){evnt(321);if(r)goto S_854;}
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(321);}while(r);
do{
if(qbevent){evnt(321);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(321);}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(322);}while(r);
S_859:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(323);if(r)goto S_859;}
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",8),qbs__tostr((int32)(*__LONG_I),NULL,0)),qbs_new_txt_len("\\\\",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(323);}while(r);
}
S_863:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(324);if(r)goto S_863;}
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(324);}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(324);}while(r);
}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(325);}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(326);}while(r);
dl_continue_19:;
}
dl_exit_19:;
}
do{
*__LONG_TEMPFOLDERINDEX=*__LONG_I;
if(!qbevent)break;evnt(332);}while(r);
S_872:;
if ((-(*__LONG_I> 1 ))||is_error_pending()){
if(qbevent){evnt(333);if(r)goto S_872;}
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(335);}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(336);}while(r);
S_875:;
while((!(func_eof( 1 )))||is_error_pending()){
if(qbevent){evnt(337);if(r)goto S_875;}
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(338);}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(339);}while(r);
S_878:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(339);if(r)goto S_878;}
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(339);}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(340);}while(r);
S_882:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(340);if(r)goto S_882;}
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(340);}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(341);}while(r);
dl_continue_21:;
}
dl_exit_21:;
do{
sub_close( 1 ,1);
sub_close( 2 ,1);
if(!qbevent)break;evnt(343);}while(r);
}
S_889:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(346);if(r)goto S_889;}
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(346);}while(r);
}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(350);}while(r);
S_893:;
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(351);if(r)goto S_893;}
S_894:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("LibraryExplorer.exe",19))))||is_error_pending()){
if(qbevent){evnt(352);if(r)goto S_894;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("LibraryExplorer.exe",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(352);}while(r);
}
S_897:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./LibraryExplorer",17))))||is_error_pending()){
if(qbevent){evnt(353);if(r)goto S_897;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./LibraryExplorer",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(353);}while(r);
}
S_900:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("libraries\\LibraryExplorer.exe",29))))||is_error_pending()){
if(qbevent){evnt(354);if(r)goto S_900;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("libraries\\LibraryExplorer.exe",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(354);}while(r);
}
S_903:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("./libraries/LibraryExplorer",27))))||is_error_pending()){
if(qbevent){evnt(355);if(r)goto S_903;}
do{
qbs_set(__STRING_LIBEXPLORER,qbs_new_txt_len("./libraries/LibraryExplorer",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(355);}while(r);
}
}
do{
error_goto_line=3;
if(!qbevent)break;evnt(358);}while(r);
do{
if(!qbevent)break;evnt(362);}while(r);
S_909:;
if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||is_error_pending()){
if(qbevent){evnt(363);if(r)goto S_909;}
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(363);}while(r);
}
do{
if(!qbevent)break;evnt(366);}while(r);
do{
if(!qbevent)break;evnt(367);}while(r);
do{
if(!qbevent)break;evnt(369);}while(r);
do{
if(!qbevent)break;evnt(371);}while(r);
do{
if(!qbevent)break;evnt(372);}while(r);
do{
if(!qbevent)break;evnt(375);}while(r);
do{
*__LONG_SYMBOLTYPE_SIZE= 0 ;
if(!qbevent)break;evnt(376);}while(r);
do{
if(!qbevent)break;evnt(378);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(379);}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(388);}while(r);
do{
if(!qbevent)break;evnt(390);}while(r);
do{
if(!qbevent)break;evnt(393);}while(r);
do{
if(!qbevent)break;evnt(394);}while(r);
do{
if(!qbevent)break;evnt(395);}while(r);
do{
if(!qbevent)break;evnt(397,1,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,2,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,3,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,4,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,5,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,6,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,7,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,8,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,9,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,10,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,11,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,12,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,13,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,14,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,15,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,16,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,17,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,18,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,19,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,20,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,21,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,22,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,23,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,24,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,25,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,26,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,27,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,28,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,29,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,30,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,31,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,32,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,33,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,34,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,35,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,36,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,37,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,38,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,39,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,40,"cfg_global.bas");}while(r);
do{
if(!qbevent)break;evnt(397,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(397,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(397,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(397,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(397,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(397,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(397,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(397,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("undo3",5)),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bin",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(397,51,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= 0ll ;
if(!qbevent)break;evnt(397,53,"cfg_global.bas");}while(r);
S_981:;
if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_CONFIGFOLDER))))||is_error_pending()){
if(qbevent){evnt(397,54,"cfg_global.bas");if(r)goto S_981;}
do{
sub_mkdir(__STRING_CONFIGFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(397,56,"cfg_global.bas");}while(r);
do{
*__BYTE_ASKTOCOPYOTHER= -1ll ;
if(!qbevent)break;evnt(397,57,"cfg_global.bas");}while(r);
}else{
S_985:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(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)))))||is_error_pending()){
if(qbevent){evnt(397,60,"cfg_global.bas");if(r)goto S_985;}
do{
sub_kill(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(397,61,"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(397,67,"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(397,68,"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(397,69,"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(397,70,"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(397,71,"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(397,72,"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(397,73,"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(397,74,"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(397,75,"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(397,76,"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(397,78,"cfg_global.bas");}while(r);
do{
SUB_INISETADDQUOTES(&(pass26= 0ll ));
if(!qbevent)break;evnt(397,80,"cfg_global.bas");}while(r);
do{
SUB_INISETFORCERELOAD(&(pass27= -1ll ));
if(!qbevent)break;evnt(397,81,"cfg_global.bas");}while(r);
do{
SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1ll ));
if(!qbevent)break;evnt(397,82,"cfg_global.bas");}while(r);
do{
SUB_INISETAUTOCOMMIT(&(pass29= -1ll ));
if(!qbevent)break;evnt(397,83,"cfg_global.bas");}while(r);
do{
SUB_READINITIALCONFIG();
if(!qbevent)break;evnt(398);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,FUNC_PARSECMDLINEARGS());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(400);}while(r);
S_1006:;
if ((qbs_cleanup(qbs_tmp_base,-((-(__STRING_CMDLINESRCFILE->len> 0 ))&&(func__fileexists(qbs_add(func__startdir(),__STRING_CMDLINESRCFILE))))))||is_error_pending()){
if(qbevent){evnt(401);if(r)goto S_1006;}
do{
qbs_set(__STRING_CMDLINESRCFILE,qbs_add(func__startdir(),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(402);}while(r);
}
S_1009:;
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(404);if(r)goto S_1009;}
do{
qbs_set(__STRING_CMDLINEOUTFILE,qbs_add(func__startdir(),__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(405);}while(r);
}
S_1012:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(408);if(r)goto S_1012;}
do{
sub__dest(func__console());
if(!qbevent)break;evnt(409);}while(r);
}else{
do{
sub__console( 2 );
if(!qbevent)break;evnt(411);}while(r);
do{
sub__screenshow();
if(!qbevent)break;evnt(412);}while(r);
do{
sub__icon(NULL,NULL,0);
if(!qbevent)break;evnt(413);}while(r);
}
do{
if(!qbevent)break;evnt(416,11,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,12,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,13,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,14,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,15,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,16,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,17,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,18,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,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(416,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(416,22,"hash.bi");}while(r);
S_1030:;
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(416,23,"hash.bi");if(r)goto S_1030;}
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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,37,"hash.bi");}while(r);
S_1045:;
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(416,38,"hash.bi");if(r)goto S_1045;}
S_1046:;
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(416,39,"hash.bi");if(r)goto S_1046;}
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(416,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(416,44,"hash.bi");}while(r);
do{
*__LONG_HASHLISTNEXT= 1 ;
if(!qbevent)break;evnt(416,45,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREESIZE= 1024 ;
if(!qbevent)break;evnt(416,46,"hash.bi");}while(r);
do{
*__LONG_HASHLISTFREELAST= 0 ;
if(!qbevent)break;evnt(416,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(416,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(416,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(416,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(416,51,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,69,"hash.bi");}while(r);
do{
*__LONG_CONSTMAX= 100 ;
if(!qbevent)break;evnt(416,70,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(416,71,"hash.bi");}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,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(416,84,"hash.bi");}while(r);
do{
if(!qbevent)break;evnt(428);}while(r);
do{
*__LONG_LABELS_UBOUND= 100 ;
if(!qbevent)break;evnt(429);}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(430);}while(r);
do{
if(!qbevent)break;evnt(431);}while(r);
do{
if(!qbevent)break;evnt(433);}while(r);
do{
if(!qbevent)break;evnt(434);}while(r);
do{
if(!qbevent)break;evnt(435);}while(r);
do{
if(!qbevent)break;evnt(437);}while(r);
do{
if(!qbevent)break;evnt(439);}while(r);
do{
if(!qbevent)break;evnt(441);}while(r);
do{
if(!qbevent)break;evnt(444);}while(r);
do{
if(!qbevent)break;evnt(446);}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(448);}while(r);
do{
if(!qbevent)break;evnt(449);}while(r);
do{
if(!qbevent)break;evnt(451);}while(r);
do{
if(!qbevent)break;evnt(453);}while(r);
do{
if(!qbevent)break;evnt(456);}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(457);}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(458);}while(r);
do{
if(!qbevent)break;evnt(459);}while(r);
do{
if(!qbevent)break;evnt(462);}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(463);}while(r);
do{
if(!qbevent)break;evnt(465);}while(r);
do{
if(!qbevent)break;evnt(466);}while(r);
do{
if(!qbevent)break;evnt(468);}while(r);
do{
if(!qbevent)break;evnt(469);}while(r);
do{
if(!qbevent)break;evnt(471);}while(r);
do{
if(!qbevent)break;evnt(472);}while(r);
do{
if(!qbevent)break;evnt(475);}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(477);}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(478);}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(479);}while(r);
S_1104:;
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(480);if(r)goto S_1104;}
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(481);}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(482);}while(r);
fornext_continue_38:;
}
fornext_exit_38:;
S_1108:;
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(484);if(r)goto S_1108;}
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(485);}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(486);}while(r);
fornext_continue_40:;
}
fornext_exit_40:;
S_1112:;
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(488);if(r)goto S_1112;}
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(489);}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(490);}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(493);}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(494);}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(497);}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(498);}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(499);}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(500);}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(501);}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(502);}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(503);}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(504);}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(505);}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(506);}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(507);}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(508);}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(510);}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(511);}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(512);}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(513);}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(515);}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(516);}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(517);}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(518);}while(r);
do{
if(!qbevent)break;evnt(529);}while(r);
do{
if(!qbevent)break;evnt(531);}while(r);
do{
if(!qbevent)break;evnt(532);}while(r);
do{
if(!qbevent)break;evnt(534);}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(539);}while(r);
do{
if(!qbevent)break;evnt(540);}while(r);
do{
if(!qbevent)break;evnt(544);}while(r);
do{
if(!qbevent)break;evnt(545);}while(r);
do{
if(!qbevent)break;evnt(604);}while(r);
do{
if(!qbevent)break;evnt(606);}while(r);
do{
if(!qbevent)break;evnt(607);}while(r);
do{
*__LONG_IDS_MAX= 1024 ;
if(!qbevent)break;evnt(608);}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)(2973);
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*2973);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_IDS[0]+2973*tmp_long+ 2965)=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]+2973*tmp_long+ 2965));}
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*2973);
while(tmp_long--){

*(qbs**)(__ARRAY_UDT_IDS[0]+2973*tmp_long+ 2965)=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(609);}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(610);}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(611);}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(612);}while(r);
do{
if(!qbevent)break;evnt(616);}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(617);}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(618);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+524))),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(619);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+532))),8,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(620);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+554))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(621);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+817))),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(622);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1217))),400,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(623);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1617))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(624);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+1873))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(625);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2129))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(626);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2389))),256,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(627);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2651))),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(628);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2751))),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(629);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+((0+2851))),100,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(630);}while(r);
do{
if(!qbevent)break;evnt(632);}while(r);
do{
if(!qbevent)break;evnt(633);}while(r);
do{
if(!qbevent)break;evnt(634);}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(642);}while(r);
do{
if(!qbevent)break;evnt(643);}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(652);}while(r);
do{
if(!qbevent)break;evnt(653);}while(r);
do{
if(!qbevent)break;evnt(654);}while(r);
do{
if(!qbevent)break;evnt(655);}while(r);
do{
if(!qbevent)break;evnt(656);}while(r);
do{
if(!qbevent)break;evnt(657);}while(r);
do{
if(!qbevent)break;evnt(659);}while(r);
do{
if(!qbevent)break;evnt(660);}while(r);
do{
if(!qbevent)break;evnt(661);}while(r);
do{
if(!qbevent)break;evnt(662);}while(r);
do{
if(!qbevent)break;evnt(663);}while(r);
do{
if(!qbevent)break;evnt(666);}while(r);
do{
if(!qbevent)break;evnt(675);}while(r);
do{
if(!qbevent)break;evnt(678);}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(682);}while(r);
do{
if(!qbevent)break;evnt(684);}while(r);
do{
if(!qbevent)break;evnt(686);}while(r);
do{
if(!qbevent)break;evnt(687);}while(r);
do{
if(!qbevent)break;evnt(688);}while(r);
do{
if(!qbevent)break;evnt(689);}while(r);
do{
if(!qbevent)break;evnt(691);}while(r);
do{
if(!qbevent)break;evnt(692);}while(r);
do{
if(!qbevent)break;evnt(693);}while(r);
do{
if(!qbevent)break;evnt(696);}while(r);
do{
if(!qbevent)break;evnt(700);}while(r);
do{
if(!qbevent)break;evnt(701);}while(r);
do{
if(!qbevent)break;evnt(704);}while(r);
do{
if(!qbevent)break;evnt(705);}while(r);
do{
if(!qbevent)break;evnt(706);}while(r);
do{
if(!qbevent)break;evnt(717);}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(722);}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(723);}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(725);}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(726);}while(r);
do{
if(!qbevent)break;evnt(734);}while(r);
do{
if(!qbevent)break;evnt(735);}while(r);
do{
if(!qbevent)break;evnt(740);}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(741);}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(759);}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(760);}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(761);}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(762);}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]=( 3 )-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(767);}while(r);
do{
if(!qbevent)break;evnt(768);}while(r);
do{
*__LONG_UNSTABLE_MIDI= 1 ;
if(!qbevent)break;evnt(768);}while(r);
do{
if(!qbevent)break;evnt(769);}while(r);
do{
*__LONG_UNSTABLE_HTTP= 2 ;
if(!qbevent)break;evnt(769);}while(r);
do{
if(!qbevent)break;evnt(770);}while(r);
do{
*__LONG_UNSTABLE_TYPEFIELDS= 3 ;
if(!qbevent)break;evnt(770);}while(r);
do{
error_goto_line=4;
if(!qbevent)break;evnt(774);}while(r);
do{
*__INTEGER64_I2= 1 ;
if(!qbevent)break;evnt(776);}while(r);
S_1240:;
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(777);if(r)goto S_1240;}
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(778);}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(779);}while(r);
do{
*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I)));
if(!qbevent)break;evnt(780);}while(r);
fornext_continue_44:;
}
fornext_exit_44:;
do{
if(!qbevent)break;evnt(783);}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(785);}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(787);}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(788);}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(789);}while(r);
do{
SUB_GL_SCAN_HEADER();
if(!qbevent)break;evnt(806);}while(r);
S_1251:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(817);if(r)goto S_1251;}
do{
*__BYTE_IDEAUTOPOSITION= 0ll ;
if(!qbevent)break;evnt(817);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(817);}while(r);
}
do{
if(!qbevent)break;evnt(818);}while(r);
S_1256:;
if ((~(*__BYTE_FILEDROPENABLED))||is_error_pending()){
if(qbevent){evnt(819);if(r)goto S_1256;}
do{
*__BYTE_FILEDROPENABLED= -1ll ;
if(!qbevent)break;evnt(819);}while(r);
do{
sub__filedrop(NULL);
if(!qbevent)break;evnt(819);}while(r);
}
S_1260:;
if ((*__BYTE_IDEAUTOPOSITION&(~(*__BYTE_IDEBYPASSAUTOPOSITION)))||is_error_pending()){
if(qbevent){evnt(821);if(r)goto S_1260;}
do{
sub__screenmove(*__INTEGER_IDELEFTPOSITION,*__INTEGER_IDETOPPOSITION,2);
if(!qbevent)break;evnt(821);}while(r);
}
do{
*__LONG_IDEMODE= 1 ;
if(!qbevent)break;evnt(822);}while(r);
do{
qbs_set(__STRING_SENDC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(823);}while(r);
S_1265:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(824);if(r)goto S_1265;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINESRCFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(824);}while(r);
}
LABEL_SENDCOMMAND:;
if(qbevent){evnt(825);r=0;}
do{
qbs_set(__STRING_IDECOMMAND,__STRING_SENDC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(826);}while(r);
do{
*__LONG_C=FUNC_IDE(&(pass46= 0 ));
if(!qbevent)break;evnt(827);}while(r);
do{
*__LONG_IDEERROR= 0 ;
if(!qbevent)break;evnt(828);}while(r);
S_1271:;
if ((-(*__LONG_C== 0 ))||is_error_pending()){
if(qbevent){evnt(829);if(r)goto S_1271;}
do{
*__LONG_IDEMODE= 0 ;
if(!qbevent)break;evnt(829);}while(r);
do{
goto LABEL_NOIDE;
if(!qbevent)break;evnt(829);}while(r);
}
do{
qbs_set(__STRING_C,__STRING_IDERETURN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(830);}while(r);
S_1276:;
if ((-(*__LONG_C== 2 ))||is_error_pending()){
if(qbevent){evnt(832);if(r)goto S_1276;}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(833);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(834);}while(r);
do{
goto LABEL_FULLRECOMPILE;
if(!qbevent)break;evnt(835);}while(r);
LABEL_IDERET1:;
if(qbevent){evnt(836);r=0;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(837);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(838);}while(r);
LABEL_IDERET2:;
if(qbevent){evnt(839);r=0;}
S_1282:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(840);if(r)goto S_1282;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(840);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(841);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(842);}while(r);
}
S_1288:;
if ((-(*__LONG_C== 4 ))||is_error_pending()){
if(qbevent){evnt(845);if(r)goto S_1288;}
S_1289:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(846);if(r)goto S_1289;}
do{
qbs_set(__STRING_WHOLELINE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(847);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(848);}while(r);
}
do{
qbs_set(__STRING_A3,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(852);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(853);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(854);}while(r);
LABEL_IDERET4:;
if(qbevent){evnt(855);r=0;}
S_1296:;
if ((*__LONG_LASTLINERETURN)||is_error_pending()){
if(qbevent){evnt(856);if(r)goto S_1296;}
do{
goto LABEL_LASTLINERETURN;
if(!qbevent)break;evnt(856);}while(r);
}
do{
qbs_set(__STRING_SENDC,func_chr( 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(857);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(858);}while(r);
}
S_1302:;
if ((-(*__LONG_C== 5 ))||is_error_pending()){
if(qbevent){evnt(861);if(r)goto S_1302;}
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(862);}while(r);
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(863);}while(r);
S_1305:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(864);if(r)goto S_1305;}
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(865);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(866);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(870);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(871);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(872);}while(r);
LABEL_LASTLINERETURN:;
if(qbevent){evnt(873);r=0;}
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(874);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(875);}while(r);
S_1314:;
if ((-(*__LONG_IDEPASS== 1 ))||is_error_pending()){
if(qbevent){evnt(877);if(r)goto S_1314;}
do{
*__LONG_IDEPASS= 2 ;
if(!qbevent)break;evnt(879);}while(r);
do{
goto LABEL_IDE3;
if(!qbevent)break;evnt(880);}while(r);
LABEL_IDERET3:;
if(qbevent){evnt(881);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(882);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(883);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(884);}while(r);
}
do{
goto LABEL_IDE5;
if(!qbevent)break;evnt(888);}while(r);
LABEL_IDERET5:;
if(qbevent){evnt(889);r=0;}
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(890);}while(r);
do{
*__LONG_IDECOMPILED= 0 ;
if(!qbevent)break;evnt(891);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(892);}while(r);
}
S_1326:;
if ((-(*__LONG_C== 9 ))||is_error_pending()){
if(qbevent){evnt(895);if(r)goto S_1326;}
S_1327:;
if ((-(*__LONG_IDECOMPILED== 0 ))||is_error_pending()){
if(qbevent){evnt(897);if(r)goto S_1327;}
do{
qbs_set(__STRING_FILE,__STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(898);}while(r);
do{
qbs_set(__STRING_F,__STRING_FILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(901);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(903);}while(r);
S_1331:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(904);if(r)goto S_1331;}
S_1332:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(905);if(r)goto S_1332;}
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(905);}while(r);
}
}
do{
*__LONG_I= 1 ;
if(!qbevent)break;evnt(908);}while(r);
LABEL_NEXTEXEINDEX:;
if(qbevent){evnt(909);r=0;}
S_1337:;
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(910);if(r)goto S_1337;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(911);}while(r);
do{
error_goto_line=5;
if(!qbevent)break;evnt(912);}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(913);}while(r);
do{
error_goto_line=6;
if(!qbevent)break;evnt(914);}while(r);
S_1342:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(915);if(r)goto S_1342;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(916);}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(917);}while(r);
do{
goto LABEL_NEXTEXEINDEX;
if(!qbevent)break;evnt(918);}while(r);
}
}
S_1348:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(923);if(r)goto S_1348;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(924);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(925);}while(r);
}
do{
*__LONG_IDEERRORLINE= 0 ;
if(!qbevent)break;evnt(928);}while(r);
do{
goto LABEL_IDE6;
if(!qbevent)break;evnt(929);}while(r);
LABEL_IDERET6:;
if(qbevent){evnt(930);r=0;}
do{
*__LONG_IDECOMPILED= 1 ;
if(!qbevent)break;evnt(931);}while(r);
}
S_1356:;
if ((-(*__LONG_IDERUNMODE== 2 ))||is_error_pending()){
if(qbevent){evnt(934);if(r)goto S_1356;}
do{
qbs_set(__STRING_SENDC,func_chr( 11 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(935);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(936);}while(r);
}
S_1360:;
if ((*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(941);if(r)goto S_1360;}
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(942);}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(943);}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(944);}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(945);}while(r);
}else{
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_LEVEL=",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(947);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_SCOPES=",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(948);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_HANDLERS=",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(949);}while(r);
do{
sub_environ(qbs_new_txt_len("QB64PE_LOG_FILE_PATH=",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(950);}while(r);
}
do{
qbs_set(__STRING_EXECUTELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(953);}while(r);
S_1372:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(955);if(r)goto S_1372;}
S_1373:;
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(956);if(r)goto S_1373;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(956);}while(r);
}
S_1376:;
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(958);if(r)goto S_1376;}
do{
qbs_set(__STRING_EXECUTENAME,func__fullpath(__STRING_LASTBINARYGENERATED));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(959);}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(961);}while(r);
}
S_1381:;
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(964);if(r)goto S_1381;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(964);}while(r);
}
S_1384:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGGINGENABLED)||is_error_pending()){
if(qbevent){evnt(966);if(r)goto S_1384;}
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(968);}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(972);}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(973);}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(975);}while(r);
}
S_1391:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))){
if(qbevent){evnt(977);if(r)goto S_1391;}
S_1392:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(978);if(r)goto S_1392;}
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(979);}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(979);}while(r);
}else{
do{
qbs_set(__STRING_PREFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(981);}while(r);
do{
qbs_set(__STRING_SUFFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(981);}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(984);}while(r);
S_1400:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))){
if(qbevent){evnt(985);if(r)goto S_1400;}
S_1401:;
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(986);if(r)goto S_1401;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(986);}while(r);
}
S_1404:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))> 0 ))|*__BYTE_LOGTOCONSOLE)||is_error_pending()){
if(qbevent){evnt(988);if(r)goto S_1404;}
do{
qbs_set(__STRING_EXECUTELINE,__STRING_DEFAULTTERMINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(989);}while(r);
S_1406:;
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(991);if(r)goto S_1406;}
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(992);}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(994);}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(997);}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(998);}while(r);
}else{
S_1414:;
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(1000);if(r)goto S_1414;}
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(1001);}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(1003);}while(r);
}
}
S_1420:;
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(1007);if(r)goto S_1420;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1007);}while(r);
}
}
}
}
S_1424:;
if ((-(*__LONG_IDERUNMODE== 1 ))||is_error_pending()){
if(qbevent){evnt(1010);if(r)goto S_1424;}
S_1425:;
if ((*__BYTE_NOEXESAVED)||is_error_pending()){
if(qbevent){evnt(1011);if(r)goto S_1425;}
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1016);}while(r);
S_1427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(1018);if(r)goto S_1427;}
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(1019);}while(r);
}
S_1430:;
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(1021);if(r)goto S_1430;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1021);}while(r);
}
S_1433:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(1022);if(r)goto S_1433;}
S_1434:;
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(1023);if(r)goto S_1434;}
do{
sub_kill(__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1024);}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(1026);}while(r);
}
}
S_1440:;
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(1029);if(r)goto S_1440;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1029);}while(r);
}
do{
*__BYTE_NOEXESAVED= 0ll ;
if(!qbevent)break;evnt(1030);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1031);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1032);}while(r);
}
do{
sub_shell3(__STRING_EXECUTELINE,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1035);}while(r);
}else{
do{
sub_shell(__STRING_EXECUTELINE,1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1037);}while(r);
S_1450:;
do{
if(qbevent){evnt(1039);if(r)goto S_1450;}
S_1451:;
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(1039);if(r)goto S_1451;}
S_1452:;
do{
if(qbevent){evnt(1040);if(r)goto S_1452;}
S_1453:;
dl_continue_53:;
}while((!(-(func__keyhit()== 0 )))&&(!is_error_pending()));
dl_exit_53:;
if(qbevent){evnt(1040);if(r)goto S_1453;}
}
S_1455:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1043);if(r)goto S_1455;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass54= 0 ));
if(!qbevent)break;evnt(1045);}while(r);
}
S_1458:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(1048);if(r)goto S_1458;}
do{
qbs_set(__STRING_SENDC,func_chr( 254 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1049);}while(r);
}else{
do{
qbs_set(__STRING_SENDC,func_chr( 6 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1051);}while(r);
}
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1053);}while(r);
}
S_1465:;
if ((-(*__LONG_C== 14 ))||is_error_pending()){
if(qbevent){evnt(1056);if(r)goto S_1465;}
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(1057);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1058);}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(1061);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(1061);}while(r);
LABEL_IDEERROR:;
if(qbevent){evnt(1063);r=0;}
S_1471:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||is_error_pending()){
if(qbevent){evnt(1064);if(r)goto S_1471;}
do{
qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1067);}while(r);
S_1473:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||is_error_pending()){
if(qbevent){evnt(1068);if(r)goto S_1473;}
do{
qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1068);}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(1069);}while(r);
S_1477:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(1070);if(r)goto S_1477;}
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(1070);}while(r);
}
S_1480:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(1071);if(r)goto S_1480;}
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(1071);}while(r);
}
S_1483:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(1072);if(r)goto S_1483;}
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(1072);}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(1073);}while(r);
S_1487:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(1074);if(r)goto S_1487;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1074);}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(1077);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1078);}while(r);
LABEL_NOIDE:;
if(qbevent){evnt(1081);r=0;}
S_1493:;
if (((((~(*__BYTE_QB64VERSIONPRINTED))|(~(*__BYTE_CONSOLEMODE))))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1082);if(r)goto S_1493;}
do{
*__BYTE_QB64VERSIONPRINTED= -1ll ;
if(!qbevent)break;evnt(1083);}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(1084);}while(r);
}
S_1497:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINESRCFILE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1087);if(r)goto S_1497;}
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(1088);}while(r);
}else{
do{
qbs_set(__STRING_F,__STRING_CMDLINESRCFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1090);}while(r);
}
do{
qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1093);}while(r);
S_1503:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||is_error_pending()){
if(qbevent){evnt(1095);if(r)goto S_1503;}
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(1095);}while(r);
}
do{
qbs_set(__STRING_SOURCEFILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1097);}while(r);
do{
qbs_set(__STRING_CMDLINESRCFILE,__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1098);}while(r);
do{
qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1100);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1102);}while(r);
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1103);}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(1104);}while(r);
S_1512:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||is_error_pending()){
if(qbevent){evnt(1105);if(r)goto S_1512;}
S_1513:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1106);if(r)goto S_1513;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip58:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1107);}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(1108);}while(r);
S_1516:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1109);if(r)goto S_1516;}
do{
if(qbevent){evnt(1109);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1109);}while(r);
}
do{
if(qbevent){evnt(1110);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1110);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1112);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1113);}while(r);
S_1523:;
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(1114);if(r)goto S_1523;}
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(1114);}while(r);
}
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1115);}while(r);
}
S_1528:;
if ((*__LONG_SAVEEXEWITHSOURCE)||is_error_pending()){
if(qbevent){evnt(1117);if(r)goto S_1528;}
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(1117);}while(r);
}
S_1531:;
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(1119);if(r)goto S_1531;}
do{
qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1120);}while(r);
S_1533:;
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(1121);if(r)goto S_1533;}
do{
qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1122);}while(r);
do{
goto fornext_exit_60;
if(!qbevent)break;evnt(1123);}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(1126);}while(r);
LABEL_FULLRECOMPILE:;
if(qbevent){evnt(1131);r=0;}
S_1539:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(1133);if(r)goto S_1539;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip64:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1134);}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(1135);}while(r);
}
S_1543:;
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(1138);if(r)goto S_1543;}
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(1138);}while(r);
fornext_continue_66:;
}
fornext_exit_66:;
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1140);}while(r);
S_1547:;
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(1142);if(r)goto S_1547;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1142);}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(1144);}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(1146);}while(r);
S_1552:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1148);if(r)goto S_1552;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1148);}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(1148);}while(r);
}
S_1556:;
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(1150);if(r)goto S_1556;}
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(1151);}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(1152);}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(1153);}while(r);
fornext_continue_70:;
}
fornext_exit_70:;
do{
*__LONG_LASTUNRESOLVED= -1 ;
if(!qbevent)break;evnt(1159);}while(r);
do{
*__INTEGER_SFLISTN= -1 ;
if(!qbevent)break;evnt(1160);}while(r);
do{
qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1162);}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(1165);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
if(!qbevent)break;evnt(1168);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
if(!qbevent)break;evnt(1169);}while(r);
S_1567:;
if ((*__BYTE_FORCEOPTEXPL)||is_error_pending()){
if(qbevent){evnt(1169);if(r)goto S_1567;}
do{
SUB_FORCERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass72= 1 ));
if(!qbevent)break;evnt(1169);}while(r);
}
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
if(!qbevent)break;evnt(1170);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
if(!qbevent)break;evnt(1171);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
if(!qbevent)break;evnt(1172);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
if(!qbevent)break;evnt(1173);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
if(!qbevent)break;evnt(1174);}while(r);
do{
SUB_CLEARRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ));
if(!qbevent)break;evnt(1175);}while(r);
LABEL_RECOMPILE:;
if(qbevent){evnt(1178);r=0;}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(1179);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ));
if(!qbevent)break;evnt(1181);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ));
if(!qbevent)break;evnt(1182);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ));
if(!qbevent)break;evnt(1183);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ));
if(!qbevent)break;evnt(1184);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ));
if(!qbevent)break;evnt(1185);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ));
if(!qbevent)break;evnt(1186);}while(r);
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass73= -1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1187);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_SOCKDEPON)) + ((0+0)) ));
if(!qbevent)break;evnt(1188);}while(r);
do{
SUB_EXECUTERCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ));
if(!qbevent)break;evnt(1189);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(1191);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(1192);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(1193);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(1194);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1195);}while(r);
do{
*__LONG_USEGL= 0 ;
if(!qbevent)break;evnt(1197);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(1199);}while(r);
do{
SUB_HASHCLEAR();
if(!qbevent)break;evnt(1201);}while(r);
do{
*__LONG_F= 4ll + 8ll ;
if(!qbevent)break;evnt(1205);}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(1206);}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(1207);}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(1208);}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(1209);}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(1210);}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(1211);}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(1212);}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(1213);}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(1214);}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(1215);}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(1216);}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(1217);}while(r);
do{
*__LONG_F= 16ll + 8ll ;
if(!qbevent)break;evnt(1219);}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(1220);}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(1221);}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(1222);}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(1223);}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(1224);}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(1225);}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(1226);}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(1227);}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(1228);}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(1229);}while(r);
do{
*__LONG_F= 8ll + 32ll ;
if(!qbevent)break;evnt(1231);}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(1232);}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(1233);}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(1234);}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(1235);}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(1236);}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(1237);}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(1238);}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(1239);}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(1240);}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(1241);}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(1242);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_DYNAMIC",8),__LONG_F,&(pass107= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1243);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("_STATIC",7),__LONG_F,&(pass108= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1244);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass109= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1246);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass110= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1247);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass111= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1249);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass112= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1250);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass113= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1251);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass114= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1252);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass115= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1253);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass116= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1254);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass117= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1255);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass118= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1256);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass119= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1257);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass120= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1258);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass121= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1260);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass122= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1262);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass123= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1264);}while(r);
do{
*__LONG_F= 8ll + 8192ll + 16384ll ;
if(!qbevent)break;evnt(1266);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass124= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1270);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass125= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1271);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass126=*__LONG_F- 8192ll ),&(pass127= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1272);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass128= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1273);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass129= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1274);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass130= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1276);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass131= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1277);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass132= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1278);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass133= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1279);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass134= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1280);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass135= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1281);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass136= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1282);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass137= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1283);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass138= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1284);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass139=*__LONG_F- 8192ll ),&(pass140= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1285);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass141=*__LONG_F- 8192ll ),&(pass142= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1287);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass143= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1288);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass144= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1289);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass145= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1290);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass146=*__LONG_F- 8192ll ),&(pass147= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1291);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass148=*__LONG_F- 8192ll ),&(pass149= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1293);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass150= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1294);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass151= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1296);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass152= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1297);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass153=*__LONG_F- 8192ll - 16384ll ),&(pass154= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1300);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass155= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1301);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass156=*__LONG_F- 8192ll - 16384ll ),&(pass157= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1303);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass158=*__LONG_F- 8192ll ),&(pass159= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1305);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass160=*__LONG_F- 8192ll ),&(pass161= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1306);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass162=*__LONG_F- 8192ll ),&(pass163= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1307);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass164=*__LONG_F- 8192ll ),&(pass165= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1310);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass166=*__LONG_F- 8192ll - 16384ll ),&(pass167= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1313);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass168=*__LONG_F- 8192ll - 16384ll ),&(pass169= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1314);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass170= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1317);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass171= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1318);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass172=*__LONG_F- 8192ll ),&(pass173= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1319);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass174=*__LONG_F- 8192ll ),&(pass175= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1320);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass176=*__LONG_F- 8192ll ),&(pass177= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1321);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass178=*__LONG_F- 8192ll ),&(pass179= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1322);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass180= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1324);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass181= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1325);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass182= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1326);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass183=*__LONG_F- 8192ll - 16384ll ),&(pass184= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1327);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass185= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1328);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass186=*__LONG_F- 8192ll - 16384ll ),&(pass187= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1329);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass188= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1331);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass189=*__LONG_F- 8192ll - 16384ll ),&(pass190= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1332);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass191=*__LONG_F- 8192ll ),&(pass192= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1333);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass193= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1335);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass194= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1336);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass195= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1339);}while(r);
do{
SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass196= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1340);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(1352);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(1353);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(1354);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(1354);}while(r);
do{
*__LONG_RESOLVESTATICFUNCTIONS= 0 ;
if(!qbevent)break;evnt(1355);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(1356);}while(r);
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(1357);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(1358);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(1359);}while(r);
do{
qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1360);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(1361);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(1362);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(1362);}while(r);
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(1362);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(1362);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(1362);}while(r);
do{
qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1363);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(1364);}while(r);
do{
*__LONG_NLABELS= 0 ;
if(!qbevent)break;evnt(1365);}while(r);
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(1366);}while(r);
do{
*__LONG_ELSEFOLLOWUP= 0 ;
if(!qbevent)break;evnt(1367);}while(r);
do{
*__LONG_ONTIMERID= 0 ;
if(!qbevent)break;evnt(1368);}while(r);
do{
*__LONG_ONKEYID= 0 ;
if(!qbevent)break;evnt(1368);}while(r);
do{
*__LONG_ONSTRIGID= 0 ;
if(!qbevent)break;evnt(1368);}while(r);
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1369);}while(r);
do{
*__LONG_COMMONARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1369);}while(r);
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1370);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(1370);}while(r);
do{
*__LONG_FOOINDWEL= 0 ;
if(!qbevent)break;evnt(1371);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1372);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1373);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(1374);}while(r);
do{
*__LONG_ERRORLINEININCLUDE= 0 ;
if(!qbevent)break;evnt(1375);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1376);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX= 1 ;
if(!qbevent)break;evnt(1377);}while(r);
do{
*__LONG_LASTTYPE= 0 ;
if(!qbevent)break;evnt(1378);}while(r);
do{
*__LONG_LASTTYPEELEMENT= 0 ;
if(!qbevent)break;evnt(1379);}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(1380);}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(1381);}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(1382);}while(r);
do{
if (__ARRAY_LONG_UDTXFDYNSIZE[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_UDTXFDYNSIZE)[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_UDTXFDYNSIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTXFDYNSIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTXFDYNSIZE[2];
preserve_old_total=__ARRAY_LONG_UDTXFDYNSIZE[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_UDTXFDYNSIZE[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_UDTXFDYNSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXFDYNSIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTXFDYNSIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTXFDYNSIZE[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_UDTXFDYNSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTXFDYNSIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTXFDYNSIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTXFDYNSIZE[2]|=1;
__ARRAY_LONG_UDTXFDYNSIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTXFDYNSIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTXFDYNSIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTXFDYNSIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1383);}while(r);
do{
if (__ARRAY_INTEGER_UDTXCANONMODE[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_UDTXCANONMODE)[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_UDTXCANONMODE[2]&1){
preserve_old_ptr=__ARRAY_INTEGER_UDTXCANONMODE[0];
preserve_old_flags=__ARRAY_INTEGER_UDTXCANONMODE[2];
preserve_old_total=__ARRAY_INTEGER_UDTXCANONMODE[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_UDTXCANONMODE[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_UDTXCANONMODE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXCANONMODE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_INTEGER_UDTXCANONMODE[0]) error(257);
memset((void*)(__ARRAY_INTEGER_UDTXCANONMODE[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_UDTXCANONMODE[0]=preserve_new_ptr;
}else{
__ARRAY_INTEGER_UDTXCANONMODE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_INTEGER_UDTXCANONMODE[0]) error(257);
}
}
__ARRAY_INTEGER_UDTXCANONMODE[2]|=1;
__ARRAY_INTEGER_UDTXCANONMODE[4]=alloc_new_desc[4];
__ARRAY_INTEGER_UDTXCANONMODE[5]=alloc_new_desc[5];
__ARRAY_INTEGER_UDTXCANONMODE[6]=alloc_new_desc[6];
__ARRAY_INTEGER_UDTXCANONMODE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1384);}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(1385);}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(1386);}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(1466);}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(1467);}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(1468);}while(r);
do{
if (__ARRAY_LONG_UDTEFDYNOFFSET[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_UDTEFDYNOFFSET)[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_UDTEFDYNOFFSET[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEFDYNOFFSET[0];
preserve_old_flags=__ARRAY_LONG_UDTEFDYNOFFSET[2];
preserve_old_total=__ARRAY_LONG_UDTEFDYNOFFSET[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_UDTEFDYNOFFSET[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_UDTEFDYNOFFSET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEFDYNOFFSET[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEFDYNOFFSET[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEFDYNOFFSET[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_UDTEFDYNOFFSET[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEFDYNOFFSET[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEFDYNOFFSET[0]) error(257);
}
}
__ARRAY_LONG_UDTEFDYNOFFSET[2]|=1;
__ARRAY_LONG_UDTEFDYNOFFSET[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEFDYNOFFSET[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEFDYNOFFSET[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEFDYNOFFSET[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1469);}while(r);
do{
if (__ARRAY_LONG_UDTEFDYNSIZE[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_UDTEFDYNSIZE)[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_UDTEFDYNSIZE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEFDYNSIZE[0];
preserve_old_flags=__ARRAY_LONG_UDTEFDYNSIZE[2];
preserve_old_total=__ARRAY_LONG_UDTEFDYNSIZE[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_UDTEFDYNSIZE[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_UDTEFDYNSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEFDYNSIZE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEFDYNSIZE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEFDYNSIZE[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_UDTEFDYNSIZE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEFDYNSIZE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEFDYNSIZE[0]) error(257);
}
}
__ARRAY_LONG_UDTEFDYNSIZE[2]|=1;
__ARRAY_LONG_UDTEFDYNSIZE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEFDYNSIZE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEFDYNSIZE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEFDYNSIZE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1470);}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(1471);}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(1472);}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(1473);}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(1474);}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(1475);}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(1476);}while(r);
do{
if (__ARRAY_LONG_UDTEARRAYFIELDMODE[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_UDTEARRAYFIELDMODE)[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_UDTEARRAYFIELDMODE[2]&1){
preserve_old_ptr=__ARRAY_LONG_UDTEARRAYFIELDMODE[0];
preserve_old_flags=__ARRAY_LONG_UDTEARRAYFIELDMODE[2];
preserve_old_total=__ARRAY_LONG_UDTEARRAYFIELDMODE[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_UDTEARRAYFIELDMODE[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_UDTEARRAYFIELDMODE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYFIELDMODE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_UDTEARRAYFIELDMODE[0]) error(257);
memset((void*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[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_UDTEARRAYFIELDMODE[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_UDTEARRAYFIELDMODE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_UDTEARRAYFIELDMODE[0]) error(257);
}
}
__ARRAY_LONG_UDTEARRAYFIELDMODE[2]|=1;
__ARRAY_LONG_UDTEARRAYFIELDMODE[4]=alloc_new_desc[4];
__ARRAY_LONG_UDTEARRAYFIELDMODE[5]=alloc_new_desc[5];
__ARRAY_LONG_UDTEARRAYFIELDMODE[6]=alloc_new_desc[6];
__ARRAY_LONG_UDTEARRAYFIELDMODE[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(1477);}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(1478);}while(r);
do{
if(!qbevent)break;evnt(1482);}while(r);
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(1483);}while(r);
do{
*__LONG_DEFININGTYPEERROR= 0 ;
if(!qbevent)break;evnt(1484);}while(r);
do{
*__LONG_CONSTLAST= -1 ;
if(!qbevent)break;evnt(1485);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(1486);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(1487);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(1488);}while(r);
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(1489);}while(r);
do{
*__INTEGER_UDTPARSE_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(1490);}while(r);
do{
*__LONG_EXEICONSET= 0 ;
if(!qbevent)break;evnt(1491);}while(r);
do{
*__BYTE_VERSIONINFOSET= 0ll ;
if(!qbevent)break;evnt(1492);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1493);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1493);}while(r);
do{
qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1493);}while(r);
do{
qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1494);}while(r);
do{
qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1494);}while(r);
do{
qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1494);}while(r);
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1495);}while(r);
do{
qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1495);}while(r);
do{
qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1495);}while(r);
do{
qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1496);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1496);}while(r);
do{
qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1496);}while(r);
do{
qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1496);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(1497);}while(r);
do{
*__LONG_STATEMENTN= 0 ;
if(!qbevent)break;evnt(1498);}while(r);
do{
*__LONG_EVERYCASENEWCASE= 0 ;
if(!qbevent)break;evnt(1499);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1500);}while(r);
do{
*__INTEGER_QBERRORCODE= 0 ;
if(!qbevent)break;evnt(1500);}while(r);
do{
*__INTEGER_QBERRORLINE= 0 ;
if(!qbevent)break;evnt(1500);}while(r);
S_1788:;
fornext_value198= 1 ;
fornext_finalvalue198= 27 ;
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(1501);if(r)goto S_1788;}
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(1501);}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(1501);}while(r);
fornext_continue_197:;
}
fornext_exit_197:;
do{
*__INTEGER_CONTROLLEVEL= 0 ;
if(!qbevent)break;evnt(1502);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1503);}while(r);
do{
*__INTEGER_FINDANOTHERID= 0 ;
if(!qbevent)break;evnt(1503);}while(r);
do{
*__LONG_FINDIDINTERNAL= 0 ;
if(!qbevent)break;evnt(1503);}while(r);
do{
*__LONG_CURRENTID= 0 ;
if(!qbevent)break;evnt(1503);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(1504);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1505);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1506);}while(r);
do{
*__LONG_IDN= 0 ;
if(!qbevent)break;evnt(1507);}while(r);
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1508);}while(r);
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(1509);}while(r);
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(1510);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(1511);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(1512);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1513);}while(r);
do{
*__ULONG_SELECTCASECOUNTER= 0 ;
if(!qbevent)break;evnt(1514);}while(r);
do{
*__INTEGER_EXECCOUNTER= 0 ;
if(!qbevent)break;evnt(1515);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1516);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(1517);}while(r);
do{
*__LONG_TOTALVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1518);}while(r);
do{
qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1519);}while(r);
do{
*__LONG_TOTALMAINVARIABLESCREATED= 0 ;
if(!qbevent)break;evnt(1520);}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(1521);}while(r);
do{
*__LONG_TOTALWARNINGS= 0 ;
if(!qbevent)break;evnt(1522);}while(r);
do{
*__BYTE_DUPLICATECONSTWARNING= 0 ;
if(!qbevent)break;evnt(1523);}while(r);
do{
*__BYTE_EMPTYSCWARNING= 0 ;
if(!qbevent)break;evnt(1524);}while(r);
do{
*__LONG_WARNINGLISTITEMS= 0 ;
if(!qbevent)break;evnt(1525);}while(r);
do{
qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1526);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1527);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1528);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(1529);}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(1530);}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(1531);}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(1532);}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(1533);}while(r);
do{
*__LONG_MAXLINENUMBER= 0 ;
if(!qbevent)break;evnt(1534);}while(r);
do{
*__LONG_UNIQUENUMBERN= 0 ;
if(!qbevent)break;evnt(1535);}while(r);
do{
*__LONG_PTRSZ=qb_safe_idiv(*__LONG_OS_BITS, 8 );
if(!qbevent)break;evnt(1538);}while(r);
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(1540);}while(r);
do{
*__LONG_I=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(1540);}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(1541);}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(1542);}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(1543);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1544);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1544);}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(1545);}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(1546);}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(1547);}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(1547);}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(1548);}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(1549);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1550);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1551);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1551);}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(1552);}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(1553);}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(1554);}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(1554);}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(1555);}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(1556);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1557);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1558);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1558);}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(1559);}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(1560);}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(1561);}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(1561);}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(1562);}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(1563);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1564);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1565);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1565);}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(1566);}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(1567);}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(1568);}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(1568);}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(1569);}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(1570);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1571);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1572);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1572);}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(1573);}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(1574);}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(1575);}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(1575);}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(1576);}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(1577);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1578);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1579);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1579);}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(1580);}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(1581);}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(1582);}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(1582);}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(1583);}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(1584);}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(1585);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1586);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1587);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1587);}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(1588);}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(1589);}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(1590);}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(1590);}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(1591);}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(1592);}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(1593);}while(r);
do{
*__LONG_I3=*__LONG_I2;
if(!qbevent)break;evnt(1594);}while(r);
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(1595);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(1595);}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(1596);}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(1597);}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(1598);}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(1598);}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(1599);}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(1600);}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(1601);}while(r);
do{
SUB_BUILDUDTDYNLAYOUT(__LONG_I);
if(!qbevent)break;evnt(1602);}while(r);
S_1910:;
fornext_value200= 1 ;
fornext_finalvalue200=func_ubound(__ARRAY_BYTE_UNSTABLEFLAGS,1,1);
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_I);
fornext_entrylabel200:
*__LONG_I=fornext_value200;
if (fornext_step_negative200){
if (fornext_value200<fornext_finalvalue200) break;
}else{
if (fornext_value200>fornext_finalvalue200) break;
}
fornext_error200:;
if(qbevent){evnt(1605);if(r)goto S_1910;}
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(1605);}while(r);
fornext_continue_199:;
}
fornext_exit_199:;
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(1608);}while(r);
do{
if(!qbevent)break;evnt(1611);}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(1611);}while(r);
do{
if(!qbevent)break;evnt(1614);}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(1614);}while(r);
do{
if(!qbevent)break;evnt(1617);}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(1617);}while(r);
S_1920:;
fornext_value202= 1 ;
fornext_finalvalue202= 300 ;
fornext_step202= 1 ;
if (fornext_step202<0) fornext_step_negative202=1; else fornext_step_negative202=0;
if (is_error_pending()) goto fornext_error202;
goto fornext_entrylabel202;
while(1){
fornext_value202=fornext_step202+(*__LONG_CLOSEALL);
fornext_entrylabel202:
*__LONG_CLOSEALL=fornext_value202;
if (fornext_step_negative202){
if (fornext_value202<fornext_finalvalue202) break;
}else{
if (fornext_value202>fornext_finalvalue202) break;
}
fornext_error202:;
if(qbevent){evnt(1620);if(r)goto S_1920;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(1620);}while(r);
fornext_continue_201:;
}
fornext_exit_201:;
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(1621);}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(1623);}while(r);
S_1925:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(1625);if(r)goto S_1925;}
do{
sub_close( 9 ,1);
if(!qbevent)break;evnt(1625);}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(1625);}while(r);
}
S_1929:;
if ((-(*__LONG_IDEMODE== 0 ))||is_error_pending()){
if(qbevent){evnt(1627);if(r)goto S_1929;}
do{
*__INTEGER_QBERRORHAPPENED= -1 ;
if(!qbevent)break;evnt(1628);}while(r);
do{
sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1629);}while(r);
LABEL_QBERRORHAPPENED1:;
if(qbevent){evnt(1630);r=0;}
S_1932:;
if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(1631);if(r)goto S_1932;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip203:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1632);}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 skip204;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip204:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1633);}while(r);
S_1935:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(1634);if(r)goto S_1935;}
do{
if(qbevent){evnt(1634);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(1634);}while(r);
}
do{
if(qbevent){evnt(1635);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(1635);}while(r);
}else{
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(1637);}while(r);
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(1639);}while(r);
}
do{
SUB_REGINTERNAL();
if(!qbevent)break;evnt(1642);}while(r);
do{
if(!qbevent)break;evnt(1644);}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(1644);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(1645);}while(r);
do{
SUB_WRITEBUFLINE(&(pass205=*__LONG_GLOBTXTBUF),qbs_new_txt_len("template <typename QBL, typename QBR> static inline auto qb_safe_idiv(QBL qb_l,QBR qb_r)->decltype(qb_l/qb_r){if (!qb_r){error(11);return (decltype(qb_l/qb_r))0;}return qb_l/qb_r;}",180));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1646);}while(r);
do{
SUB_WRITEBUFLINE(&(pass206=*__LONG_GLOBTXTBUF),qbs_new_txt_len("template <typename QBL, typename QBR> static inline auto qb_safe_mod(QBL qb_l,QBR qb_r)->decltype(qb_l%qb_r){if (!qb_r){error(11);return (decltype(qb_l%qb_r))0;}return qb_l%qb_r;}",179));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1647);}while(r);
S_1950:;
if ((*__LONG_IDERECOMPILE)||is_error_pending()){
if(qbevent){evnt(1649);if(r)goto S_1950;}
do{
*__LONG_IDERECOMPILE= 0 ;
if(!qbevent)break;evnt(1650);}while(r);
do{
*__LONG_IDEPASS= 1 ;
if(!qbevent)break;evnt(1651);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1652);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1653);}while(r);
}
S_1956:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1656);if(r)goto S_1956;}
do{
goto LABEL_IDERET1;
if(!qbevent)break;evnt(1656);}while(r);
}
do{
SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1658);}while(r);
do{
goto LABEL_STARTPREPASS;
if(!qbevent)break;evnt(1659);}while(r);
LABEL_SETPRECOMPFLAGS:;
if(qbevent){evnt(1662);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(1663);}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(1664);}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(1665);}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(1666);}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(1667);}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(1671);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1672);}while(r);
LABEL_AUTOINCLUDEMANAGER:;
if(qbevent){evnt(1674);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(1675);}while(r);
S_1969:;
if ((-(*__LONG_FIRSTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1677);if(r)goto S_1969;}
S_1970:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("beforefirstline.bi",18))))||is_error_pending()){
if(qbevent){evnt(1678);if(r)goto S_1970;}
do{
SUB_WRITEBUFLINE(&(pass207=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\beforefirstline.bi",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1679);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass208= 6ll ));
if(!qbevent)break;evnt(1681);}while(r);
}
S_1975:;
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(1683);if(r)goto S_1975;}
do{
SUB_WRITEBUFLINE(&(pass209=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color0.bi",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1684);}while(r);
S_1977:;
}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(1685);if(r)goto S_1977;}
do{
SUB_WRITEBUFLINE(&(pass210=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\color\\color32.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1686);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1689);}while(r);
S_1981:;
fornext_value212=*__LONG_ULLUB;
fornext_finalvalue212= 0 ;
fornext_step212= -1 ;
if (fornext_step212<0) fornext_step_negative212=1; else fornext_step_negative212=0;
if (is_error_pending()) goto fornext_error212;
goto fornext_entrylabel212;
while(1){
fornext_value212=fornext_step212+(*__LONG_I);
fornext_entrylabel212:
*__LONG_I=fornext_value212;
if (fornext_step_negative212){
if (fornext_value212<fornext_finalvalue212) break;
}else{
if (fornext_value212>fornext_finalvalue212) break;
}
fornext_error212:;
if(qbevent){evnt(1690);if(r)goto S_1981;}
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(1691);}while(r);
S_1983:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1692);if(r)goto S_1983;}
do{
SUB_WRITEBUFLINE(&(pass214=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1692);}while(r);
}
fornext_continue_211:;
}
fornext_exit_211:;
S_1987:;
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(1696);if(r)goto S_1987;}
S_1988:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("vwatch.bi",9))))||is_error_pending()){
if(qbevent){evnt(1697);if(r)goto S_1988;}
do{
SUB_WRITEBUFLINE(&(pass215=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1698);}while(r);
}
}
do{
*__LONG_FIRSTLINE= 2 ;
if(!qbevent)break;evnt(1701);}while(r);
}
S_1994:;
if ((-(*__LONG_MAINENDLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1703);if(r)goto S_1994;}
do{
SUB_WRITEBUFLINE(&(pass216=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\aftermain.bas",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1704);}while(r);
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1706);}while(r);
S_1997:;
fornext_value218= 0 ;
fornext_finalvalue218=*__LONG_ULLUB;
fornext_step218= 1 ;
if (fornext_step218<0) fornext_step_negative218=1; else fornext_step_negative218=0;
if (is_error_pending()) goto fornext_error218;
goto fornext_entrylabel218;
while(1){
fornext_value218=fornext_step218+(*__LONG_I);
fornext_entrylabel218:
*__LONG_I=fornext_value218;
if (fornext_step_negative218){
if (fornext_value218<fornext_finalvalue218) break;
}else{
if (fornext_value218>fornext_finalvalue218) break;
}
fornext_error218:;
if(qbevent){evnt(1707);if(r)goto S_1997;}
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(1708);}while(r);
S_1999:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1709);if(r)goto S_1999;}
do{
SUB_WRITEBUFLINE(&(pass220=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1709);}while(r);
}
fornext_continue_217:;
}
fornext_exit_217:;
do{
*__LONG_MAINENDLINE= 2 ;
if(!qbevent)break;evnt(1713);}while(r);
}
S_2005:;
if ((-(*__LONG_LASTLINE== 1 ))||is_error_pending()){
if(qbevent){evnt(1715);if(r)goto S_2005;}
do{
SUB_WRITEBUFLINE(&(pass221=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("-----",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1718);}while(r);
S_2007:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(1719);if(r)goto S_2007;}
S_2008:;
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(1720);if(r)goto S_2008;}
do{
SUB_WRITEBUFLINE(&(pass222=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1720);}while(r);
}
}else{
S_2012:;
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(1722);if(r)goto S_2012;}
do{
SUB_WRITEBUFLINE(&(pass223=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1722);}while(r);
}
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1725);}while(r);
S_2017:;
fornext_value225= 0 ;
fornext_finalvalue225=*__LONG_ULLUB;
fornext_step225= 1 ;
if (fornext_step225<0) fornext_step_negative225=1; else fornext_step_negative225=0;
if (is_error_pending()) goto fornext_error225;
goto fornext_entrylabel225;
while(1){
fornext_value225=fornext_step225+(*__LONG_I);
fornext_entrylabel225:
*__LONG_I=fornext_value225;
if (fornext_step_negative225){
if (fornext_value225<fornext_finalvalue225) break;
}else{
if (fornext_value225>fornext_finalvalue225) break;
}
fornext_error225:;
if(qbevent){evnt(1726);if(r)goto S_2017;}
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(1727);}while(r);
S_2019:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ULL->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1728);if(r)goto S_2019;}
do{
SUB_WRITEBUFLINE(&(pass227=*__LONG_AUTOINCLUDEBUFFER),__STRING_ULL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1728);}while(r);
}
fornext_continue_224:;
}
fornext_exit_224:;
S_2023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("afterlastline.bm",16))))||is_error_pending()){
if(qbevent){evnt(1732);if(r)goto S_2023;}
do{
SUB_WRITEBUFLINE(&(pass228=*__LONG_AUTOINCLUDEBUFFER),qbs_new_txt_len("internal\\support\\include\\afterlastline.bm",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1733);}while(r);
}else{
do{
SUB_SETDEPENDENCY(&(pass229= 6ll ));
if(!qbevent)break;evnt(1735);}while(r);
}
do{
*__LONG_LASTLINE= 2 ;
if(!qbevent)break;evnt(1737);}while(r);
}
S_2030:;
if ((-(FUNC_GETBUFLEN(&(pass230=*__LONG_AUTOINCLUDEBUFFER))> 0 ))||is_error_pending()){
if(qbevent){evnt(1739);if(r)goto S_2030;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass231=*__LONG_AUTOINCLUDEBUFFER),&(pass232= 0 ),&(pass233= -22ll ));
if(!qbevent)break;evnt(1740);}while(r);
do{
ongo_234=func_abs((int32)(func_sgn((int32)(*__LONG_PREPASS))))+ 1 ;
if (ongo_234==1){
return_point[next_return_point++]=1;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE;
RETURN_1:;
goto ongo_234_skip;
}
if (ongo_234==2){
return_point[next_return_point++]=2;
if (next_return_point>=return_points) more_return_points();
goto LABEL_AUTOINCLUDE_PREPASS;
RETURN_2:;
goto ongo_234_skip;
}
if (ongo_234<0) error(5);
ongo_234_skip:;
if(!qbevent)break;evnt(1741);}while(r);
}
S_2034:;
if ((-(*__LONG_FIRSTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1744);if(r)goto S_2034;}
do{
*__LONG_FIRSTLINE= 3 ;
if(!qbevent)break;evnt(1744);}while(r);
}
S_2037:;
if ((-(*__LONG_MAINENDLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1745);if(r)goto S_2037;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(1745);}while(r);
}
S_2040:;
if ((-(*__LONG_LASTLINE== 2 ))||is_error_pending()){
if(qbevent){evnt(1746);if(r)goto S_2040;}
do{
*__LONG_LASTLINE= 3 ;
if(!qbevent)break;evnt(1746);}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(1747);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(1747);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(1748);}while(r);
LABEL_STARTPREPASS:;
if(qbevent){evnt(1751);r=0;}
S_2046:;
do{
if(qbevent){evnt(1752);if(r)goto S_2046;}
LABEL_IDEPREPASS:;
if(qbevent){evnt(1753);r=0;}
do{
*__LONG_PREPASS= 1 ;
if(!qbevent)break;evnt(1754);}while(r);
S_2048:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1757);if(r)goto S_2048;}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1758);}while(r);
S_2050:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(1759);if(r)goto S_2050;}
do{
goto dl_exit_235;
if(!qbevent)break;evnt(1759);}while(r);
}
}
S_2054:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(1761);if(r)goto S_2054;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(1761);}while(r);
}
S_2057:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(1763);if(r)goto S_2057;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1764);}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(1765);}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(1766);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1767);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1770);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(1771);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(1773);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(1774);}while(r);
S_2067:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1776);if(r)goto S_2067;}
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(1777);}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]= 0 ;
if(!qbevent)break;evnt(1779);}while(r);
S_2071:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_WHOLELINE->len))||is_error_pending()){
if(qbevent){evnt(1781);if(r)goto S_2071;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1783);}while(r);
S_2073:;
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(1785);if(r)goto S_2073;}
S_2074:;
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(1786);if(r)goto S_2074;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1786);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1786);}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(1787);}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(1788);}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(1789);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(1790);}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(1791);}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(1792);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1793);}while(r);
S_2085:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1794);if(r)goto S_2085;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1794);}while(r);
}
S_2088:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1795);if(r)goto S_2088;}
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(1796);}while(r);
S_2090:;
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(1797);if(r)goto S_2090;}
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(1797);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1799);}while(r);
}
S_2096:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(1802);if(r)goto S_2096;}
S_2097:;
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(1803);if(r)goto S_2097;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1803);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1803);}while(r);
}
S_2101:;
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(1804);if(r)goto S_2101;}
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(1804);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1804);}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(1805);}while(r);
S_2106:;
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(1806);if(r)goto S_2106;}
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(1807);}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(1809);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1811);}while(r);
}
S_2113:;
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(1814);if(r)goto S_2113;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1815);}while(r);
S_2115:;
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(1816);if(r)goto S_2115;}
S_2116:;
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(1817);if(r)goto S_2116;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1817);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1817);}while(r);
}
S_2120:;
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(1818);if(r)goto S_2120;}
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(1818);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1818);}while(r);
}
S_2124:;
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(1819);if(r)goto S_2124;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1819);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1819);}while(r);
}
S_2128:;
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(1820);if(r)goto S_2128;}
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(1821);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1822);}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(1824);}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(1825);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1826);}while(r);
S_2135:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(1827);if(r)goto S_2135;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1827);}while(r);
}
S_2138:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(1828);if(r)goto S_2138;}
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(1829);}while(r);
S_2140:;
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(1830);if(r)goto S_2140;}
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(1830);}while(r);
}
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1832);}while(r);
}
}
S_2147:;
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(1836);if(r)goto S_2147;}
S_2148:;
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(1837);if(r)goto S_2148;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1837);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1837);}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(1838);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(1839);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1840);}while(r);
}
S_2156:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(1843);if(r)goto S_2156;}
S_2157:;
while((!(-(*__LONG_LINENUMBER<func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1))))||is_error_pending()){
if(qbevent){evnt(1844);if(r)goto S_2157;}
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(1845);}while(r);
dl_continue_240:;
}
dl_exit_240:;
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(1848);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1849);}while(r);
}
S_2163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(1852);if(r)goto S_2163;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass241= 1 ));
if(!qbevent)break;evnt(1853);}while(r);
S_2165:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1854);if(r)goto S_2165;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1854);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1855);}while(r);
}
S_2170:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(1858);if(r)goto S_2170;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ),&(pass242= 2 ));
if(!qbevent)break;evnt(1859);}while(r);
S_2172:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(1860);if(r)goto S_2172;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1860);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1861);}while(r);
}
S_2177:;
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(1864);if(r)goto S_2177;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $USELIBRARY:'author/library'",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1865);}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(1867);}while(r);
S_2180:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(1867);if(r)goto S_2180;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1867);}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(1868);}while(r);
S_2184:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(1868);if(r)goto S_2184;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1868);}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(1869);}while(r);
S_2188:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIB->len== 0 )))||is_error_pending()){
if(qbevent){evnt(1870);if(r)goto S_2188;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1870);}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(1872);}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(1873);}while(r);
S_2193:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(1874);if(r)goto S_2193;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1874);}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(1876);}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(1877);}while(r);
do{
qbs_set(__STRING_USELIBSECT,qbs_new_txt_len("[LIBRARY INCLUDES]",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1877);}while(r);
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtTop",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1878);}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(1878);}while(r);
S_2201:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBTOP->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1879);if(r)goto S_2201;}
do{
qbs_set(__STRING_USELIBTOP,qbs_add(__STRING_USELIBSRC,__STRING_USELIBTOP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1880);}while(r);
S_2203:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBTOP)== 0 )))||is_error_pending()){
if(qbevent){evnt(1881);if(r)goto S_2203;}
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(1881);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1881);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAfterMain",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1883);}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(1883);}while(r);
S_2210:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBMAIN->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1884);if(r)goto S_2210;}
do{
qbs_set(__STRING_USELIBMAIN,qbs_add(__STRING_USELIBSRC,__STRING_USELIBMAIN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1885);}while(r);
S_2212:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBMAIN)== 0 )))||is_error_pending()){
if(qbevent){evnt(1886);if(r)goto S_2212;}
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(1886);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1886);}while(r);
}
}
do{
qbs_set(__STRING_USELIBENTR,qbs_new_txt_len("IncAtBottom",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1888);}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(1888);}while(r);
S_2219:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_USELIBBOTTOM->len> 0 )))||is_error_pending()){
if(qbevent){evnt(1889);if(r)goto S_2219;}
do{
qbs_set(__STRING_USELIBBOTTOM,qbs_add(__STRING_USELIBSRC,__STRING_USELIBBOTTOM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1890);}while(r);
S_2221:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_USELIBBOTTOM)== 0 )))||is_error_pending()){
if(qbevent){evnt(1891);if(r)goto S_2221;}
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(1891);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1891);}while(r);
}
}
S_2226:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(1894);if(r)goto S_2226;}
S_2227:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(1895);if(r)goto S_2227;}
do{
qbs_set(__STRING_USELIBNEEDY,qbs_add(__STRING_SOURCEFILE,qbs_str((int32)(*__LONG_LINENUMBER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1896);}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(1898);}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(1901);}while(r);
}
do{
*__LONG_ULLUB=func_ubound(__ARRAY_STRING_USELIBLIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1904);}while(r);
do{
*__LONG_ULLND= -1 ;
if(!qbevent)break;evnt(1904);}while(r);
S_2237:;
fornext_value248= 0 ;
fornext_finalvalue248=*__LONG_ULLUB;
fornext_step248= 1 ;
if (fornext_step248<0) fornext_step_negative248=1; else fornext_step_negative248=0;
if (is_error_pending()) goto fornext_error248;
goto fornext_entrylabel248;
while(1){
fornext_value248=fornext_step248+(*__LONG_I);
fornext_entrylabel248:
*__LONG_I=fornext_value248;
if (fornext_step_negative248){
if (fornext_value248<fornext_finalvalue248) break;
}else{
if (fornext_value248>fornext_finalvalue248) break;
}
fornext_error248:;
if(qbevent){evnt(1905);if(r)goto S_2237;}
S_2238:;
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(1906);if(r)goto S_2238;}
S_2239:;
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(1907);if(r)goto S_2239;}
do{
*__LONG_ULLND= 0 ;
if(!qbevent)break;evnt(1907);}while(r);
}
}
fornext_continue_247:;
}
fornext_exit_247:;
S_2244:;
if ((~(*__LONG_ULLND))||is_error_pending()){
if(qbevent){evnt(1910);if(r)goto S_2244;}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1910);}while(r);
}
S_2247:;
fornext_value250= 0 ;
fornext_finalvalue250=*__LONG_ULLUB;
fornext_step250= 1 ;
if (fornext_step250<0) fornext_step_negative250=1; else fornext_step_negative250=0;
if (is_error_pending()) goto fornext_error250;
goto fornext_entrylabel250;
while(1){
fornext_value250=fornext_step250+(*__LONG_I);
fornext_entrylabel250:
*__LONG_I=fornext_value250;
if (fornext_step_negative250){
if (fornext_value250<fornext_finalvalue250) break;
}else{
if (fornext_value250>fornext_finalvalue250) break;
}
fornext_error250:;
if(qbevent){evnt(1912);if(r)goto S_2247;}
S_2248:;
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(1913);if(r)goto S_2248;}
do{
goto fornext_exit_249;
if(!qbevent)break;evnt(1913);}while(r);
}
fornext_continue_249:;
}
fornext_exit_249:;
S_2252:;
if ((-(*__LONG_I>*__LONG_ULLUB))||is_error_pending()){
if(qbevent){evnt(1915);if(r)goto S_2252;}
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(1916);}while(r);
do{
*__LONG_I=*__LONG_ULLUB+ 1 ;
if(!qbevent)break;evnt(1917);}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(1919);}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(1920);}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(1921);}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(1922);}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(1923);}while(r);
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(1924);}while(r);
}
S_2263:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(1927);if(r)goto S_2263;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass251= 1 ));
if(!qbevent)break;evnt(1928);}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(1929);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1930);}while(r);
}
S_2268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(1933);if(r)goto S_2268;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) ),&(pass252= 1 ));
if(!qbevent)break;evnt(1934);}while(r);
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass253= 1 ));
if(!qbevent)break;evnt(1935);}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(1936);}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(1937);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1938);}while(r);
}
S_2275:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(1941);if(r)goto S_2275;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass254= 1 ));
if(!qbevent)break;evnt(1942);}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(1943);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1944);}while(r);
}
S_2280:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(1947);if(r)goto S_2280;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ),&(pass255= 2 ));
if(!qbevent)break;evnt(1948);}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(1949);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1950);}while(r);
}
S_2285:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(1953);if(r)goto S_2285;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ),&(pass256= 1 ));
if(!qbevent)break;evnt(1954);}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(1955);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1956);}while(r);
}
S_2290:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ERRORLOCATION:ON",17))))||is_error_pending()){
if(qbevent){evnt(1959);if(r)goto S_2290;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ),&(pass257= 2 ));
if(!qbevent)break;evnt(1960);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1961);}while(r);
}
S_2294:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ERRORLOCATION:OFF",18))))||is_error_pending()){
if(qbevent){evnt(1964);if(r)goto S_2294;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ),&(pass258= 1 ));
if(!qbevent)break;evnt(1965);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(1966);}while(r);
}
S_2298:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$NOPREFIX",9))))||is_error_pending()){
if(qbevent){evnt(1969);if(r)goto S_2298;}
S_2299:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(1970);if(r)goto S_2299;}
do{
qbs_set(__STRING_SENDC,func_chr( 13 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1972);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(1973);}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(1975);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1976);}while(r);
}
}
S_2307:;
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(1980);if(r)goto S_2307;}
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(1981);}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(1982);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1983);}while(r);
}
S_2312:;
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(1986);if(r)goto S_2312;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1987);}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(1989);}while(r);
S_2315:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(1990);if(r)goto S_2315;}
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(1990);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1990);}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(1991);}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(1991);}while(r);
S_2321:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(1993);if(r)goto S_2321;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1993);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(1993);}while(r);
}
S_2325:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1994);if(r)goto S_2325;}
do{
qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1994);}while(r);
}
S_2328:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(1995);if(r)goto S_2328;}
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(1995);}while(r);
}
S_2331:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(1996);if(r)goto S_2331;}
do{
qbs_set(__STRING_R1,qbs_new_txt_len("-",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(1997);}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(1998);}while(r);
}else{
do{
qbs_set(__STRING_R1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2000);}while(r);
}
S_2337:;
fornext_value261= 1 ;
fornext_finalvalue261=__STRING_R->len;
fornext_step261= 1 ;
if (fornext_step261<0) fornext_step_negative261=1; else fornext_step_negative261=0;
if (is_error_pending()) goto fornext_error261;
goto fornext_entrylabel261;
while(1){
fornext_value261=fornext_step261+(*__LONG_I);
fornext_entrylabel261:
*__LONG_I=fornext_value261;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative261){
if (fornext_value261<fornext_finalvalue261) break;
}else{
if (fornext_value261>fornext_finalvalue261) break;
}
fornext_error261:;
if(qbevent){evnt(2003);if(r)goto S_2337;}
do{
*__LONG_A=qbs_asc(__STRING_R,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2004);}while(r);
S_2339:;
if(qbevent){evnt(2005);if(r)goto S_2339;}
S_2340:;
if (((*__LONG_A==( 32 )))||is_error_pending()){
if(qbevent){evnt(2006);if(r)goto S_2340;}
sc_ec_1_end:;
goto sc_263_end;
}
S_2341:;
if (((*__LONG_A==( 46 )))||is_error_pending()){
if(qbevent){evnt(2007);if(r)goto S_2341;}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2008);}while(r);
sc_ec_2_end:;
goto sc_263_end;
}
S_2343:;
if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||is_error_pending()){
if(qbevent){evnt(2009);if(r)goto S_2343;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2010);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2010);}while(r);
sc_ec_3_end:;
goto sc_263_end;
}
do{
qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2012);}while(r);
sc_263_end:;
fornext_continue_260:;
}
fornext_exit_260:;
do{
qbs_set(__STRING_R,__STRING_R1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2015);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2016);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2017);}while(r);
}
S_2354:;
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(2022);if(r)goto S_2354;}
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(2023);}while(r);
S_2356:;
if(qbevent){evnt(2025);if(r)goto S_2356;}
S_2357:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(2026);if(r)goto S_2357;}
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(2027);}while(r);
sc_ec_4_end:;
goto sc_264_end;
}
S_2359:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(2029);if(r)goto S_2359;}
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(2030);}while(r);
sc_ec_5_end:;
goto sc_264_end;
}
S_2361:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("TYPEFIELDS",10))))||is_error_pending()){
if(qbevent){evnt(2032);if(r)goto S_2361;}
do{
tmp_long=array_check((*__LONG_UNSTABLE_TYPEFIELDS)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]);
if (!is_error_pending()) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(2033);}while(r);
sc_ec_6_end:;
goto sc_264_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(2036);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2037);}while(r);
sc_264_end:;
}
S_2368:;
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(2041);if(r)goto S_2368;}
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(2042);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2043);}while(r);
}
do{
qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2046);}while(r);
S_2373:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2047);if(r)goto S_2373;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2047);}while(r);
}
do{
qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2049);}while(r);
do{
qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2050);}while(r);
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(2053);}while(r);
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(2053);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2054);}while(r);
S_2381:;
if ((*__LONG_WHOLELINEN)||is_error_pending()){
if(qbevent){evnt(2056);if(r)goto S_2381;}
do{
*__LONG_WHOLELINEI= 1 ;
if(!qbevent)break;evnt(2058);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass265= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2061);}while(r);
S_2384:;
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(2062);if(r)goto S_2384;}
do{
*__LONG_WHOLELINEI= 2 ;
if(!qbevent)break;evnt(2062);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(2062);}while(r);
}
S_2388:;
if ((-(*__LONG_WHOLELINEN>= 2 ))||is_error_pending()){
if(qbevent){evnt(2065);if(r)goto S_2388;}
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(2066);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(2066);}while(r);
S_2391:;
if ((-(*__LONG_X2== 0 ))||is_error_pending()){
if(qbevent){evnt(2067);if(r)goto S_2391;}
S_2392:;
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(2068);if(r)goto S_2392;}
do{
*__LONG_X2=__STRING_WHOLELINE->len- 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2068);}while(r);
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(2068);}while(r);
}
}
S_2397:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(2071);if(r)goto S_2397;}
do{
qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2072);}while(r);
S_2399:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(2073);if(r)goto S_2399;}
do{
qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2074);}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(2075);}while(r);
do{
*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2076);}while(r);
do{
goto LABEL_PPSKPL;
if(!qbevent)break;evnt(2077);}while(r);
}
}
}
LABEL_PPSKPL:;
if(qbevent){evnt(2082);r=0;}
S_2407:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(2083);if(r)goto S_2407;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2085);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2086);}while(r);
LABEL_PPBLDA:;
if(qbevent){evnt(2087);r=0;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2088);}while(r);
do{
qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2089);}while(r);
S_2412:;
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(2090);if(r)goto S_2412;}
S_2413:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(2091);if(r)goto S_2413;}
S_2414:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(2092);if(r)goto S_2414;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip270;
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 skip270;
skip270:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(2092);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2093);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass271= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2094);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass272= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2095);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass273= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2096);}while(r);
S_2421:;
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(2099);if(r)goto S_2421;}
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(2100);}while(r);
}
S_2424:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2104);if(r)goto S_2424;}
S_2425:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(2106);if(r)goto S_2425;}
S_2426:;
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(2107);if(r)goto S_2426;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2107);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2107);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(2108);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2109);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(2112);}while(r);
S_2434:;
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(2114);if(r)goto S_2434;}
do{
goto LABEL_DECLARESUBFUNC;
if(!qbevent)break;evnt(2114);}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(2116);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2116);}while(r);
}
S_2440:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(2123);if(r)goto S_2440;}
S_2441:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(2124);if(r)goto S_2441;}
S_2442:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(2125);if(r)goto S_2442;}
S_2443:;
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(2126);if(r)goto S_2443;}
do{
*__INTEGER_UDTPARSE_OPTIONBASE=qbr_float_to_long(qbs_val<long double>(__STRING_THIRDELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2127);}while(r);
}
}
}
}
S_2449:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(2134);if(r)goto S_2449;}
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(2135);}while(r);
S_2451:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(2137);if(r)goto S_2451;}
S_2452:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(2138);if(r)goto S_2452;}
S_2453:;
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(2139);if(r)goto S_2453;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2139);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2139);}while(r);
}
S_2457:;
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(2140);if(r)goto S_2457;}
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(2140);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2140);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(2141);}while(r);
do{
SUB_BUILDUDTDYNLAYOUT(__LONG_I);
if(!qbevent)break;evnt(2142);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int64)(qb_safe_idiv(((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(2145);}while(r);
do{
SUB_WRITEBUFLINE(&(pass274=*__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(2146);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2147);}while(r);
}
}
S_2468:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(2151);if(r)goto S_2468;}
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(2151);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2151);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2152);}while(r);
S_2473:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2154);if(r)goto S_2473;}
do{
*__LONG_UDTFIELDMODE= 0 ;
if(!qbevent)break;evnt(2156);}while(r);
do{
*__LONG_UDTMEMBERNAMEPOS= 1 ;
if(!qbevent)break;evnt(2157);}while(r);
S_2476:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_N)))||is_error_pending()){
if(qbevent){evnt(2158);if(r)goto S_2476;}
do{
qbs_set(__STRING_FIELDTOKEN,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2159);}while(r);
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2160);}while(r);
S_2479:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2161);if(r)goto S_2479;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2161);}while(r);
}
S_2482:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(2162);if(r)goto S_2482;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE member array name",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2162);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2162);}while(r);
}
do{
*__LONG_UDTMEMBERNAMEPOS= 2 ;
if(!qbevent)break;evnt(2163);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_UDTMEMBERNAMEPOS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2164);}while(r);
}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(2167);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(2168);}while(r);
S_2491:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2169);if(r)goto S_2491;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2169);}while(r);
ww_continue_275:;
}
ww_exit_275:;
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(2170);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNOFFSET[4],__ARRAY_LONG_UDTEFDYNOFFSET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNOFFSET[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2171);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNSIZE[4],__ARRAY_LONG_UDTEFDYNSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNSIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2172);}while(r);
do{
*__LONG_II=*__LONG_UDTMEMBERNAMEPOS+ 1 ;
if(!qbevent)break;evnt(2174);}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(2178);}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(2179);}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(2180);}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(2181);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2182);}while(r);
S_2503:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2184);if(r)goto S_2503;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2185);}while(r);
S_2505:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2186);if(r)goto S_2505;}
do{
goto dl_exit_276;
if(!qbevent)break;evnt(2186);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2187);}while(r);
S_2509:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2188);if(r)goto S_2509;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2188);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2189);}while(r);
dl_continue_276:;
}
dl_exit_276:;
S_2514:;
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2192);if(r)goto S_2514;}
S_2515:;
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(2193);if(r)goto S_2515;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(2194);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2195);}while(r);
S_2518:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2196);if(r)goto S_2518;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2197);}while(r);
S_2520:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2198);if(r)goto S_2520;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(2198);}while(r);
}
S_2523:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2199);if(r)goto S_2523;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(2200);}while(r);
S_2525:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(2201);if(r)goto S_2525;}
do{
goto dl_exit_277;
if(!qbevent)break;evnt(2201);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2203);}while(r);
dl_continue_277:;
}
dl_exit_277:;
S_2531:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(2205);if(r)goto S_2531;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2205);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2205);}while(r);
}
S_2535:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_CA,&(pass278=*__LONG_II+ 1 ),&(pass279=*__LONG_I3- 1 )),&(pass280=*__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(2210);if(r)goto S_2535;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2210);}while(r);
}
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2211);}while(r);
}
}
S_2541:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2215);if(r)goto S_2541;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2216);}while(r);
S_2543:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2217);if(r)goto S_2543;}
do{
goto dl_exit_281;
if(!qbevent)break;evnt(2217);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2218);}while(r);
S_2547:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2219);if(r)goto S_2547;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2219);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2220);}while(r);
dl_continue_281:;
}
dl_exit_281:;
S_2552:;
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(2223);if(r)goto S_2552;}
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(2223);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2223);}while(r);
}
do{
*__LONG_TYPELAST=*__LONG_N;
if(!qbevent)break;evnt(2224);}while(r);
S_2557:;
while((-(*__LONG_TYPELAST>=(*__LONG_II+ 1 )))||is_error_pending()){
if(qbevent){evnt(2225);if(r)goto S_2557;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2226);}while(r);
S_2559:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2227);if(r)goto S_2559;}
do{
goto dl_exit_282;
if(!qbevent)break;evnt(2227);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2228);}while(r);
S_2563:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2229);if(r)goto S_2563;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2229);}while(r);
}
do{
*__LONG_TYPELAST=*__LONG_TYPELAST- 1 ;
if(!qbevent)break;evnt(2230);}while(r);
dl_continue_282:;
}
dl_exit_282:;
S_2568:;
if ((-(*__LONG_TYPELAST<(*__LONG_II+ 1 )))||is_error_pending()){
if(qbevent){evnt(2232);if(r)goto S_2568;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected type",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2232);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2232);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass283=*__LONG_II+ 1 ),__LONG_TYPELAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2233);}while(r);
S_2573:;
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(2235);if(r)goto S_2573;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2235);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2235);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2236);}while(r);
S_2578:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2237);if(r)goto S_2578;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2237);}while(r);
}
S_2581:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(2238);if(r)goto S_2581;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2238);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2238);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2239);}while(r);
S_2586:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2241);if(r)goto S_2586;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2241);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2241);}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(2242);}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,__LONG_UDTMEMBERNAMEPOS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2243);}while(r);
LABEL_NORMALTYPEBLOCK:;
if(qbevent){evnt(2244);r=0;}
S_2592:;
if (((-(*__LONG_UDTFIELDMODE!= 0 ))&(-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(2248);if(r)goto S_2592;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_Dynamic and _Static can only be used on array members inside TYPE",66));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2248);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2248);}while(r);
}
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]=*__LONG_UDTFIELDMODE;
if(!qbevent)break;evnt(2249);}while(r);
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(2250);}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(2251);}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(2252);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2254);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 512ll ;
if(!qbevent)break;evnt(2257);}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(2258);}while(r);
S_2603:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2259);if(r)goto S_2603;}
S_2604:;
if ((*__LONG_HASHRESFLAGS& 512ll )||is_error_pending()){
if(qbevent){evnt(2260);if(r)goto S_2604;}
S_2605:;
if ((-(*__LONG_HASHRESREF==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(2261);if(r)goto S_2605;}
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(2261);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2261);}while(r);
}
}
S_2610:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2263);if(r)goto S_2610;}
S_2611:;
if ((*__LONG_HASHRESFLAGS&( 4ll + 32ll + 16ll + 8192ll ))||is_error_pending()){
if(qbevent){evnt(2264);if(r)goto S_2611;}
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(2264);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2264);}while(r);
}
}
S_2616:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2266);if(r)goto S_2616;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2266);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2266);}while(r);
}
dl_continue_285:;
}
dl_exit_285:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass286= 512ll ),__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2269);}while(r);
S_2623:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(2272);if(r)goto S_2623;}
do{
*__LONG_U=*__LONG_TYP& 4095ll ;
if(!qbevent)break;evnt(2273);}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(2274);}while(r);
S_2626:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(2275);if(r)goto S_2626;}
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(2275);}while(r);
}
S_2629:;
}else{
if (*__LONG_TYP&*__LONG_ISSTRING){
if(qbevent){evnt(2276);if(r)goto S_2629;}
S_2630:;
if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(2277);if(r)goto S_2630;}
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& 4095ll ;
if(!qbevent)break;evnt(2278);}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(2279);}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(2281);}while(r);
}
S_2636:;
}else{
if (*__LONG_TYP&*__LONG_ISOFFSETINBITS){
if(qbevent){evnt(2283);if(r)goto S_2636;}
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(2284);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2284);}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& 4095ll ;
if(!qbevent)break;evnt(2286);}while(r);
}
}
}
S_2642:;
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
if(qbevent){evnt(2291);if(r)goto S_2642;}
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(2292);}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(2296);}while(r);
S_2646:;
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(2299);if(r)goto S_2646;}
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(2300);}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(2302);}while(r);
}
S_2651:;
if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||is_error_pending()){
if(qbevent){evnt(2306);if(r)goto S_2651;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(2306);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2307);}while(r);
}else{
do{
*__LONG_DECLSTART= 0 ;
if(!qbevent)break;evnt(2314);}while(r);
do{
*__LONG_DECLMODESTART= 0 ;
if(!qbevent)break;evnt(2315);}while(r);
S_2658:;
fornext_value288= 3 ;
fornext_finalvalue288=*__LONG_N;
fornext_step288= 1 ;
if (fornext_step288<0) fornext_step_negative288=1; else fornext_step_negative288=0;
if (is_error_pending()) goto fornext_error288;
goto fornext_entrylabel288;
while(1){
fornext_value288=fornext_step288+(*__LONG_I3);
fornext_entrylabel288:
*__LONG_I3=fornext_value288;
if (fornext_step_negative288){
if (fornext_value288<fornext_finalvalue288) break;
}else{
if (fornext_value288>fornext_finalvalue288) break;
}
fornext_error288:;
if(qbevent){evnt(2316);if(r)goto S_2658;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2317);}while(r);
S_2660:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_N)))||is_error_pending()){
if(qbevent){evnt(2318);if(r)goto S_2660;}
S_2661:;
if ((-(*__LONG_DECLMODESTART== 0 ))||is_error_pending()){
if(qbevent){evnt(2319);if(r)goto S_2661;}
do{
*__LONG_DECLMODESTART=*__LONG_I3;
if(!qbevent)break;evnt(2319);}while(r);
}
S_2664:;
}else{
if (qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_N))){
if(qbevent){evnt(2320);if(r)goto S_2664;}
S_2665:;
if ((*__LONG_DECLMODESTART)||is_error_pending()){
if(qbevent){evnt(2321);if(r)goto S_2665;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass289= 2 ),&(pass290=*__LONG_DECLMODESTART- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2322);}while(r);
}else{
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass291= 2 ),&(pass292=*__LONG_I3- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2324);}while(r);
}
S_2670:;
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(2326);if(r)goto S_2670;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2326);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2326);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2327);}while(r);
S_2675:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2328);if(r)goto S_2675;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2328);}while(r);
}
S_2678:;
if ((*__LONG_TYP)||is_error_pending()){
if(qbevent){evnt(2329);if(r)goto S_2678;}
do{
*__LONG_DECLSTART=*__LONG_I3;
if(!qbevent)break;evnt(2330);}while(r);
do{
goto fornext_exit_287;
if(!qbevent)break;evnt(2331);}while(r);
}
}
}
fornext_continue_287:;
}
fornext_exit_287:;
S_2684:;
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
if(qbevent){evnt(2335);if(r)goto S_2684;}
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(2335);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2335);}while(r);
}
do{
*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2336);}while(r);
S_2689:;
if ((*__LONG_DECLMODESTART)||is_error_pending()){
if(qbevent){evnt(2338);if(r)goto S_2689;}
do{
*__LONG_II=*__LONG_DECLMODESTART;
if(!qbevent)break;evnt(2338);}while(r);
}else{
do{
*__LONG_II=*__LONG_DECLSTART;
if(!qbevent)break;evnt(2338);}while(r);
}
S_2694:;
do{
if(qbevent){evnt(2339);if(r)goto S_2694;}
S_2695:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2340);if(r)goto S_2695;}
do{
goto dl_exit_293;
if(!qbevent)break;evnt(2340);}while(r);
}
do{
*__LONG_UDTFIELDMODE= 0 ;
if(!qbevent)break;evnt(2341);}while(r);
S_2699:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2342);if(r)goto S_2699;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2343);}while(r);
S_2701:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2344);if(r)goto S_2701;}
do{
goto dl_exit_294;
if(!qbevent)break;evnt(2344);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2345);}while(r);
S_2705:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2346);if(r)goto S_2705;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2346);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2347);}while(r);
dl_continue_294:;
}
dl_exit_294:;
S_2710:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2350);if(r)goto S_2710;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2350);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2350);}while(r);
}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2351);}while(r);
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2352);}while(r);
S_2716:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2353);if(r)goto S_2716;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2353);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2353);}while(r);
}
do{
*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ;
if(!qbevent)break;evnt(2355);}while(r);
do{
*__LONG_I2=*__LONG_LASTTYPEELEMENT;
if(!qbevent)break;evnt(2356);}while(r);
S_2722:;
while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2357);if(r)goto S_2722;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2357);}while(r);
ww_continue_295:;
}
ww_exit_295:;
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(2358);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNOFFSET[4],__ARRAY_LONG_UDTEFDYNOFFSET[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNOFFSET[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2359);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEFDYNSIZE[4],__ARRAY_LONG_UDTEFDYNSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEFDYNSIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2360);}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(2361);}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(2362);}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(2363);}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(2364);}while(r);
do{
tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2365);}while(r);
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2367);}while(r);
S_2734:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2368);if(r)goto S_2734;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2369);}while(r);
S_2736:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2370);if(r)goto S_2736;}
do{
goto dl_exit_296;
if(!qbevent)break;evnt(2370);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2371);}while(r);
S_2740:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2372);if(r)goto S_2740;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2372);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2373);}while(r);
dl_continue_296:;
}
dl_exit_296:;
S_2745:;
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2376);if(r)goto S_2745;}
S_2746:;
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(2377);if(r)goto S_2746;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(2378);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2379);}while(r);
S_2749:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2380);if(r)goto S_2749;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2381);}while(r);
S_2751:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2382);if(r)goto S_2751;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(2382);}while(r);
}
S_2754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2383);if(r)goto S_2754;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(2384);}while(r);
S_2756:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(2385);if(r)goto S_2756;}
do{
goto dl_exit_297;
if(!qbevent)break;evnt(2385);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2387);}while(r);
dl_continue_297:;
}
dl_exit_297:;
S_2762:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(2389);if(r)goto S_2762;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2389);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2389);}while(r);
}
S_2766:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEUDTARRAYBOUNDSEX(FUNC_GETELEMENTS(__STRING_CA,&(pass298=*__LONG_II+ 1 ),&(pass299=*__LONG_I3- 1 )),&(pass300=*__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(2390);if(r)goto S_2766;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2390);}while(r);
}
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(2391);}while(r);
}
}
S_2772:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2395);if(r)goto S_2772;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2396);}while(r);
S_2774:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(2397);if(r)goto S_2774;}
do{
goto dl_exit_301;
if(!qbevent)break;evnt(2397);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_UDTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2398);}while(r);
S_2778:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2399);if(r)goto S_2778;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2399);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2400);}while(r);
dl_continue_301:;
}
dl_exit_301:;
S_2783:;
if ((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2403);if(r)goto S_2783;}
S_2784:;
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(2404);if(r)goto S_2784;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2404);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2404);}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(2407);}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(2408);}while(r);
S_2791:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2409);if(r)goto S_2791;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2409);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2409);}while(r);
}
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ;
if(!qbevent)break;evnt(2411);}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(2412);}while(r);
do{
*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ;
if(!qbevent)break;evnt(2413);}while(r);
S_2798:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2415);if(r)goto S_2798;}
do{
goto dl_exit_293;
if(!qbevent)break;evnt(2415);}while(r);
}
S_2801:;
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(2416);if(r)goto S_2801;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected,",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2416);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2416);}while(r);
}
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(2417);}while(r);
S_2806:;
if ((-(*__LONG_II>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(2418);if(r)goto S_2806;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2418);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2418);}while(r);
}
dl_continue_293:;
}while(1);
dl_exit_293:;
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2420);}while(r);
}
}
S_2814:;
if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||is_error_pending()){
if(qbevent){evnt(2424);if(r)goto S_2814;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2424);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2424);}while(r);
}
S_2818:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(2426);if(r)goto S_2818;}
S_2819:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(2427);if(r)goto S_2819;}
S_2820:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(2428);if(r)goto S_2820;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2428);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2428);}while(r);
}
S_2824:;
if ((-(*__LONG_LASTTYPE>= 4095ll ))||is_error_pending()){
if(qbevent){evnt(2429);if(r)goto S_2824;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Too many user-defined types (maximum",36),qbs_str((int64)( 4095ll ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2429);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2429);}while(r);
}
do{
*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ;
if(!qbevent)break;evnt(2430);}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(2431);}while(r);
do{
*__LONG_DEFININGTYPE=*__LONG_LASTTYPE;
if(!qbevent)break;evnt(2432);}while(r);
do{
*__LONG_I=*__LONG_DEFININGTYPE;
if(!qbevent)break;evnt(2433);}while(r);
S_2832:;
while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||is_error_pending()){
if(qbevent){evnt(2434);if(r)goto S_2832;}
do{
SUB_INCREASEUDTARRAYS();
if(!qbevent)break;evnt(2434);}while(r);
ww_continue_302:;
}
ww_exit_302:;
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2435);}while(r);
S_2836:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||is_error_pending()){
if(qbevent){evnt(2436);if(r)goto S_2836;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2436);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2436);}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(2437);}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(2438);}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,&(pass304= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2439);}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(2440);}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(2441);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXFDYNSIZE[4],__ARRAY_LONG_UDTXFDYNSIZE[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_UDTXFDYNSIZE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2442);}while(r);
do{
tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXCANONMODE[4],__ARRAY_INTEGER_UDTXCANONMODE[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_UDTXCANONMODE[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(2443);}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(2444);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2446);}while(r);
do{
*__LONG_HASHFLAGS= 256ll ;
if(!qbevent)break;evnt(2447);}while(r);
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 256ll ;
if(!qbevent)break;evnt(2449);}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(2450);}while(r);
S_2852:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2451);if(r)goto S_2852;}
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2452);}while(r);
S_2854:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2453);if(r)goto S_2854;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2454);}while(r);
}
S_2857:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2456);if(r)goto S_2857;}
S_2858:;
if ((-((*__LONG_HASHRESFLAGS&( 4ll + 16ll + 32ll + 16384ll ))== 0 ))||is_error_pending()){
if(qbevent){evnt(2457);if(r)goto S_2858;}
do{
*__LONG_ALLOW= 1 ;
if(!qbevent)break;evnt(2457);}while(r);
}
}
S_2862:;
if ((-(*__LONG_ALLOW== 0 ))||is_error_pending()){
if(qbevent){evnt(2459);if(r)goto S_2862;}
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(2459);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2459);}while(r);
}
S_2866:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2460);if(r)goto S_2866;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2460);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2460);}while(r);
}
dl_continue_305:;
}
dl_exit_305:;
do{
SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2464);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2466);}while(r);
}
}
S_2876:;
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(2474);if(r)goto S_2876;}
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(2480);}while(r);
S_2878:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2481);if(r)goto S_2878;}
S_2879:;
do{
if(qbevent){evnt(2482);if(r)goto S_2879;}
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(2483);}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(2484);}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(2485);}while(r);
S_2883:;
dl_continue_306:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_306:;
if(qbevent){evnt(2486);if(r)goto S_2883;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2487);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass309= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2488);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass310= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2488);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass311= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2488);}while(r);
}
S_2889:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(2491);if(r)goto S_2889;}
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(2491);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2491);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(2492);}while(r);
LABEL_CONSTDEFPENDINGPP:;
if(qbevent){evnt(2493);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(2494);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2496);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2496);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(2497);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2498);}while(r);
S_2899:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2499);if(r)goto S_2899;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2499);}while(r);
}
S_2902:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2500);if(r)goto S_2902;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2501);}while(r);
S_2904:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2502);if(r)goto S_2904;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2502);}while(r);
}
S_2907:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(2503);if(r)goto S_2907;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2503);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2503);}while(r);
}
S_2911:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(2504);if(r)goto S_2911;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2504);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2504);}while(r);
}
}
S_2916:;
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(2507);if(r)goto S_2916;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2507);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2507);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(2508);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2511);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2512);}while(r);
S_2923:;
fornext_value313=*__LONG_I;
fornext_finalvalue313=*__LONG_N;
fornext_step313= 1 ;
if (fornext_step313<0) fornext_step_negative313=1; else fornext_step_negative313=0;
if (is_error_pending()) goto fornext_error313;
goto fornext_entrylabel313;
while(1){
fornext_value313=fornext_step313+(*__LONG_I2);
fornext_entrylabel313:
*__LONG_I2=fornext_value313;
if (fornext_step_negative313){
if (fornext_value313<fornext_finalvalue313) break;
}else{
if (fornext_value313>fornext_finalvalue313) break;
}
fornext_error313:;
if(qbevent){evnt(2513);if(r)goto S_2923;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2514);}while(r);
S_2925:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2515);if(r)goto S_2925;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2515);}while(r);
}
S_2928:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2516);if(r)goto S_2928;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2516);}while(r);
}
S_2931:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2517);if(r)goto S_2931;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(2518);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2519);}while(r);
S_2934:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(2520);if(r)goto S_2934;}
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(2520);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2520);}while(r);
}
do{
goto fornext_exit_312;
if(!qbevent)break;evnt(2521);}while(r);
}
S_2940:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2524);if(r)goto S_2940;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2524);}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(2524);}while(r);
}
fornext_continue_312:;
}
fornext_exit_312:;
do{
if(!qbevent)break;evnt(2529);}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(2530);}while(r);
S_2948:;
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(2532);if(r)goto S_2948;}
do{
qbs_set(__STRING_A,func_mid(__STRING_TEMP1, 9 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2533);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2534);}while(r);
}
do{
*__LONG_T=*(int32*)(((char*)__UDT_TEMPNUM)+((0+56)));
if(!qbevent)break;evnt(2537);}while(r);
S_2953:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2538);if(r)goto S_2953;}
S_2954:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2539);if(r)goto S_2954;}
S_2955:;
if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2540);if(r)goto S_2955;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2540);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2540);}while(r);
}
}
do{
qbs_set(__STRING_E,__STRING_TEMP1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2543);}while(r);
}else{
S_2962:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2545);if(r)goto S_2962;}
S_2963:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2546);if(r)goto S_2963;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2546);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2546);}while(r);
}
}
S_2968:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2549);if(r)goto S_2968;}
do{
*__FLOAT_CONSTVAL=*(long double*)(((char*)__UDT_TEMPNUM)+((0+0)));
if(!qbevent)break;evnt(2550);}while(r);
do{
*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL);
if(!qbevent)break;evnt(2551);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2552);}while(r);
}else{
S_2973:;
if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 4095ll )== 64 )))||is_error_pending()){
if(qbevent){evnt(2554);if(r)goto S_2973;}
do{
*__UINTEGER64_CONSTVAL=*(uint64*)(((char*)__UDT_TEMPNUM)+((0+40)));
if(!qbevent)break;evnt(2555);}while(r);
do{
*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2556);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2557);}while(r);
}else{
do{
*__INTEGER64_CONSTVAL=*(int64*)(((char*)__UDT_TEMPNUM)+((0+32)));
if(!qbevent)break;evnt(2559);}while(r);
do{
*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2560);}while(r);
do{
*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL;
if(!qbevent)break;evnt(2561);}while(r);
}
}
S_2983:;
if ((*__LONG_TYPEOVERRIDE)||is_error_pending()){
if(qbevent){evnt(2566);if(r)goto S_2983;}
do{
*__LONG_T=*__LONG_TYPEOVERRIDE;
if(!qbevent)break;evnt(2568);}while(r);
}
}
do{
*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ;
if(!qbevent)break;evnt(2572);}while(r);
S_2988:;
if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||is_error_pending()){
if(qbevent){evnt(2573);if(r)goto S_2988;}
do{
*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ;
if(!qbevent)break;evnt(2574);}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(2575);}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(2576);}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(2577);}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(2578);}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(2579);}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(2580);}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(2581);}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(2582);}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(2583);}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(2584);}while(r);
}
do{
*__LONG_I2=*__LONG_CONSTLAST;
if(!qbevent)break;evnt(2587);}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(2589);}while(r);
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(2591);}while(r);
S_3004:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(2592);if(r)goto S_3004;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2592);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2592);}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(2593);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2595);}while(r);
do{
*__LONG_ALLOW= 0 ;
if(!qbevent)break;evnt(2598);}while(r);
LABEL_CONST_RECHECK:;
if(qbevent){evnt(2599);r=0;}
do{
*__LONG_HASHCHKFLAGS= 8ll + 64ll + 128ll + 1024ll ;
if(!qbevent)break;evnt(2600);}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(2601);}while(r);
S_3013:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(2602);if(r)goto S_3013;}
S_3014:;
if ((*__LONG_HASHRESFLAGS& 1024ll )||is_error_pending()){
if(qbevent){evnt(2603);if(r)goto S_3014;}
S_3015:;
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(2604);if(r)goto S_3015;}
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(2607);}while(r);
S_3017:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2608);if(r)goto S_3017;}
S_3018:;
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(2609);if(r)goto S_3018;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2609);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2609);}while(r);
}
}else{
S_3023:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2611);if(r)goto S_3023;}
S_3024:;
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(2612);if(r)goto S_3024;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2612);}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(2612);}while(r);
}
}else{
S_3029:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2614);if(r)goto S_3029;}
S_3030:;
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(2615);if(r)goto S_3030;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2615);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((uint64)(*__UINTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2615);}while(r);
}
}else{
S_3035:;
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(2617);if(r)goto S_3035;}
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(2617);}while(r);
do{
qbs_set(__STRING_THISCONSTVAL,qbs__tostr((int64)(*__INTEGER64_CONSTVAL),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2617);}while(r);
}
}
}
}
S_3042:;
if ((*__LONG_ISSUEWARNING)||is_error_pending()){
if(qbevent){evnt(2621);if(r)goto S_3042;}
S_3043:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(2622);if(r)goto S_3043;}
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(2623);}while(r);
}
do{
goto LABEL_CONSTADDDONE;
if(!qbevent)break;evnt(2625);}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(2627);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2627);}while(r);
}
}
}
S_3053:;
if ((*__LONG_HASHRESFLAGS& 8ll )||is_error_pending()){
if(qbevent){evnt(2631);if(r)goto S_3053;}
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(2632);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2632);}while(r);
}
S_3057:;
if ((*__LONG_HASHRESFLAGS&( 64ll + 128ll ))||is_error_pending()){
if(qbevent){evnt(2634);if(r)goto S_3057;}
S_3058:;
if ((qbs_cleanup(qbs_tmp_base,(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)))== 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]))*2973+532))),8,1)),qbs_new_txt_len("$",1)))))||is_error_pending()){
if(qbevent){evnt(2635);if(r)goto S_3058;}
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(2635);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2635);}while(r);
}
S_3062:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2636);if(r)goto S_3062;}
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(2636);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2636);}while(r);
}
}
S_3067:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(2638);if(r)goto S_3067;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(2638);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(2638);}while(r);
}
dl_continue_315:;
}
dl_exit_315:;
do{
SUB_HASHADD(__STRING_HASHNAME,&(pass316= 1024ll ),__LONG_I2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2642);}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(2648);}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(2649);}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(2650);}while(r);
S_3077:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2651);if(r)goto S_3077;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2651);}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(2652);}while(r);
S_3081:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(2653);if(r)goto S_3081;}
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(2654);}while(r);
}else{
S_3084:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(2656);if(r)goto S_3084;}
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(2657);}while(r);
}else{
S_3087:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(2659);if(r)goto S_3087;}
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(2660);}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(2662);}while(r);
}
}
}
LABEL_CONSTADDDONE:;
if(qbevent){evnt(2667);r=0;}
S_3094:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(2669);if(r)goto S_3094;}
do{
goto LABEL_CONSTDEFPENDINGPP;
if(!qbevent)break;evnt(2671);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2675);}while(r);
}
do{
*__LONG_D= 0 ;
if(!qbevent)break;evnt(2681);}while(r);
S_3100:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(2682);if(r)goto S_3100;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2682);}while(r);
}
S_3103:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(2683);if(r)goto S_3103;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2683);}while(r);
}
S_3106:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(2684);if(r)goto S_3106;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2684);}while(r);
}
S_3109:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(2685);if(r)goto S_3109;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2685);}while(r);
}
S_3112:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(2686);if(r)goto S_3112;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2686);}while(r);
}
S_3115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(2687);if(r)goto S_3115;}
do{
*__LONG_D= 1 ;
if(!qbevent)break;evnt(2687);}while(r);
}
S_3118:;
if ((*__LONG_D)||is_error_pending()){
if(qbevent){evnt(2688);if(r)goto S_3118;}
do{
*__LONG_PREDEFINING= 1 ;
if(!qbevent)break;evnt(2689);}while(r);
do{
goto LABEL_PREDEFINE;
if(!qbevent)break;evnt(2689);}while(r);
LABEL_PREDEFINED:;
if(qbevent){evnt(2690);r=0;}
do{
*__LONG_PREDEFINING= 0 ;
if(!qbevent)break;evnt(2690);}while(r);
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2691);}while(r);
}
S_3124:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(2695);if(r)goto S_3124;}
S_3125:;
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(2696);if(r)goto S_3125;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(2697);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(2698);}while(r);
S_3128:;
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(2699);if(r)goto S_3128;}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(2699);}while(r);
}
do{
goto LABEL_FINISHEDLINEPP;
if(!qbevent)break;evnt(2700);}while(r);
}
}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(2705);}while(r);
LABEL_DECLARESUBFUNC:;
if(qbevent){evnt(2706);r=0;}
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass317= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2707);}while(r);
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(2708);}while(r);
S_3137:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(2709);if(r)goto S_3137;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(2709);}while(r);
}
S_3140:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(2710);if(r)goto S_3140;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(2710);}while(r);
}
S_3143:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(2711);if(r)goto S_3143;}
S_3144:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2713);if(r)goto S_3144;}
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(2714);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(2715);}while(r);
}
S_3148:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(2718);if(r)goto S_3148;}
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(2718);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2718);}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(2721);}while(r);
S_3153:;
if ((*__LONG_I2)||is_error_pending()){
if(qbevent){evnt(2722);if(r)goto S_3153;}
S_3154:;
do{
if(qbevent){evnt(2723);if(r)goto S_3154;}
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(2724);}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(2725);}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(2726);}while(r);
S_3158:;
dl_continue_318:;
}while((!(-(*__LONG_I2== 0 )))&&(!is_error_pending()));
dl_exit_318:;
if(qbevent){evnt(2727);if(r)goto S_3158;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2728);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass321= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2729);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass322= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2729);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass323= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2729);}while(r);
}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass324= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2732);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2733);}while(r);
S_3166:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2734);if(r)goto S_3166;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2734);}while(r);
}
S_3169:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(2735);if(r)goto S_3169;}
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(2735);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2735);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2738);}while(r);
S_3174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(2738);if(r)goto S_3174;}
do{
qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2738);}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(2738);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(2738);}while(r);
}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2741);}while(r);
S_3180:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2742);if(r)goto S_3180;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass327= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2743);}while(r);
S_3182:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(2744);if(r)goto S_3182;}
S_3183:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2745);if(r)goto S_3183;}
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(2745);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2745);}while(r);
}
S_3187:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(2746);if(r)goto S_3187;}
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(2746);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2746);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass328= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2747);}while(r);
S_3192:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(2749);if(r)goto S_3192;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2750);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2751);}while(r);
S_3195:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(2751);if(r)goto S_3195;}
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(2751);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2751);}while(r);
}
do{
qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2752);}while(r);
}
S_3201:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(2755);if(r)goto S_3201;}
do{
*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2756);}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(2756);}while(r);
dl_continue_330:;
}
dl_exit_330:;
S_3205:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(2759);if(r)goto S_3205;}
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(2759);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2759);}while(r);
}
S_3209:;
fornext_value335= 1 ;
fornext_finalvalue335=__STRING_E->len;
fornext_step335= 1 ;
if (fornext_step335<0) fornext_step_negative335=1; else fornext_step_negative335=0;
if (is_error_pending()) goto fornext_error335;
goto fornext_entrylabel335;
while(1){
fornext_value335=fornext_step335+(*__LONG_X);
fornext_entrylabel335:
*__LONG_X=fornext_value335;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative335){
if (fornext_value335<fornext_finalvalue335) break;
}else{
if (fornext_value335>fornext_finalvalue335) break;
}
fornext_error335:;
if(qbevent){evnt(2760);if(r)goto S_3209;}
do{
*__LONG_A=qbs_asc(__STRING_E,*__LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2761);}while(r);
S_3211:;
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(2762);if(r)goto S_3211;}
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(2763);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2763);}while(r);
}
fornext_continue_334:;
}
fornext_exit_334:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2766);}while(r);
S_3217:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2768);if(r)goto S_3217;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass337= 1 ),&(pass338= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2768);}while(r);
}
S_3220:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2769);if(r)goto S_3220;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass339= 1 ),&(pass340= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass341= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2769);}while(r);
}
S_3223:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(2770);if(r)goto S_3223;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass342= 1 ),&(pass343= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2770);}while(r);
}
S_3226:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(2771);if(r)goto S_3226;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass344= 1 ),&(pass345= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass346= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2771);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(2772);}while(r);
}
}
S_3232:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2776);if(r)goto S_3232;}
S_3233:;
if ((*__LONG_INDIRECTLIBRARY)||is_error_pending()){
if(qbevent){evnt(2777);if(r)goto S_3233;}
do{
qbs_set(__STRING_ALIASNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2778);}while(r);
}
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(2782);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2783);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2784);}while(r);
do{
qbs_set(__STRING_NELE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2785);}while(r);
do{
qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2786);}while(r);
do{
qbs_set(__STRING_DYNUDTARGMODE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2787);}while(r);
S_3243:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(2788);if(r)goto S_3243;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass347= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2789);}while(r);
S_3245:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2790);if(r)goto S_3245;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2790);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2790);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2791);}while(r);
S_3250:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2792);if(r)goto S_3250;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2792);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2792);}while(r);
}
S_3254:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(2793);if(r)goto S_3254;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2793);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2793);}while(r);
}
S_3258:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(2794);if(r)goto S_3258;}
do{
goto LABEL_NOSFPARAMS;
if(!qbevent)break;evnt(2794);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(2795);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2796);}while(r);
S_3263:;
fornext_value349= 4 ;
fornext_finalvalue349=*__LONG_N- 1 ;
fornext_step349= 1 ;
if (fornext_step349<0) fornext_step_negative349=1; else fornext_step_negative349=0;
if (is_error_pending()) goto fornext_error349;
goto fornext_entrylabel349;
while(1){
fornext_value349=fornext_step349+(*__LONG_I);
fornext_entrylabel349:
*__LONG_I=fornext_value349;
if (fornext_step_negative349){
if (fornext_value349<fornext_finalvalue349) break;
}else{
if (fornext_value349>fornext_finalvalue349) break;
}
fornext_error349:;
if(qbevent){evnt(2797);if(r)goto S_3263;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2798);}while(r);
S_3265:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2799);if(r)goto S_3265;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(2799);}while(r);
}
S_3268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2800);if(r)goto S_3268;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(2800);}while(r);
}
S_3271:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(2801);if(r)goto S_3271;}
S_3272:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2802);if(r)goto S_3272;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2802);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2802);}while(r);
}
LABEL_GETLASTPARAM:;
if(qbevent){evnt(2803);r=0;}
S_3276:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2804);if(r)goto S_3276;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2804);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2804);}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(2805);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2807);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(2808);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2809);}while(r);
do{
*__LONG_I2= 1 ;
if(!qbevent)break;evnt(2811);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2812);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2812);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(2814);}while(r);
S_3288:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(2815);if(r)goto S_3288;}
S_3289:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2816);if(r)goto S_3289;}
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(2816);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2816);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2817);}while(r);
do{
*__LONG_I2=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(2817);}while(r);
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(2817);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2820);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2821);}while(r);
S_3299:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(2822);if(r)goto S_3299;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2822);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2822);}while(r);
}
S_3303:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2824);if(r)goto S_3303;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2824);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(2825);}while(r);
S_3307:;
fornext_value352=*__LONG_I2;
fornext_finalvalue352=*__LONG_N2;
fornext_step352= 1 ;
if (fornext_step352<0) fornext_step_negative352=1; else fornext_step_negative352=0;
if (is_error_pending()) goto fornext_error352;
goto fornext_entrylabel352;
while(1){
fornext_value352=fornext_step352+(*__LONG_I2);
fornext_entrylabel352:
*__LONG_I2=fornext_value352;
if (fornext_step_negative352){
if (fornext_value352<fornext_finalvalue352) break;
}else{
if (fornext_value352>fornext_finalvalue352) break;
}
fornext_error352:;
if(qbevent){evnt(2826);if(r)goto S_3307;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2827);}while(r);
S_3309:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(2828);if(r)goto S_3309;}
S_3310:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(2829);if(r)goto S_3310;}
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(2829);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2829);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(2830);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(2831);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2832);}while(r);
}
S_3318:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(2834);if(r)goto S_3318;}
S_3319:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(2835);if(r)goto S_3319;}
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(2835);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2835);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(2836);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2837);}while(r);
}
S_3326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(2839);if(r)goto S_3326;}
S_3327:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(2840);if(r)goto S_3327;}
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(2840);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2840);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(2841);}while(r);
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2842);}while(r);
}
S_3334:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(2844);if(r)goto S_3334;}
S_3335:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2845);if(r)goto S_3335;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array parameters require empty parentheses ()",45));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2845);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2845);}while(r);
}
do{
goto LABEL_GOTAA;
if(!qbevent)break;evnt(2846);}while(r);
}
S_3341:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(2848);if(r)goto S_3341;}
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(2848);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2848);}while(r);
}
S_3345:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2849);if(r)goto S_3345;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2849);}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(2849);}while(r);
}
LABEL_GOTAA:;
if(qbevent){evnt(2850);r=0;}
fornext_continue_351:;
}
fornext_exit_351:;
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(2853);}while(r);
S_3352:;
if ((-(*__LONG_PARAMS> 100 ))||is_error_pending()){
if(qbevent){evnt(2853);if(r)goto S_3352;}
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(2853);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2853);}while(r);
}
do{
*__LONG_ARGNELEREQ= 0 ;
if(!qbevent)break;evnt(2855);}while(r);
do{
*__LONG_ARGDYNMODE= 0 ;
if(!qbevent)break;evnt(2856);}while(r);
S_3358:;
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(2858);if(r)goto S_3358;}
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(2858);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2858);}while(r);
}
S_3362:;
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(2859);if(r)goto S_3362;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2859);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2859);}while(r);
}
S_3366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2860);if(r)goto S_3366;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2860);}while(r);
}
S_3369:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2861);if(r)goto S_3369;}
S_3370:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2862);if(r)goto S_3370;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2862);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2862);}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(2863);}while(r);
}
do{
*__LONG_PARAMSIZE= 0 ;
if(!qbevent)break;evnt(2866);}while(r);
S_3378:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(2867);if(r)goto S_3378;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2868);}while(r);
S_3380:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2869);if(r)goto S_3380;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2869);}while(r);
}
S_3383:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2870);if(r)goto S_3383;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2870);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2870);}while(r);
}
S_3387:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2871);if(r)goto S_3387;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2871);}while(r);
}
S_3390:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(2872);if(r)goto S_3390;}
do{
*__LONG_ARGDYNMODE=FUNC_GETUDTCANONMODE(&(pass353=*__LONG_T& 4095ll ));
if(!qbevent)break;evnt(2872);}while(r);
}
do{
*__LONG_T=*__LONG_T+*__LONG_ISARRAY;
if(!qbevent)break;evnt(2873);}while(r);
S_3394:;
fornext_value355= 0 ;
fornext_finalvalue355=*__INTEGER_SFLISTN;
fornext_step355= 1 ;
if (fornext_step355<0) fornext_step_negative355=1; else fornext_step_negative355=0;
if (is_error_pending()) goto fornext_error355;
goto fornext_entrylabel355;
while(1){
fornext_value355=fornext_step355+(*__LONG_I10);
fornext_entrylabel355:
*__LONG_I10=fornext_value355;
if (fornext_step_negative355){
if (fornext_value355<fornext_finalvalue355) break;
}else{
if (fornext_value355>fornext_finalvalue355) break;
}
fornext_error355:;
if(qbevent){evnt(2877);if(r)goto S_3394;}
S_3395:;
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(2878);if(r)goto S_3395;}
S_3396:;
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(2879);if(r)goto S_3396;}
do{
*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])];
if(!qbevent)break;evnt(2879);}while(r);
}
}
fornext_continue_354:;
}
fornext_exit_354:;
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2883);}while(r);
S_3403:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2884);if(r)goto S_3403;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2884);}while(r);
}
S_3406:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(2885);if(r)goto S_3406;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2885);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2885);}while(r);
}
S_3410:;
if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(2886);if(r)goto S_3410;}
do{
*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(2886);}while(r);
}
S_3413:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(2888);if(r)goto S_3413;}
do{
*__LONG_ARGDYNMODE=FUNC_GETUDTCANONMODE(&(pass356=*__LONG_T& 4095ll ));
if(!qbevent)break;evnt(2888);}while(r);
}
S_3416:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(2890);if(r)goto S_3416;}
S_3417:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2891);if(r)goto S_3417;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2891);}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(2895);}while(r);
do{
qbs_set(__STRING_DYNUDTARGMODE,qbs_add(__STRING_DYNUDTARGMODE,func_chr(*__LONG_ARGDYNMODE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2896);}while(r);
do{
qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2899);}while(r);
do{
qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2901);}while(r);
do{
qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2902);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2903);}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(2905);}while(r);
S_3430:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(2906);if(r)goto S_3430;}
do{
goto LABEL_GETLASTPARAM;
if(!qbevent)break;evnt(2906);}while(r);
}
}
fornext_continue_348:;
}
fornext_exit_348:;
}
LABEL_NOSFPARAMS:;
if(qbevent){evnt(2910);r=0;}
S_3436:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(2912);if(r)goto S_3436;}
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2914);}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(2915);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+548)))= 1 ;
if(!qbevent)break;evnt(2916);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2918);}while(r);
S_3441:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2919);if(r)goto S_3441;}
do{
*(int16*)(((char*)__UDT_ID)+((0+810)))= 1 ;
if(!qbevent)break;evnt(2920);}while(r);
S_3443:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2921);if(r)goto S_3443;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2921);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+((0+813)))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2923);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2924);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1217))),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2925);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2926);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2927);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2851))),100,1),__STRING_DYNUDTARGMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2928);}while(r);
S_3453:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(2929);if(r)goto S_3453;}
do{
*(int32*)(((char*)__UDT_ID)+((0+2385)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2930);}while(r);
S_3455:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2931);if(r)goto S_3455;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2931);}while(r);
}
}else{
S_3459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(2933);if(r)goto S_3459;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(2933);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2933);}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(2934);}while(r);
do{
*(int32*)(((char*)__UDT_ID)+((0+2385)))=FUNC_TYPNAME2TYP(__STRING_SYMBOL);
if(!qbevent)break;evnt(2935);}while(r);
S_3466:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2936);if(r)goto S_3466;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2936);}while(r);
}
}
S_3470:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2385)))== 0 ))||is_error_pending()){
if(qbevent){evnt(2938);if(r)goto S_3470;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2938);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2938);}while(r);
}
S_3474:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2940);if(r)goto S_3474;}
do{
qbs_set(__STRING_CTYPE,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2385)) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2942);}while(r);
S_3476:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2943);if(r)goto S_3476;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2943);}while(r);
}
S_3479:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(2944);if(r)goto S_3479;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2944);}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),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+554))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2945);}while(r);
}
do{
qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2949);}while(r);
S_3485:;
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(2950);if(r)goto S_3485;}
do{
qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2951);}while(r);
S_3487:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2952);if(r)goto S_3487;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2952);}while(r);
}
}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1),__STRING_SYMBOL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2954);}while(r);
S_3492:;
if ((*(int32*)(((char*)__UDT_ID)+((0+2385)))&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(2955);if(r)goto S_3492;}
S_3493:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+2385)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(2956);if(r)goto S_3493;}
do{
*(int32*)(((char*)__UDT_ID)+((0+2385)))=*(int32*)(((char*)__UDT_ID)+((0+2385)))-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(2956);}while(r);
}
}
S_3497:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2959);if(r)goto S_3497;}
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(2960);}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(2960);}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(2961);}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(2961);}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(2962);}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(2963);}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(2964);}while(r);
S_3505:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2965);if(r)goto S_3505;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2965);}while(r);
}
S_3508:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(2966);if(r)goto S_3508;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2966);}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(2967);}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(2968);}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(2969);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2970);}while(r);
}
S_3516:;
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(2973);if(r)goto S_3516;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(2974);}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(2974);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),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(2974);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),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+2965)))),__STRING_N->len+__STRING_SYMBOL->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2975);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(2977);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(2978);}while(r);
S_3524:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(2980);if(r)goto S_3524;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(2980);}while(r);
}
}else{
do{
SUB_CLEARID();
if(!qbevent)break;evnt(2983);}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(2984);}while(r);
do{
*(int16*)(((char*)__UDT_ID)+((0+548)))= 2 ;
if(!qbevent)break;evnt(2985);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(__STRING_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2986);}while(r);
S_3532:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(2987);if(r)goto S_3532;}
do{
*(int16*)(((char*)__UDT_ID)+((0+810)))= 1 ;
if(!qbevent)break;evnt(2988);}while(r);
S_3534:;
if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2989);if(r)goto S_3534;}
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1),__STRING_ALIASNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2989);}while(r);
}
}
do{
*(int16*)(((char*)__UDT_ID)+((0+813)))=*__LONG_PARAMS;
if(!qbevent)break;evnt(2991);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),__STRING_PARAMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2992);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1217))),400,1),__STRING_PARAMSIZE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2993);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),__STRING_NELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2994);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),__STRING_NELEREQ);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2995);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2851))),100,1),__STRING_DYNUDTARGMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(2996);}while(r);
S_3544:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(2998);if(r)goto S_3544;}
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(2999);}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(2999);}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(3000);}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(3000);}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(3001);}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(3002);}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(3003);}while(r);
S_3552:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(3004);if(r)goto S_3552;}
do{
*__INTEGER_APO=func_instr(NULL,__STRING_PWL,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3004);}while(r);
}
S_3555:;
if ((-(*__INTEGER_APO== 0 ))||is_error_pending()){
if(qbevent){evnt(3005);if(r)goto S_3555;}
do{
*__INTEGER_APO=__STRING_PWL->len+ 1 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3005);}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(3006);}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(3007);}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(3008);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),__STRING_PWL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3009);}while(r);
}
S_3563:;
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(3012);if(r)goto S_3563;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(3012);}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(3012);}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),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(3012);}while(r);
do{
qbs_set(*((qbs**)((char*)(__UDT_ID)+((0+2965)))),qbs_add(qbs_ucase(func_mid(__STRING_N, 5 ,NULL,0)),func_mid(*((qbs**)((char*)__UDT_ID+((0+2965)))),__STRING_N->len+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3012);}while(r);
}
S_3569:;
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(3013);if(r)goto S_3569;}
do{
*__LONG_REGINTERNALSUBFUNC= 1 ;
if(!qbevent)break;evnt(3013);}while(r);
do{
*__LONG_USEGL= 1 ;
if(!qbevent)break;evnt(3013);}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(3013);}while(r);
do{
SUB_SETDEPENDENCY(&(pass364= 3ll ));
if(!qbevent)break;evnt(3013);}while(r);
}
do{
SUB_REGID();
if(!qbevent)break;evnt(3014);}while(r);
do{
*__LONG_REGINTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(3015);}while(r);
S_3577:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3017);if(r)goto S_3577;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3017);}while(r);
}
}
}
LABEL_FINISHEDLINEPP:;
if(qbevent){evnt(3024);r=0;}
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3026);}while(r);
do{
qbs_set(__STRING_CA,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3027);}while(r);
}else{
S_3586:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3029);if(r)goto S_3586;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3029);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3029);}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(3029);}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(3029);}while(r);
}
}
S_3594:;
if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||is_error_pending()){
if(qbevent){evnt(3031);if(r)goto S_3594;}
do{
*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ;
if(!qbevent)break;evnt(3031);}while(r);
do{
goto LABEL_PPBLDA;
if(!qbevent)break;evnt(3031);}while(r);
}
}
}
}
S_3601:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(3041);if(r)goto S_3601;}
S_3602:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3042);if(r)goto S_3602;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip366;
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 skip366;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1);
if (is_error_pending()) goto skip366;
skip366:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3042);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3043);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3043);}while(r);
S_3607:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(3045);if(r)goto S_3607;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(3046);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(3047);}while(r);
LABEL_AUTOINCLUDE_PREPASS:;
if(qbevent){evnt(3048);r=0;}
S_3610:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(3049);if(r)goto S_3610;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass367=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3050);}while(r);
S_3612:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(3051);if(r)goto S_3612;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(3051);}while(r);
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(3051);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(3052);}while(r);
S_3617:;
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(3053);if(r)goto S_3617;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(3054);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(3056);}while(r);
}
}
S_3623:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(3060);if(r)goto S_3623;}
S_3624:;
fornext_value369= 200 ;
fornext_finalvalue369= 299 ;
fornext_step369= 1 ;
if (fornext_step369<0) fornext_step_negative369=1; else fornext_step_negative369=0;
if (is_error_pending()) goto fornext_error369;
goto fornext_entrylabel369;
while(1){
fornext_value369=fornext_step369+(*__LONG_FH);
fornext_entrylabel369:
*__LONG_FH=fornext_value369;
if (fornext_step_negative369){
if (fornext_value369<fornext_finalvalue369) break;
}else{
if (fornext_value369>fornext_finalvalue369) break;
}
fornext_error369:;
if(qbevent){evnt(3061);if(r)goto S_3624;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(3061);}while(r);
fornext_continue_368:;
}
fornext_exit_368:;
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(3062);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3062);}while(r);
}
S_3630:;
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(3065);if(r)goto S_3630;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3065);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(3066);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(3068);}while(r);
S_3635:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(3069);if(r)goto S_3635;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(3069);}while(r);
}
S_3638:;
fornext_value371=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue371= 2 ;
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_TRY);
fornext_entrylabel371:
*__LONG_TRY=fornext_value371;
if (fornext_step_negative371){
if (fornext_value371<fornext_finalvalue371) break;
}else{
if (fornext_value371>fornext_finalvalue371) break;
}
fornext_error371:;
if(qbevent){evnt(3070);if(r)goto S_3638;}
S_3639:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(3071);if(r)goto S_3639;}
S_3640:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(3072);if(r)goto S_3640;}
S_3641:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3073);if(r)goto S_3641;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3073);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3073);}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(3075);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3077);}while(r);
}
S_3651:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(3079);if(r)goto S_3651;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3079);}while(r);
}
S_3654:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(3080);if(r)goto S_3654;}
do{
*__INTEGER_QBERRORHAPPENED= -3 ;
if(!qbevent)break;evnt(3081);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3082);}while(r);
LABEL_QBERRORHAPPENED3:;
if(qbevent){evnt(3083);r=0;}
S_3657:;
if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||is_error_pending()){
if(qbevent){evnt(3084);if(r)goto S_3657;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3086);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3087);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(3088);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3089);}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(3090);}while(r);
S_3663:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(3091);if(r)goto S_3663;}
S_3664:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(3092);if(r)goto S_3664;}
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(3092);}while(r);
}
S_3667:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(3093);if(r)goto S_3667;}
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(3094);}while(r);
S_3669:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(3095);if(r)goto S_3669;}
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(3095);}while(r);
}
}
}
S_3674:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(3098);if(r)goto S_3674;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass372=*__LONG_INCONEBUF),&(pass373= 0 ),&(pass374= -22ll ));
if(!qbevent)break;evnt(3099);}while(r);
S_3676:;
while((~(FUNC_ENDOFBUF(&(pass376=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(3100);if(r)goto S_3676;}
S_3677:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass377=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(3101);if(r)goto S_3677;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(3102);}while(r);
do{
goto LABEL_SKIPINC1;
if(!qbevent)break;evnt(3103);}while(r);
}
ww_continue_375:;
}
ww_exit_375:;
}
do{
SUB_WRITEBUFLINE(&(pass378=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3107);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3108);}while(r);
do{
goto fornext_exit_370;
if(!qbevent)break;evnt(3110);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(3113);}while(r);
fornext_continue_370:;
}
fornext_exit_370:;
S_3690:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||is_error_pending()){
if(qbevent){evnt(3115);if(r)goto S_3690;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(3115);}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(3115);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3115);}while(r);
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(3116);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(3117);}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(3117);}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(3117);}while(r);
}
S_3700:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(3120);if(r)goto S_3700;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(3122);}while(r);
S_3702:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(3124);if(r)goto S_3702;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip380;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip380;
skip380:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3125);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3127);}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(3128);}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(3130);}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(3131);}while(r);
S_3708:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(3132);if(r)goto S_3708;}
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(3132);}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(3132);}while(r);
}
S_3713:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(3133);if(r)goto S_3713;}
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(3134);}while(r);
S_3715:;
fornext_value382= 1 ;
fornext_finalvalue382=*__LONG_INCLEVEL- 1 ;
fornext_step382= 1 ;
if (fornext_step382<0) fornext_step_negative382=1; else fornext_step_negative382=0;
if (is_error_pending()) goto fornext_error382;
goto fornext_entrylabel382;
while(1){
fornext_value382=fornext_step382+(*__LONG_X);
fornext_entrylabel382:
*__LONG_X=fornext_value382;
if (fornext_step_negative382){
if (fornext_value382<fornext_finalvalue382) break;
}else{
if (fornext_value382>fornext_finalvalue382) break;
}
fornext_error382:;
if(qbevent){evnt(3135);if(r)goto S_3715;}
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(3136);}while(r);
S_3717:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(3137);if(r)goto S_3717;}
S_3718:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(3138);if(r)goto S_3718;}
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(3139);}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(3141);}while(r);
}
}
fornext_continue_381:;
}
fornext_exit_381:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3145);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3147);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(3148);}while(r);
S_3729:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3150);if(r)goto S_3729;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip383;
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 skip383;
skip383:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3150);}while(r);
}
S_3732:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3152);if(r)goto S_3732;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3152);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(3152);}while(r);
}
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(3153);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(3156);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(3157);}while(r);
LABEL_SKIPINC1:;
if(qbevent){evnt(3158);r=0;}
S_3740:;
if (((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))&(((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 )))))||is_error_pending()){
if(qbevent){evnt(3159);if(r)goto S_3740;}
S_3741:;
if ((~(FUNC_ENDOFBUF(&(pass384=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(3160);if(r)goto S_3741;}
do{
goto LABEL_AUTOINCLUDE_PREPASS;
if(!qbevent)break;evnt(3160);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(3161);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(3162);}while(r);
}
dl_continue_379:;
}
dl_exit_379:;
S_3748:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3167);if(r)goto S_3748;}
do{
goto LABEL_IDERET2;
if(!qbevent)break;evnt(3167);}while(r);
}
S_3751:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(3168);if(r)goto S_3751;}
do{
goto dl_exit_235;
if(!qbevent)break;evnt(3168);}while(r);
}
dl_continue_235:;
}while(1);
dl_exit_235:;
S_3755:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(3172);if(r)goto S_3755;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(3173);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(3174);}while(r);
do{
qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3175);}while(r);
do{
goto LABEL_IDEPREPASS;
if(!qbevent)break;evnt(3176);}while(r);
}
S_3761:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(3179);if(r)goto S_3761;}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(3179);}while(r);
}
S_3764:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(3180);if(r)goto S_3764;}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(3180);}while(r);
}
do{
*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER;
if(!qbevent)break;evnt(3182);}while(r);
do{
*__LONG_LINEINPUT3INDEX= 1 ;
if(!qbevent)break;evnt(3186);}while(r);
LABEL_IDE3:;
if(qbevent){evnt(3189);r=0;}
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3191);}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(3192);}while(r);
do{
*__LONG_DATAOFFSET= 0 ;
if(!qbevent)break;evnt(3195);}while(r);
do{
*__LONG_INCLEVEL= 0 ;
if(!qbevent)break;evnt(3196);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(3197);}while(r);
do{
*__LONG_SUBFUNCNLAST= 0 ;
if(!qbevent)break;evnt(3198);}while(r);
do{
*__LONG_LASTLINERETURN= 0 ;
if(!qbevent)break;evnt(3199);}while(r);
do{
*__LONG_LASTLINE= 0 ;
if(!qbevent)break;evnt(3200);}while(r);
do{
*__LONG_FIRSTLINE= 1 ;
if(!qbevent)break;evnt(3201);}while(r);
do{
*__LONG_MAINENDLINE= 0 ;
if(!qbevent)break;evnt(3202);}while(r);
do{
*__LONG_AUTOINCLUDEBUFFER= -1 ;
if(!qbevent)break;evnt(3203);}while(r);
do{
qbs_set(__STRING_USERDEFINELIST,__STRING_USERDEFINELISTPRESETS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3204);}while(r);
do{
*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNTPRESETS;
if(!qbevent)break;evnt(3205);}while(r);
S_3782:;
fornext_value386= 0 ;
fornext_finalvalue386=*__LONG_CONSTLAST;
fornext_step386= 1 ;
if (fornext_step386<0) fornext_step_negative386=1; else fornext_step_negative386=0;
if (is_error_pending()) goto fornext_error386;
goto fornext_entrylabel386;
while(1){
fornext_value386=fornext_step386+(*__LONG_I);
fornext_entrylabel386:
*__LONG_I=fornext_value386;
if (fornext_step_negative386){
if (fornext_value386<fornext_finalvalue386) break;
}else{
if (fornext_value386>fornext_finalvalue386) break;
}
fornext_error386:;
if(qbevent){evnt(3207);if(r)goto S_3782;}
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(3207);}while(r);
fornext_continue_385:;
}
fornext_exit_385:;
S_3785:;
fornext_value388= 1 ;
fornext_finalvalue388= 27 ;
fornext_step388= 1 ;
if (fornext_step388<0) fornext_step_negative388=1; else fornext_step_negative388=0;
if (is_error_pending()) goto fornext_error388;
goto fornext_entrylabel388;
while(1){
fornext_value388=fornext_step388+(*__LONG_I);
fornext_entrylabel388:
*__LONG_I=fornext_value388;
if (fornext_step_negative388){
if (fornext_value388<fornext_finalvalue388) break;
}else{
if (fornext_value388>fornext_finalvalue388) break;
}
fornext_error388:;
if(qbevent){evnt(3209);if(r)goto S_3785;}
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(3209);}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(3209);}while(r);
fornext_continue_387:;
}
fornext_exit_387:;
do{
if(!qbevent)break;evnt(3211);}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(3211);}while(r);
do{
if(!qbevent)break;evnt(3213);}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(3213);}while(r);
do{
SUB_WRITEBUFLINE(&(pass389=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_track_line(0,0,NULL);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3216);}while(r);
do{
if(!qbevent)break;evnt(3217);}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(3217);}while(r);
do{
if(!qbevent)break;evnt(3218);}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(3218);}while(r);
do{
if(!qbevent)break;evnt(3219);}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(3219);}while(r);
do{
if(!qbevent)break;evnt(3221);}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(3221);}while(r);
do{
if(!qbevent)break;evnt(3223);}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(3223);}while(r);
do{
if(!qbevent)break;evnt(3224);}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(3224);}while(r);
do{
if(!qbevent)break;evnt(3226);}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(3226);}while(r);
do{
*__LONG_ERRORLABELS= 0 ;
if(!qbevent)break;evnt(3229);}while(r);
do{
SUB_WRITEBUFLINE(&(pass390=*__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(3230);}while(r);
do{
SUB_WRITEBUFLINE(&(pass391=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3231);}while(r);
do{
if(!qbevent)break;evnt(3233);}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(3233);}while(r);
do{
if(!qbevent)break;evnt(3234);}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(3234);}while(r);
do{
if(!qbevent)break;evnt(3236);}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(3236);}while(r);
do{
if(!qbevent)break;evnt(3237);}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(3237);}while(r);
do{
if(!qbevent)break;evnt(3241);}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(3241);}while(r);
do{
if(!qbevent)break;evnt(3242);}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(3242);}while(r);
do{
if(!qbevent)break;evnt(3244);}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(3244);}while(r);
do{
if(!qbevent)break;evnt(3245);}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(3245);}while(r);
do{
*__LONG_GOSUBID= 1 ;
if(!qbevent)break;evnt(3247);}while(r);
do{
if(!qbevent)break;evnt(3255);}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(3255);}while(r);
do{
SUB_WRITEBUFLINE(&(pass392=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3256);}while(r);
do{
SUB_WRITEBUFLINE(&(pass393=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3257);}while(r);
do{
SUB_WRITEBUFLINE(&(pass394=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3258);}while(r);
do{
SUB_WRITEBUFLINE(&(pass395=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3259);}while(r);
do{
SUB_WRITEBUFLINE(&(pass396=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3261);}while(r);
do{
SUB_WRITEBUFLINE(&(pass397=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3263);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(3265);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(3266);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(3267);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(3268);}while(r);
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(3269);}while(r);
do{
*__LONG_REALLINENUMBER= 0 ;
if(!qbevent)break;evnt(3270);}while(r);
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(3271);}while(r);
do{
SUB_WRITEBUFLINE(&(pass398=*__LONG_MAINTXTBUF),qbs_new_txt_len("S_0:;",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3273);}while(r);
S_3844:;
if ((*__LONG_USEGL)||is_error_pending()){
if(qbevent){evnt(3275);if(r)goto S_3844;}
do{
SUB_GL_INCLUDE_CONTENT();
if(!qbevent)break;evnt(3275);}while(r);
}
S_3847:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3279);if(r)goto S_3847;}
do{
goto LABEL_IDERET3;
if(!qbevent)break;evnt(3279);}while(r);
}
S_3850:;
do{
if(qbevent){evnt(3281);if(r)goto S_3850;}
LABEL_COMPILELINE:;
if(qbevent){evnt(3282);r=0;}
do{
*__LONG_PREPASS= 0 ;
if(!qbevent)break;evnt(3283);}while(r);
S_3852:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(3284);if(r)goto S_3852;}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(3284);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(3286);}while(r);
S_3856:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(3288);if(r)goto S_3856;}
do{
*__LONG_START=*__LONG_CONTINUELINEFROM;
if(!qbevent)break;evnt(3289);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(3290);}while(r);
do{
goto LABEL_CONTLINE;
if(!qbevent)break;evnt(3291);}while(r);
}
do{
*__LONG_IMPLIEDENDIF= 0 ;
if(!qbevent)break;evnt(3296);}while(r);
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(3297);}while(r);
do{
*__LONG_CONTINUELINE= 0 ;
if(!qbevent)break;evnt(3298);}while(r);
do{
*__LONG_ENDIFS= 0 ;
if(!qbevent)break;evnt(3299);}while(r);
do{
*__LONG_LINEELSEUSED= 0 ;
if(!qbevent)break;evnt(3300);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3301);}while(r);
do{
qbs_set(__STRING_LAYOUTCONTINUATIONS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3302);}while(r);
S_3868:;
if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||is_error_pending()){
if(qbevent){evnt(3305);if(r)goto S_3868;}
do{
*__INTEGER_ADDMETADYNAMIC= 0 ;
if(!qbevent)break;evnt(3305);}while(r);
do{
*__INTEGER_DYNAMICMODE= 1 ;
if(!qbevent)break;evnt(3305);}while(r);
}
S_3872:;
if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(3306);if(r)goto S_3872;}
do{
*__INTEGER_ADDMETASTATIC= 0 ;
if(!qbevent)break;evnt(3306);}while(r);
do{
*__INTEGER_DYNAMICMODE= 0 ;
if(!qbevent)break;evnt(3306);}while(r);
}
S_3876:;
if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 ))&(-(*__LONG_LASTLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(3309);if(r)goto S_3876;}
do{
qbs_set(__STRING_A3,FUNC_LINEINPUT3());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3310);}while(r);
S_3878:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||is_error_pending()){
if(qbevent){evnt(3311);if(r)goto S_3878;}
do{
goto dl_exit_399;
if(!qbevent)break;evnt(3311);}while(r);
}
}
S_3882:;
if (((-(*__LONG_LASTLINE== 1 ))&(-(*__LONG_MAINENDLINE== 0 )))||is_error_pending()){
if(qbevent){evnt(3313);if(r)goto S_3882;}
do{
*__LONG_MAINENDLINE= 1 ;
if(!qbevent)break;evnt(3313);}while(r);
}
S_3885:;
if (((-(*__LONG_FIRSTLINE== 1 ))|(((-(*__LONG_MAINENDLINE== 1 ))&(-(*__LONG_FIRSTLINE== 3 ))))|(-(*__LONG_LASTLINE== 1 )))||is_error_pending()){
if(qbevent){evnt(3315);if(r)goto S_3885;}
do{
qbs_set(__STRING_LINEBACKUP,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3316);}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(3317);}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(3318);}while(r);
do{
qbs_set(__STRING_A3,__STRING_LINEBACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3319);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3320);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_DEFAUTOINDENT;
if(!qbevent)break;evnt(3322);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_DEFAUTOLAYOUT;
if(!qbevent)break;evnt(3322);}while(r);
}
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ;
if(!qbevent)break;evnt(3325);}while(r);
do{
*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ;
if(!qbevent)break;evnt(3326);}while(r);
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3327);}while(r);
do{
*__LONG_LAYOUTOK= 1 ;
if(!qbevent)break;evnt(3328);}while(r);
S_3898:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(3330);if(r)goto S_3898;}
do{
*__LONG_MAXPROGRESSWIDTH= 50 ;
if(!qbevent)break;evnt(3331);}while(r);
do{
*__LONG_PERCENTAGE=qbr(std::floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 ));
if(!qbevent)break;evnt(3332);}while(r);
do{
*__LONG_PERCENTAGECHARS=qbr(std::floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))));
if(!qbevent)break;evnt(3333);}while(r);
S_3902:;
if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||is_error_pending()){
if(qbevent){evnt(3334);if(r)goto S_3902;}
do{
*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE;
if(!qbevent)break;evnt(3335);}while(r);
do{
*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS;
if(!qbevent)break;evnt(3336);}while(r);
S_3905:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(3337);if(r)goto S_3905;}
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 skip400;
makefit(tqbs);
qbs_print(tqbs,0);
skip400:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3338);}while(r);
S_3907:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(3339);if(r)goto S_3907;}
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 skip401;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip401:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3340);}while(r);
}else{
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,func_chr( 13 ));
if (is_error_pending()) goto skip402;
makefit(tqbs);
qbs_print(tqbs,0);
skip402:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3342);}while(r);
}
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(3345);}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 skip403;
makefit(tqbs);
qbs_print(tqbs,0);
skip403:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3346);}while(r);
}
}
}
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3351);}while(r);
do{
qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3352);}while(r);
do{
qbs_set(__STRING_WHOLELINE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3353);}while(r);
S_3921:;
if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||is_error_pending()){
if(qbevent){evnt(3355);if(r)goto S_3921;}
S_3922:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(3356);if(r)goto S_3922;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(3356);}while(r);
}else{
do{
goto LABEL_SKIP_INVALIDATED_LINE;
if(!qbevent)break;evnt(3356);}while(r);
}
}
do{
qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3359);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(3360);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3362);}while(r);
S_3931:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3363);if(r)goto S_3931;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3363);}while(r);
}
S_3934:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(3364);if(r)goto S_3934;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip405;
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 skip405;
skip405:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(3364);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(3366);}while(r);
do{
qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3368);}while(r);
S_3939:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||is_error_pending()){
if(qbevent){evnt(3371);if(r)goto S_3939;}
S_3940:;
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(3374);if(r)goto S_3940;}
S_3941:;
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(3375);if(r)goto S_3941;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3375);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3375);}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(3376);}while(r);
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ;
if(!qbevent)break;evnt(3377);}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(3378);}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(3379);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3380);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3381);}while(r);
}
S_3952:;
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(3384);if(r)goto S_3952;}
S_3953:;
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(3386);if(r)goto S_3953;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3387);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3387);}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(3390);}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(3391);}while(r);
do{
*__LONG_TEMP= 0 ;
if(!qbevent)break;evnt(3392);}while(r);
S_3960:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3393);if(r)goto S_3960;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3393);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3393);}while(r);
}
S_3964:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3394);if(r)goto S_3964;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3394);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3394);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3394);}while(r);
}
S_3969:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3395);if(r)goto S_3969;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3395);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3395);}while(r);
}
S_3973:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3396);if(r)goto S_3973;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3396);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3396);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3396);}while(r);
}
S_3978:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3397);if(r)goto S_3978;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3397);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3397);}while(r);
}
S_3982:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3398);if(r)goto S_3982;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3398);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3398);}while(r);
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3398);}while(r);
}
S_3987:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3399);if(r)goto S_3987;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3399);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3399);}while(r);
}
S_3991:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3400);if(r)goto S_3991;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3400);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3400);}while(r);
}
S_3995:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3401);if(r)goto S_3995;}
do{
qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3401);}while(r);
do{
*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3401);}while(r);
}
do{
*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ;
if(!qbevent)break;evnt(3403);}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(3404);}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(3405);}while(r);
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3406);}while(r);
S_4003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3407);if(r)goto S_4003;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3407);}while(r);
}
S_4006:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3408);if(r)goto S_4006;}
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(3409);}while(r);
S_4008:;
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(3410);if(r)goto S_4008;}
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(3410);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(3413);}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(3414);}while(r);
S_4014:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3415);if(r)goto S_4014;}
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(3415);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3415);}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(3416);}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(3416);}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(3417);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3418);}while(r);
}
S_4023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||is_error_pending()){
if(qbevent){evnt(3421);if(r)goto S_4023;}
S_4024:;
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(3422);if(r)goto S_4024;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3422);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3422);}while(r);
}
S_4028:;
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(3423);if(r)goto S_4028;}
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(3423);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3423);}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(3424);}while(r);
S_4033:;
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(3425);if(r)goto S_4033;}
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(3426);}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(3428);}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(3430);}while(r);
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3431);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3432);}while(r);
}
S_4042:;
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(3435);if(r)goto S_4042;}
do{
qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3436);}while(r);
S_4044:;
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(3437);if(r)goto S_4044;}
S_4045:;
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(3438);if(r)goto S_4045;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3438);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3438);}while(r);
}
S_4049:;
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(3439);if(r)goto S_4049;}
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(3439);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3439);}while(r);
}
S_4053:;
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(3440);if(r)goto S_4053;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3440);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3440);}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(3441);}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(3442);}while(r);
S_4059:;
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(3443);if(r)goto S_4059;}
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(3444);}while(r);
}else{
do{
*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3446);}while(r);
S_4063:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3447);if(r)goto S_4063;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3447);}while(r);
}
S_4066:;
if ((-(*__LONG_RESULT!= 0 ))||is_error_pending()){
if(qbevent){evnt(3448);if(r)goto S_4066;}
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(3449);}while(r);
S_4068:;
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(3450);if(r)goto S_4068;}
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(3450);}while(r);
}
}
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(3455);}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(3456);}while(r);
S_4075:;
if ((-(*__LONG_TEMP== 0 ))||is_error_pending()){
if(qbevent){evnt(3457);if(r)goto S_4075;}
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(3457);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3457);}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(3458);}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(3458);}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(3459);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3460);}while(r);
}
}
S_4085:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3464);if(r)goto S_4085;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3465);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3466);}while(r);
}
S_4089:;
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(3469);if(r)goto S_4089;}
do{
qbs_set(__STRING_TEMP,__STRING_A3U);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3470);}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(3471);}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(3473);}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(3474);}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(3474);}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(3475);}while(r);
do{
SUB_SETPRELET(__STRING_L,__STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3476);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3477);}while(r);
}
S_4099:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||is_error_pending()){
if(qbevent){evnt(3480);if(r)goto S_4099;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3481);}while(r);
S_4101:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(3482);if(r)goto S_4101;}
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(3482);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3482);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3483);}while(r);
}
S_4107:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||is_error_pending()){
if(qbevent){evnt(3485);if(r)goto S_4107;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3486);}while(r);
S_4109:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_COLORSET)) + ((0+0)) ))== 1 ))||is_error_pending()){
if(qbevent){evnt(3487);if(r)goto S_4109;}
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(3487);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3487);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3488);}while(r);
}
S_4115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$INCLUDEONCE",12))))||is_error_pending()){
if(qbevent){evnt(3491);if(r)goto S_4115;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$IncludeOnce",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3493);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3494);}while(r);
}
S_4119:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||is_error_pending()){
if(qbevent){evnt(3497);if(r)goto S_4119;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3498);}while(r);
S_4121:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3499);if(r)goto S_4121;}
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(3500);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3502);}while(r);
}
S_4126:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||is_error_pending()){
if(qbevent){evnt(3505);if(r)goto S_4126;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3506);}while(r);
do{
*__LONG_CHECKINGON= 0 ;
if(!qbevent)break;evnt(3507);}while(r);
S_4129:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(~(*__BYTE_NOIDEMODE))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(3508);if(r)goto S_4129;}
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(3509);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3511);}while(r);
}
S_4134:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||is_error_pending()){
if(qbevent){evnt(3513);if(r)goto S_4134;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3514);}while(r);
do{
*__LONG_CHECKINGON= 1 ;
if(!qbevent)break;evnt(3515);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3516);}while(r);
}
S_4139:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ERRORLOCATION:ON",17))))||is_error_pending()){
if(qbevent){evnt(3519);if(r)goto S_4139;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ErrorLocation:On",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3520);}while(r);
S_4141:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))!= 2 ))||is_error_pending()){
if(qbevent){evnt(3521);if(r)goto S_4141;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ErrorLocation is a whole-program option and cannot be changed within the program",81));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3522);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3522);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3524);}while(r);
}
S_4147:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ERRORLOCATION:OFF",18))))||is_error_pending()){
if(qbevent){evnt(3526);if(r)goto S_4147;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ErrorLocation:Off",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3527);}while(r);
S_4149:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(3528);if(r)goto S_4149;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$ErrorLocation is a whole-program option and cannot be changed within the program",81));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3529);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3529);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3531);}while(r);
}
S_4155:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||is_error_pending()){
if(qbevent){evnt(3534);if(r)goto S_4155;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3536);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3537);}while(r);
}
S_4159:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||is_error_pending()){
if(qbevent){evnt(3539);if(r)goto S_4159;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3540);}while(r);
do{
SUB_SETDEPENDENCY(&(pass409= 5ll ));
if(!qbevent)break;evnt(3541);}while(r);
S_4162:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3542);if(r)goto S_4162;}
do{
SUB_WRITEBUFLINE(&(pass410=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3542);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass411=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__dest(func__console());",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3543);}while(r);
do{
SUB_WRITEBUFLINE(&(pass412=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__source(func__console());",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3544);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3545);}while(r);
}
S_4169:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||is_error_pending()){
if(qbevent){evnt(3548);if(r)goto S_4169;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3550);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3551);}while(r);
}
S_4173:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||is_error_pending()){
if(qbevent){evnt(3553);if(r)goto S_4173;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3555);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3556);}while(r);
}
S_4177:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||is_error_pending()){
if(qbevent){evnt(3559);if(r)goto S_4177;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3560);}while(r);
do{
*__LONG_SCREENHIDEON= 1 ;
if(!qbevent)break;evnt(3561);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3562);}while(r);
}
S_4182:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||is_error_pending()){
if(qbevent){evnt(3564);if(r)goto S_4182;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3565);}while(r);
do{
*__LONG_SCREENHIDEON= 0 ;
if(!qbevent)break;evnt(3566);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3567);}while(r);
}
S_4187:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||is_error_pending()){
if(qbevent){evnt(3570);if(r)goto S_4187;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3571);}while(r);
do{
*__LONG_RESIZEON= 0 ;
if(!qbevent)break;evnt(3572);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3572);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3573);}while(r);
}
S_4193:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||is_error_pending()){
if(qbevent){evnt(3575);if(r)goto S_4193;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3576);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3577);}while(r);
do{
*__LONG_RESIZESCALE= 0 ;
if(!qbevent)break;evnt(3577);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3578);}while(r);
}
S_4199:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||is_error_pending()){
if(qbevent){evnt(3580);if(r)goto S_4199;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3581);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3582);}while(r);
do{
*__LONG_RESIZESCALE= 1 ;
if(!qbevent)break;evnt(3582);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3583);}while(r);
}
S_4205:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||is_error_pending()){
if(qbevent){evnt(3585);if(r)goto S_4205;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3586);}while(r);
do{
*__LONG_RESIZEON= 1 ;
if(!qbevent)break;evnt(3587);}while(r);
do{
*__LONG_RESIZESCALE= 2 ;
if(!qbevent)break;evnt(3587);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3588);}while(r);
}
S_4211:;
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(3591);if(r)goto S_4211;}
do{
*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3593);}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(3594);}while(r);
S_4214:;
if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||is_error_pending()){
if(qbevent){evnt(3595);if(r)goto S_4214;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3596);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3596);}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(3599);}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(3600);}while(r);
do{
*__LONG_ISSUEWARNING= 0ll ;
if(!qbevent)break;evnt(3601);}while(r);
S_4221:;
if(qbevent){evnt(3603);if(r)goto S_4221;}
S_4222:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||is_error_pending()){
if(qbevent){evnt(3604);if(r)goto S_4222;}
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(3605);}while(r);
do{
qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3606);}while(r);
S_4225:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3607);if(r)goto S_4225;}
do{
qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3607);}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(3608);}while(r);
sc_ec_7_end:;
goto sc_413_end;
}
S_4229:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||is_error_pending()){
if(qbevent){evnt(3609);if(r)goto S_4229;}
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(3610);}while(r);
do{
qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3611);}while(r);
S_4232:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(3612);if(r)goto S_4232;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3612);}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(3613);}while(r);
sc_ec_8_end:;
goto sc_413_end;
}
S_4236:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||is_error_pending()){
if(qbevent){evnt(3614);if(r)goto S_4236;}
do{
qbs_set(__STRING_VICOMPANYNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3615);}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(3616);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3617);}while(r);
sc_ec_9_end:;
goto sc_413_end;
}
S_4240:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||is_error_pending()){
if(qbevent){evnt(3618);if(r)goto S_4240;}
do{
qbs_set(__STRING_VIFILEDESCRIPTION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3619);}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(3620);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3621);}while(r);
sc_ec_10_end:;
goto sc_413_end;
}
S_4244:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||is_error_pending()){
if(qbevent){evnt(3622);if(r)goto S_4244;}
do{
qbs_set(__STRING_VIFILEVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3623);}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(3624);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3625);}while(r);
sc_ec_11_end:;
goto sc_413_end;
}
S_4248:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||is_error_pending()){
if(qbevent){evnt(3626);if(r)goto S_4248;}
do{
qbs_set(__STRING_VIINTERNALNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3627);}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(3628);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3629);}while(r);
sc_ec_12_end:;
goto sc_413_end;
}
S_4252:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||is_error_pending()){
if(qbevent){evnt(3630);if(r)goto S_4252;}
do{
qbs_set(__STRING_VILEGALCOPYRIGHT,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3631);}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(3632);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3633);}while(r);
sc_ec_13_end:;
goto sc_413_end;
}
S_4256:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||is_error_pending()){
if(qbevent){evnt(3634);if(r)goto S_4256;}
do{
qbs_set(__STRING_VILEGALTRADEMARKS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3635);}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(3636);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3637);}while(r);
sc_ec_14_end:;
goto sc_413_end;
}
S_4260:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||is_error_pending()){
if(qbevent){evnt(3638);if(r)goto S_4260;}
do{
qbs_set(__STRING_VIORIGINALFILENAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3639);}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(3640);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3641);}while(r);
sc_ec_15_end:;
goto sc_413_end;
}
S_4264:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||is_error_pending()){
if(qbevent){evnt(3642);if(r)goto S_4264;}
do{
qbs_set(__STRING_VIPRODUCTNAME,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3643);}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(3644);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3645);}while(r);
sc_ec_16_end:;
goto sc_413_end;
}
S_4268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||is_error_pending()){
if(qbevent){evnt(3646);if(r)goto S_4268;}
do{
qbs_set(__STRING_VIPRODUCTVERSION,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3647);}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(3648);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3649);}while(r);
sc_ec_17_end:;
goto sc_413_end;
}
S_4272:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||is_error_pending()){
if(qbevent){evnt(3650);if(r)goto S_4272;}
do{
qbs_set(__STRING_VICOMMENTS,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3651);}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(3652);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3653);}while(r);
sc_ec_18_end:;
goto sc_413_end;
}
S_4276:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||is_error_pending()){
if(qbevent){evnt(3654);if(r)goto S_4276;}
do{
qbs_set(__STRING_VIWEB,FUNC_REMOVESTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3655);}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(3656);}while(r);
do{
*__LONG_ISSUEWARNING= -1ll ;
if(!qbevent)break;evnt(3657);}while(r);
sc_ec_19_end:;
goto sc_413_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(3659);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3660);}while(r);
sc_413_end:;
S_4284:;
if ((*__LONG_ISSUEWARNING&(~(*__BYTE_IGNOREWARNINGS)))||is_error_pending()){
if(qbevent){evnt(3664);if(r)goto S_4284;}
S_4285:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_HASSTRINGENCLOSINGPAIR(__STRING_VERSIONINFOVALUE,qbs_new_txt_len("''",2)))))||is_error_pending()){
if(qbevent){evnt(3665);if(r)goto S_4285;}
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(3666);}while(r);
}
}
do{
*__BYTE_VERSIONINFOSET= -1ll ;
if(!qbevent)break;evnt(3670);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3672);}while(r);
LABEL_VALIDATEVERSION:;
if(qbevent){evnt(3674);r=0;}
S_4291:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3676);if(r)goto S_4291;}
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(3676);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3676);}while(r);
}
do{
*__LONG_VICOMMAS= 0 ;
if(!qbevent)break;evnt(3677);}while(r);
S_4296:;
fornext_value416= 1 ;
fornext_finalvalue416=__STRING_VERSIONINFOVALUE->len;
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;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative416){
if (fornext_value416<fornext_finalvalue416) break;
}else{
if (fornext_value416>fornext_finalvalue416) break;
}
fornext_error416:;
if(qbevent){evnt(3678);if(r)goto S_4296;}
S_4297:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||is_error_pending()){
if(qbevent){evnt(3679);if(r)goto S_4297;}
do{
*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ;
if(!qbevent)break;evnt(3679);}while(r);
}
S_4300:;
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(3680);if(r)goto S_4300;}
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(3681);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3681);}while(r);
}
fornext_continue_415:;
}
fornext_exit_415:;
do{
#include "ret0.txt"
if(!qbevent)break;evnt(3684);}while(r);
}
S_4307:;
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(3687);if(r)goto S_4307;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EMBED:'filename','handle'",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3688);}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(3690);}while(r);
S_4310:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3690);if(r)goto S_4310;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3690);}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(3691);}while(r);
S_4314:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3691);if(r)goto S_4314;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3691);}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(3692);}while(r);
S_4318:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3693);if(r)goto S_4318;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3693);}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(3695);}while(r);
S_4322:;
if ((-(*__LONG_BRA== 0 ))||is_error_pending()){
if(qbevent){evnt(3695);if(r)goto S_4322;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3695);}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(3696);}while(r);
S_4326:;
if ((-(*__LONG_KET== 0 ))||is_error_pending()){
if(qbevent){evnt(3696);if(r)goto S_4326;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3696);}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(3697);}while(r);
S_4330:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3698);if(r)goto S_4330;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3698);}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(3700);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3702);}while(r);
S_4335:;
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(3703);if(r)goto S_4335;}
S_4336:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3704);if(r)goto S_4336;}
do{
qbs_set(__STRING_EMBEDPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3705);}while(r);
S_4338:;
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(3706);if(r)goto S_4338;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_EMBEDPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3706);}while(r);
}
}else{
S_4342:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3708);if(r)goto S_4342;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3708);}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(3710);}while(r);
S_4347:;
}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(3711);if(r)goto S_4347;}
S_4348:;
fornext_value424=__STRING_EMBEDFILE->len;
fornext_finalvalue424= 1 ;
fornext_step424= -1 ;
if (fornext_step424<0) fornext_step_negative424=1; else fornext_step_negative424=0;
if (is_error_pending()) goto fornext_error424;
goto fornext_entrylabel424;
while(1){
fornext_value424=fornext_step424+(*__LONG_I);
fornext_entrylabel424:
*__LONG_I=fornext_value424;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative424){
if (fornext_value424<fornext_finalvalue424) break;
}else{
if (fornext_value424>fornext_finalvalue424) break;
}
fornext_error424:;
if(qbevent){evnt(3712);if(r)goto S_4348;}
S_4349:;
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(3713);if(r)goto S_4349;}
do{
qbs_set(__STRING_EMBEDPATH,qbs_left(__STRING_EMBEDFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3714);}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(3715);}while(r);
S_4352:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_EMBEDPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3716);if(r)goto S_4352;}
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(3716);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3716);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3717);}while(r);
do{
sub_chdir(__STRING_EMBEDPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3718);}while(r);
do{
qbs_set(__STRING_EMBEDPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3719);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3720);}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(3721);}while(r);
do{
goto fornext_exit_423;
if(!qbevent)break;evnt(3722);}while(r);
}
fornext_continue_423:;
}
fornext_exit_423:;
}
}
S_4365:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EMBEDFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3726);if(r)goto S_4365;}
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(3726);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3726);}while(r);
}
S_4369:;
sc_426=qbs_asc(__STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3728);if(r)goto S_4369;}
S_4370:;
if ((((sc_426>=( 0 ))&&(sc_426<=( 64 )))||((sc_426>=( 91 ))&&(sc_426<=( 96 )))||((sc_426>=( 123 ))&&(sc_426<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3729);if(r)goto S_4370;}
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(3730);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3730);}while(r);
sc_ec_20_end:;
goto sc_426_end;
}
sc_426_end:;
S_4374:;
fornext_value428= 2 ;
fornext_finalvalue428=__STRING_EMBEDHANDLE->len;
fornext_step428= 1 ;
if (fornext_step428<0) fornext_step_negative428=1; else fornext_step_negative428=0;
if (is_error_pending()) goto fornext_error428;
goto fornext_entrylabel428;
while(1){
fornext_value428=fornext_step428+(*__LONG_I);
fornext_entrylabel428:
*__LONG_I=fornext_value428;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative428){
if (fornext_value428<fornext_finalvalue428) break;
}else{
if (fornext_value428>fornext_finalvalue428) break;
}
fornext_error428:;
if(qbevent){evnt(3732);if(r)goto S_4374;}
S_4375:;
sc_430=qbs_asc(__STRING_EMBEDHANDLE,*__LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(3733);if(r)goto S_4375;}
S_4376:;
if ((((sc_430>=( 0 ))&&(sc_430<=( 47 )))||((sc_430>=( 58 ))&&(sc_430<=( 64 )))||((sc_430>=( 91 ))&&(sc_430<=( 96 )))||((sc_430>=( 123 ))&&(sc_430<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(3734);if(r)goto S_4376;}
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(3735);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3735);}while(r);
sc_ec_21_end:;
goto sc_430_end;
}
sc_430_end:;
fornext_continue_427:;
}
fornext_exit_427:;
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3739);}while(r);
S_4382:;
fornext_value432= 0 ;
fornext_finalvalue432=*__LONG_EFLUB;
fornext_step432= 1 ;
if (fornext_step432<0) fornext_step_negative432=1; else fornext_step_negative432=0;
if (is_error_pending()) goto fornext_error432;
goto fornext_entrylabel432;
while(1){
fornext_value432=fornext_step432+(*__LONG_I);
fornext_entrylabel432:
*__LONG_I=fornext_value432;
if (fornext_step_negative432){
if (fornext_value432<fornext_finalvalue432) break;
}else{
if (fornext_value432>fornext_finalvalue432) break;
}
fornext_error432:;
if(qbevent){evnt(3740);if(r)goto S_4382;}
S_4383:;
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(3741);if(r)goto S_4383;}
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(3742);}while(r);
S_4385:;
}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(3743);if(r)goto S_4385;}
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(3744);}while(r);
}else{
do{
goto fornext_continue_431;
if(!qbevent)break;evnt(3746);}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(3748);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3748);}while(r);
fornext_continue_431:;
}
fornext_exit_431:;
S_4393:;
fornext_value434= 0 ;
fornext_finalvalue434=*__LONG_EFLUB;
fornext_step434= 1 ;
if (fornext_step434<0) fornext_step_negative434=1; else fornext_step_negative434=0;
if (is_error_pending()) goto fornext_error434;
goto fornext_entrylabel434;
while(1){
fornext_value434=fornext_step434+(*__LONG_I);
fornext_entrylabel434:
*__LONG_I=fornext_value434;
if (fornext_step_negative434){
if (fornext_value434<fornext_finalvalue434) break;
}else{
if (fornext_value434>fornext_finalvalue434) break;
}
fornext_error434:;
if(qbevent){evnt(3751);if(r)goto S_4393;}
S_4394:;
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(3752);if(r)goto S_4394;}
do{
goto fornext_exit_433;
if(!qbevent)break;evnt(3752);}while(r);
}
fornext_continue_433:;
}
fornext_exit_433:;
S_4398:;
if ((-(*__LONG_I>*__LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(3754);if(r)goto S_4398;}
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(3755);}while(r);
do{
*__LONG_I=*__LONG_EFLUB+ 1 ;
if(!qbevent)break;evnt(3756);}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(3758);}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(3759);}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(3760);}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(3761);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3762);}while(r);
}
S_4408:;
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(3765);if(r)goto S_4408;}
do{
*__LONG_BRA=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3767);}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(3767);}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(3768);}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(3769);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3770);}while(r);
}
S_4415:;
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(3773);if(r)goto S_4415;}
S_4416:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(3775);if(r)goto S_4416;}
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(3775);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3775);}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(3776);}while(r);
S_4421:;
if ((-(*__LONG_FIRSTDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3777);if(r)goto S_4421;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3778);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3778);}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(3780);}while(r);
S_4426:;
if ((-(*__LONG_SECONDDELIMITER== 0 ))||is_error_pending()){
if(qbevent){evnt(3781);if(r)goto S_4426;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
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{
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(3783);}while(r);
S_4432:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3784);if(r)goto S_4432;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3784);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3784);}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(3785);}while(r);
do{
qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3787);}while(r);
S_4438:;
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(3788);if(r)goto S_4438;}
S_4439:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(3790);if(r)goto S_4439;}
do{
qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3791);}while(r);
S_4441:;
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(3792);if(r)goto S_4441;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3792);}while(r);
}
}else{
S_4445:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(3794);if(r)goto S_4445;}
do{
qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3794);}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(3797);}while(r);
S_4450:;
}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(3798);if(r)goto S_4450;}
S_4451:;
fornext_value439=__STRING_EXEICONFILE->len;
fornext_finalvalue439= 1 ;
fornext_step439= -1 ;
if (fornext_step439<0) fornext_step_negative439=1; else fornext_step_negative439=0;
if (is_error_pending()) goto fornext_error439;
goto fornext_entrylabel439;
while(1){
fornext_value439=fornext_step439+(*__LONG_I);
fornext_entrylabel439:
*__LONG_I=fornext_value439;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative439){
if (fornext_value439<fornext_finalvalue439) break;
}else{
if (fornext_value439>fornext_finalvalue439) break;
}
fornext_error439:;
if(qbevent){evnt(3799);if(r)goto S_4451;}
S_4452:;
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(3800);if(r)goto S_4452;}
do{
qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3801);}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(3802);}while(r);
S_4455:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||is_error_pending()){
if(qbevent){evnt(3804);if(r)goto S_4455;}
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(3804);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3804);}while(r);
}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3806);}while(r);
do{
sub_chdir(__STRING_ICONPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3807);}while(r);
do{
qbs_set(__STRING_ICONPATH,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3808);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3809);}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(3811);}while(r);
do{
goto fornext_exit_438;
if(!qbevent)break;evnt(3812);}while(r);
}
fornext_continue_438:;
}
fornext_exit_438:;
}
}
S_4468:;
if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||is_error_pending()){
if(qbevent){evnt(3817);if(r)goto S_4468;}
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(3817);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3817);}while(r);
}
do{
*__LONG_EXEICONSET=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(3819);}while(r);
do{
SUB_SETDEPENDENCY(&(pass441= 8ll ));
if(!qbevent)break;evnt(3820);}while(r);
do{
SUB_WRITEBUFLINE(&(pass442=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("ICON: ",6),func__fullpath(__STRING_EXEICONFILE)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3821);}while(r);
S_4475:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3822);if(r)goto S_4475;}
do{
SUB_WRITEBUFLINE(&(pass443=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3822);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass444=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__icon(NULL,NULL,0);",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3823);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(3824);}while(r);
}
S_4481:;
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(3827);if(r)goto S_4481;}
do{
qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3828);}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(3830);}while(r);
S_4484:;
if(qbevent){evnt(3832);if(r)goto S_4484;}
S_4485:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||is_error_pending()){
if(qbevent){evnt(3833);if(r)goto S_4485;}
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(3834);}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(3835);}while(r);
sc_ec_22_end:;
goto sc_445_end;
}
S_4488:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||is_error_pending()){
if(qbevent){evnt(3837);if(r)goto S_4488;}
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(3838);}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(3839);}while(r);
sc_ec_23_end:;
goto sc_445_end;
}
S_4491:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("TYPEFIELDS",10))))||is_error_pending()){
if(qbevent){evnt(3841);if(r)goto S_4491;}
do{
qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("TypeFields",10))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3842);}while(r);
sc_ec_24_end:;
goto sc_445_end;
}
sc_445_end:;
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3845);}while(r);
}
}
S_4497:;
if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||is_error_pending()){
if(qbevent){evnt(3850);if(r)goto S_4497;}
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(3851);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3852);}while(r);
}
do{
*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET;
if(!qbevent)break;evnt(3856);}while(r);
do{
qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3858);}while(r);
S_4503:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(3858);if(r)goto S_4503;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3858);}while(r);
}
S_4506:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(3859);if(r)goto S_4506;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3859);}while(r);
}
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3860);}while(r);
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(3862);}while(r);
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(3866);}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(3867);}while(r);
S_4513:;
while((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(3868);if(r)goto S_4513;}
do{
*__LONG_SKIP= 0 ;
if(!qbevent)break;evnt(3869);}while(r);
S_4515:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(3870);if(r)goto S_4515;}
S_4516:;
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(3871);if(r)goto S_4516;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3871);}while(r);
}
}
S_4520:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||is_error_pending()){
if(qbevent){evnt(3873);if(r)goto S_4520;}
S_4521:;
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(3874);if(r)goto S_4521;}
do{
*__LONG_SKIP= 1 ;
if(!qbevent)break;evnt(3874);}while(r);
}
}
S_4525:;
if ((-(*__LONG_SKIP== 0 ))||is_error_pending()){
if(qbevent){evnt(3876);if(r)goto S_4525;}
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(3877);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3878);}while(r);
}
do{
*__LONG_S=*__LONG_I+ 9 ;
if(!qbevent)break;evnt(3880);}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(3881);}while(r);
dl_continue_447:;
}
dl_exit_447:;
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3884);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3887);}while(r);
S_4534:;
if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||is_error_pending()){
if(qbevent){evnt(3888);if(r)goto S_4534;}
do{
qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass449= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3889);}while(r);
S_4536:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||is_error_pending()){
if(qbevent){evnt(3890);if(r)goto S_4536;}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass450= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3892);}while(r);
LABEL_ADDLABCHK100:;
if(qbevent){evnt(3893);r=0;}
S_4538:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3894);if(r)goto S_4538;}
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(3895);}while(r);
S_4540:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3896);if(r)goto S_4540;}
S_4541:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3897);if(r)goto S_4541;}
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(3897);}while(r);
}
S_4544:;
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(3898);if(r)goto S_4544;}
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(3898);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3898);}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(3900);}while(r);
do{
goto LABEL_ADDLABAQ100;
if(!qbevent)break;evnt(3901);}while(r);
}
S_4551:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3903);if(r)goto S_4551;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3903);}while(r);
do{
goto LABEL_ADDLABCHK100;
if(!qbevent)break;evnt(3903);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3907);}while(r);
S_4557:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3907);if(r)goto S_4557;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3907);}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(3907);}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(3908);}while(r);
do{
SUB_HASHADD(__STRING_LABEL,&(pass451= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3909);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3910);}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(3911);}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(3912);}while(r);
LABEL_ADDLABAQ100:;
if(qbevent){evnt(3913);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(3914);}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(3915);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3917);}while(r);
do{
SUB_WRITEBUFLINE(&(pass452=*__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(3918);}while(r);
S_4570:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||is_error_pending()){
if(qbevent){evnt(3921);if(r)goto S_4570;}
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(3921);}while(r);
}
S_4573:;
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(3922);if(r)goto S_4573;}
do{
qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3922);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass454=*__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(3923);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3924);}while(r);
S_4578:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3925);if(r)goto S_4578;}
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(3926);}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(3927);}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(3928);}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(3929);}while(r);
}
S_4584:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3931);if(r)goto S_4584;}
S_4585:;
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(3932);if(r)goto S_4585;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3932);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3932);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass456=*__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(3933);}while(r);
}
S_4592:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(3935);if(r)goto S_4592;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3935);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass457= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3936);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3936);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(3936);}while(r);
}
}
S_4600:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(3944);if(r)goto S_4600;}
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(3945);}while(r);
S_4602:;
if ((*__LONG_X2)||is_error_pending()){
if(qbevent){evnt(3946);if(r)goto S_4602;}
S_4603:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||is_error_pending()){
if(qbevent){evnt(3947);if(r)goto S_4603;}
do{
*__LONG_X3=*__LONG_X2+ 1 ;
if(!qbevent)break;evnt(3947);}while(r);
}else{
do{
*__LONG_X3=*__LONG_X2+ 2 ;
if(!qbevent)break;evnt(3947);}while(r);
}
do{
qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3948);}while(r);
do{
*__LONG_CREATINGLABEL= 1 ;
if(!qbevent)break;evnt(3950);}while(r);
S_4610:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||is_error_pending()){
if(qbevent){evnt(3951);if(r)goto S_4610;}
S_4611:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||is_error_pending()){
if(qbevent){evnt(3953);if(r)goto S_4611;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3953);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3953);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass459= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3955);}while(r);
LABEL_ADDLABCHK:;
if(qbevent){evnt(3956);r=0;}
S_4616:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(3957);if(r)goto S_4616;}
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(3958);}while(r);
S_4618:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(3959);if(r)goto S_4618;}
S_4619:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(3960);if(r)goto S_4619;}
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(3960);}while(r);
}
S_4622:;
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(3961);if(r)goto S_4622;}
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(3961);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(3961);}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(3963);}while(r);
do{
goto LABEL_ADDLABAQ;
if(!qbevent)break;evnt(3964);}while(r);
}
S_4629:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(3966);if(r)goto S_4629;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(3966);}while(r);
do{
goto LABEL_ADDLABCHK;
if(!qbevent)break;evnt(3966);}while(r);
}
}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(3969);}while(r);
S_4635:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(3969);if(r)goto S_4635;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(3969);}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(3969);}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(3970);}while(r);
do{
SUB_HASHADD(__STRING_A,&(pass460= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3971);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(3972);}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(3973);}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(3974);}while(r);
LABEL_ADDLABAQ:;
if(qbevent){evnt(3975);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(3976);}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(3977);}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(3978);}while(r);
S_4647:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(3980);if(r)goto S_4647;}
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(3980);}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(3980);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass462=*__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(3982);}while(r);
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3983);}while(r);
S_4654:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(3984);if(r)goto S_4654;}
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(3985);}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(3986);}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(3987);}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(3988);}while(r);
}
S_4660:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(3990);if(r)goto S_4660;}
S_4661:;
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(3991);if(r)goto S_4661;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3991);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3991);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass464=*__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(3992);}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(3994);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3994);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(3995);}while(r);
S_4671:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(3995);if(r)goto S_4671;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(3995);}while(r);
}
}
}
}
S_4677:;
while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||is_error_pending()){
if(qbevent){evnt(4001);if(r)goto S_4677;}
S_4678:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4002);if(r)goto S_4678;}
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(4002);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4002);}while(r);
}
S_4683:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||is_error_pending()){
if(qbevent){evnt(4003);if(r)goto S_4683;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4003);}while(r);
}
do{
qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass469= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4004);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4004);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(4004);}while(r);
dl_continue_466:;
}
dl_exit_466:;
S_4690:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||is_error_pending()){
if(qbevent){evnt(4008);if(r)goto S_4690;}
do{
qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass470= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4010);}while(r);
S_4692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(4012);if(r)goto S_4692;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4013);}while(r);
S_4694:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(4014);if(r)goto S_4694;}
do{
*__LONG_CONTINUELINEFROM= 2 ;
if(!qbevent)break;evnt(4014);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4015);}while(r);
}
S_4699:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(4018);if(r)goto S_4699;}
S_4700:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(4019);if(r)goto S_4700;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4019);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4019);}while(r);
}
S_4704:;
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(4020);if(r)goto S_4704;}
do{
qbs_set(__STRING_A,__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4020);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4020);}while(r);
}
S_4708:;
fornext_value472= 3 ;
fornext_finalvalue472=*__LONG_N- 1 ;
fornext_step472= 1 ;
if (fornext_step472<0) fornext_step_negative472=1; else fornext_step_negative472=0;
if (is_error_pending()) goto fornext_error472;
goto fornext_entrylabel472;
while(1){
fornext_value472=fornext_step472+(*__LONG_I);
fornext_entrylabel472:
*__LONG_I=fornext_value472;
if (fornext_step_negative472){
if (fornext_value472<fornext_finalvalue472) break;
}else{
if (fornext_value472>fornext_finalvalue472) break;
}
fornext_error472:;
if(qbevent){evnt(4021);if(r)goto S_4708;}
S_4709:;
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(4022);if(r)goto S_4709;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass473= 1 ),__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4023);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(4024);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4025);}while(r);
}
fornext_continue_471:;
}
fornext_exit_471:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4028);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4028);}while(r);
}
}
do{
*__LONG_START= 1 ;
if(!qbevent)break;evnt(4033);}while(r);
do{
goto LABEL_SKIPCONTINIT;
if(!qbevent)break;evnt(4035);}while(r);
LABEL_CONTLINE:;
if(qbevent){evnt(4037);r=0;}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4039);}while(r);
do{
qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4040);}while(r);
LABEL_SKIPCONTINIT:;
if(qbevent){evnt(4042);r=0;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4050);}while(r);
S_4724:;
fornext_value475=*__LONG_START;
fornext_finalvalue475=*__LONG_N;
fornext_step475= 1 ;
if (fornext_step475<0) fornext_step_negative475=1; else fornext_step_negative475=0;
if (is_error_pending()) goto fornext_error475;
goto fornext_entrylabel475;
while(1){
fornext_value475=fornext_step475+(*__LONG_I);
fornext_entrylabel475:
*__LONG_I=fornext_value475;
if (fornext_step_negative475){
if (fornext_value475<fornext_finalvalue475) break;
}else{
if (fornext_value475>fornext_finalvalue475) break;
}
fornext_error475:;
if(qbevent){evnt(4052);if(r)goto S_4724;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4053);}while(r);
S_4726:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(4056);if(r)goto S_4726;}
S_4727:;
if ((-(*__LONG_I==*__LONG_START))||is_error_pending()){
if(qbevent){evnt(4057);if(r)goto S_4727;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4058);}while(r);
S_4729:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4058);if(r)goto S_4729;}
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(4058);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4058);}while(r);
}
S_4734:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4059);if(r)goto S_4734;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(4059);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4060);}while(r);
}
S_4739:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4062);if(r)goto S_4739;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(4062);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4063);}while(r);
}
S_4744:;
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(4068);if(r)goto S_4744;}
do{
*__LONG_NEWIF= 1 ;
if(!qbevent)break;evnt(4068);}while(r);
}
S_4747:;
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(4071);if(r)goto S_4747;}
S_4748:;
if ((-(*__LONG_NEWIF== 0 ))||is_error_pending()){
if(qbevent){evnt(4072);if(r)goto S_4748;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4072);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4072);}while(r);
}
do{
*__LONG_NEWIF= 0 ;
if(!qbevent)break;evnt(4073);}while(r);
S_4753:;
if ((-(*__LONG_LINEELSEUSED> 0 ))||is_error_pending()){
if(qbevent){evnt(4074);if(r)goto S_4753;}
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(4074);}while(r);
}
S_4756:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(4075);if(r)goto S_4756;}
S_4757:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4076);if(r)goto S_4757;}
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(4076);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4076);}while(r);
}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(4077);}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(4079);}while(r);
S_4764:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4080);if(r)goto S_4764;}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(4080);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ;
if(!qbevent)break;evnt(4080);}while(r);
}
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4081);}while(r);
}
S_4770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(4085);if(r)goto S_4770;}
S_4771:;
if ((-(*__LONG_START==*__LONG_I))||is_error_pending()){
if(qbevent){evnt(4087);if(r)goto S_4771;}
S_4772:;
if ((-(*__LONG_LINEELSEUSED>= 1 ))||is_error_pending()){
if(qbevent){evnt(4088);if(r)goto S_4772;}
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(4093);}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(4093);}while(r);
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(4094);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(4095);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ;
if(!qbevent)break;evnt(4096);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4097);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4100);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(4100);}while(r);
do{
*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ;
if(!qbevent)break;evnt(4101);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4102);}while(r);
}
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(4106);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4107);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4111);}while(r);
S_4789:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(4111);if(r)goto S_4789;}
do{
qbs_set(__STRING_A,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4111);}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(4111);}while(r);
}
fornext_continue_474:;
}
fornext_exit_474:;
S_4795:;
if ((-(*__LONG_ENDIFS> 0 ))||is_error_pending()){
if(qbevent){evnt(4116);if(r)goto S_4795;}
do{
*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ;
if(!qbevent)break;evnt(4117);}while(r);
do{
*__LONG_IMPLIEDENDIF= 1 ;
if(!qbevent)break;evnt(4118);}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(4118);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(4118);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(4119);}while(r);
do{
*__LONG_CONTINUELINEFROM=*__LONG_I;
if(!qbevent)break;evnt(4120);}while(r);
do{
goto LABEL_GOTCOMMAND;
if(!qbevent)break;evnt(4121);}while(r);
}
LABEL_GOTCOMMAND:;
if(qbevent){evnt(4125);r=0;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(4127);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4129);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4130);}while(r);
do{
*__LONG_LAYOUTDONE= 0 ;
if(!qbevent)break;evnt(4133);}while(r);
do{
qbs_set(__STRING_LINEFRAGMENT,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4135);}while(r);
S_4809:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(4136);if(r)goto S_4809;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip477;
sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1);
if (is_error_pending()) goto skip477;
skip477:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(4136);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4137);}while(r);
S_4813:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(4138);if(r)goto S_4813;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4138);}while(r);
}
S_4816:;
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(4141);if(r)goto S_4816;}
do{
qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass478= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4142);}while(r);
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(4143);}while(r);
do{
qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4144);}while(r);
do{
*__LONG_LASTFUSE= -1 ;
if(!qbevent)break;evnt(4145);}while(r);
S_4821:;
fornext_value480= 2 ;
fornext_finalvalue480=*__LONG_N;
fornext_step480= 1 ;
if (fornext_step480<0) fornext_step_negative480=1; else fornext_step_negative480=0;
if (is_error_pending()) goto fornext_error480;
goto fornext_entrylabel480;
while(1){
fornext_value480=fornext_step480+(*__LONG_X);
fornext_entrylabel480:
*__LONG_X=fornext_value480;
if (fornext_step_negative480){
if (fornext_value480<fornext_finalvalue480) break;
}else{
if (fornext_value480>fornext_finalvalue480) break;
}
fornext_error480:;
if(qbevent){evnt(4146);if(r)goto S_4821;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4147);}while(r);
S_4823:;
if ((-(*__LONG_EXCEPT== 1 ))||is_error_pending()){
if(qbevent){evnt(4148);if(r)goto S_4823;}
do{
*__LONG_EXCEPT= 2 ;
if(!qbevent)break;evnt(4148);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(4148);}while(r);
}
S_4827:;
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(4149);if(r)goto S_4827;}
S_4828:;
if ((-(*__LONG_EXCEPT== 2 ))||is_error_pending()){
if(qbevent){evnt(4150);if(r)goto S_4828;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(4150);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(4150);}while(r);
}
S_4832:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(4152);if(r)goto S_4832;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(4154);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(4155);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4159);}while(r);
S_4837:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4160);if(r)goto S_4837;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4160);}while(r);
}
S_4840:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(4161);if(r)goto S_4840;}
S_4841:;
if (((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(4162);if(r)goto S_4841;}
do{
*__LONG_EXCEPT= 1 ;
if(!qbevent)break;evnt(4163);}while(r);
do{
goto LABEL_UDTPERIOD;
if(!qbevent)break;evnt(4164);}while(r);
}
S_4845:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(4166);if(r)goto S_4845;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(4166);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4166);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(4166);}while(r);
}
S_4851:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4167);if(r)goto S_4851;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4167);}while(r);
}
dl_continue_481:;
}
dl_exit_481:;
S_4855:;
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(4170);if(r)goto S_4855;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4170);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4170);}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(4171);}while(r);
do{
*__LONG_LASTFUSE=*__LONG_X;
if(!qbevent)break;evnt(4172);}while(r);
do{
goto LABEL_PERIODFUSED;
if(!qbevent)break;evnt(4173);}while(r);
}
do{
*__LONG_EXCEPT= 0 ;
if(!qbevent)break;evnt(4175);}while(r);
LABEL_UDTPERIOD:;
if(qbevent){evnt(4176);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(4177);}while(r);
LABEL_PERIODFUSED:;
if(qbevent){evnt(4178);r=0;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4179);}while(r);
fornext_continue_479:;
}
fornext_exit_479:;
do{
qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4181);}while(r);
do{
qbs_set(__STRING_CA,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4182);}while(r);
do{
qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4183);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4184);}while(r);
}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(4187);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass484= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4189);}while(r);
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass485= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4190);}while(r);
do{
qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass486= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4191);}while(r);
S_4876:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(4195);if(r)goto S_4876;}
S_4877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||is_error_pending()){
if(qbevent){evnt(4196);if(r)goto S_4877;}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4196);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4196);}while(r);
}
}
S_4882:;
if ((-(*__LONG_N<= 2 ))||is_error_pending()){
if(qbevent){evnt(4199);if(r)goto S_4882;}
S_4883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||is_error_pending()){
if(qbevent){evnt(4200);if(r)goto S_4883;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4201);}while(r);
S_4885:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(4202);if(r)goto S_4885;}
do{
qbs_set(__STRING_E,func_space(qb_safe_idiv((__STRING_SECONDELEMENT->len- 1 ), 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4204);}while(r);
S_4887:;
fornext_value489= 1 ;
fornext_finalvalue489=__STRING_E->len;
fornext_step489= 1 ;
if (fornext_step489<0) fornext_step_negative489=1; else fornext_step_negative489=0;
if (is_error_pending()) goto fornext_error489;
goto fornext_entrylabel489;
while(1){
fornext_value489=fornext_step489+(*__LONG_X);
fornext_entrylabel489:
*__LONG_X=fornext_value489;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative489){
if (fornext_value489<fornext_finalvalue489) break;
}else{
if (fornext_value489>fornext_finalvalue489) break;
}
fornext_error489:;
if(qbevent){evnt(4205);if(r)goto S_4887;}
do{
*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4206);}while(r);
do{
*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4207);}while(r);
S_4890:;
if ((-(*__LONG_V1< 65 ))||is_error_pending()){
if(qbevent){evnt(4208);if(r)goto S_4890;}
do{
*__LONG_V1=*__LONG_V1- 48 ;
if(!qbevent)break;evnt(4208);}while(r);
}else{
do{
*__LONG_V1=*__LONG_V1- 55 ;
if(!qbevent)break;evnt(4208);}while(r);
}
S_4895:;
if ((-(*__LONG_V2< 65 ))||is_error_pending()){
if(qbevent){evnt(4209);if(r)goto S_4895;}
do{
*__LONG_V2=*__LONG_V2- 48 ;
if(!qbevent)break;evnt(4209);}while(r);
}else{
do{
*__LONG_V2=*__LONG_V2- 55 ;
if(!qbevent)break;evnt(4209);}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(4210);}while(r);
fornext_continue_488:;
}
fornext_exit_488:;
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(4212);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4215);}while(r);
S_4905:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4215);if(r)goto S_4905;}
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(4215);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4215);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4217);}while(r);
}
}
S_4913:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(4224);if(r)goto S_4913;}
S_4914:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(4226);if(r)goto S_4914;}
S_4915:;
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(4227);if(r)goto S_4915;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4227);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4227);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 0 ;
if(!qbevent)break;evnt(4228);}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(4229);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4230);}while(r);
S_4922:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4230);if(r)goto S_4922;}
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(4230);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4230);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4231);}while(r);
}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(4234);}while(r);
S_4930:;
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(4236);if(r)goto S_4930;}
do{
goto LABEL_DECLARESUBFUNC2;
if(!qbevent)break;evnt(4237);}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(4240);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4240);}while(r);
}
S_4936:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(4244);if(r)goto S_4936;}
S_4937:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(4246);if(r)goto S_4937;}
S_4938:;
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(4247);if(r)goto S_4938;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4247);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4247);}while(r);
}
do{
*__LONG_DEFININGTYPE= 0 ;
if(!qbevent)break;evnt(4248);}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(4249);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4250);}while(r);
S_4945:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4250);if(r)goto S_4945;}
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(4250);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4250);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4251);}while(r);
}
S_4952:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(4255);if(r)goto S_4952;}
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(4255);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4255);}while(r);
}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(4256);}while(r);
S_4957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(4257);if(r)goto S_4957;}
do{
*__LONG_DECLSTART= 0 ;
if(!qbevent)break;evnt(4262);}while(r);
do{
*__LONG_DECLMODESTART= 0 ;
if(!qbevent)break;evnt(4263);}while(r);
S_4960:;
fornext_value495= 3 ;
fornext_finalvalue495=*__LONG_N;
fornext_step495= 1 ;
if (fornext_step495<0) fornext_step_negative495=1; else fornext_step_negative495=0;
if (is_error_pending()) goto fornext_error495;
goto fornext_entrylabel495;
while(1){
fornext_value495=fornext_step495+(*__LONG_I);
fornext_entrylabel495:
*__LONG_I=fornext_value495;
if (fornext_step_negative495){
if (fornext_value495<fornext_finalvalue495) break;
}else{
if (fornext_value495>fornext_finalvalue495) break;
}
fornext_error495:;
if(qbevent){evnt(4264);if(r)goto S_4960;}
do{
qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4265);}while(r);
S_4962:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(__STRING_THISELEMENT)))||is_error_pending()){
if(qbevent){evnt(4266);if(r)goto S_4962;}
S_4963:;
if ((-(*__LONG_DECLMODESTART== 0 ))||is_error_pending()){
if(qbevent){evnt(4267);if(r)goto S_4963;}
do{
*__LONG_DECLMODESTART=*__LONG_I;
if(!qbevent)break;evnt(4267);}while(r);
}
S_4966:;
}else{
if (qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(__STRING_THISELEMENT))){
if(qbevent){evnt(4268);if(r)goto S_4966;}
S_4967:;
if ((*__LONG_DECLMODESTART)||is_error_pending()){
if(qbevent){evnt(4269);if(r)goto S_4967;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass496= 2 ),&(pass497=*__LONG_DECLMODESTART- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4270);}while(r);
}else{
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass498= 2 ),&(pass499=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4272);}while(r);
}
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4274);}while(r);
S_4973:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4275);if(r)goto S_4973;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4275);}while(r);
}
S_4976:;
if ((*__LONG_TYP)||is_error_pending()){
if(qbevent){evnt(4276);if(r)goto S_4976;}
do{
*__LONG_DECLSTART=*__LONG_I;
if(!qbevent)break;evnt(4277);}while(r);
do{
goto fornext_exit_494;
if(!qbevent)break;evnt(4278);}while(r);
}
}
}
fornext_continue_494:;
}
fornext_exit_494:;
S_4982:;
if ((-(*__LONG_DECLSTART== 0 ))||is_error_pending()){
if(qbevent){evnt(4282);if(r)goto S_4982;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4282);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4282);}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(4284);}while(r);
S_4987:;
if ((*__LONG_DECLMODESTART)||is_error_pending()){
if(qbevent){evnt(4285);if(r)goto S_4987;}
do{
*__LONG_LAYOUTMEMBERSTART=*__LONG_DECLMODESTART;
if(!qbevent)break;evnt(4285);}while(r);
}else{
do{
*__LONG_LAYOUTMEMBERSTART=*__LONG_DECLSTART;
if(!qbevent)break;evnt(4285);}while(r);
}
S_4992:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(4286);if(r)goto S_4992;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4287);}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(4288);}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(4290);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_COMPACTMEMBERREFLAYOUT(FUNC_GETELEMENTS(__STRING_CA,__LONG_LAYOUTMEMBERSTART,__LONG_N))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4296);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4297);}while(r);
S_5000:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4297);if(r)goto S_5000;}
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(4297);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4297);}while(r);
}
}else{
do{
*__LONG_LAYOUTFIELDMODE= 0 ;
if(!qbevent)break;evnt(4299);}while(r);
do{
*__LONG_LAYOUTNAMEINDEX= 1 ;
if(!qbevent)break;evnt(4300);}while(r);
S_5008:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_UDTFIELDMODETOKEN(FUNC_GETELEMENT(__STRING_A,&(pass501= 1 )))))||is_error_pending()){
if(qbevent){evnt(4301);if(r)goto S_5008;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,&(pass502= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4302);}while(r);
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4303);}while(r);
S_5011:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4304);if(r)goto S_5011;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4304);}while(r);
}
do{
*__LONG_LAYOUTNAMEINDEX= 2 ;
if(!qbevent)break;evnt(4305);}while(r);
}
S_5016:;
if ((-(*__LONG_LAYOUTNAMEINDEX== 2 ))||is_error_pending()){
if(qbevent){evnt(4307);if(r)goto S_5016;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_UDTFIELDMODELAYOUT(__LONG_LAYOUTFIELDMODE),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,__LONG_LAYOUTNAMEINDEX)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4308);}while(r);
}else{
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_CA,__LONG_LAYOUTNAMEINDEX));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4310);}while(r);
}
do{
*__LONG_II=*__LONG_LAYOUTNAMEINDEX+ 1 ;
if(!qbevent)break;evnt(4312);}while(r);
S_5022:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4313);if(r)goto S_5022;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4314);}while(r);
S_5024:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(4315);if(r)goto S_5024;}
do{
goto dl_exit_503;
if(!qbevent)break;evnt(4315);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4316);}while(r);
S_5028:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4317);if(r)goto S_5028;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4317);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass504=FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4318);}while(r);
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(4319);}while(r);
dl_continue_503:;
}
dl_exit_503:;
S_5034:;
if ((-(*__LONG_II<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4321);if(r)goto S_5034;}
S_5035:;
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(4322);if(r)goto S_5035;}
do{
*__LONG_B2= 1 ;
if(!qbevent)break;evnt(4323);}while(r);
do{
*__LONG_I3=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(4324);}while(r);
S_5038:;
while((-(*__LONG_I3<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4325);if(r)goto S_5038;}
do{
qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_I3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4326);}while(r);
S_5040:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(4327);if(r)goto S_5040;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(4327);}while(r);
}
S_5043:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(4328);if(r)goto S_5043;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(4329);}while(r);
S_5045:;
if ((-(*__LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(4330);if(r)goto S_5045;}
do{
goto dl_exit_505;
if(!qbevent)break;evnt(4330);}while(r);
}
}
do{
*__LONG_I3=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(4332);}while(r);
dl_continue_505:;
}
dl_exit_505:;
S_5051:;
if ((-(*__LONG_B2!= 0 ))||is_error_pending()){
if(qbevent){evnt(4334);if(r)goto S_5051;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4334);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4334);}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(4335);}while(r);
do{
*__LONG_II=*__LONG_I3+ 1 ;
if(!qbevent)break;evnt(4336);}while(r);
}
}
S_5059:;
while((-(*__LONG_II<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4339);if(r)goto S_5059;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_II));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4340);}while(r);
S_5061:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(4341);if(r)goto S_5061;}
do{
goto dl_exit_506;
if(!qbevent)break;evnt(4341);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4342);}while(r);
S_5065:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4343);if(r)goto S_5065;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4343);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass507=FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4344);}while(r);
do{
*__LONG_II=*__LONG_II+ 1 ;
if(!qbevent)break;evnt(4345);}while(r);
dl_continue_506:;
}
dl_exit_506:;
S_5071:;
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(4347);if(r)goto S_5071;}
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(4347);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4347);}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(4348);}while(r);
do{
*__LONG_TYPELAST=*__LONG_N;
if(!qbevent)break;evnt(4349);}while(r);
S_5077:;
while((-(*__LONG_TYPELAST>=(*__LONG_II+ 1 )))||is_error_pending()){
if(qbevent){evnt(4350);if(r)goto S_5077;}
do{
qbs_set(__STRING_FIELDTOKEN,FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4351);}while(r);
S_5079:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_UDTFIELDMODETOKEN(__STRING_FIELDTOKEN)== 0 )))||is_error_pending()){
if(qbevent){evnt(4352);if(r)goto S_5079;}
do{
goto dl_exit_508;
if(!qbevent)break;evnt(4352);}while(r);
}
do{
SUB_UDTAPPLYFIELDMODE(__STRING_FIELDTOKEN,__LONG_LAYOUTFIELDMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4353);}while(r);
S_5083:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4354);if(r)goto S_5083;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4354);}while(r);
}
do{
*__LONG_TYPELAST=*__LONG_TYPELAST- 1 ;
if(!qbevent)break;evnt(4355);}while(r);
dl_continue_508:;
}
dl_exit_508:;
S_5088:;
if ((-(*__LONG_TYPELAST<(*__LONG_II+ 1 )))||is_error_pending()){
if(qbevent){evnt(4357);if(r)goto S_5088;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected type",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4357);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4357);}while(r);
}
do{
qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass509=*__LONG_II+ 1 ),__LONG_TYPELAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4358);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4359);}while(r);
S_5094:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(4360);if(r)goto S_5094;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4360);}while(r);
}
S_5097:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(4361);if(r)goto S_5097;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4361);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4361);}while(r);
}
S_5101:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(4362);if(r)goto S_5101;}
do{
qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4363);}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(4364);}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(4366);}while(r);
}
S_5107:;
while((-(*__LONG_TYPELAST<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(4368);if(r)goto S_5107;}
do{
*__LONG_TYPELAST=*__LONG_TYPELAST+ 1 ;
if(!qbevent)break;evnt(4369);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_UDTFIELDMODELAYOUT(&(pass511=FUNC_UDTFIELDMODETOKEN(FUNC_GETELEMENT(__STRING_A,__LONG_TYPELAST))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4370);}while(r);
dl_continue_510:;
}
dl_exit_510:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4372);}while(r);
S_5112:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4372);if(r)goto S_5112;}
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(4372);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4372);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4374);}while(r);
}
S_5120:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||is_error_pending()){
if(qbevent){evnt(4378);if(r)goto S_5120;}
S_5121:;
if ((-(*__LONG_N!= 2 ))||is_error_pending()){
if(qbevent){evnt(4379);if(r)goto S_5121;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4379);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4379);}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,&(pass513= 2 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4380);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(4381);}while(r);
S_5127:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(4381);if(r)goto S_5127;}
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(4381);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4381);}while(r);
}
do{
*__LONG_DEFININGTYPE= 1 ;
if(!qbevent)break;evnt(4382);}while(r);
do{
*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(4383);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(4384);}while(r);
}
S_5136:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(4388);if(r)goto S_5136;}
S_5137:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||is_error_pending()){
if(qbevent){evnt(4389);if(r)goto S_5137;}
S_5138:;
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(4391);if(r)goto S_5138;}
do{
*__LONG_DECLARINGLIBRARY= 1 ;
if(!qbevent)break;evnt(4393);}while(r);
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(4394);}while(r);
do{
*__LONG_CUSTOMTYPELIBRARY= 0 ;
if(!qbevent)break;evnt(4395);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 0 ;
if(!qbevent)break;evnt(4396);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 0 ;
if(!qbevent)break;evnt(4397);}while(r);
do{
*__LONG_X= 3 ;
if(!qbevent)break;evnt(4399);}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(4400);}while(r);
S_5146:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||is_error_pending()){
if(qbevent){evnt(4402);if(r)goto S_5146;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass515= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4403);}while(r);
S_5148:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4403);if(r)goto S_5148;}
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(4403);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4403);}while(r);
}
do{
*__LONG_DYNAMICLIBRARY= 1 ;
if(!qbevent)break;evnt(4404);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4405);}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(4406);}while(r);
S_5155:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(4407);if(r)goto S_5155;}
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(4407);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4407);}while(r);
}
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4408);}while(r);
}
S_5161:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||is_error_pending()){
if(qbevent){evnt(4411);if(r)goto S_5161;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass516= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4412);}while(r);
S_5163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4412);if(r)goto S_5163;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4412);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4412);}while(r);
}
do{
*__LONG_CUSTOMTYPELIBRARY= 1 ;
if(!qbevent)break;evnt(4413);}while(r);
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4414);}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(4415);}while(r);
do{
*__LONG_INDIRECTLIBRARY= 1 ;
if(!qbevent)break;evnt(4416);}while(r);
}
S_5172:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(4419);if(r)goto S_5172;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass517= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4420);}while(r);
S_5174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||is_error_pending()){
if(qbevent){evnt(4420);if(r)goto S_5174;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4420);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4420);}while(r);
}
do{
*__LONG_X= 4 ;
if(!qbevent)break;evnt(4421);}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(4422);}while(r);
do{
*__LONG_STATICLINKEDLIBRARY= 1 ;
if(!qbevent)break;evnt(4423);}while(r);
}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4426);}while(r);
do{
*__LONG_SFHEADER= 0 ;
if(!qbevent)break;evnt(4426);}while(r);
S_5184:;
if ((-(*__LONG_N>=*__LONG_X))||is_error_pending()){
if(qbevent){evnt(4428);if(r)goto S_5184;}
do{
*__LONG_SFDECLARE= 1 ;
if(!qbevent)break;evnt(4430);}while(r);
LABEL_ADDLIBRARY:;
if(qbevent){evnt(4432);r=0;}
do{
qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4434);}while(r);
do{
qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4435);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4440);}while(r);
S_5189:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||is_error_pending()){
if(qbevent){evnt(4441);if(r)goto S_5189;}
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(4441);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4441);}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(4442);}while(r);
do{
*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4443);}while(r);
S_5195:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(4444);if(r)goto S_5195;}
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(4444);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4444);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4445);}while(r);
S_5200:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4447);if(r)goto S_5200;}
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(4447);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4447);}while(r);
}
S_5204:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(4448);if(r)goto S_5204;}
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(4448);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(4448);}while(r);
}
S_5208:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||is_error_pending()){
if(qbevent){evnt(4463);if(r)goto S_5208;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4464);}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(4465);}while(r);
ww_continue_521:;
}
ww_exit_521:;
do{
qbs_set(__STRING_AUTOFORMAT_X,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4468);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4472);}while(r);
LABEL_STRIPLIBVER:;
if(qbevent){evnt(4473);r=0;}
S_5214:;
fornext_value524=__STRING_X->len;
fornext_finalvalue524= 1 ;
fornext_step524= -1 ;
if (fornext_step524<0) fornext_step_negative524=1; else fornext_step_negative524=0;
if (is_error_pending()) goto fornext_error524;
goto fornext_entrylabel524;
while(1){
fornext_value524=fornext_step524+(*__LONG_Z);
fornext_entrylabel524:
*__LONG_Z=fornext_value524;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative524){
if (fornext_value524<fornext_finalvalue524) break;
}else{
if (fornext_value524>fornext_finalvalue524) break;
}
fornext_error524:;
if(qbevent){evnt(4474);if(r)goto S_5214;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4475);}while(r);
S_5216:;
if (((-(*__LONG_A== 92ll ))|(-(*__LONG_A== 47ll )))||is_error_pending()){
if(qbevent){evnt(4476);if(r)goto S_5216;}
do{
goto fornext_exit_523;
if(!qbevent)break;evnt(4476);}while(r);
}
S_5219:;
if (((-(*__LONG_A== 46ll ))|(-(*__LONG_A== 58ll )))||is_error_pending()){
if(qbevent){evnt(4477);if(r)goto S_5219;}
S_5220:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||is_error_pending()){
if(qbevent){evnt(4478);if(r)goto S_5220;}
S_5221:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(4479);if(r)goto S_5221;}
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(4479);}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(4479);}while(r);
}
do{
qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4480);}while(r);
S_5227:;
if ((-(*__LONG_A== 58ll ))||is_error_pending()){
if(qbevent){evnt(4481);if(r)goto S_5227;}
do{
goto fornext_exit_523;
if(!qbevent)break;evnt(4481);}while(r);
}
do{
goto LABEL_STRIPLIBVER;
if(!qbevent)break;evnt(4482);}while(r);
}else{
do{
goto fornext_exit_523;
if(!qbevent)break;evnt(4484);}while(r);
}
}
fornext_continue_523:;
}
fornext_exit_523:;
do{
qbs_set(__STRING_LIBVER,__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4488);}while(r);
S_5237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4491);if(r)goto S_5237;}
S_5238:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||is_error_pending()){
if(qbevent){evnt(4493);if(r)goto S_5238;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4494);}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(4495);}while(r);
dl_continue_530:;
}
dl_exit_530:;
}
S_5243:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4499);if(r)goto S_5243;}
S_5244:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||is_error_pending()){
if(qbevent){evnt(4501);if(r)goto S_5244;}
do{
*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4502);}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(4503);}while(r);
dl_continue_532:;
}
dl_exit_532:;
}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4508);}while(r);
S_5250:;
fornext_value535=__STRING_X->len;
fornext_finalvalue535= 1 ;
fornext_step535= -1 ;
if (fornext_step535<0) fornext_step_negative535=1; else fornext_step_negative535=0;
if (is_error_pending()) goto fornext_error535;
goto fornext_entrylabel535;
while(1){
fornext_value535=fornext_step535+(*__LONG_Z);
fornext_entrylabel535:
*__LONG_Z=fornext_value535;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative535){
if (fornext_value535<fornext_finalvalue535) break;
}else{
if (fornext_value535>fornext_finalvalue535) break;
}
fornext_error535:;
if(qbevent){evnt(4509);if(r)goto S_5250;}
do{
*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4510);}while(r);
S_5252:;
if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||is_error_pending()){
if(qbevent){evnt(4511);if(r)goto S_5252;}
do{
qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4512);}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(4513);}while(r);
do{
goto fornext_exit_534;
if(!qbevent)break;evnt(4514);}while(r);
}
fornext_continue_534:;
}
fornext_exit_534:;
do{
qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4518);}while(r);
S_5259:;
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(4522);if(r)goto S_5259;}
do{
qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4523);}while(r);
S_5261:;
if ((*__BYTE_NOIDEMODE)||is_error_pending()){
if(qbevent){evnt(4524);if(r)goto S_5261;}
do{
qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4525);}while(r);
}else{
S_5264:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4527);if(r)goto S_5264;}
do{
qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4527);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4532);}while(r);
S_5270:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(4534);if(r)goto S_5270;}
S_5271:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4535);if(r)goto S_5271;}
S_5272:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4538);if(r)goto S_5272;}
S_5273:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4540);if(r)goto S_5273;}
S_5274:;
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(4541);if(r)goto S_5274;}
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(4542);}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(4543);}while(r);
}
}
S_5279:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4547);if(r)goto S_5279;}
S_5280:;
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(4548);if(r)goto S_5280;}
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(4549);}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(4550);}while(r);
}
}
S_5285:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4554);if(r)goto S_5285;}
S_5286:;
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(4555);if(r)goto S_5286;}
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(4556);}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(4557);}while(r);
}
}
S_5291:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4561);if(r)goto S_5291;}
S_5292:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||is_error_pending()){
if(qbevent){evnt(4562);if(r)goto S_5292;}
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(4563);}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(4564);}while(r);
}
}
S_5297:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4568);if(r)goto S_5297;}
S_5298:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||is_error_pending()){
if(qbevent){evnt(4569);if(r)goto S_5298;}
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(4570);}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(4571);}while(r);
}
}
S_5303:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4575);if(r)goto S_5303;}
S_5304:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||is_error_pending()){
if(qbevent){evnt(4576);if(r)goto S_5304;}
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(4577);}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(4578);}while(r);
}
}
}
S_5310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4583);if(r)goto S_5310;}
S_5311:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4584);if(r)goto S_5311;}
S_5312:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4586);if(r)goto S_5312;}
S_5313:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4588);if(r)goto S_5313;}
S_5314:;
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(4589);if(r)goto S_5314;}
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(4590);}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(4591);}while(r);
S_5317:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4592);if(r)goto S_5317;}
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(4592);}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(4592);}while(r);
}
}
}
S_5324:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4595);if(r)goto S_5324;}
S_5325:;
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(4596);if(r)goto S_5325;}
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(4597);}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(4598);}while(r);
S_5328:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4599);if(r)goto S_5328;}
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(4599);}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(4599);}while(r);
}
}
}
}
S_5336:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4605);if(r)goto S_5336;}
S_5337:;
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(4606);if(r)goto S_5337;}
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(4607);}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(4608);}while(r);
S_5340:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4609);if(r)goto S_5340;}
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(4609);}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(4609);}while(r);
}
}
}
S_5347:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4612);if(r)goto S_5347;}
S_5348:;
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(4613);if(r)goto S_5348;}
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(4614);}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(4615);}while(r);
S_5351:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4616);if(r)goto S_5351;}
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(4616);}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(4616);}while(r);
}
}
}
}
S_5359:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4621);if(r)goto S_5359;}
S_5360:;
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(4622);if(r)goto S_5360;}
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(4623);}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(4624);}while(r);
}
}
S_5365:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4628);if(r)goto S_5365;}
S_5366:;
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(4629);if(r)goto S_5366;}
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(4630);}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(4631);}while(r);
}
}
S_5371:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4634);if(r)goto S_5371;}
S_5372:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4636);if(r)goto S_5372;}
S_5373:;
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(4637);if(r)goto S_5373;}
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(4638);}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(4639);}while(r);
S_5376:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4640);if(r)goto S_5376;}
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(4640);}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(4640);}while(r);
}
}
}
S_5383:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4643);if(r)goto S_5383;}
S_5384:;
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(4644);if(r)goto S_5384;}
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(4645);}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(4646);}while(r);
S_5387:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4647);if(r)goto S_5387;}
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(4647);}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(4647);}while(r);
}
}
}
}
S_5395:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4652);if(r)goto S_5395;}
S_5396:;
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(4653);if(r)goto S_5396;}
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(4654);}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(4655);}while(r);
}
}
S_5401:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4658);if(r)goto S_5401;}
S_5402:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4660);if(r)goto S_5402;}
S_5403:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4662);if(r)goto S_5403;}
S_5404:;
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(4663);if(r)goto S_5404;}
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(4664);}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(4665);}while(r);
S_5407:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4666);if(r)goto S_5407;}
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(4666);}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(4666);}while(r);
}
}
}
S_5414:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4669);if(r)goto S_5414;}
S_5415:;
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(4670);if(r)goto S_5415;}
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(4671);}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(4672);}while(r);
S_5418:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4673);if(r)goto S_5418;}
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(4673);}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(4673);}while(r);
}
}
}
}
S_5426:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4679);if(r)goto S_5426;}
S_5427:;
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(4680);if(r)goto S_5427;}
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(4681);}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(4682);}while(r);
S_5430:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4683);if(r)goto S_5430;}
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(4683);}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(4683);}while(r);
}
}
}
S_5437:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4686);if(r)goto S_5437;}
S_5438:;
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(4687);if(r)goto S_5438;}
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(4688);}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(4689);}while(r);
S_5441:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||is_error_pending()){
if(qbevent){evnt(4690);if(r)goto S_5441;}
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(4690);}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(4690);}while(r);
}
}
}
}
S_5449:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4695);if(r)goto S_5449;}
S_5450:;
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(4696);if(r)goto S_5450;}
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(4697);}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(4698);}while(r);
}
}
S_5455:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4702);if(r)goto S_5455;}
S_5456:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4704);if(r)goto S_5456;}
S_5457:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4706);if(r)goto S_5457;}
S_5458:;
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(4707);if(r)goto S_5458;}
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(4708);}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(4709);}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(4710);}while(r);
}
}
S_5464:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4713);if(r)goto S_5464;}
S_5465:;
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(4714);if(r)goto S_5465;}
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(4715);}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(4716);}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(4717);}while(r);
}
}
}
S_5472:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4723);if(r)goto S_5472;}
S_5473:;
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(4724);if(r)goto S_5473;}
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(4725);}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(4726);}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(4727);}while(r);
}
}
S_5479:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4730);if(r)goto S_5479;}
S_5480:;
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(4731);if(r)goto S_5480;}
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(4732);}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(4733);}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(4734);}while(r);
}
}
}
S_5487:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4739);if(r)goto S_5487;}
S_5488:;
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(4740);if(r)goto S_5488;}
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(4741);}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(4742);}while(r);
}
}
S_5493:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4746);if(r)goto S_5493;}
S_5494:;
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(4747);if(r)goto S_5494;}
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(4748);}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(4749);}while(r);
}
}
S_5499:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4752);if(r)goto S_5499;}
S_5500:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4754);if(r)goto S_5500;}
S_5501:;
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(4755);if(r)goto S_5501;}
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(4756);}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(4757);}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(4758);}while(r);
}
}
S_5507:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4761);if(r)goto S_5507;}
S_5508:;
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(4762);if(r)goto S_5508;}
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(4763);}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(4764);}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(4765);}while(r);
}
}
}
S_5515:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4770);if(r)goto S_5515;}
S_5516:;
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(4771);if(r)goto S_5516;}
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(4772);}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(4773);}while(r);
}
}
S_5521:;
if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4776);if(r)goto S_5521;}
S_5522:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4778);if(r)goto S_5522;}
S_5523:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4780);if(r)goto S_5523;}
S_5524:;
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(4781);if(r)goto S_5524;}
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(4782);}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(4783);}while(r);
}
}
S_5529:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4786);if(r)goto S_5529;}
S_5530:;
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(4787);if(r)goto S_5530;}
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(4788);}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(4789);}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(4790);}while(r);
}
}
}
S_5537:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4796);if(r)goto S_5537;}
S_5538:;
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(4797);if(r)goto S_5538;}
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(4798);}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(4799);}while(r);
}
}
S_5543:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4802);if(r)goto S_5543;}
S_5544:;
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(4803);if(r)goto S_5544;}
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(4804);}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(4805);}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(4806);}while(r);
}
}
}
S_5551:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4811);if(r)goto S_5551;}
S_5552:;
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(4812);if(r)goto S_5552;}
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(4813);}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(4814);}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(4815);}while(r);
}
}
}
S_5559:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4822);if(r)goto S_5559;}
S_5560:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4823);if(r)goto S_5560;}
S_5561:;
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(4824);if(r)goto S_5561;}
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(4825);}while(r);
S_5563:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4826);if(r)goto S_5563;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4826);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4827);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4828);}while(r);
}
S_5569:;
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(4830);if(r)goto S_5569;}
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(4831);}while(r);
S_5571:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4832);if(r)goto S_5571;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4832);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4833);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4834);}while(r);
}
S_5577:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4837);if(r)goto S_5577;}
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(4838);}while(r);
S_5579:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4839);if(r)goto S_5579;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4839);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4840);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4841);}while(r);
}
S_5585:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4843);if(r)goto S_5585;}
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(4844);}while(r);
S_5587:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4845);if(r)goto S_5587;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4845);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4846);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4847);}while(r);
}
S_5593:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4851);if(r)goto S_5593;}
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(4852);}while(r);
S_5595:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4853);if(r)goto S_5595;}
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(4854);}while(r);
}else{
S_5598:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4856);if(r)goto S_5598;}
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(4856);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4858);}while(r);
S_5603:;
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(4859);if(r)goto S_5603;}
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(4860);}while(r);
S_5605:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4861);if(r)goto S_5605;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4861);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4862);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4863);}while(r);
}
S_5611:;
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(4865);if(r)goto S_5611;}
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(4866);}while(r);
S_5613:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4867);if(r)goto S_5613;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4867);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4868);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4869);}while(r);
}
}
S_5620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4873);if(r)goto S_5620;}
S_5621:;
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(4874);if(r)goto S_5621;}
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(4875);}while(r);
S_5623:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4876);if(r)goto S_5623;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4876);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4877);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4878);}while(r);
}
S_5629:;
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(4880);if(r)goto S_5629;}
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(4881);}while(r);
S_5631:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4882);if(r)goto S_5631;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4882);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4883);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4884);}while(r);
}
S_5637:;
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(4886);if(r)goto S_5637;}
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(4887);}while(r);
S_5639:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4888);if(r)goto S_5639;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4888);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4889);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4890);}while(r);
}
S_5645:;
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(4892);if(r)goto S_5645;}
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(4893);}while(r);
S_5647:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4894);if(r)goto S_5647;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4894);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4895);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4896);}while(r);
}
S_5653:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||is_error_pending()){
if(qbevent){evnt(4899);if(r)goto S_5653;}
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(4900);}while(r);
S_5655:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4901);if(r)goto S_5655;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4901);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4902);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4903);}while(r);
}
S_5661:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||is_error_pending()){
if(qbevent){evnt(4905);if(r)goto S_5661;}
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(4906);}while(r);
S_5663:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4907);if(r)goto S_5663;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4907);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4908);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4909);}while(r);
}
S_5669:;
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(4911);if(r)goto S_5669;}
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(4912);}while(r);
S_5671:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4913);if(r)goto S_5671;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4913);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4914);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4915);}while(r);
}
S_5677:;
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(4917);if(r)goto S_5677;}
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(4918);}while(r);
S_5679:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4919);if(r)goto S_5679;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4919);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4920);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4921);}while(r);
}
S_5685:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(4925);if(r)goto S_5685;}
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(4926);}while(r);
S_5687:;
}else{
if (*__BYTE_NOIDEMODE){
if(qbevent){evnt(4927);if(r)goto S_5687;}
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(4928);}while(r);
}else{
S_5690:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||is_error_pending()){
if(qbevent){evnt(4930);if(r)goto S_5690;}
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(4930);}while(r);
}
}
}
do{
qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4932);}while(r);
S_5695:;
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(4933);if(r)goto S_5695;}
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(4934);}while(r);
S_5697:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4935);if(r)goto S_5697;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4935);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4936);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4937);}while(r);
}
S_5703:;
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(4939);if(r)goto S_5703;}
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(4940);}while(r);
S_5705:;
if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(4941);if(r)goto S_5705;}
do{
*__LONG_SFDECLARE= 0 ;
if(!qbevent)break;evnt(4941);}while(r);
}
do{
*__LONG_SFHEADER= 1 ;
if(!qbevent)break;evnt(4942);}while(r);
do{
goto LABEL_GOTHEADER;
if(!qbevent)break;evnt(4943);}while(r);
}
}
LABEL_GOTHEADER:;
if(qbevent){evnt(4947);r=0;}
}
}else{
S_5714:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(4953);if(r)goto S_5714;}
S_5715:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4955);if(r)goto S_5715;}
S_5716:;
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(4956);if(r)goto S_5716;}
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(4957);}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(4958);}while(r);
}
}
S_5721:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4962);if(r)goto S_5721;}
S_5722:;
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(4963);if(r)goto S_5722;}
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(4964);}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(4965);}while(r);
}
}
S_5727:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4970);if(r)goto S_5727;}
S_5728:;
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(4971);if(r)goto S_5728;}
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(4972);}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(4973);}while(r);
}
}
S_5733:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4977);if(r)goto S_5733;}
S_5734:;
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(4978);if(r)goto S_5734;}
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(4979);}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(4980);}while(r);
}
}
}
S_5740:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(4985);if(r)goto S_5740;}
S_5741:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(4989);if(r)goto S_5741;}
S_5742:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4991);if(r)goto S_5742;}
S_5743:;
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(4992);if(r)goto S_5743;}
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(4993);}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(4994);}while(r);
S_5746:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(4995);if(r)goto S_5746;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(4995);}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(4995);}while(r);
}
}
}
S_5752:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(4998);if(r)goto S_5752;}
S_5753:;
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(4999);if(r)goto S_5753;}
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(5000);}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(5001);}while(r);
S_5756:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(5002);if(r)goto S_5756;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5002);}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(5002);}while(r);
}
}
}
}
S_5763:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5008);if(r)goto S_5763;}
S_5764:;
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(5009);if(r)goto S_5764;}
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(5010);}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(5011);}while(r);
S_5767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(5012);if(r)goto S_5767;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5012);}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(5012);}while(r);
}
}
}
S_5773:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5015);if(r)goto S_5773;}
S_5774:;
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(5016);if(r)goto S_5774;}
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(5017);}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(5018);}while(r);
S_5777:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(5019);if(r)goto S_5777;}
do{
qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5019);}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(5019);}while(r);
}
}
}
S_5783:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5023);if(r)goto S_5783;}
S_5784:;
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(5024);if(r)goto S_5784;}
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(5025);}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(5026);}while(r);
}
}
S_5789:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5029);if(r)goto S_5789;}
S_5790:;
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(5030);if(r)goto S_5790;}
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(5031);}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(5032);}while(r);
}
}
S_5795:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(5036);if(r)goto S_5795;}
S_5796:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5038);if(r)goto S_5796;}
S_5797:;
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(5039);if(r)goto S_5797;}
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(5040);}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(5041);}while(r);
}
}
S_5802:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5044);if(r)goto S_5802;}
S_5803:;
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(5045);if(r)goto S_5803;}
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(5046);}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(5047);}while(r);
}
}
}
S_5809:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5053);if(r)goto S_5809;}
S_5810:;
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(5054);if(r)goto S_5810;}
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(5055);}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(5056);}while(r);
}
}
S_5815:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5059);if(r)goto S_5815;}
S_5816:;
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(5060);if(r)goto S_5816;}
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(5061);}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(5062);}while(r);
}
}
S_5821:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(5066);if(r)goto S_5821;}
S_5822:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5068);if(r)goto S_5822;}
S_5823:;
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(5069);if(r)goto S_5823;}
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(5070);}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(5071);}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(5072);}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(5072);}while(r);
}
}
S_5830:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5075);if(r)goto S_5830;}
S_5831:;
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(5076);if(r)goto S_5831;}
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(5077);}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(5078);}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(5079);}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(5079);}while(r);
}
}
}
S_5839:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5085);if(r)goto S_5839;}
S_5840:;
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(5086);if(r)goto S_5840;}
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(5087);}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(5088);}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(5089);}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(5089);}while(r);
}
}
S_5847:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5092);if(r)goto S_5847;}
S_5848:;
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(5093);if(r)goto S_5848;}
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(5094);}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(5095);}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(5096);}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(5096);}while(r);
}
}
S_5855:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5100);if(r)goto S_5855;}
S_5856:;
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(5101);if(r)goto S_5856;}
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(5102);}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(5103);}while(r);
}
}
S_5861:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5106);if(r)goto S_5861;}
S_5862:;
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(5107);if(r)goto S_5862;}
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(5108);}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(5109);}while(r);
}
}
S_5867:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(5113);if(r)goto S_5867;}
S_5868:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5115);if(r)goto S_5868;}
S_5869:;
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(5116);if(r)goto S_5869;}
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(5117);}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(5118);}while(r);
}
}
S_5874:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5121);if(r)goto S_5874;}
S_5875:;
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(5122);if(r)goto S_5875;}
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(5123);}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(5124);}while(r);
}
}
}
S_5881:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5130);if(r)goto S_5881;}
S_5882:;
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(5131);if(r)goto S_5882;}
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(5132);}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(5133);}while(r);
}
}
S_5887:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5136);if(r)goto S_5887;}
S_5888:;
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(5137);if(r)goto S_5888;}
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(5138);}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(5139);}while(r);
}
}
}
}
S_5895:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(5147);if(r)goto S_5895;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5147);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5147);}while(r);
}
S_5899:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(5148);if(r)goto S_5899;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5148);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5148);}while(r);
}
S_5903:;
if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5152);if(r)goto S_5903;}
S_5904:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||is_error_pending()){
if(qbevent){evnt(5155);if(r)goto S_5904;}
S_5905:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5156);if(r)goto S_5905;}
S_5906:;
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(5157);if(r)goto S_5906;}
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(5158);}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(5160);}while(r);
}
}
S_5912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5163);if(r)goto S_5912;}
S_5913:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||is_error_pending()){
if(qbevent){evnt(5164);if(r)goto S_5913;}
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(5165);}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(5167);}while(r);
}
}
S_5919:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(5170);if(r)goto S_5919;}
do{
SUB_WRITEBUFLINE(&(pass615=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5170);}while(r);
}
}
}else{
S_5924:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5176);if(r)goto S_5924;}
S_5925:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5178);if(r)goto S_5925;}
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(5179);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5181);}while(r);
}
do{
qbs_set(__STRING_X2,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5187);}while(r);
S_5931:;
fornext_value618= 1 ;
fornext_finalvalue618=__STRING_X2->len;
fornext_step618= 1 ;
if (fornext_step618<0) fornext_step_negative618=1; else fornext_step_negative618=0;
if (is_error_pending()) goto fornext_error618;
goto fornext_entrylabel618;
while(1){
fornext_value618=fornext_step618+(*__LONG_X2);
fornext_entrylabel618:
*__LONG_X2=fornext_value618;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative618){
if (fornext_value618<fornext_finalvalue618) break;
}else{
if (fornext_value618>fornext_finalvalue618) break;
}
fornext_error618:;
if(qbevent){evnt(5188);if(r)goto S_5931;}
S_5932:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||is_error_pending()){
if(qbevent){evnt(5189);if(r)goto S_5932;}
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(5189);}while(r);
}
S_5935:;
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(5190);if(r)goto S_5935;}
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(5190);}while(r);
}
S_5938:;
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(5191);if(r)goto S_5938;}
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(5191);}while(r);
}
S_5941:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||is_error_pending()){
if(qbevent){evnt(5192);if(r)goto S_5941;}
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(5192);}while(r);
}
fornext_continue_617:;
}
fornext_exit_617:;
do{
qbs_set(__STRING_DLLNAME,__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5194);}while(r);
S_5946:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_LIBNAME)))||is_error_pending()){
if(qbevent){evnt(5195);if(r)goto S_5946;}
do{
SUB_WRITEBUFLINE(&(pass620=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_LIBNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5195);}while(r);
}
S_5949:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(5197);if(r)goto S_5949;}
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5203);}while(r);
S_5951:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(5204);if(r)goto S_5951;}
S_5952:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(5205);if(r)goto S_5952;}
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(5206);}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(5207);}while(r);
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),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_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5208);}while(r);
}else{
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len(",0,NULL);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5210);}while(r);
}
}
S_5960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5214);if(r)goto S_5960;}
do{
SUB_WRITEBUFLINE(&(pass622=*__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(5215);}while(r);
do{
SUB_WRITEBUFLINE(&(pass623=*__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(5216);}while(r);
do{
SUB_WRITEBUFLINE(&(pass624=*__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(5217);}while(r);
do{
SUB_WRITEBUFLINE(&(pass625=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)),__STRING_ERRORTRACKCALL),qbs_new_txt_len("error(259);}",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5218);}while(r);
do{
SUB_WRITEBUFLINE(&(pass626=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5219);}while(r);
}
S_5967:;
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_5967;}
do{
SUB_WRITEBUFLINE(&(pass627=*__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(5223);}while(r);
do{
SUB_WRITEBUFLINE(&(pass628=*__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(5224);}while(r);
do{
SUB_WRITEBUFLINE(&(pass629=*__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(5225);}while(r);
do{
SUB_WRITEBUFLINE(&(pass630=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)),__STRING_ERRORTRACKCALL),qbs_new_txt_len("error(259);}",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5226);}while(r);
do{
SUB_WRITEBUFLINE(&(pass631=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5227);}while(r);
}
}
}
}
S_5977:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||is_error_pending()){
if(qbevent){evnt(5236);if(r)goto S_5977;}
S_5978:;
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(5238);if(r)goto S_5978;}
do{
SUB_WRITEBUFLINE(&(pass633=*__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(5239);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass634=*__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(5241);}while(r);
}
S_5983:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_HEADERNAME)))||is_error_pending()){
if(qbevent){evnt(5243);if(r)goto S_5983;}
do{
SUB_WRITEBUFLINE(&(pass635=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("DECL: ",6),func__fullpath(__STRING_HEADERNAME)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5243);}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(5248);}while(r);
S_5989:;
if ((-(*__LONG_N>*__LONG_X))||is_error_pending()){
if(qbevent){evnt(5250);if(r)goto S_5989;}
S_5990:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(5251);if(r)goto S_5990;}
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(5251);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5251);}while(r);
}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(5252);}while(r);
do{
qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5252);}while(r);
S_5996:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(5252);if(r)goto S_5996;}
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_SP2),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5253);}while(r);
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(5254);}while(r);
S_6002:;
if ((-(*__LONG_X>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(5254);if(r)goto S_6002;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5254);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5254);}while(r);
}
do{
goto LABEL_ADDLIBRARY;
if(!qbevent)break;evnt(5255);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5260);}while(r);
S_6010:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5260);if(r)goto S_6010;}
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(5260);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5260);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5261);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5264);}while(r);
}
}
S_6020:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(5269);if(r)goto S_6020;}
do{
*__LONG_DYNAMICLIBRARY= 0 ;
if(!qbevent)break;evnt(5270);}while(r);
LABEL_DECLARESUBFUNC2:;
if(qbevent){evnt(5271);r=0;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(5272);}while(r);
S_6023:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(5273);if(r)goto S_6023;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(5273);}while(r);
}
S_6026:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5274);if(r)goto S_6026;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(5274);}while(r);
}
S_6029:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(5275);if(r)goto S_6029;}
S_6030:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5277);if(r)goto S_6030;}
S_6031:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(5278);if(r)goto S_6031;}
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(5278);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5278);}while(r);
}
}
S_6036:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(5281);if(r)goto S_6036;}
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(5281);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5281);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass638= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5282);}while(r);
do{
qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5283);}while(r);
S_6042:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5284);if(r)goto S_6042;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5284);}while(r);
}
S_6045:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(5285);if(r)goto S_6045;}
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(5285);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5285);}while(r);
}
do{
qbs_set(__STRING_EORIG,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5286);}while(r);
S_6050:;
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(5286);if(r)goto S_6050;}
do{
qbs_set(__STRING_E,func_mid(__STRING_E, 5 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5286);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5287);}while(r);
S_6054:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5288);if(r)goto S_6054;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5288);}while(r);
}
S_6057:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(5289);if(r)goto S_6057;}
S_6058:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))==*__LONG_SF))||is_error_pending()){
if(qbevent){evnt(5290);if(r)goto S_6058;}
do{
goto LABEL_CREATESF;
if(!qbevent)break;evnt(5290);}while(r);
}
S_6061:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(5291);if(r)goto S_6061;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(5291);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5291);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(5291);}while(r);
}
S_6067:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5292);if(r)goto S_6067;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5292);}while(r);
}
dl_continue_639:;
}
dl_exit_639:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5294);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5294);}while(r);
LABEL_CREATESF:;
if(qbevent){evnt(5295);r=0;}
S_6073:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(5296);if(r)goto S_6073;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("_GL",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5296);}while(r);
}
S_6076:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5297);if(r)goto S_6076;}
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(5298);}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(5300);}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), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 522),(((char*)__UDT_ID)+((0+0))+ 522), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 524),(((char*)__UDT_ID)+((0+0))+ 524), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 532),(((char*)__UDT_ID)+((0+0))+ 532), 8);
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), 4);
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), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 552),(((char*)__UDT_ID)+((0+0))+ 552), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 554),(((char*)__UDT_ID)+((0+0))+ 554), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 810),(((char*)__UDT_ID)+((0+0))+ 810), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 812),(((char*)__UDT_ID)+((0+0))+ 812), 1);
memcpy((((char*)__UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 815),(((char*)__UDT_ID)+((0+0))+ 815), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 817),(((char*)__UDT_ID)+((0+0))+ 817), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1217),(((char*)__UDT_ID)+((0+0))+ 1217), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1617),(((char*)__UDT_ID)+((0+0))+ 1617), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1873),(((char*)__UDT_ID)+((0+0))+ 1873), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2129),(((char*)__UDT_ID)+((0+0))+ 2129), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2389),(((char*)__UDT_ID)+((0+0))+ 2389), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2649),(((char*)__UDT_ID)+((0+0))+ 2649), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2651),(((char*)__UDT_ID)+((0+0))+ 2651), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2751),(((char*)__UDT_ID)+((0+0))+ 2751), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2951),(((char*)__UDT_ID)+((0+0))+ 2951), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2955),(((char*)__UDT_ID)+((0+0))+ 2955), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2957),(((char*)__UDT_ID)+((0+0))+ 2957), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2959),(((char*)__UDT_ID)+((0+0))+ 2959), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2963),(((char*)__UDT_ID)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2965), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2965));
if(!qbevent)break;evnt(5302);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(5303);}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(5306);}while(r);
S_6084:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(5307);if(r)goto S_6084;}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass640= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5308);}while(r);
S_6086:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||is_error_pending()){
if(qbevent){evnt(5309);if(r)goto S_6086;}
S_6087:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5310);if(r)goto S_6087;}
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(5310);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5310);}while(r);
}
S_6091:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(5311);if(r)goto S_6091;}
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(5311);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5311);}while(r);
}
do{
qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass641= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5312);}while(r);
S_6096:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(5315);if(r)goto S_6096;}
do{
qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5316);}while(r);
do{
*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5317);}while(r);
S_6099:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(5317);if(r)goto S_6099;}
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(5317);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5317);}while(r);
}
do{
qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5318);}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(5319);}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(5321);}while(r);
}
S_6108:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||is_error_pending()){
if(qbevent){evnt(5325);if(r)goto S_6108;}
do{
*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5326);}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(5326);}while(r);
dl_continue_643:;
}
dl_exit_643:;
do{
qbs_set(__STRING_ALIASNAME,__STRING_EE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5328);}while(r);
S_6113:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(5330);if(r)goto S_6113;}
do{
qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass646= 1 ),&(pass647= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5330);}while(r);
}
S_6116:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(5331);if(r)goto S_6116;}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass648= 1 ),&(pass649= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass650= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5331);}while(r);
}
S_6119:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(5332);if(r)goto S_6119;}
do{
qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass651= 1 ),&(pass652= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5332);}while(r);
}
S_6122:;
if ((-(*__LONG_N>= 5 ))||is_error_pending()){
if(qbevent){evnt(5333);if(r)goto S_6122;}
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass653= 1 ),&(pass654= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass655= 5 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5333);}while(r);
}
do{
*__LONG_N=*__LONG_N- 2 ;
if(!qbevent)break;evnt(5334);}while(r);
}
}
S_6128:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5338);if(r)goto S_6128;}
do{
goto LABEL_DECLIBJMP1;
if(!qbevent)break;evnt(5338);}while(r);
}
S_6131:;
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(5341);if(r)goto S_6131;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5342);}while(r);
S_6133:;
sc_656=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(5343);if(r)goto S_6133;}
S_6134:;
if (((sc_656==( 1 )))||is_error_pending()){
if(qbevent){evnt(5344);if(r)goto S_6134;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5344);}while(r);
sc_ec_25_end:;
goto sc_656_end;
}
S_6136:;
if (((sc_656==( 2 )))||is_error_pending()){
if(qbevent){evnt(5345);if(r)goto S_6136;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5345);}while(r);
sc_ec_26_end:;
goto sc_656_end;
}
S_6138:;
if (((sc_656==( 3 ))||(sc_656==( 4 )))||is_error_pending()){
if(qbevent){evnt(5346);if(r)goto S_6138;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5346);}while(r);
sc_ec_27_end:;
goto sc_656_end;
}
S_6140:;
if (((sc_656==( 5 )))||is_error_pending()){
if(qbevent){evnt(5347);if(r)goto S_6140;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5347);}while(r);
sc_ec_28_end:;
goto sc_656_end;
}
S_6142:;
if ((((sc_656>=( 10 ))&&(sc_656<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(5348);if(r)goto S_6142;}
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(5348);}while(r);
sc_ec_29_end:;
goto sc_656_end;
}
sc_656_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(5350);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5351);}while(r);
}
S_6148:;
if ((*__LONG_IDEINDENTSUBS)||is_error_pending()){
if(qbevent){evnt(5354);if(r)goto S_6148;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(5355);}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(5356);}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(5357);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5360);}while(r);
S_6154:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
if(qbevent){evnt(5361);if(r)goto S_6154;}
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5361);}while(r);
}else{
do{
qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5361);}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(5362);}while(r);
do{
*__LONG_SUBFUNCNLAST=*__LONG_SUBFUNCNLAST+ 1 ;
if(!qbevent)break;evnt(5363);}while(r);
do{
*__LONG_SUBFUNCN=*__LONG_SUBFUNCNLAST;
if(!qbevent)break;evnt(5364);}while(r);
do{
*__LONG_SUBFUNCID=*__LONG_TARGETID;
if(!qbevent)break;evnt(5365);}while(r);
do{
qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5367);}while(r);
S_6164:;
if (((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) ))== 1 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||is_error_pending()){
if(qbevent){evnt(5368);if(r)goto S_6164;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass657= -1 ));
if(!qbevent)break;evnt(5369);}while(r);
do{
SUB_CLOSEMAINVWATCHSECTION();
if(!qbevent)break;evnt(5370);}while(r);
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(5371);}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(5374);}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(5375);}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(5376);}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(5377);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5378);}while(r);
do{
SUB_WRITEBUFLINE(&(pass658=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5379);}while(r);
do{
SUB_WRITEBUFLINE(&(pass659=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5380);}while(r);
do{
SUB_WRITEBUFLINE(&(pass660=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5381);}while(r);
do{
SUB_WRITEBUFLINE(&(pass661=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5382);}while(r);
do{
SUB_WRITEBUFLINE(&(pass662=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5383);}while(r);
do{
SUB_WRITEBUFLINE(&(pass663=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5384);}while(r);
LABEL_DECLIBJMP1:;
if(qbevent){evnt(5386);r=0;}
S_6180:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5388);if(r)goto S_6180;}
S_6181:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5389);if(r)goto S_6181;}
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(5390);}while(r);
}
S_6184:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5392);if(r)goto S_6184;}
do{
SUB_WRITEBUFLINE(&(pass664=*__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(5393);}while(r);
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(5394);}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(5394);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(5394);}while(r);
}
}
S_6191:;
if ((-(*__LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(5401);if(r)goto S_6191;}
do{
*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+((0+2385)));
if(!qbevent)break;evnt(5402);}while(r);
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + ((0+2385)) ),qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5403);}while(r);
S_6194:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5404);if(r)goto S_6194;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5404);}while(r);
}
S_6197:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5405);if(r)goto S_6197;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5405);}while(r);
}
S_6200:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5407);if(r)goto S_6200;}
S_6201:;
if ((*__LONG_RETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(5408);if(r)goto S_6201;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5409);}while(r);
}
}
S_6205:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5413);if(r)goto S_6205;}
S_6206:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5414);if(r)goto S_6206;}
do{
SUB_WRITEBUFRAWDATA(&(pass665=*__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+554))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5415);}while(r);
}
S_6209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5417);if(r)goto S_6209;}
do{
SUB_WRITEBUFRAWDATA(&(pass666=*__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+554))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5418);}while(r);
}
S_6212:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5420);if(r)goto S_6212;}
do{
SUB_WRITEBUFRAWDATA(&(pass667=*__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+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5421);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass668=*__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+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5423);}while(r);
}
}
S_6217:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5425);if(r)goto S_6217;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5425);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass669=*__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+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5426);}while(r);
S_6221:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5430);if(r)goto S_6221;}
do{
*__LONG_A=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5431);}while(r);
S_6223:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(5431);if(r)goto S_6223;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(5431);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(5432);}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(5433);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 1 ;
if(!qbevent)break;evnt(5435);}while(r);
do{
*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass670= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5436);}while(r);
S_6231:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5437);if(r)goto S_6231;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5437);}while(r);
}
do{
*__LONG_REGINTERNALVARIABLE= 0 ;
if(!qbevent)break;evnt(5438);}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(5440);}while(r);
S_6236:;
if (((*__LONG_RETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(5442);if(r)goto S_6236;}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass671= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5443);}while(r);
S_6238:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5444);if(r)goto S_6238;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5444);}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(5445);}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(5446);}while(r);
}else{
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass672= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5448);}while(r);
S_6245:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5449);if(r)goto S_6245;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5449);}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(5450);}while(r);
}
}else{
S_6251:;
if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||is_error_pending()){
if(qbevent){evnt(5454);if(r)goto S_6251;}
S_6252:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5455);if(r)goto S_6252;}
do{
SUB_WRITEBUFRAWDATA(&(pass673=*__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+554))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5456);}while(r);
}
S_6255:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5458);if(r)goto S_6255;}
do{
SUB_WRITEBUFRAWDATA(&(pass674=*__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+554))),256,1)))),qbs_new_txt_len(")(",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5459);}while(r);
}
S_6258:;
}else{
if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){
if(qbevent){evnt(5461);if(r)goto S_6258;}
do{
SUB_WRITEBUFRAWDATA(&(pass675=*__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+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5462);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass676=*__LONG_REGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5464);}while(r);
}
}
S_6263:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5466);if(r)goto S_6263;}
do{
goto LABEL_DECLIBJMP2;
if(!qbevent)break;evnt(5466);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass677=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)))),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5467);}while(r);
}
LABEL_DECLIBJMP2:;
if(qbevent){evnt(5469);r=0;}
do{
*__LONG_ADDSTATIC2LAYOUT= 0 ;
if(!qbevent)break;evnt(5471);}while(r);
do{
*__LONG_STATICSF= 0 ;
if(!qbevent)break;evnt(5472);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5473);}while(r);
S_6271:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(5474);if(r)goto S_6271;}
S_6272:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5475);if(r)goto S_6272;}
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(5475);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5475);}while(r);
}
do{
*__LONG_ADDSTATIC2LAYOUT= 1 ;
if(!qbevent)break;evnt(5476);}while(r);
do{
*__LONG_STATICSF= 2 ;
if(!qbevent)break;evnt(5477);}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(5478);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(5478);}while(r);
}
do{
*__LONG_PARAMS= 0 ;
if(!qbevent)break;evnt(5482);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(5483);}while(r);
S_6283:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(5484);if(r)goto S_6283;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass679= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5485);}while(r);
S_6285:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5486);if(r)goto S_6285;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5486);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5486);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5487);}while(r);
S_6290:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5488);if(r)goto S_6290;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5488);}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(5489);}while(r);
S_6295:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(5490);if(r)goto S_6295;}
do{
goto LABEL_NOSFPARAMS2;
if(!qbevent)break;evnt(5490);}while(r);
}
S_6298:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(5491);if(r)goto S_6298;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5491);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5491);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(5492);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5493);}while(r);
S_6304:;
fornext_value681= 4 ;
fornext_finalvalue681=*__LONG_N- 1 ;
fornext_step681= 1 ;
if (fornext_step681<0) fornext_step_negative681=1; else fornext_step_negative681=0;
if (is_error_pending()) goto fornext_error681;
goto fornext_entrylabel681;
while(1){
fornext_value681=fornext_step681+(*__LONG_I);
fornext_entrylabel681:
*__LONG_I=fornext_value681;
if (fornext_step_negative681){
if (fornext_value681<fornext_finalvalue681) break;
}else{
if (fornext_value681>fornext_finalvalue681) break;
}
fornext_error681:;
if(qbevent){evnt(5494);if(r)goto S_6304;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5495);}while(r);
S_6306:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5496);if(r)goto S_6306;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(5496);}while(r);
}
S_6309:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5497);if(r)goto S_6309;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(5497);}while(r);
}
S_6312:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(5498);if(r)goto S_6312;}
S_6313:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5499);if(r)goto S_6313;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5499);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5499);}while(r);
}
LABEL_GETLASTPARAM2:;
if(qbevent){evnt(5500);r=0;}
S_6317:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5501);if(r)goto S_6317;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5501);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5501);}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(5502);}while(r);
do{
*__LONG_PARAMS=*__LONG_PARAMS+ 1 ;
if(!qbevent)break;evnt(5504);}while(r);
do{
*__LONG_GLINKID=*__LONG_TARGETID;
if(!qbevent)break;evnt(5505);}while(r);
do{
*__INTEGER_GLINKARG=*__LONG_PARAMS;
if(!qbevent)break;evnt(5506);}while(r);
S_6325:;
if ((-(*__LONG_PARAMS> 1 ))||is_error_pending()){
if(qbevent){evnt(5510);if(r)goto S_6325;}
do{
SUB_WRITEBUFRAWDATA(&(pass683=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5511);}while(r);
S_6327:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5513);if(r)goto S_6327;}
do{
SUB_WRITEBUFRAWDATA(&(pass684=*__LONG_MAINTXTBUF),qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5514);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5518);}while(r);
do{
*__LONG_ARRAY= 0 ;
if(!qbevent)break;evnt(5519);}while(r);
do{
qbs_set(__STRING_T2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5520);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass685= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5521);}while(r);
do{
*__LONG_BYVALUE= 0 ;
if(!qbevent)break;evnt(5523);}while(r);
S_6336:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||is_error_pending()){
if(qbevent){evnt(5524);if(r)goto S_6336;}
S_6337:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5525);if(r)goto S_6337;}
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(5525);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5525);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5526);}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(5526);}while(r);
S_6343:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5527);if(r)goto S_6343;}
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(5527);}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(5527);}while(r);
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5528);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass687= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5528);}while(r);
}
S_6351:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5531);if(r)goto S_6351;}
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(5531);}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(5531);}while(r);
}
do{
qbs_set(__STRING_N2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5533);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(5534);}while(r);
do{
qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5537);}while(r);
S_6359:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||is_error_pending()){
if(qbevent){evnt(5538);if(r)goto S_6359;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5538);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5538);}while(r);
}
S_6363:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5540);if(r)goto S_6363;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5540);}while(r);
}
S_6366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5541);if(r)goto S_6366;}
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5541);}while(r);
}
do{
*__LONG_M= 0 ;
if(!qbevent)break;evnt(5542);}while(r);
S_6370:;
fornext_value689= 2 ;
fornext_finalvalue689=*__LONG_N2;
fornext_step689= 1 ;
if (fornext_step689<0) fornext_step_negative689=1; else fornext_step_negative689=0;
if (is_error_pending()) goto fornext_error689;
goto fornext_entrylabel689;
while(1){
fornext_value689=fornext_step689+(*__LONG_I2);
fornext_entrylabel689:
*__LONG_I2=fornext_value689;
if (fornext_step_negative689){
if (fornext_value689<fornext_finalvalue689) break;
}else{
if (fornext_value689>fornext_finalvalue689) break;
}
fornext_error689:;
if(qbevent){evnt(5543);if(r)goto S_6370;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5544);}while(r);
S_6372:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(5545);if(r)goto S_6372;}
S_6373:;
if ((-(*__LONG_M!= 0 ))||is_error_pending()){
if(qbevent){evnt(5546);if(r)goto S_6373;}
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(5546);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5546);}while(r);
}
do{
*__LONG_M= 1 ;
if(!qbevent)break;evnt(5547);}while(r);
do{
*__LONG_ARRAY= 1 ;
if(!qbevent)break;evnt(5548);}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(5549);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5550);}while(r);
}
S_6382:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(5552);if(r)goto S_6382;}
S_6383:;
if ((-(*__LONG_M!= 1 ))||is_error_pending()){
if(qbevent){evnt(5553);if(r)goto S_6383;}
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(5553);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5553);}while(r);
}
do{
*__LONG_M= 2 ;
if(!qbevent)break;evnt(5554);}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(5555);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5556);}while(r);
}
S_6391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(5558);if(r)goto S_6391;}
S_6392:;
if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||is_error_pending()){
if(qbevent){evnt(5559);if(r)goto S_6392;}
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(5559);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5559);}while(r);
}
do{
*__LONG_M= 3 ;
if(!qbevent)break;evnt(5560);}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(5561);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5562);}while(r);
}
S_6400:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5564);if(r)goto S_6400;}
S_6401:;
if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||is_error_pending()){
if(qbevent){evnt(5565);if(r)goto S_6401;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Array parameters require empty parentheses ()",45));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5565);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5565);}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(5566);}while(r);
do{
goto LABEL_GOTAA2;
if(!qbevent)break;evnt(5566);}while(r);
}
S_6408:;
if ((-(*__LONG_M!= 3 ))||is_error_pending()){
if(qbevent){evnt(5568);if(r)goto S_6408;}
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(5568);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5568);}while(r);
}
S_6412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5569);if(r)goto S_6412;}
do{
qbs_set(__STRING_T2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5569);}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(5569);}while(r);
}
LABEL_GOTAA2:;
if(qbevent){evnt(5570);r=0;}
fornext_continue_688:;
}
fornext_exit_688:;
S_6418:;
if ((-(*__LONG_M== 1 ))||is_error_pending()){
if(qbevent){evnt(5572);if(r)goto S_6418;}
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(5572);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5572);}while(r);
}
S_6422:;
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(5573);if(r)goto S_6422;}
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(5573);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5573);}while(r);
}
S_6426:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||is_error_pending()){
if(qbevent){evnt(5576);if(r)goto S_6426;}
do{
qbs_set(__STRING_T2,qbs_ucase(__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5577);}while(r);
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5578);}while(r);
do{
*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5579);}while(r);
S_6430:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5580);if(r)goto S_6430;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5580);}while(r);
}
S_6433:;
if ((-(*__LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(5581);if(r)goto S_6433;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5581);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5581);}while(r);
}
S_6437:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(5582);if(r)goto S_6437;}
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5583);}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(5584);}while(r);
}else{
S_6441:;
fornext_value692= 1 ;
fornext_finalvalue692=__STRING_T3->len;
fornext_step692= 1 ;
if (fornext_step692<0) fornext_step_negative692=1; else fornext_step_negative692=0;
if (is_error_pending()) goto fornext_error692;
goto fornext_entrylabel692;
while(1){
fornext_value692=fornext_step692+(*__LONG_T3I);
fornext_entrylabel692:
*__LONG_T3I=fornext_value692;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative692){
if (fornext_value692<fornext_finalvalue692) break;
}else{
if (fornext_value692>fornext_finalvalue692) break;
}
fornext_error692:;
if(qbevent){evnt(5586);if(r)goto S_6441;}
S_6442:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||is_error_pending()){
if(qbevent){evnt(5587);if(r)goto S_6442;}
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(5587);}while(r);
}
fornext_continue_691:;
}
fornext_exit_691:;
do{
qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5589);}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(5590);}while(r);
}
}
S_6450:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5594);if(r)goto S_6450;}
do{
qbs_set(__STRING_T2,__STRING_SYMBOL2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5594);}while(r);
}
S_6453:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5595);if(r)goto S_6453;}
S_6454:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(5596);if(r)goto S_6454;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(5596);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5596);}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(5597);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(5598);}while(r);
}
S_6462:;
if ((-(*__LONG_ARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(5604);if(r)goto S_6462;}
S_6463:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5605);if(r)goto S_6463;}
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(5605);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5605);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5606);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_PARAMS, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5608);}while(r);
do{
*__LONG_ARGDYNMODE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2851))),100,1),*__LONG_PARAMS, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5609);}while(r);
S_6470:;
if (((-(*__LONG_ARGDYNMODE< 0 ))|(-(*__LONG_ARGDYNMODE> 1 )))||is_error_pending()){
if(qbevent){evnt(5610);if(r)goto S_6470;}
do{
*__LONG_ARGDYNMODE= 0 ;
if(!qbevent)break;evnt(5610);}while(r);
}
S_6473:;
if ((*__LONG_NELEREQ)||is_error_pending()){
if(qbevent){evnt(5611);if(r)goto S_6473;}
do{
*__LONG_NELE=*__LONG_NELEREQ;
if(!qbevent)break;evnt(5612);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5613);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 522),(((char*)__UDT_ID2)+((0+0))+ 522), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 524),(((char*)__UDT_ID2)+((0+0))+ 524), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 532),(((char*)__UDT_ID2)+((0+0))+ 532), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 552),(((char*)__UDT_ID2)+((0+0))+ 552), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 554),(((char*)__UDT_ID2)+((0+0))+ 554), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 810),(((char*)__UDT_ID2)+((0+0))+ 810), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 812),(((char*)__UDT_ID2)+((0+0))+ 812), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 815),(((char*)__UDT_ID2)+((0+0))+ 815), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 817),(((char*)__UDT_ID2)+((0+0))+ 817), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1217),(((char*)__UDT_ID2)+((0+0))+ 1217), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1617),(((char*)__UDT_ID2)+((0+0))+ 1617), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1873),(((char*)__UDT_ID2)+((0+0))+ 1873), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2129),(((char*)__UDT_ID2)+((0+0))+ 2129), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2389),(((char*)__UDT_ID2)+((0+0))+ 2389), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2649),(((char*)__UDT_ID2)+((0+0))+ 2649), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2651),(((char*)__UDT_ID2)+((0+0))+ 2651), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2751),(((char*)__UDT_ID2)+((0+0))+ 2751), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2951),(((char*)__UDT_ID2)+((0+0))+ 2951), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2955),(((char*)__UDT_ID2)+((0+0))+ 2955), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2957),(((char*)__UDT_ID2)+((0+0))+ 2957), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2959),(((char*)__UDT_ID2)+((0+0))+ 2959), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2963),(((char*)__UDT_ID2)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2965), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2965));
if(!qbevent)break;evnt(5615);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
if(!qbevent)break;evnt(5617);}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(5618);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE= 0 ;
if(!qbevent)break;evnt(5619);}while(r);
S_6480:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5620);if(r)goto S_6480;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5620);}while(r);
}
}else{
do{
*__LONG_NELE= 1 ;
if(!qbevent)break;evnt(5622);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1);
if(!qbevent)break;evnt(5623);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 522),(((char*)__UDT_ID2)+((0+0))+ 522), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 524),(((char*)__UDT_ID2)+((0+0))+ 524), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 532),(((char*)__UDT_ID2)+((0+0))+ 532), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 552),(((char*)__UDT_ID2)+((0+0))+ 552), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 554),(((char*)__UDT_ID2)+((0+0))+ 554), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 810),(((char*)__UDT_ID2)+((0+0))+ 810), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 812),(((char*)__UDT_ID2)+((0+0))+ 812), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 815),(((char*)__UDT_ID2)+((0+0))+ 815), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 817),(((char*)__UDT_ID2)+((0+0))+ 817), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1217),(((char*)__UDT_ID2)+((0+0))+ 1217), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1617),(((char*)__UDT_ID2)+((0+0))+ 1617), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1873),(((char*)__UDT_ID2)+((0+0))+ 1873), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2129),(((char*)__UDT_ID2)+((0+0))+ 2129), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2389),(((char*)__UDT_ID2)+((0+0))+ 2389), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2649),(((char*)__UDT_ID2)+((0+0))+ 2649), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2651),(((char*)__UDT_ID2)+((0+0))+ 2651), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2751),(((char*)__UDT_ID2)+((0+0))+ 2751), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2951),(((char*)__UDT_ID2)+((0+0))+ 2951), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2955),(((char*)__UDT_ID2)+((0+0))+ 2955), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2957),(((char*)__UDT_ID2)+((0+0))+ 2957), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2959),(((char*)__UDT_ID2)+((0+0))+ 2959), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2963),(((char*)__UDT_ID2)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2965), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2965));
if(!qbevent)break;evnt(5625);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
if(!qbevent)break;evnt(5627);}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(5628);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE= 0 ;
if(!qbevent)break;evnt(5629);}while(r);
S_6490:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5630);if(r)goto S_6490;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5630);}while(r);
}
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5633);}while(r);
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass694= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5634);}while(r);
S_6496:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5635);if(r)goto S_6496;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5635);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass695=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5636);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass696=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5637);}while(r);
}else{
S_6502:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5640);if(r)goto S_6502;}
S_6503:;
fornext_value698= 1 ;
fornext_finalvalue698=*__LONG_LASTTYPE;
fornext_step698= 1 ;
if (fornext_step698<0) fornext_step_negative698=1; else fornext_step_negative698=0;
if (is_error_pending()) goto fornext_error698;
goto fornext_entrylabel698;
while(1){
fornext_value698=fornext_step698+(*__LONG_XX);
fornext_entrylabel698:
*__LONG_XX=fornext_value698;
if (fornext_step_negative698){
if (fornext_value698<fornext_finalvalue698) break;
}else{
if (fornext_value698>fornext_finalvalue698) break;
}
fornext_error698:;
if(qbevent){evnt(5642);if(r)goto S_6503;}
S_6504:;
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(5643);if(r)goto S_6504;}
do{
SUB_WRITEBUFLINE(&(pass699=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5644);}while(r);
do{
goto LABEL_DECUDT;
if(!qbevent)break;evnt(5645);}while(r);
}
fornext_continue_697:;
}
fornext_exit_697:;
do{
qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass700= 0 ),__STRING_T2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5648);}while(r);
S_6510:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5650);if(r)goto S_6510;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5650);}while(r);
}
S_6513:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5651);if(r)goto S_6513;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("char*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5652);}while(r);
S_6515:;
if ((-(*__LONG_BYVALUE== 1 ))||is_error_pending()){
if(qbevent){evnt(5653);if(r)goto S_6515;}
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(5653);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5653);}while(r);
}
do{
*__LONG_BYVALUE= 1 ;
if(!qbevent)break;evnt(5654);}while(r);
}
S_6521:;
if ((*__LONG_BYVALUE)||is_error_pending()){
if(qbevent){evnt(5656);if(r)goto S_6521;}
do{
SUB_WRITEBUFRAWDATA(&(pass701=*__LONG_REGTXTBUF),__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5656);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass702=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5656);}while(r);
}
LABEL_DECUDT:;
if(qbevent){evnt(5657);r=0;}
do{
goto LABEL_DECLIBJMP3;
if(!qbevent)break;evnt(5658);}while(r);
}
do{
*__LONG_ARGDYNMODE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2851))),100,1),*__LONG_PARAMS, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5661);}while(r);
S_6529:;
if (((-(*__LONG_ARGDYNMODE< 0 ))|(-(*__LONG_ARGDYNMODE> 1 )))||is_error_pending()){
if(qbevent){evnt(5662);if(r)goto S_6529;}
do{
*__LONG_ARGDYNMODE= 0 ;
if(!qbevent)break;evnt(5662);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 1 ;
if(!qbevent)break;evnt(5663);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE=*__LONG_ARGDYNMODE;
if(!qbevent)break;evnt(5664);}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(5665);}while(r);
do{
*__INTEGER_SF_UDT_DYNMODE= 0 ;
if(!qbevent)break;evnt(5666);}while(r);
S_6536:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5667);if(r)goto S_6536;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5667);}while(r);
}
do{
*__INTEGER_DIMSFARRAY= 0 ;
if(!qbevent)break;evnt(5670);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5671);}while(r);
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(5672);}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(5674);}while(r);
S_6543:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5675);if(r)goto S_6543;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5675);}while(r);
}
S_6546:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5679);if(r)goto S_6546;}
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(5679);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5679);}while(r);
}
do{
qbs_set(__STRING_R,FUNC_REFER(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),(int32*)(void*)( ((char*)(__UDT_ID)) + ((0+540)) ),&(pass703= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5682);}while(r);
S_6551:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(5683);if(r)goto S_6551;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5683);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass704=*__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(5684);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass705=*__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(5685);}while(r);
S_6556:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||is_error_pending()){
if(qbevent){evnt(5686);if(r)goto S_6556;}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5687);}while(r);
do{
SUB_WRITEBUFLINE(&(pass706=*__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(5688);}while(r);
do{
SUB_WRITEBUFLINE(&(pass707=*__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(5689);}while(r);
do{
SUB_WRITEBUFLINE(&(pass708=*__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(5690);}while(r);
do{
SUB_WRITEBUFLINE(&(pass709=*__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(5692);}while(r);
do{
SUB_WRITEBUFLINE(&(pass710=*__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(5693);}while(r);
do{
SUB_WRITEBUFLINE(&(pass711=*__LONG_DATATXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5694);}while(r);
do{
SUB_WRITEBUFLINE(&(pass712=*__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(5695);}while(r);
do{
SUB_WRITEBUFLINE(&(pass713=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5696);}while(r);
do{
SUB_WRITEBUFLINE(&(pass714=*__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(5698);}while(r);
do{
SUB_WRITEBUFLINE(&(pass715=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5699);}while(r);
do{
SUB_WRITEBUFLINE(&(pass716=*__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(5701);}while(r);
do{
SUB_WRITEBUFLINE(&(pass717=*__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(5702);}while(r);
do{
SUB_WRITEBUFLINE(&(pass718=*__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(5703);}while(r);
do{
SUB_WRITEBUFLINE(&(pass719=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5704);}while(r);
}
}
LABEL_DECLIBJMP3:;
if(qbevent){evnt(5707);r=0;}
S_6574:;
if ((-(*__LONG_I!=(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5708);if(r)goto S_6574;}
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(5708);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5710);}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(5712);}while(r);
S_6580:;
if ((-(*__LONG_I==(*__LONG_N- 1 )))||is_error_pending()){
if(qbevent){evnt(5713);if(r)goto S_6580;}
do{
goto LABEL_GETLASTPARAM2;
if(!qbevent)break;evnt(5713);}while(r);
}
}
fornext_continue_680:;
}
fornext_exit_680:;
LABEL_NOSFPARAMS2:;
if(qbevent){evnt(5716);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(5717);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(5719);}while(r);
S_6588:;
if ((*__LONG_ADDSTATIC2LAYOUT)||is_error_pending()){
if(qbevent){evnt(5721);if(r)goto S_6588;}
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(5721);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5722);}while(r);
S_6592:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5722);if(r)goto S_6592;}
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(5722);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5722);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass721=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5724);}while(r);
S_6598:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5726);if(r)goto S_6598;}
do{
goto LABEL_DECLIBJMP4;
if(!qbevent)break;evnt(5726);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass722=*__LONG_MAINTXTBUF),qbs_new_txt_len("){",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5728);}while(r);
do{
SUB_WRITEBUFLINE(&(pass723=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs *tqbs;",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5729);}while(r);
do{
SUB_WRITEBUFLINE(&(pass724=*__LONG_MAINTXTBUF),qbs_new_txt_len("ptrszint tmp_long;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5730);}while(r);
do{
SUB_WRITEBUFLINE(&(pass725=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32 tmp_fileno;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5731);}while(r);
do{
SUB_WRITEBUFLINE(&(pass726=*__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(5732);}while(r);
do{
SUB_WRITEBUFLINE(&(pass727=*__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(5733);}while(r);
do{
SUB_WRITEBUFLINE(&(pass728=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5734);}while(r);
do{
SUB_WRITEBUFLINE(&(pass729=*__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(5735);}while(r);
do{
SUB_WRITEBUFLINE(&(pass730=*__LONG_MAINTXTBUF),qbs_new_txt_len("mem_lock *sf_mem_lock;",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5738);}while(r);
do{
SUB_WRITEBUFLINE(&(pass731=*__LONG_MAINTXTBUF),qbs_new_txt_len("new_mem_lock();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5739);}while(r);
do{
SUB_WRITEBUFLINE(&(pass732=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5740);}while(r);
do{
SUB_WRITEBUFLINE(&(pass733=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock->type=3;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5741);}while(r);
do{
SUB_WRITEBUFLINE(&(pass734=*__LONG_MAINTXTBUF),qbs_new_txt_len("libqb_check_stack();",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5749);}while(r);
S_6614:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5751);if(r)goto S_6614;}
do{
SUB_WRITEBUFLINE(&(pass735=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5752);}while(r);
S_6616:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||is_error_pending()){
if(qbevent){evnt(5753);if(r)goto S_6616;}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5754);}while(r);
S_6618:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(5755);if(r)goto S_6618;}
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(5756);}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(5757);}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(5758);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass737=*__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(5761);}while(r);
do{
SUB_WRITEBUFLINE(&(pass738=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5762);}while(r);
do{
SUB_WRITEBUFLINE(&(pass739=*__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(5763);}while(r);
do{
SUB_WRITEBUFLINE(&(pass741=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5764);}while(r);
do{
SUB_WRITEBUFLINE(&(pass742=*__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(5765);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass743=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (is_error_pending()) goto exit_subfunc;",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5769);}while(r);
do{
*__LONG_DIMSTATIC=*__LONG_STATICSF;
if(!qbevent)break;evnt(5774);}while(r);
LABEL_DECLIBJMP4:;
if(qbevent){evnt(5776);r=0;}
S_6632:;
if ((*__LONG_DECLARINGLIBRARY)||is_error_pending()){
if(qbevent){evnt(5778);if(r)goto S_6632;}
S_6633:;
if ((*__LONG_CUSTOMTYPELIBRARY)||is_error_pending()){
if(qbevent){evnt(5780);if(r)goto S_6633;}
do{
qbs_set(__STRING_CALLNAME,FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5782);}while(r);
do{
SUB_WRITEBUFLINE(&(pass744=*__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(5784);}while(r);
S_6636:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5786);if(r)goto S_6636;}
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(5787);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5789);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass745=*__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(5792);}while(r);
S_6642:;
if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||is_error_pending()){
if(qbevent){evnt(5795);if(r)goto S_6642;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5796);}while(r);
S_6644:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5798);if(r)goto S_6644;}
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(5799);}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(5800);}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(5801);}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(5803);}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(5804);}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(5805);}while(r);
}
}
S_6654:;
if ((*__LONG_DYNAMICLIBRARY)||is_error_pending()){
if(qbevent){evnt(5810);if(r)goto S_6654;}
S_6655:;
if ((*__LONG_SFDECLARE)||is_error_pending()){
if(qbevent){evnt(5811);if(r)goto S_6655;}
do{
SUB_WRITEBUFLINE(&(pass746=*__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+554))),256,1)))),qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)))),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5813);}while(r);
S_6657:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(5815);if(r)goto S_6657;}
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(5816);}while(r);
}else{
do{
*__LONG_F=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(5818);}while(r);
}
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5823);}while(r);
S_6663:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(5824);if(r)goto S_6663;}
S_6664:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(5825);if(r)goto S_6664;}
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(5826);}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(5827);}while(r);
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),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_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5828);}while(r);
}else{
do{
qbs_set(__STRING_ERRORTRACKCALL,qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len(",0,NULL);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5830);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass748=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)))),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5834);}while(r);
S_6673:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(5835);if(r)goto S_6673;}
do{
SUB_WRITEBUFLINE(&(pass749=*__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+554))),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),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(5836);}while(r);
do{
SUB_WRITEBUFLINE(&(pass750=*__LONG_F),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)))),qbs_new_txt_len("){",2)),__STRING_ERRORTRACKCALL),qbs_new_txt_len("error(260);}",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5837);}while(r);
}
S_6677:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(5839);if(r)goto S_6677;}
do{
SUB_WRITEBUFLINE(&(pass751=*__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+554))),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),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(5840);}while(r);
do{
SUB_WRITEBUFLINE(&(pass752=*__LONG_F),qbs_add(qbs_add(qbs_new_txt_len("if (dlerror()){",15),__STRING_ERRORTRACKCALL),qbs_new_txt_len("error(260);}",12)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5841);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass753=*__LONG_F),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5843);}while(r);
}
}
S_6684:;
if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5848);if(r)goto S_6684;}
do{
*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ;
if(!qbevent)break;evnt(5849);}while(r);
S_6686:;
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||is_error_pending()){
if(qbevent){evnt(5851);if(r)goto S_6686;}
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(5852);}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(5853);}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(5854);}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(5856);}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(5857);}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(5858);}while(r);
}
S_6695:;
if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||is_error_pending()){
if(qbevent){evnt(5861);if(r)goto S_6695;}
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(5862);}while(r);
}
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5867);}while(r);
}
}
S_6702:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(5872);if(r)goto S_6702;}
S_6703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(5873);if(r)goto S_6703;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(5874);}while(r);
S_6705:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(5875);if(r)goto S_6705;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(5875);}while(r);
}
S_6708:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(5876);if(r)goto S_6708;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(5876);}while(r);
}
S_6711:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(5877);if(r)goto S_6711;}
S_6712:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(5879);if(r)goto S_6712;}
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(5879);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5879);}while(r);
}
S_6716:;
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(5882);if(r)goto S_6716;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5883);}while(r);
S_6718:;
sc_755=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(5884);if(r)goto S_6718;}
S_6719:;
if (((sc_755==( 1 )))||is_error_pending()){
if(qbevent){evnt(5885);if(r)goto S_6719;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5885);}while(r);
sc_ec_30_end:;
goto sc_755_end;
}
S_6721:;
if (((sc_755==( 2 )))||is_error_pending()){
if(qbevent){evnt(5886);if(r)goto S_6721;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5886);}while(r);
sc_ec_31_end:;
goto sc_755_end;
}
S_6723:;
if (((sc_755==( 3 ))||(sc_755==( 4 )))||is_error_pending()){
if(qbevent){evnt(5887);if(r)goto S_6723;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5887);}while(r);
sc_ec_32_end:;
goto sc_755_end;
}
S_6725:;
if (((sc_755==( 5 )))||is_error_pending()){
if(qbevent){evnt(5888);if(r)goto S_6725;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5888);}while(r);
sc_ec_33_end:;
goto sc_755_end;
}
S_6727:;
if ((((sc_755>=( 10 ))&&(sc_755<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(5889);if(r)goto S_6727;}
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(5889);}while(r);
sc_ec_34_end:;
goto sc_755_end;
}
sc_755_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(5891);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5892);}while(r);
}
S_6733:;
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(5895);if(r)goto S_6733;}
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(5896);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(5897);}while(r);
}
S_6737:;
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(5900);if(r)goto S_6737;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5900);}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(5900);}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(5901);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(5902);}while(r);
S_6744:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(5902);if(r)goto S_6744;}
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(5902);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5902);}while(r);
}
S_6749:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5904);if(r)goto S_6749;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass757= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5905);}while(r);
}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5908);}while(r);
do{
*__LONG_STATICARRAYLISTN= 0 ;
if(!qbevent)break;evnt(5908);}while(r);
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(5909);}while(r);
do{
SUB_WRITEBUFLINE(&(pass758=*__LONG_MAINTXTBUF),qbs_new_txt_len("exit_subfunc:;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5910);}while(r);
S_6756:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(5911);if(r)goto S_6756;}
S_6757:;
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(5912);if(r)goto S_6757;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass759= 0 ));
if(!qbevent)break;evnt(5913);}while(r);
do{
SUB_WRITEBUFLINE(&(pass760=*__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(5914);}while(r);
do{
SUB_VWATCHADDLABEL(&(pass761= 0 ),&(pass762= -1 ));
if(!qbevent)break;evnt(5915);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass763=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5917);}while(r);
S_6763:;
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(5919);if(r)goto S_6763;}
do{
SUB_WRITEBUFLINE(&(pass764=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5920);}while(r);
do{
SUB_WRITEBUFLINE(&(pass765=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5921);}while(r);
do{
SUB_WRITEBUFLINE(&(pass766=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5922);}while(r);
S_6767:;
fornext_value768=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue768=*__LONG_LASTLINENUMBERLABELVWATCH;
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(5923);if(r)goto S_6767;}
S_6768:;
while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||is_error_pending()){
if(qbevent){evnt(5924);if(r)goto S_6768;}
do{
qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5925);}while(r);
do{
qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5926);}while(r);
ww_continue_769:;
}
ww_exit_769:;
S_6772:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5928);if(r)goto S_6772;}
do{
SUB_WRITEBUFLINE(&(pass771=*__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(5929);}while(r);
do{
SUB_WRITEBUFLINE(&(pass772=*__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(5930);}while(r);
do{
SUB_WRITEBUFLINE(&(pass773=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5931);}while(r);
}
fornext_continue_767:;
}
fornext_exit_767:;
do{
SUB_WRITEBUFLINE(&(pass774=*__LONG_MAINTXTBUF),qbs_new_txt_len("    default:",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5934);}while(r);
do{
SUB_WRITEBUFLINE(&(pass775=*__LONG_MAINTXTBUF),qbs_new_txt_len("        *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5935);}while(r);
do{
SUB_WRITEBUFLINE(&(pass776=*__LONG_MAINTXTBUF),qbs_new_txt_len("        goto VWATCH_SETNEXTLINE;",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5936);}while(r);
do{
SUB_WRITEBUFLINE(&(pass777=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5937);}while(r);
do{
SUB_WRITEBUFLINE(&(pass778=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5939);}while(r);
do{
SUB_WRITEBUFLINE(&(pass779=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5940);}while(r);
S_6784:;
fornext_value781=*__LONG_FIRSTLINENUMBERLABELVWATCH;
fornext_finalvalue781=*__LONG_LASTLINENUMBERLABELVWATCH;
fornext_step781= 1 ;
if (fornext_step781<0) fornext_step_negative781=1; else fornext_step_negative781=0;
if (is_error_pending()) goto fornext_error781;
goto fornext_entrylabel781;
while(1){
fornext_value781=fornext_step781+(*__LONG_I);
fornext_entrylabel781:
*__LONG_I=fornext_value781;
if (fornext_step_negative781){
if (fornext_value781<fornext_finalvalue781) break;
}else{
if (fornext_value781>fornext_finalvalue781) break;
}
fornext_error781:;
if(qbevent){evnt(5941);if(r)goto S_6784;}
S_6785:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||is_error_pending()){
if(qbevent){evnt(5942);if(r)goto S_6785;}
do{
SUB_WRITEBUFLINE(&(pass782=*__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(5943);}while(r);
do{
SUB_WRITEBUFLINE(&(pass783=*__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(5944);}while(r);
do{
SUB_WRITEBUFLINE(&(pass784=*__LONG_MAINTXTBUF),qbs_new_txt_len("        break;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5945);}while(r);
}
fornext_continue_780:;
}
fornext_exit_780:;
do{
SUB_WRITEBUFLINE(&(pass785=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5948);}while(r);
do{
SUB_WRITEBUFLINE(&(pass786=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5950);}while(r);
}
do{
*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ;
if(!qbevent)break;evnt(5952);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass787=*__LONG_MAINTXTBUF),qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5956);}while(r);
do{
SUB_WRITEBUFLINE(&(pass788=*__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(5958);}while(r);
do{
SUB_WRITEBUFLINE(&(pass789=*__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(5959);}while(r);
do{
SUB_WRITEBUFLINE(&(pass790=*__LONG_MAINTXTBUF),qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5960);}while(r);
S_6800:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(5961);if(r)goto S_6800;}
do{
SUB_WRITEBUFLINE(&(pass791=*__LONG_MAINTXTBUF),__STRING_SUBFUNCRET);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5961);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass792=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5963);}while(r);
do{
SUB_WRITEBUFLINE(&(pass793=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5965);}while(r);
do{
SUB_WRITEBUFLINE(&(pass794=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5966);}while(r);
do{
SUB_WRITEBUFLINE(&(pass795=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5967);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5968);}while(r);
do{
*__LONG_SUBFUNCN= 0 ;
if(!qbevent)break;evnt(5969);}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(5970);}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(5971);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(5972);}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(5973);}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(5974);}while(r);
S_6814:;
fornext_value797= 1 ;
fornext_finalvalue797=*__LONG_IDN;
fornext_step797= 1 ;
if (fornext_step797<0) fornext_step_negative797=1; else fornext_step_negative797=0;
if (is_error_pending()) goto fornext_error797;
goto fornext_entrylabel797;
while(1){
fornext_value797=fornext_step797+(*__LONG_I);
fornext_entrylabel797:
*__LONG_I=fornext_value797;
if (fornext_step_negative797){
if (fornext_value797<fornext_finalvalue797) break;
}else{
if (fornext_value797>fornext_finalvalue797) break;
}
fornext_error797:;
if(qbevent){evnt(5977);if(r)goto S_6814;}
S_6815:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))& 2 )||is_error_pending()){
if(qbevent){evnt(5978);if(r)goto S_6815;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))- 2 ;
if(!qbevent)break;evnt(5978);}while(r);
}
fornext_continue_796:;
}
fornext_exit_796:;
S_6819:;
fornext_value799= 1 ;
fornext_finalvalue799=*__LONG_REVERTMAYMUSTHAVEN;
fornext_step799= 1 ;
if (fornext_step799<0) fornext_step_negative799=1; else fornext_step_negative799=0;
if (is_error_pending()) goto fornext_error799;
goto fornext_entrylabel799;
while(1){
fornext_value799=fornext_step799+(*__LONG_I);
fornext_entrylabel799:
*__LONG_I=fornext_value799;
if (fornext_step_negative799){
if (fornext_value799<fornext_finalvalue799) break;
}else{
if (fornext_value799>fornext_finalvalue799) break;
}
fornext_error799:;
if(qbevent){evnt(5981);if(r)goto S_6819;}
do{
*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])];
if(!qbevent)break;evnt(5982);}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]))*2973+532))),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+524))),8,1));
if(!qbevent)break;evnt(5983);}while(r);
fornext_continue_798:;
}
fornext_exit_798:;
do{
*__LONG_REVERTMAYMUSTHAVEN= 0 ;
if(!qbevent)break;evnt(5985);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(5986);}while(r);
}
}
}
S_6828:;
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(5994);if(r)goto S_6828;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(5995);}while(r);
S_6830:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(5998);if(r)goto S_6830;}
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(5998);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(5998);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(5999);}while(r);
LABEL_CONSTDEFPENDING:;
if(qbevent){evnt(6001);r=0;}
do{
*__LONG_PENDING= 0 ;
if(!qbevent)break;evnt(6002);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6004);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6004);}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(6005);}while(r);
do{
*__LONG_TYPEOVERRIDE= 0 ;
if(!qbevent)break;evnt(6006);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6007);}while(r);
S_6841:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6008);if(r)goto S_6841;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6008);}while(r);
}
S_6844:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6009);if(r)goto S_6844;}
do{
*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6010);}while(r);
S_6846:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6011);if(r)goto S_6846;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6011);}while(r);
}
S_6849:;
if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(6012);if(r)goto S_6849;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6012);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6012);}while(r);
}
S_6853:;
if ((-(*__LONG_TYPEOVERRIDE== 0 ))||is_error_pending()){
if(qbevent){evnt(6013);if(r)goto S_6853;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6013);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6013);}while(r);
}
}
S_6858:;
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(6016);if(r)goto S_6858;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6016);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6016);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6017);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6020);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6021);}while(r);
S_6865:;
fornext_value801=*__LONG_I;
fornext_finalvalue801=*__LONG_N;
fornext_step801= 1 ;
if (fornext_step801<0) fornext_step_negative801=1; else fornext_step_negative801=0;
if (is_error_pending()) goto fornext_error801;
goto fornext_entrylabel801;
while(1){
fornext_value801=fornext_step801+(*__LONG_I2);
fornext_entrylabel801:
*__LONG_I2=fornext_value801;
if (fornext_step_negative801){
if (fornext_value801<fornext_finalvalue801) break;
}else{
if (fornext_value801>fornext_finalvalue801) break;
}
fornext_error801:;
if(qbevent){evnt(6022);if(r)goto S_6865;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6023);}while(r);
S_6867:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(6024);if(r)goto S_6867;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(6024);}while(r);
}
S_6870:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(6025);if(r)goto S_6870;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(6025);}while(r);
}
S_6873:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(6026);if(r)goto S_6873;}
do{
*__LONG_PENDING= 1 ;
if(!qbevent)break;evnt(6027);}while(r);
do{
*__LONG_I=*__LONG_I2+ 1 ;
if(!qbevent)break;evnt(6028);}while(r);
S_6876:;
if ((-(*__LONG_I>(*__LONG_N- 2 )))||is_error_pending()){
if(qbevent){evnt(6029);if(r)goto S_6876;}
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(6029);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6029);}while(r);
}
do{
goto fornext_exit_800;
if(!qbevent)break;evnt(6030);}while(r);
}
S_6882:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6032);if(r)goto S_6882;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6032);}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(6032);}while(r);
}
fornext_continue_800:;
}
fornext_exit_800:;
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6035);}while(r);
S_6889:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6036);if(r)goto S_6889;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6036);}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(6037);}while(r);
do{
qbs_set(__STRING_HASHNAME,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6042);}while(r);
do{
*__LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(6043);}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(6044);}while(r);
S_6896:;
while((*__LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(6045);if(r)goto S_6896;}
S_6897:;
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(6046);if(r)goto S_6897;}
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(6046);}while(r);
do{
goto dl_exit_803;
if(!qbevent)break;evnt(6046);}while(r);
}
S_6901:;
if ((-(*__LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(6047);if(r)goto S_6901;}
do{
*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF);
if(!qbevent)break;evnt(6047);}while(r);
}else{
do{
*__LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(6047);}while(r);
}
dl_continue_803:;
}
dl_exit_803:;
S_6907:;
if ((*__LONG_PENDING)||is_error_pending()){
if(qbevent){evnt(6050);if(r)goto S_6907;}
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(6050);}while(r);
do{
goto LABEL_CONSTDEFPENDING;
if(!qbevent)break;evnt(6050);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6052);}while(r);
S_6912:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6052);if(r)goto S_6912;}
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(6052);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6052);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6054);}while(r);
}
LABEL_PREDEFINE:;
if(qbevent){evnt(6057);r=0;}
S_6919:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6058);if(r)goto S_6919;}
do{
*__LONG_ASREQ= 0 ;
if(!qbevent)break;evnt(6059);}while(r);
S_6921:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||is_error_pending()){
if(qbevent){evnt(6060);if(r)goto S_6921;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6060);}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(6060);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(6060);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(6060);}while(r);
}
S_6927:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||is_error_pending()){
if(qbevent){evnt(6061);if(r)goto S_6927;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6061);}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(6061);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(6061);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(6061);}while(r);
}
S_6933:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||is_error_pending()){
if(qbevent){evnt(6062);if(r)goto S_6933;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6062);}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(6062);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(6062);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(6062);}while(r);
}
S_6939:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||is_error_pending()){
if(qbevent){evnt(6063);if(r)goto S_6939;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6063);}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(6063);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(6063);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(6063);}while(r);
}
S_6945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||is_error_pending()){
if(qbevent){evnt(6064);if(r)goto S_6945;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6064);}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(6064);}while(r);
do{
*__LONG_N=*__LONG_N+ 2 ;
if(!qbevent)break;evnt(6064);}while(r);
do{
goto LABEL_DEFINETYPE;
if(!qbevent)break;evnt(6064);}while(r);
}
S_6951:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||is_error_pending()){
if(qbevent){evnt(6065);if(r)goto S_6951;}
do{
*__LONG_ASREQ= 1 ;
if(!qbevent)break;evnt(6066);}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(6067);}while(r);
LABEL_DEFINETYPE:;
if(qbevent){evnt(6068);r=0;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6070);}while(r);
do{
qbs_set(__STRING_TYP2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6071);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6072);}while(r);
S_6957:;
fornext_value806=*__LONG_N;
fornext_finalvalue806= 2 ;
fornext_step806= -1 ;
if (fornext_step806<0) fornext_step_negative806=1; else fornext_step_negative806=0;
if (is_error_pending()) goto fornext_error806;
goto fornext_entrylabel806;
while(1){
fornext_value806=fornext_step806+(*__LONG_I);
fornext_entrylabel806:
*__LONG_I=fornext_value806;
if (fornext_step_negative806){
if (fornext_value806<fornext_finalvalue806) break;
}else{
if (fornext_value806>fornext_finalvalue806) break;
}
fornext_error806:;
if(qbevent){evnt(6073);if(r)goto S_6957;}
do{
qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6074);}while(r);
S_6959:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(6075);if(r)goto S_6959;}
do{
goto fornext_exit_805;
if(!qbevent)break;evnt(6075);}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(6076);}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(6077);}while(r);
fornext_continue_805:;
}
fornext_exit_805:;
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6079);}while(r);
S_6966:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(6080);if(r)goto S_6966;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6080);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6080);}while(r);
}
S_6970:;
if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||is_error_pending()){
if(qbevent){evnt(6081);if(r)goto S_6970;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6081);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6081);}while(r);
}
do{
*__LONG_N=*__LONG_I- 1 ;
if(!qbevent)break;evnt(6084);}while(r);
do{
*__LONG_I= 2 - 1 ;
if(!qbevent)break;evnt(6086);}while(r);
LABEL_DEFINENEXT:;
if(qbevent){evnt(6087);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6089);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6089);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6089);}while(r);
S_6979:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(6090);if(r)goto S_6979;}
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(6090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6090);}while(r);
}
S_6983:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(6091);if(r)goto S_6983;}
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(6091);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6091);}while(r);
}
S_6987:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(6092);if(r)goto S_6987;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(6092);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(6092);}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(6093);}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(6094);}while(r);
S_6994:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6095);if(r)goto S_6994;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6095);}while(r);
}
do{
*__LONG_FIRSTE=*__LONG_E;
if(!qbevent)break;evnt(6096);}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(6097);}while(r);
S_6999:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6099);if(r)goto S_6999;}
S_7000:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(6100);if(r)goto S_7000;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(6100);}while(r);
}
S_7003:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(6101);if(r)goto S_7003;}
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(6101);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6102);}while(r);
S_7007:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6102);if(r)goto S_7007;}
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(6102);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6102);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6103);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6107);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6107);}while(r);
S_7016:;
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(6108);if(r)goto S_7016;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected - or ,",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6108);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6108);}while(r);
}
S_7020:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||is_error_pending()){
if(qbevent){evnt(6109);if(r)goto S_7020;}
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(6110);}while(r);
S_7022:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6111);if(r)goto S_7022;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Syntax incomplete",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6111);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6111);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6113);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6113);}while(r);
do{
*__LONG_E=qbs_asc(qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6113);}while(r);
S_7029:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||is_error_pending()){
if(qbevent){evnt(6114);if(r)goto S_7029;}
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(6114);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6114);}while(r);
}
S_7033:;
if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||is_error_pending()){
if(qbevent){evnt(6115);if(r)goto S_7033;}
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(6115);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6115);}while(r);
}
S_7037:;
if ((-(*__LONG_E== 95 ))||is_error_pending()){
if(qbevent){evnt(6116);if(r)goto S_7037;}
do{
*__LONG_E= 27 ;
if(!qbevent)break;evnt(6116);}while(r);
}else{
do{
*__LONG_E=*__LONG_E- 64 ;
if(!qbevent)break;evnt(6116);}while(r);
}
S_7042:;
if ((-(*__LONG_FIRSTE>*__LONG_E))||is_error_pending()){
if(qbevent){evnt(6117);if(r)goto S_7042;}
do{
swap_32(&*__LONG_E,&*__LONG_FIRSTE);
if(!qbevent)break;evnt(6117);}while(r);
}
S_7045:;
fornext_value811=*__LONG_FIRSTE;
fornext_finalvalue811=*__LONG_E;
fornext_step811= 1 ;
if (fornext_step811<0) fornext_step_negative811=1; else fornext_step_negative811=0;
if (is_error_pending()) goto fornext_error811;
goto fornext_entrylabel811;
while(1){
fornext_value811=fornext_step811+(*__LONG_E2);
fornext_entrylabel811:
*__LONG_E2=fornext_value811;
if (fornext_step_negative811){
if (fornext_value811<fornext_finalvalue811) break;
}else{
if (fornext_value811>fornext_finalvalue811) break;
}
fornext_error811:;
if(qbevent){evnt(6118);if(r)goto S_7045;}
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(6119);}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(6120);}while(r);
S_7048:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6121);if(r)goto S_7048;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6121);}while(r);
}
fornext_continue_810:;
}
fornext_exit_810:;
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(6123);}while(r);
S_7053:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6124);if(r)goto S_7053;}
S_7054:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(6125);if(r)goto S_7054;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(6125);}while(r);
}
S_7057:;
if ((*__LONG_ASREQ)||is_error_pending()){
if(qbevent){evnt(6126);if(r)goto S_7057;}
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(6126);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6127);}while(r);
S_7061:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6127);if(r)goto S_7061;}
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(6127);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6127);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6128);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(6131);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6131);}while(r);
S_7070:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(6132);if(r)goto S_7070;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ,",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6132);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6132);}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(6134);}while(r);
do{
goto LABEL_DEFINENEXT;
if(!qbevent)break;evnt(6135);}while(r);
}
}
S_7079:;
if ((-(*__LONG_PREDEFINING== 1 ))||is_error_pending()){
if(qbevent){evnt(6138);if(r)goto S_7079;}
do{
goto LABEL_PREDEFINED;
if(!qbevent)break;evnt(6138);}while(r);
}
do{
*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ;
if(!qbevent)break;evnt(6142);}while(r);
S_7083:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ERRORLOCATIONMODE)) + ((0+0)) ))== 2 ))||is_error_pending()){
if(qbevent){evnt(6148);if(r)goto S_7083;}
S_7084:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(6149);if(r)goto S_7084;}
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(6150);}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(6151);}while(r);
do{
SUB_WRITEBUFLINE(&(pass814=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),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_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 )),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6152);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass815=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("error_track_line(",17),qbs__tostr((int32)(*__LONG_LINENUMBER),NULL,0)),qbs_new_txt_len(",0,NULL);",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6154);}while(r);
}
}
S_7092:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6158);if(r)goto S_7092;}
S_7093:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(6159);if(r)goto S_7093;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6161);}while(r);
S_7095:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6162);if(r)goto S_7095;}
do{
goto LABEL_SIMPLENEXT;
if(!qbevent)break;evnt(6162);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6163);}while(r);
S_7099:;
fornext_value817= 2 ;
fornext_finalvalue817=*__LONG_N;
fornext_step817= 1 ;
if (fornext_step817<0) fornext_step_negative817=1; else fornext_step_negative817=0;
if (is_error_pending()) goto fornext_error817;
goto fornext_entrylabel817;
while(1){
fornext_value817=fornext_step817+(*__LONG_I);
fornext_entrylabel817:
*__LONG_I=fornext_value817;
if (fornext_step_negative817){
if (fornext_value817<fornext_finalvalue817) break;
}else{
if (fornext_value817>fornext_finalvalue817) break;
}
fornext_error817:;
if(qbevent){evnt(6164);if(r)goto S_7099;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6165);}while(r);
S_7101:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(6167);if(r)goto S_7101;}
LABEL_LASTNEXTELE:;
if(qbevent){evnt(6169);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6170);}while(r);
S_7103:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6171);if(r)goto S_7103;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6171);}while(r);
}
S_7106:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||is_error_pending()){
if(qbevent){evnt(6172);if(r)goto S_7106;}
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(6172);}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(6172);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6173);}while(r);
S_7112:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6174);if(r)goto S_7112;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6174);}while(r);
}
S_7115:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6175);if(r)goto S_7115;}
do{
SUB_GETID(&(pass819=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6176);}while(r);
S_7117:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6177);if(r)goto S_7117;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6177);}while(r);
}
S_7120:;
if (((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(6178);if(r)goto S_7120;}
S_7121:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6179);if(r)goto S_7121;}
S_7122:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(6180);if(r)goto S_7122;}
S_7123:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(6181);if(r)goto S_7123;}
do{
goto LABEL_FORNEXTFOUNDVAR2;
if(!qbevent)break;evnt(6182);}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(6188);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6188);}while(r);
LABEL_FORNEXTFOUNDVAR2:;
if(qbevent){evnt(6189);r=0;}
LABEL_SIMPLENEXT:;
if(qbevent){evnt(6190);r=0;}
S_7132:;
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(6191);if(r)goto S_7132;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6191);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6191);}while(r);
}
S_7136:;
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(6192);if(r)goto S_7136;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6192);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6192);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass820=*__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(6193);}while(r);
S_7141:;
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(6194);if(r)goto S_7141;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass821= 0 ));
if(!qbevent)break;evnt(6195);}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(6196);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass823=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6198);}while(r);
do{
SUB_WRITEBUFLINE(&(pass824=*__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(6199);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6200);}while(r);
S_7148:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6201);if(r)goto S_7148;}
do{
goto fornext_exit_816;
if(!qbevent)break;evnt(6201);}while(r);
}
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6202);}while(r);
}else{
S_7153:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||is_error_pending()){
if(qbevent){evnt(6206);if(r)goto S_7153;}
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(6206);}while(r);
}else{
do{
qbs_set(__STRING_V,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6206);}while(r);
}
S_7158:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(6207);if(r)goto S_7158;}
do{
goto LABEL_LASTNEXTELE;
if(!qbevent)break;evnt(6207);}while(r);
}
}
fornext_continue_816:;
}
fornext_exit_816:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6213);}while(r);
S_7164:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6213);if(r)goto S_7164;}
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(6213);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6213);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6214);}while(r);
}
}
S_7172:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6220);if(r)goto S_7172;}
S_7173:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6221);if(r)goto S_7173;}
S_7174:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6222);if(r)goto S_7174;}
do{
SUB_WRITEBUFLINE(&(pass827=*__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(6222);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6222);}while(r);
}
S_7178:;
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(6225);if(r)goto S_7178;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6226);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6226);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6229);}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(6230);}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(6231);}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(6232);}while(r);
S_7186:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6233);if(r)goto S_7186;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass828= 2 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6234);}while(r);
S_7188:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6235);if(r)goto S_7188;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6235);}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(6236);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6237);}while(r);
S_7193:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6237);if(r)goto S_7193;}
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(6237);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6237);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6238);}while(r);
S_7199:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6239);if(r)goto S_7199;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6239);}while(r);
}
S_7202:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6240);if(r)goto S_7202;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass830= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6240);}while(r);
}
S_7205:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6241);if(r)goto S_7205;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6241);}while(r);
}
S_7208:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6242);if(r)goto S_7208;}
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(6242);}while(r);
}
S_7211:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6243);if(r)goto S_7211;}
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(6243);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6243);}while(r);
}
S_7215:;
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(6244);if(r)goto S_7215;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass831= 0 ));
if(!qbevent)break;evnt(6245);}while(r);
do{
SUB_WRITEBUFLINE(&(pass832=*__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(6246);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass833=*__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(6248);}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(6250);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6250);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6253);}while(r);
}
}
S_7227:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6257);if(r)goto S_7227;}
S_7228:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||is_error_pending()){
if(qbevent){evnt(6258);if(r)goto S_7228;}
S_7229:;
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(6261);if(r)goto S_7229;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6261);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6261);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass834=*__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(6262);}while(r);
do{
SUB_WRITEBUFLINE(&(pass835=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6263);}while(r);
do{
SUB_WRITEBUFLINE(&(pass836=*__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(6264);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6265);}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(6266);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6267);}while(r);
S_7239:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6267);if(r)goto S_7239;}
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(6267);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6267);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6268);}while(r);
}
}
S_7247:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6276);if(r)goto S_7247;}
S_7248:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(6277);if(r)goto S_7248;}
S_7249:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6278);if(r)goto S_7249;}
do{
SUB_WRITEBUFLINE(&(pass838=*__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(6278);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6278);}while(r);
}
S_7253:;
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(6281);if(r)goto S_7253;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6282);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6282);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6285);}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(6286);}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(6287);}while(r);
S_7260:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6288);if(r)goto S_7260;}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(6289);}while(r);
S_7262:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6290);if(r)goto S_7262;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(6290);}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(6290);}while(r);
}
S_7266:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(6291);if(r)goto S_7266;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(6291);}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(6291);}while(r);
}
S_7270:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(6292);if(r)goto S_7270;}
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(6292);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6292);}while(r);
}
S_7274:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(6293);if(r)goto S_7274;}
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(6293);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6293);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass839= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6294);}while(r);
S_7279:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6295);if(r)goto S_7279;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6295);}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(6296);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6297);}while(r);
S_7284:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6298);if(r)goto S_7284;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6298);}while(r);
}
S_7287:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6299);if(r)goto S_7287;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass840= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6299);}while(r);
}
S_7290:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6300);if(r)goto S_7290;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6300);}while(r);
}
S_7293:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6301);if(r)goto S_7293;}
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(6301);}while(r);
}
S_7296:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6302);if(r)goto S_7296;}
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(6302);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6302);}while(r);
}
S_7300:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(6303);if(r)goto S_7300;}
do{
SUB_WRITEBUFLINE(&(pass841=*__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(6303);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass842=*__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(6303);}while(r);
}
S_7305:;
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(6304);if(r)goto S_7305;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass843= 0 ));
if(!qbevent)break;evnt(6305);}while(r);
do{
SUB_WRITEBUFLINE(&(pass844=*__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(6306);}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(6308);}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(6310);}while(r);
S_7312:;
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(6311);if(r)goto S_7312;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass845= 0 ));
if(!qbevent)break;evnt(6312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass846=*__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(6313);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass847=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6315);}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(6318);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6319);}while(r);
S_7321:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6319);if(r)goto S_7321;}
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(6319);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6319);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6320);}while(r);
}
}
S_7329:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6324);if(r)goto S_7329;}
S_7330:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||is_error_pending()){
if(qbevent){evnt(6325);if(r)goto S_7330;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6326);}while(r);
S_7332:;
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(6327);if(r)goto S_7332;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6327);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6327);}while(r);
}
S_7336:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(6328);if(r)goto S_7336;}
S_7337:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6329);if(r)goto S_7337;}
do{
SUB_WRITEBUFLINE(&(pass849=*__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(6329);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6329);}while(r);
}
S_7341:;
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(6330);if(r)goto S_7341;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6330);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6330);}while(r);
}
do{
*__LONG_WHILEUNTIL= 0 ;
if(!qbevent)break;evnt(6331);}while(r);
S_7346:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(6332);if(r)goto S_7346;}
do{
*__LONG_WHILEUNTIL= 1 ;
if(!qbevent)break;evnt(6332);}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(6332);}while(r);
}
S_7350:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||is_error_pending()){
if(qbevent){evnt(6333);if(r)goto S_7350;}
do{
*__LONG_WHILEUNTIL= 2 ;
if(!qbevent)break;evnt(6333);}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(6333);}while(r);
}
S_7354:;
if ((-(*__LONG_WHILEUNTIL== 0 ))||is_error_pending()){
if(qbevent){evnt(6334);if(r)goto S_7354;}
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(6334);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6334);}while(r);
}
S_7358:;
if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||is_error_pending()){
if(qbevent){evnt(6335);if(r)goto S_7358;}
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(6335);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6335);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass850= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6336);}while(r);
S_7363:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6337);if(r)goto S_7363;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6337);}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(6338);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6339);}while(r);
S_7368:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6340);if(r)goto S_7368;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6340);}while(r);
}
S_7371:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6341);if(r)goto S_7371;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass851= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6341);}while(r);
}
S_7374:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6342);if(r)goto S_7374;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6342);}while(r);
}
S_7377:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6343);if(r)goto S_7377;}
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(6343);}while(r);
}
S_7380:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6344);if(r)goto S_7380;}
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(6344);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6344);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass852=*__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(6345);}while(r);
S_7385:;
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(6346);if(r)goto S_7385;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass853= 0 ));
if(!qbevent)break;evnt(6347);}while(r);
do{
SUB_WRITEBUFLINE(&(pass854=*__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(6348);}while(r);
}
S_7389:;
if ((-(*__LONG_WHILEUNTIL== 1 ))||is_error_pending()){
if(qbevent){evnt(6350);if(r)goto S_7389;}
do{
SUB_WRITEBUFLINE(&(pass855=*__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(6350);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass856=*__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(6350);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass857=*__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(6352);}while(r);
S_7396:;
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(6354);if(r)goto S_7396;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass858= 0 ));
if(!qbevent)break;evnt(6355);}while(r);
do{
SUB_WRITEBUFLINE(&(pass859=*__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(6356);}while(r);
}
S_7400:;
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(6359);if(r)goto S_7400;}
do{
SUB_WRITEBUFLINE(&(pass860=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6360);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass861=*__LONG_MAINTXTBUF),qbs_new_txt_len("}while(1);",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6362);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass862=*__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(6365);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6366);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6367);}while(r);
S_7409:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6367);if(r)goto S_7409;}
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(6367);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6367);}while(r);
}
S_7414:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6368);if(r)goto S_7414;}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6368);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6369);}while(r);
}
}
S_7420:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6381);if(r)goto S_7420;}
S_7421:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(6382);if(r)goto S_7421;}
S_7422:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6383);if(r)goto S_7422;}
do{
SUB_WRITEBUFLINE(&(pass864=*__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(6383);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6383);}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(6385);}while(r);
S_7427:;
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(6388);if(r)goto S_7427;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6389);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6389);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6392);}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(6393);}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(6394);}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(6395);}while(r);
do{
qbs_set(__STRING_V,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6397);}while(r);
do{
qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6398);}while(r);
do{
qbs_set(__STRING_P3,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6399);}while(r);
do{
*__LONG_STEPUSED= 0 ;
if(!qbevent)break;evnt(6399);}while(r);
do{
qbs_set(__STRING_P2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6400);}while(r);
do{
*__LONG_MODE= 0 ;
if(!qbevent)break;evnt(6401);}while(r);
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(6402);}while(r);
S_7442:;
fornext_value866= 2 ;
fornext_finalvalue866=*__LONG_N;
fornext_step866= 1 ;
if (fornext_step866<0) fornext_step_negative866=1; else fornext_step_negative866=0;
if (is_error_pending()) goto fornext_error866;
goto fornext_entrylabel866;
while(1){
fornext_value866=fornext_step866+(*__LONG_I);
fornext_entrylabel866:
*__LONG_I=fornext_value866;
if (fornext_step_negative866){
if (fornext_value866<fornext_finalvalue866) break;
}else{
if (fornext_value866>fornext_finalvalue866) break;
}
fornext_error866:;
if(qbevent){evnt(6403);if(r)goto S_7442;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6404);}while(r);
S_7444:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(6405);if(r)goto S_7444;}
S_7445:;
if ((-(*__LONG_MODE!= 0 ))||is_error_pending()){
if(qbevent){evnt(6406);if(r)goto S_7445;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6406);}while(r);
do{
goto fornext_exit_865;
if(!qbevent)break;evnt(6406);}while(r);
}
do{
*__LONG_MODE= 1 ;
if(!qbevent)break;evnt(6407);}while(r);
do{
qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass867= 2 ),&(pass868=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6408);}while(r);
do{
*__LONG_EQUPOS=*__LONG_I;
if(!qbevent)break;evnt(6409);}while(r);
}
S_7453:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||is_error_pending()){
if(qbevent){evnt(6411);if(r)goto S_7453;}
S_7454:;
if ((-(*__LONG_MODE!= 1 ))||is_error_pending()){
if(qbevent){evnt(6412);if(r)goto S_7454;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6412);}while(r);
do{
goto fornext_exit_865;
if(!qbevent)break;evnt(6412);}while(r);
}
do{
*__LONG_MODE= 2 ;
if(!qbevent)break;evnt(6413);}while(r);
do{
qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass869=*__LONG_EQUPOS+ 1 ),&(pass870=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6414);}while(r);
do{
*__LONG_TOPOS=*__LONG_I;
if(!qbevent)break;evnt(6415);}while(r);
}
S_7462:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(6417);if(r)goto S_7462;}
S_7463:;
if ((-(*__LONG_MODE!= 2 ))||is_error_pending()){
if(qbevent){evnt(6418);if(r)goto S_7463;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6418);}while(r);
do{
goto fornext_exit_865;
if(!qbevent)break;evnt(6418);}while(r);
}
do{
*__LONG_MODE= 3 ;
if(!qbevent)break;evnt(6419);}while(r);
do{
*__LONG_STEPUSED= 1 ;
if(!qbevent)break;evnt(6420);}while(r);
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass871=*__LONG_TOPOS+ 1 ),&(pass872=*__LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6421);}while(r);
do{
qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass873=*__LONG_I+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6422);}while(r);
do{
goto fornext_exit_865;
if(!qbevent)break;evnt(6423);}while(r);
}
fornext_continue_865:;
}
fornext_exit_865:;
S_7474:;
if ((-(*__LONG_MODE< 2 ))||is_error_pending()){
if(qbevent){evnt(6426);if(r)goto S_7474;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6426);}while(r);
}
S_7477:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6427);if(r)goto S_7477;}
do{
qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass874=*__LONG_TOPOS+ 1 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6427);}while(r);
}
S_7480:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(6428);if(r)goto S_7480;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(6428);}while(r);
}
S_7483:;
if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||is_error_pending()){
if(qbevent){evnt(6429);if(r)goto S_7483;}
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(6429);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6429);}while(r);
}
S_7487:;
if ((*__LONG_E)||is_error_pending()){
if(qbevent){evnt(6430);if(r)goto S_7487;}
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(6430);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6430);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6432);}while(r);
S_7492:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6433);if(r)goto S_7492;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6433);}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(6434);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6435);}while(r);
S_7497:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6436);if(r)goto S_7497;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6436);}while(r);
}
S_7500:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6437);if(r)goto S_7500;}
do{
SUB_GETID(&(pass878=qbr(qbs_val<long double>(__STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6438);}while(r);
S_7502:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6439);if(r)goto S_7502;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6439);}while(r);
}
S_7505:;
if (((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(6440);if(r)goto S_7505;}
S_7506:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(6441);if(r)goto S_7506;}
S_7507:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISOFFSETINBITS)== 0 ))||is_error_pending()){
if(qbevent){evnt(6442);if(r)goto S_7507;}
S_7508:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(6443);if(r)goto S_7508;}
do{
goto LABEL_FORNEXTFOUNDVAR;
if(!qbevent)break;evnt(6444);}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(6450);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6450);}while(r);
LABEL_FORNEXTFOUNDVAR:;
if(qbevent){evnt(6451);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(6452);}while(r);
do{
qbs_set(__STRING_V,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6453);}while(r);
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6457);}while(r);
do{
*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(6458);}while(r);
do{
*__LONG_BITS=*__LONG_TYP& 4095ll ;
if(!qbevent)break;evnt(6459);}while(r);
S_7522:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6460);if(r)goto S_7522;}
S_7523:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6461);if(r)goto S_7523;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6461);}while(r);
do{
*__LONG_CTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6461);}while(r);
}
S_7527:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6462);if(r)goto S_7527;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6462);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6462);}while(r);
}
S_7531:;
if ((-(*__LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(6463);if(r)goto S_7531;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6463);}while(r);
do{
*__LONG_CTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(6463);}while(r);
}
}else{
S_7536:;
if ((-(*__LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(6465);if(r)goto S_7536;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6465);}while(r);
do{
*__LONG_CTYP= 16 ;
if(!qbevent)break;evnt(6465);}while(r);
}
S_7540:;
if ((-(*__LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(6466);if(r)goto S_7540;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6466);}while(r);
do{
*__LONG_CTYP= 32 ;
if(!qbevent)break;evnt(6466);}while(r);
}
S_7544:;
if ((-(*__LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(6467);if(r)goto S_7544;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6467);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6467);}while(r);
}
S_7548:;
if ((-(*__LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(6468);if(r)goto S_7548;}
do{
qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6468);}while(r);
do{
*__LONG_CTYP= 64 ;
if(!qbevent)break;evnt(6468);}while(r);
}
}
S_7553:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6470);if(r)goto S_7553;}
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(6470);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6470);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6471);}while(r);
S_7558:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(6473);if(r)goto S_7558;}
do{
SUB_WRITEBUFLINE(&(pass879=*__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(6474);}while(r);
do{
SUB_WRITEBUFLINE(&(pass880=*__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(6475);}while(r);
do{
SUB_WRITEBUFLINE(&(pass881=*__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(6476);}while(r);
do{
SUB_WRITEBUFLINE(&(pass882=*__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(6477);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass883=*__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(6479);}while(r);
do{
SUB_WRITEBUFLINE(&(pass884=*__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(6480);}while(r);
do{
SUB_WRITEBUFLINE(&(pass885=*__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(6481);}while(r);
do{
SUB_WRITEBUFLINE(&(pass886=*__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(6482);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6486);}while(r);
S_7570:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6487);if(r)goto S_7570;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6487);}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(6488);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6489);}while(r);
S_7575:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6490);if(r)goto S_7575;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6490);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass887=*__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(6491);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6494);}while(r);
S_7580:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6495);if(r)goto S_7580;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6495);}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(6496);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6497);}while(r);
S_7585:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6498);if(r)goto S_7585;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6498);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass888=*__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(6499);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6502);}while(r);
S_7590:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6503);if(r)goto S_7590;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6503);}while(r);
}
S_7593:;
if ((-(*__LONG_STEPUSED== 1 ))||is_error_pending()){
if(qbevent){evnt(6504);if(r)goto S_7593;}
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(6504);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6505);}while(r);
S_7597:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6506);if(r)goto S_7597;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6506);}while(r);
}
S_7600:;
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(6508);if(r)goto S_7600;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass889= 0 ));
if(!qbevent)break;evnt(6509);}while(r);
do{
SUB_WRITEBUFLINE(&(pass890=*__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(6510);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass891=*__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(6513);}while(r);
do{
SUB_WRITEBUFLINE(&(pass892=*__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(6514);}while(r);
do{
SUB_WRITEBUFLINE(&(pass893=*__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(6516);}while(r);
do{
SUB_WRITEBUFLINE(&(pass894=*__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(6517);}while(r);
do{
SUB_WRITEBUFLINE(&(pass895=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(1){",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6518);}while(r);
do{
*__LONG_TYPBAK=*__LONG_TYP;
if(!qbevent)break;evnt(6519);}while(r);
do{
SUB_WRITEBUFLINE(&(pass896=*__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,&(pass897= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6520);}while(r);
S_7611:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6521);if(r)goto S_7611;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6521);}while(r);
}
do{
*__LONG_TYP=*__LONG_TYPBAK;
if(!qbevent)break;evnt(6522);}while(r);
do{
SUB_WRITEBUFLINE(&(pass898=*__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(6523);}while(r);
do{
SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass899= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6524);}while(r);
S_7617:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6525);if(r)goto S_7617;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6525);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass900=*__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(6526);}while(r);
do{
SUB_WRITEBUFLINE(&(pass901=*__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(6527);}while(r);
do{
SUB_WRITEBUFLINE(&(pass902=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6528);}while(r);
do{
SUB_WRITEBUFLINE(&(pass903=*__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(6529);}while(r);
do{
SUB_WRITEBUFLINE(&(pass904=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6530);}while(r);
do{
SUB_WRITEBUFLINE(&(pass905=*__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(6531);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6533);}while(r);
S_7627:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6533);if(r)goto S_7627;}
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(6533);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6533);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6535);}while(r);
}
}
S_7635:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6540);if(r)goto S_7635;}
S_7636:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||is_error_pending()){
if(qbevent){evnt(6541);if(r)goto S_7636;}
do{
qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6550);}while(r);
S_7638:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||is_error_pending()){
if(qbevent){evnt(6551);if(r)goto S_7638;}
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(6552);}while(r);
dl_continue_907:;
}
dl_exit_907:;
do{
*__LONG_GOODELSE= 0 ;
if(!qbevent)break;evnt(6554);}while(r);
S_7642:;
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(6555);if(r)goto S_7642;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6555);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6555);}while(r);
}
S_7646:;
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(6556);if(r)goto S_7646;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6556);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6556);}while(r);
}
S_7650:;
do{
if(qbevent){evnt(6557);if(r)goto S_7650;}
do{
*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6558);}while(r);
S_7652:;
if ((*__LONG_SPACELOCATION)||is_error_pending()){
if(qbevent){evnt(6559);if(r)goto S_7652;}
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(6559);}while(r);
}
S_7655:;
dl_continue_908:;
}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!is_error_pending()));
dl_exit_908:;
if(qbevent){evnt(6560);if(r)goto S_7655;}
S_7656:;
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(6561);if(r)goto S_7656;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6561);}while(r);
do{
goto LABEL_SKIPELSECHECK;
if(!qbevent)break;evnt(6561);}while(r);
}
do{
*__LONG_COUNT= 0 ;
if(!qbevent)break;evnt(6562);}while(r);
S_7661:;
do{
if(qbevent){evnt(6563);if(r)goto S_7661;}
do{
*__LONG_COUNT=*__LONG_COUNT+ 1 ;
if(!qbevent)break;evnt(6564);}while(r);
S_7663:;
qbs_set(sc_910,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(6565);if(r)goto S_7663;}
S_7664:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_910,qbs_new_txt_len("1",1))||qbs_equal(sc_910,qbs_new_txt_len("2",1))||qbs_equal(sc_910,qbs_new_txt_len("3",1))||qbs_equal(sc_910,qbs_new_txt_len("4",1))||qbs_equal(sc_910,qbs_new_txt_len("5",1))||qbs_equal(sc_910,qbs_new_txt_len("6",1))||qbs_equal(sc_910,qbs_new_txt_len("7",1))||qbs_equal(sc_910,qbs_new_txt_len("8",1))||qbs_equal(sc_910,qbs_new_txt_len("9",1))||qbs_equal(sc_910,qbs_new_txt_len("0",1))||qbs_equal(sc_910,qbs_new_txt_len(":",1))))||is_error_pending()){
if(qbevent){evnt(6566);if(r)goto S_7664;}
sc_ec_35_end:;
goto sc_910_end;
}
do{
goto dl_exit_909;
if(!qbevent)break;evnt(6567);}while(r);
sc_910_end:;
S_7668:;
dl_continue_909:;
}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!is_error_pending()));
dl_exit_909:;
if(qbevent){evnt(6569);if(r)goto S_7668;}
S_7669:;
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(6570);if(r)goto S_7669;}
do{
*__LONG_GOODELSE= -1 ;
if(!qbevent)break;evnt(6570);}while(r);
}
S_7672:;
if ((~(*__LONG_GOODELSE))||is_error_pending()){
if(qbevent){evnt(6571);if(r)goto S_7672;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6571);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6571);}while(r);
}
LABEL_SKIPELSECHECK:;
if(qbevent){evnt(6572);r=0;}
S_7676:;
fornext_value913=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue913= 1 ;
fornext_step913= -1 ;
if (fornext_step913<0) fornext_step_negative913=1; else fornext_step_negative913=0;
if (is_error_pending()) goto fornext_error913;
goto fornext_entrylabel913;
while(1){
fornext_value913=fornext_step913+(*__LONG_I);
fornext_entrylabel913:
*__LONG_I=fornext_value913;
if (fornext_step_negative913){
if (fornext_value913<fornext_finalvalue913) break;
}else{
if (fornext_value913>fornext_finalvalue913) break;
}
fornext_error913:;
if(qbevent){evnt(6574);if(r)goto S_7676;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6575);}while(r);
S_7678:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6576);if(r)goto S_7678;}
S_7679:;
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(6577);if(r)goto S_7679;}
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(6577);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6577);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass914=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6578);}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(6579);}while(r);
S_7685:;
if ((-(*__LONG_LINEELSEUSED== 0 ))||is_error_pending()){
if(qbevent){evnt(6580);if(r)goto S_7685;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6580);}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(6581);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6582);}while(r);
S_7690:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6582);if(r)goto S_7690;}
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(6582);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6582);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6583);}while(r);
}
fornext_continue_912:;
}
fornext_exit_912:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6586);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6586);}while(r);
}
}
S_7702:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6590);if(r)goto S_7702;}
S_7703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||is_error_pending()){
if(qbevent){evnt(6591);if(r)goto S_7703;}
S_7704:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6592);if(r)goto S_7704;}
do{
SUB_WRITEBUFLINE(&(pass916=*__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(6593);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6593);}while(r);
S_7707:;
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(6594);if(r)goto S_7707;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass917= 0 ));
if(!qbevent)break;evnt(6595);}while(r);
do{
SUB_WRITEBUFLINE(&(pass918=*__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(6596);}while(r);
}
}
S_7712:;
fornext_value920=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue920= 1 ;
fornext_step920= -1 ;
if (fornext_step920<0) fornext_step_negative920=1; else fornext_step_negative920=0;
if (is_error_pending()) goto fornext_error920;
goto fornext_entrylabel920;
while(1){
fornext_value920=fornext_step920+(*__LONG_I);
fornext_entrylabel920:
*__LONG_I=fornext_value920;
if (fornext_step_negative920){
if (fornext_value920<fornext_finalvalue920) break;
}else{
if (fornext_value920>fornext_finalvalue920) break;
}
fornext_error920:;
if(qbevent){evnt(6599);if(r)goto S_7712;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(6600);}while(r);
S_7714:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6601);if(r)goto S_7714;}
S_7715:;
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(6602);if(r)goto S_7715;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6602);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6602);}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(6603);}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(6604);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6605);}while(r);
S_7722:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6606);if(r)goto S_7722;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6606);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6606);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass921=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6607);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass922= 2 ),&(pass923=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6608);}while(r);
S_7728:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6609);if(r)goto S_7728;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6609);}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(6610);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6611);}while(r);
S_7733:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6611);if(r)goto S_7733;}
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(6611);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6611);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6612);}while(r);
S_7739:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6613);if(r)goto S_7739;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6613);}while(r);
}
S_7742:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6614);if(r)goto S_7742;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass925= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6614);}while(r);
}
S_7745:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6615);if(r)goto S_7745;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6615);}while(r);
}
S_7748:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6616);if(r)goto S_7748;}
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(6617);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6617);}while(r);
}
S_7752:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6619);if(r)goto S_7752;}
do{
SUB_WRITEBUFLINE(&(pass926=*__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(6620);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass927=*__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(6622);}while(r);
}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6624);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6625);}while(r);
}
fornext_continue_919:;
}
fornext_exit_919:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6628);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6628);}while(r);
}
}
S_7765:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(6632);if(r)goto S_7765;}
S_7766:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||is_error_pending()){
if(qbevent){evnt(6633);if(r)goto S_7766;}
S_7767:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6634);if(r)goto S_7767;}
do{
SUB_WRITEBUFLINE(&(pass928=*__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(6635);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6635);}while(r);
S_7770:;
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(6636);if(r)goto S_7770;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass929= 0 ));
if(!qbevent)break;evnt(6637);}while(r);
do{
SUB_WRITEBUFLINE(&(pass930=*__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(6638);}while(r);
}
}
S_7775:;
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(6643);if(r)goto S_7775;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6644);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6644);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6647);}while(r);
do{
*__LONG_IFTYPE= 0 ;
if(!qbevent)break;evnt(6648);}while(r);
S_7781:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||is_error_pending()){
if(qbevent){evnt(6649);if(r)goto S_7781;}
do{
*__LONG_IFTYPE= 1 ;
if(!qbevent)break;evnt(6649);}while(r);
}
S_7784:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(6650);if(r)goto S_7784;}
do{
*__LONG_IFTYPE= 2 ;
if(!qbevent)break;evnt(6650);}while(r);
}
S_7787:;
if ((-(*__LONG_IFTYPE== 0 ))||is_error_pending()){
if(qbevent){evnt(6651);if(r)goto S_7787;}
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(6651);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6651);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6653);}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(6654);}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(6655);}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(6656);}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(6657);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass931= 2 ),&(pass932=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6659);}while(r);
S_7797:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6660);if(r)goto S_7797;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6660);}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(6661);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6662);}while(r);
S_7802:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6663);if(r)goto S_7802;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6663);}while(r);
}
S_7805:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6664);if(r)goto S_7805;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass933= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6664);}while(r);
}
S_7808:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6665);if(r)goto S_7808;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6665);}while(r);
}
S_7811:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(6667);if(r)goto S_7811;}
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(6668);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6668);}while(r);
}
S_7815:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6671);if(r)goto S_7815;}
do{
SUB_WRITEBUFLINE(&(pass934=*__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(6672);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass935=*__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(6674);}while(r);
}
S_7820:;
if ((-(*__LONG_IFTYPE== 1 ))||is_error_pending()){
if(qbevent){evnt(6677);if(r)goto S_7820;}
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(6677);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6678);}while(r);
S_7824:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6678);if(r)goto S_7824;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6678);}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(6678);}while(r);
}
S_7829:;
if ((-(*__LONG_IFTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(6680);if(r)goto S_7829;}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6681);}while(r);
}
do{
*__LONG_THENGOTO= 1 ;
if(!qbevent)break;evnt(6684);}while(r);
do{
goto LABEL_FINISHEDLINE2;
if(!qbevent)break;evnt(6685);}while(r);
}
}
S_7836:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass937= 1 )),qbs_new_txt_len("ENDIF",5)))))||is_error_pending()){
if(qbevent){evnt(6690);if(r)goto S_7836;}
S_7837:;
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(6691);if(r)goto S_7837;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6691);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6691);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6692);}while(r);
S_7842:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6693);if(r)goto S_7842;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6694);}while(r);
S_7844:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6695);if(r)goto S_7844;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6695);}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(6695);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass939=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6698);}while(r);
S_7851:;
fornext_value941= 1 ;
fornext_finalvalue941=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step941= 1 ;
if (fornext_step941<0) fornext_step_negative941=1; else fornext_step_negative941=0;
if (is_error_pending()) goto fornext_error941;
goto fornext_entrylabel941;
while(1){
fornext_value941=fornext_step941+(*__LONG_I);
fornext_entrylabel941:
*__LONG_I=fornext_value941;
if (fornext_step_negative941){
if (fornext_value941<fornext_finalvalue941) break;
}else{
if (fornext_value941>fornext_finalvalue941) break;
}
fornext_error941:;
if(qbevent){evnt(6699);if(r)goto S_7851;}
do{
SUB_WRITEBUFLINE(&(pass942=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6700);}while(r);
fornext_continue_940:;
}
fornext_exit_940:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6702);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6703);}while(r);
}
S_7857:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6708);if(r)goto S_7857;}
S_7858:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass943= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass944= 2 )),qbs_new_txt_len("IF",2)))))||is_error_pending()){
if(qbevent){evnt(6709);if(r)goto S_7858;}
S_7859:;
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(6712);if(r)goto S_7859;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6712);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6712);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6713);}while(r);
S_7864:;
if ((-(*__LONG_IMPLIEDENDIF== 0 ))||is_error_pending()){
if(qbevent){evnt(6714);if(r)goto S_7864;}
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(6715);}while(r);
S_7866:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(6716);if(r)goto S_7866;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6716);}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(6716);}while(r);
}
}
S_7872:;
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(6719);if(r)goto S_7872;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass946= 0 ));
if(!qbevent)break;evnt(6720);}while(r);
do{
SUB_WRITEBUFLINE(&(pass947=*__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(6721);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass948=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6724);}while(r);
S_7877:;
fornext_value950= 1 ;
fornext_finalvalue950=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])];
fornext_step950= 1 ;
if (fornext_step950<0) fornext_step_negative950=1; else fornext_step_negative950=0;
if (is_error_pending()) goto fornext_error950;
goto fornext_entrylabel950;
while(1){
fornext_value950=fornext_step950+(*__LONG_I);
fornext_entrylabel950:
*__LONG_I=fornext_value950;
if (fornext_step_negative950){
if (fornext_value950<fornext_finalvalue950) break;
}else{
if (fornext_value950>fornext_finalvalue950) break;
}
fornext_error950:;
if(qbevent){evnt(6725);if(r)goto S_7877;}
do{
SUB_WRITEBUFLINE(&(pass951=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6726);}while(r);
fornext_continue_949:;
}
fornext_exit_949:;
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6728);}while(r);
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6729);}while(r);
}
}
S_7884:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6736);if(r)goto S_7884;}
S_7885:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(6737);if(r)goto S_7885;}
S_7886:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6738);if(r)goto S_7886;}
do{
SUB_WRITEBUFLINE(&(pass952=*__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(6739);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6739);}while(r);
S_7889:;
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(6740);if(r)goto S_7889;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass953= 0 ));
if(!qbevent)break;evnt(6741);}while(r);
do{
SUB_WRITEBUFLINE(&(pass954=*__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(6742);}while(r);
}
}
S_7894:;
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(6747);if(r)goto S_7894;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6748);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6748);}while(r);
}
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ;
if(!qbevent)break;evnt(6751);}while(r);
S_7899:;
if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6752);if(r)goto S_7899;}
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(6752);}while(r);
}
S_7902:;
if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||is_error_pending()){
if(qbevent){evnt(6753);if(r)goto S_7902;}
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(6753);}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(6754);}while(r);
S_7906:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||is_error_pending()){
if(qbevent){evnt(6755);if(r)goto S_7906;}
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(6756);}while(r);
S_7908:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6757);if(r)goto S_7908;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6757);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6757);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass955= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6758);}while(r);
S_7913:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6759);if(r)goto S_7913;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6759);}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(6760);}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(6762);}while(r);
S_7919:;
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(6763);if(r)goto S_7919;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6763);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6763);}while(r);
}
S_7923:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6764);if(r)goto S_7923;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6764);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6764);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass956= 3 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6765);}while(r);
S_7928:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6766);if(r)goto S_7928;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6766);}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(6767);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6770);}while(r);
S_7934:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6770);if(r)goto S_7934;}
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(6770);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6770);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6771);}while(r);
S_7940:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6772);if(r)goto S_7940;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6772);}while(r);
}
do{
*__LONG_U=FUNC_UNIQUENUMBER();
if(!qbevent)break;evnt(6773);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6775);}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(6776);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6778);}while(r);
S_7947:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(6779);if(r)goto S_7947;}
do{
*__LONG_T= 0 ;
if(!qbevent)break;evnt(6780);}while(r);
S_7949:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6781);if(r)goto S_7949;}
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(6782);}while(r);
}else{
S_7952:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6784);if(r)goto S_7952;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass958= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6784);}while(r);
}
S_7955:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6785);if(r)goto S_7955;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6785);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass959=*__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(6786);}while(r);
do{
SUB_WRITEBUFLINE(&(pass960=*__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(6787);}while(r);
S_7960:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6788);if(r)goto S_7960;}
do{
SUB_WRITEBUFLINE(&(pass961=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6788);}while(r);
}
}
}else{
S_7965:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(6793);if(r)goto S_7965;}
S_7966:;
if ((-((*__LONG_TYP& 4095ll )> 64 ))||is_error_pending()){
if(qbevent){evnt(6795);if(r)goto S_7966;}
do{
*__LONG_T= 3 ;
if(!qbevent)break;evnt(6795);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("long double",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6795);}while(r);
}
S_7970:;
if ((-((*__LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(6796);if(r)goto S_7970;}
do{
*__LONG_T= 4 ;
if(!qbevent)break;evnt(6796);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("float",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6796);}while(r);
}
S_7974:;
if ((-((*__LONG_TYP& 4095ll )== 64 ))||is_error_pending()){
if(qbevent){evnt(6797);if(r)goto S_7974;}
do{
*__LONG_T= 5 ;
if(!qbevent)break;evnt(6797);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("double",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6797);}while(r);
}
S_7978:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6798);if(r)goto S_7978;}
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(6799);}while(r);
}else{
S_7981:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6801);if(r)goto S_7981;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass962= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6801);}while(r);
}
S_7984:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6802);if(r)goto S_7984;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6802);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass963=*__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(6804);}while(r);
do{
SUB_WRITEBUFLINE(&(pass964=*__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(6805);}while(r);
S_7989:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6806);if(r)goto S_7989;}
do{
SUB_WRITEBUFLINE(&(pass965=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6806);}while(r);
}
}
}else{
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6812);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6812);}while(r);
S_7996:;
if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(6813);if(r)goto S_7996;}
S_7997:;
if ((-((*__LONG_TYP& 4095ll )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6814);if(r)goto S_7997;}
do{
*__LONG_T= 7 ;
if(!qbevent)break;evnt(6814);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint32",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6814);}while(r);
}
S_8001:;
if ((-((*__LONG_TYP& 4095ll )> 32 ))||is_error_pending()){
if(qbevent){evnt(6815);if(r)goto S_8001;}
do{
*__LONG_T= 2 ;
if(!qbevent)break;evnt(6815);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("uint64",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6815);}while(r);
}
}else{
S_8006:;
if ((-((*__LONG_TYP& 4095ll )<= 32 ))||is_error_pending()){
if(qbevent){evnt(6817);if(r)goto S_8006;}
do{
*__LONG_T= 6 ;
if(!qbevent)break;evnt(6817);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6817);}while(r);
}
S_8010:;
if ((-((*__LONG_TYP& 4095ll )> 32 ))||is_error_pending()){
if(qbevent){evnt(6818);if(r)goto S_8010;}
do{
*__LONG_T= 1 ;
if(!qbevent)break;evnt(6818);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6818);}while(r);
}
}
S_8015:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(6820);if(r)goto S_8015;}
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(6821);}while(r);
}else{
S_8018:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(6823);if(r)goto S_8018;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass966= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6823);}while(r);
}
S_8021:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6824);if(r)goto S_8021;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6824);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass967=*__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(6825);}while(r);
do{
SUB_WRITEBUFLINE(&(pass968=*__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(6826);}while(r);
S_8026:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(6827);if(r)goto S_8026;}
do{
SUB_WRITEBUFLINE(&(pass969=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6827);}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(6835);}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(6836);}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(6837);}while(r);
S_8035:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6838);if(r)goto S_8035;}
do{
SUB_WRITEBUFLINE(&(pass970=*__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(6838);}while(r);
}
S_8038:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6839);if(r)goto S_8038;}
do{
SUB_WRITEBUFLINE(&(pass971=*__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(6839);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(6840);}while(r);
}
}
S_8044:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6846);if(r)goto S_8044;}
S_8045:;
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(6847);if(r)goto S_8045;}
S_8046:;
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(6851);if(r)goto S_8046;}
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6852);}while(r);
do{
SUB_WRITEBUFLINE(&(pass972=*__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(6853);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6854);}while(r);
S_8050:;
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(6855);if(r)goto S_8050;}
do{
SUB_WRITEBUFLINE(&(pass973=*__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(6855);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass974=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6856);}while(r);
}
S_8055:;
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(6858);if(r)goto S_8055;}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6859);}while(r);
S_8057:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6860);if(r)goto S_8057;}
do{
SUB_WRITEBUFLINE(&(pass975=*__LONG_MAINTXTBUF),qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6860);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass976=*__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(6863);}while(r);
S_8062:;
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(6864);if(r)goto S_8062;}
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(6864);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6864);}while(r);
}
S_8066:;
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(6866);if(r)goto S_8066;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass977= 0 ));
if(!qbevent)break;evnt(6867);}while(r);
do{
SUB_WRITEBUFLINE(&(pass978=*__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(6868);}while(r);
}
S_8070:;
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(6871);if(r)goto S_8070;}
S_8071:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(6873);if(r)goto S_8071;}
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(6874);}while(r);
}
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6878);}while(r);
do{
*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ;
if(!qbevent)break;evnt(6879);}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(6880);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6881);}while(r);
S_8079:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6881);if(r)goto S_8079;}
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(6881);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6881);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6882);}while(r);
}
}
S_8087:;
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(6887);if(r)goto S_8087;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6888);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6888);}while(r);
}
S_8091:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(6893);if(r)goto S_8091;}
S_8092:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(6894);if(r)goto S_8092;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6896);}while(r);
S_8094:;
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(6900);if(r)goto S_8094;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6900);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6900);}while(r);
}
S_8098:;
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(6901);if(r)goto S_8098;}
do{
*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6902);}while(r);
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ;
if(!qbevent)break;evnt(6903);}while(r);
do{
*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ;
if(!qbevent)break;evnt(6904);}while(r);
do{
SUB_WRITEBUFLINE(&(pass980=*__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(6905);}while(r);
S_8103:;
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(6906);if(r)goto S_8103;}
do{
SUB_WRITEBUFLINE(&(pass981=*__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(6907);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass982=*__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(6909);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass983=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6911);}while(r);
}
S_8110:;
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(6917);if(r)goto S_8110;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6917);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6917);}while(r);
}
S_8114:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(6918);if(r)goto S_8114;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24));
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{
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(6919);}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(6952);}while(r);
do{
*__LONG_FLT= 0 ;
if(!qbevent)break;evnt(6954);}while(r);
S_8121:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(6955);if(r)goto S_8121;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6955);}while(r);
}
S_8124:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(6956);if(r)goto S_8124;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6956);}while(r);
}
S_8127:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(6957);if(r)goto S_8127;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6957);}while(r);
}
S_8130:;
if ((-(*__LONG_T== 3 ))||is_error_pending()){
if(qbevent){evnt(6958);if(r)goto S_8130;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6958);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6958);}while(r);
}
S_8134:;
if ((-(*__LONG_T== 4 ))||is_error_pending()){
if(qbevent){evnt(6959);if(r)goto S_8134;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6959);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6959);}while(r);
}
S_8138:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(6960);if(r)goto S_8138;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6960);}while(r);
do{
*__LONG_FLT= 1 ;
if(!qbevent)break;evnt(6960);}while(r);
}
S_8142:;
if ((-(*__LONG_T== 6 ))||is_error_pending()){
if(qbevent){evnt(6961);if(r)goto S_8142;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6961);}while(r);
}
S_8145:;
if ((-(*__LONG_T== 7 ))||is_error_pending()){
if(qbevent){evnt(6962);if(r)goto S_8145;}
do{
qbs_set(__STRING_TC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6962);}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(6964);}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(6965);}while(r);
S_8150:;
if ((*__LONG_CV)||is_error_pending()){
if(qbevent){evnt(6966);if(r)goto S_8150;}
do{
qbs_set(__STRING_N,FUNC_REFER(qbs__tostr((int32)(*__LONG_CV),NULL,0),&(pass984= 0 ),&(pass985= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6967);}while(r);
S_8152:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(6968);if(r)goto S_8152;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(6968);}while(r);
}
}
S_8156:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(6972);if(r)goto S_8156;}
S_8157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass986= 2 )),qbs_new_txt_len("C-EL",4))))||is_error_pending()){
if(qbevent){evnt(6973);if(r)goto S_8157;}
S_8158:;
if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||is_error_pending()){
if(qbevent){evnt(6974);if(r)goto S_8158;}
do{
SUB_WRITEBUFLINE(&(pass987=*__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(6974);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(6975);}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(6975);}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(6976);}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(6977);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(6978);}while(r);
S_8166:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(6978);if(r)goto S_8166;}
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(6978);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6978);}while(r);
}
do{
goto LABEL_FINISHEDNONEXEC;
if(!qbevent)break;evnt(6979);}while(r);
}
}
S_8174:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(6983);if(r)goto S_8174;}
do{
SUB_WRITEBUFLINE(&(pass989=*__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(6984);}while(r);
do{
*__LONG_DYNSCOPE= 1 ;
if(!qbevent)break;evnt(6984);}while(r);
S_8177:;
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(6985);if(r)goto S_8177;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass990= 0 ));
if(!qbevent)break;evnt(6986);}while(r);
do{
SUB_WRITEBUFLINE(&(pass991=*__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(6987);}while(r);
}
}
do{
qbs_set(__STRING_F12,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6993);}while(r);
do{
*__LONG_NEXP= 0 ;
if(!qbevent)break;evnt(6995);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(6996);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6997);}while(r);
S_8186:;
fornext_value993= 2 ;
fornext_finalvalue993=*__LONG_N;
fornext_step993= 1 ;
if (fornext_step993<0) fornext_step_negative993=1; else fornext_step_negative993=0;
if (is_error_pending()) goto fornext_error993;
goto fornext_entrylabel993;
while(1){
fornext_value993=fornext_step993+(*__LONG_I);
fornext_entrylabel993:
*__LONG_I=fornext_value993;
if (fornext_step_negative993){
if (fornext_value993<fornext_finalvalue993) break;
}else{
if (fornext_value993>fornext_finalvalue993) break;
}
fornext_error993:;
if(qbevent){evnt(6998);if(r)goto S_8186;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(6999);}while(r);
S_8188:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7000);if(r)goto S_8188;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7000);}while(r);
}
S_8191:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7001);if(r)goto S_8191;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7001);}while(r);
}
S_8194:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7002);if(r)goto S_8194;}
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(7002);}while(r);
}
S_8197:;
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(7003);if(r)goto S_8197;}
S_8198:;
if ((-(*__LONG_NEXP!= 0 ))||is_error_pending()){
if(qbevent){evnt(7004);if(r)goto S_8198;}
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(7004);}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(7004);}while(r);
}
S_8202:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7005);if(r)goto S_8202;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7005);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7005);}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(7006);}while(r);
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7011);}while(r);
do{
*__LONG_B2= 0 ;
if(!qbevent)break;evnt(7012);}while(r);
do{
qbs_set(__STRING_EL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7013);}while(r);
do{
qbs_set(__STRING_ER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7013);}while(r);
do{
*__LONG_USEDTO= 0 ;
if(!qbevent)break;evnt(7014);}while(r);
S_8212:;
fornext_value996= 1 ;
fornext_finalvalue996=*__LONG_N2;
fornext_step996= 1 ;
if (fornext_step996<0) fornext_step_negative996=1; else fornext_step_negative996=0;
if (is_error_pending()) goto fornext_error996;
goto fornext_entrylabel996;
while(1){
fornext_value996=fornext_step996+(*__LONG_I2);
fornext_entrylabel996:
*__LONG_I2=fornext_value996;
if (fornext_step_negative996){
if (fornext_value996<fornext_finalvalue996) break;
}else{
if (fornext_value996>fornext_finalvalue996) break;
}
fornext_error996:;
if(qbevent){evnt(7015);if(r)goto S_8212;}
do{
qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7016);}while(r);
S_8214:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7017);if(r)goto S_8214;}
do{
*__LONG_B2=*__LONG_B2+ 1 ;
if(!qbevent)break;evnt(7017);}while(r);
}
S_8217:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7018);if(r)goto S_8217;}
do{
*__LONG_B2=*__LONG_B2- 1 ;
if(!qbevent)break;evnt(7018);}while(r);
}
S_8220:;
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(7019);if(r)goto S_8220;}
do{
*__LONG_USEDTO= 1 ;
if(!qbevent)break;evnt(7020);}while(r);
}else{
S_8223:;
if ((-(*__LONG_USEDTO== 0 ))||is_error_pending()){
if(qbevent){evnt(7022);if(r)goto S_8223;}
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(7022);}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(7022);}while(r);
}
}
fornext_continue_995:;
}
fornext_exit_995:;
S_8230:;
if ((-(*__LONG_USEDTO== 1 ))||is_error_pending()){
if(qbevent){evnt(7025);if(r)goto S_8230;}
S_8231:;
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(7026);if(r)goto S_8231;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7026);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7026);}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(7027);}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(7027);}while(r);
S_8237:;
fornext_value1000= 1 ;
fornext_finalvalue1000= 2 ;
fornext_step1000= 1 ;
if (fornext_step1000<0) fornext_step_negative1000=1; else fornext_step_negative1000=0;
if (is_error_pending()) goto fornext_error1000;
goto fornext_entrylabel1000;
while(1){
fornext_value1000=fornext_step1000+(*__LONG_I2);
fornext_entrylabel1000:
*__LONG_I2=fornext_value1000;
if (fornext_step_negative1000){
if (fornext_value1000<fornext_finalvalue1000) break;
}else{
if (fornext_value1000>fornext_finalvalue1000) break;
}
fornext_error1000:;
if(qbevent){evnt(7029);if(r)goto S_8237;}
S_8238:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(7030);if(r)goto S_8238;}
do{
qbs_set(__STRING_E,__STRING_EL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7030);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_ER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7030);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7031);}while(r);
S_8244:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7032);if(r)goto S_8244;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7032);}while(r);
}
S_8247:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(7033);if(r)goto S_8247;}
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(7033);}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(7033);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7034);}while(r);
S_8253:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7035);if(r)goto S_8253;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7035);}while(r);
}
S_8256:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(7036);if(r)goto S_8256;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1001= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7036);}while(r);
}
S_8259:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7037);if(r)goto S_8259;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7037);}while(r);
}
S_8262:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(7038);if(r)goto S_8262;}
S_8263:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(7039);if(r)goto S_8263;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7039);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7039);}while(r);
}
S_8267:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(7040);if(r)goto S_8267;}
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(7040);}while(r);
}
S_8270:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(7041);if(r)goto S_8270;}
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(7041);}while(r);
}
}else{
S_8274:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(7043);if(r)goto S_8274;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7043);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7043);}while(r);
}
S_8278:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(7045);if(r)goto S_8278;}
S_8279:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(7046);if(r)goto S_8279;}
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(7046);}while(r);
}
S_8282:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(7047);if(r)goto S_8282;}
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(7047);}while(r);
}
S_8285:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(7048);if(r)goto S_8285;}
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(7048);}while(r);
}
}
S_8289:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(7051);if(r)goto S_8289;}
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(7051);}while(r);
}
S_8292:;
if ((-(*__LONG_I2== 1 ))||is_error_pending()){
if(qbevent){evnt(7052);if(r)goto S_8292;}
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(7052);}while(r);
}
S_8295:;
if ((-(*__LONG_I2== 2 ))||is_error_pending()){
if(qbevent){evnt(7053);if(r)goto S_8295;}
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(7053);}while(r);
}
}
fornext_continue_999:;
}
fornext_exit_999:;
do{
goto LABEL_ADDEDEXP;
if(!qbevent)break;evnt(7056);}while(r);
}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7078);}while(r);
do{
qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass1003= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7081);}while(r);
S_8304:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||is_error_pending()){
if(qbevent){evnt(7082);if(r)goto S_8304;}
S_8305:;
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(7083);if(r)goto S_8305;}
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(7084);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("IS",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7085);}while(r);
}
}
S_8310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||is_error_pending()){
if(qbevent){evnt(7088);if(r)goto S_8310;}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7089);}while(r);
S_8312:;
if ((-(*__LONG_N2< 3 ))||is_error_pending()){
if(qbevent){evnt(7090);if(r)goto S_8312;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7090);}while(r);
}
do{
qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass1004= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7091);}while(r);
do{
qbs_set(__STRING_O2,__STRING_O);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7092);}while(r);
do{
*__LONG_O= 0 ;
if(!qbevent)break;evnt(7093);}while(r);
S_8319:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(7094);if(r)goto S_8319;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("==",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7094);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7094);}while(r);
}
S_8323:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||is_error_pending()){
if(qbevent){evnt(7095);if(r)goto S_8323;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("!=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7095);}while(r);
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7095);}while(r);
}
S_8327:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(7096);if(r)goto S_8327;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7096);}while(r);
}
S_8330:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(7097);if(r)goto S_8330;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7097);}while(r);
}
S_8333:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(7098);if(r)goto S_8333;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7098);}while(r);
}
S_8336:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(7099);if(r)goto S_8336;}
do{
*__LONG_O= 1 ;
if(!qbevent)break;evnt(7099);}while(r);
}
S_8339:;
if ((-(*__LONG_O!= 1 ))||is_error_pending()){
if(qbevent){evnt(7100);if(r)goto S_8339;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7100);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7100);}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(7101);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass1005= 3 ),__LONG_N2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7102);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7107);}while(r);
S_8347:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7108);if(r)goto S_8347;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7108);}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(7109);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7110);}while(r);
S_8352:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7111);if(r)goto S_8352;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7111);}while(r);
}
S_8355:;
if (((*__LONG_TYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(7112);if(r)goto S_8355;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1006= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7112);}while(r);
}
S_8358:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7113);if(r)goto S_8358;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7113);}while(r);
}
S_8361:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(7114);if(r)goto S_8361;}
S_8362:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(7116);if(r)goto S_8362;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7116);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7116);}while(r);
}
S_8366:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||is_error_pending()){
if(qbevent){evnt(7117);if(r)goto S_8366;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7117);}while(r);
}
S_8369:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||is_error_pending()){
if(qbevent){evnt(7118);if(r)goto S_8369;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7118);}while(r);
}
S_8372:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||is_error_pending()){
if(qbevent){evnt(7119);if(r)goto S_8372;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7119);}while(r);
}
S_8375:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||is_error_pending()){
if(qbevent){evnt(7120);if(r)goto S_8375;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7120);}while(r);
}
S_8378:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||is_error_pending()){
if(qbevent){evnt(7121);if(r)goto S_8378;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7121);}while(r);
}
S_8381:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||is_error_pending()){
if(qbevent){evnt(7122);if(r)goto S_8381;}
do{
qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7122);}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(7123);}while(r);
}else{
S_8386:;
if (((*__LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(7126);if(r)goto S_8386;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7126);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7126);}while(r);
}
S_8390:;
if (((*__LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(7128);if(r)goto S_8390;}
S_8391:;
if ((-(*__LONG_T== 1 ))||is_error_pending()){
if(qbevent){evnt(7129);if(r)goto S_8391;}
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(7129);}while(r);
}
S_8394:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(7130);if(r)goto S_8394;}
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(7130);}while(r);
}
S_8397:;
if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||is_error_pending()){
if(qbevent){evnt(7131);if(r)goto S_8397;}
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(7131);}while(r);
}
}
S_8401:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||is_error_pending()){
if(qbevent){evnt(7134);if(r)goto S_8401;}
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(7134);}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(7135);}while(r);
}
LABEL_ADDEDEXP:;
if(qbevent){evnt(7138);r=0;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7139);}while(r);
do{
*__LONG_NEXP=*__LONG_NEXP+ 1 ;
if(!qbevent)break;evnt(7140);}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(7142);}while(r);
}
fornext_continue_992:;
}
fornext_exit_992:;
S_8412:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(7146);if(r)goto S_8412;}
do{
SUB_WRITEBUFLINE(&(pass1008=*__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(7147);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1009=*__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(7149);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7152);}while(r);
S_8418:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7152);if(r)goto S_8418;}
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(7152);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7152);}while(r);
}
do{
*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ;
if(!qbevent)break;evnt(7153);}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(7154);}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(7155);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7156);}while(r);
}
}
S_8429:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(7173);if(r)goto S_8429;}
S_8430:;
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(7174);if(r)goto S_8430;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1011= 0 ));
if(!qbevent)break;evnt(7175);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1012=*__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(7176);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1013=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7178);}while(r);
}
}
S_8437:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(7184);if(r)goto S_8437;}
S_8438:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||is_error_pending()){
if(qbevent){evnt(7185);if(r)goto S_8438;}
S_8439:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(7186);if(r)goto S_8439;}
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(7187);}while(r);
S_8441:;
if ((-(*__LONG_N< 3 ))||is_error_pending()){
if(qbevent){evnt(7188);if(r)goto S_8441;}
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(7188);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7188);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass1014= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7190);}while(r);
S_8446:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||is_error_pending()){
if(qbevent){evnt(7191);if(r)goto S_8446;}
S_8447:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7192);if(r)goto S_8447;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7192);}while(r);
}
do{
*__LONG_Z= 1 ;
if(!qbevent)break;evnt(7193);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(7194);}while(r);
S_8452:;
if (((-((*__LONG_T& 4095ll )!= 16 ))&(-((*__LONG_T& 4095ll )!= 32 )))||is_error_pending()){
if(qbevent){evnt(7195);if(r)goto S_8452;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7195);}while(r);
}
S_8455:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(7196);if(r)goto S_8455;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7196);}while(r);
}
S_8458:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(7197);if(r)goto S_8458;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7197);}while(r);
}
S_8461:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(7198);if(r)goto S_8461;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7198);}while(r);
}
S_8464:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(7199);if(r)goto S_8464;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7199);}while(r);
}
S_8467:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7200);if(r)goto S_8467;}
do{
*__LONG_Z= 0 ;
if(!qbevent)break;evnt(7200);}while(r);
}
S_8470:;
if ((-(*__LONG_Z== 0 ))||is_error_pending()){
if(qbevent){evnt(7201);if(r)goto S_8470;}
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(7201);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7201);}while(r);
}
do{
*__LONG_BITS=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(7202);}while(r);
do{
goto LABEL_PU_GOTARRAY;
if(!qbevent)break;evnt(7203);}while(r);
}
S_8477:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7205);if(r)goto S_8477;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7205);}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(7206);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7206);}while(r);
LABEL_PU_GOTARRAY:;
if(qbevent){evnt(7207);r=0;}
S_8482:;
if ((-(*__LONG_N== 3 ))||is_error_pending()){
if(qbevent){evnt(7209);if(r)goto S_8482;}
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(7210);}while(r);
}else{
S_8485:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1015= 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(7212);if(r)goto S_8485;}
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(7212);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7212);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1016= 4 ),__LONG_N)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7213);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7215);}while(r);
S_8492:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7216);if(r)goto S_8492;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7216);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7217);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1017= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7218);}while(r);
S_8497:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7219);if(r)goto S_8497;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7219);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1018=*__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(7220);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7221);}while(r);
S_8502:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7221);if(r)goto S_8502;}
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(7221);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7221);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7222);}while(r);
}
}
}
S_8511:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||is_error_pending()){
if(qbevent){evnt(7228);if(r)goto S_8511;}
S_8512:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(7229);if(r)goto S_8512;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7229);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7229);}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(7230);}while(r);
S_8517:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||is_error_pending()){
if(qbevent){evnt(7231);if(r)goto S_8517;}
S_8518:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(7232);if(r)goto S_8518;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7232);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7232);}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(7233);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7233);}while(r);
S_8524:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7233);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(7233);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7233);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1021=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_off();",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7234);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7235);}while(r);
}
S_8532:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(7237);if(r)goto S_8532;}
S_8533:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(7238);if(r)goto S_8533;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7238);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7238);}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(7239);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7239);}while(r);
S_8539:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7239);if(r)goto S_8539;}
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(7239);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7239);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1023=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_on();",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7240);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7241);}while(r);
}
S_8547:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||is_error_pending()){
if(qbevent){evnt(7243);if(r)goto S_8547;}
S_8548:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(7244);if(r)goto S_8548;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7244);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7244);}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(7245);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7245);}while(r);
S_8554:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7245);if(r)goto S_8554;}
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(7245);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7245);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1025=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_list();",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7246);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7247);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7250);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7250);}while(r);
S_8564:;
fornext_value1027= 2 ;
fornext_finalvalue1027=*__LONG_N;
fornext_step1027= 1 ;
if (fornext_step1027<0) fornext_step_negative1027=1; else fornext_step_negative1027=0;
if (is_error_pending()) goto fornext_error1027;
goto fornext_entrylabel1027;
while(1){
fornext_value1027=fornext_step1027+(*__LONG_I);
fornext_entrylabel1027:
*__LONG_I=fornext_value1027;
if (fornext_step_negative1027){
if (fornext_value1027<fornext_finalvalue1027) break;
}else{
if (fornext_value1027>fornext_finalvalue1027) break;
}
fornext_error1027:;
if(qbevent){evnt(7251);if(r)goto S_8564;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7252);}while(r);
S_8566:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7253);if(r)goto S_8566;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7253);}while(r);
}
S_8569:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7254);if(r)goto S_8569;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7254);}while(r);
}
S_8572:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7255);if(r)goto S_8572;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7256);}while(r);
do{
goto LABEL_KEY_ASSIGNMENT;
if(!qbevent)break;evnt(7256);}while(r);
}
S_8576:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7258);if(r)goto S_8576;}
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(7258);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7258);}while(r);
}
fornext_continue_1026:;
}
fornext_exit_1026:;
do{
goto LABEL_KEY_FALLTHROUGH;
if(!qbevent)break;evnt(7261);}while(r);
LABEL_KEY_ASSIGNMENT:;
if(qbevent){evnt(7262);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7265);}while(r);
S_8584:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7266);if(r)goto S_8584;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7266);}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(7267);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1029= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7268);}while(r);
S_8589:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7269);if(r)goto S_8589;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7269);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1030=*__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(7270);}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(7272);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7273);}while(r);
S_8595:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7274);if(r)goto S_8595;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7274);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7275);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7276);}while(r);
S_8600:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7277);if(r)goto S_8600;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7277);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1031=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7278);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7279);}while(r);
S_8605:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7279);if(r)goto S_8605;}
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(7279);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7279);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7280);}while(r);
}
LABEL_KEY_FALLTHROUGH:;
if(qbevent){evnt(7282);r=0;}
S_8612:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||is_error_pending()){
if(qbevent){evnt(7287);if(r)goto S_8612;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7290);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7290);}while(r);
S_8615:;
fornext_value1034= 2 ;
fornext_finalvalue1034=*__LONG_N;
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(7291);if(r)goto S_8615;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7292);}while(r);
S_8617:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7293);if(r)goto S_8617;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7293);}while(r);
}
S_8620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7294);if(r)goto S_8620;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7294);}while(r);
}
S_8623:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(7295);if(r)goto S_8623;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7296);}while(r);
do{
goto LABEL_FIELDGOTFN;
if(!qbevent)break;evnt(7296);}while(r);
}
S_8627:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7298);if(r)goto S_8627;}
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(7298);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7298);}while(r);
}
fornext_continue_1033:;
}
fornext_exit_1033:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7300);}while(r);
LABEL_FIELDGOTFN:;
if(qbevent){evnt(7301);r=0;}
S_8634:;
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(7302);if(r)goto S_8634;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7302);}while(r);
}
S_8637:;
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(7303);if(r)goto S_8637;}
do{
qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7303);}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(7303);}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(7303);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7304);}while(r);
S_8644:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7305);if(r)goto S_8644;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7305);}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(7306);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1038= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7307);}while(r);
S_8649:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7308);if(r)goto S_8649;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7308);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1039=*__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(7309);}while(r);
LABEL_FIELDNEXT:;
if(qbevent){evnt(7311);r=0;}
S_8653:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7314);if(r)goto S_8653;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7314);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7315);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7315);}while(r);
S_8658:;
fornext_value1041=*__LONG_I;
fornext_finalvalue1041=*__LONG_N;
fornext_step1041= 1 ;
if (fornext_step1041<0) fornext_step_negative1041=1; else fornext_step_negative1041=0;
if (is_error_pending()) goto fornext_error1041;
goto fornext_entrylabel1041;
while(1){
fornext_value1041=fornext_step1041+(*__LONG_I);
fornext_entrylabel1041:
*__LONG_I=fornext_value1041;
if (fornext_step_negative1041){
if (fornext_value1041<fornext_finalvalue1041) break;
}else{
if (fornext_value1041>fornext_finalvalue1041) break;
}
fornext_error1041:;
if(qbevent){evnt(7316);if(r)goto S_8658;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7317);}while(r);
S_8660:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7318);if(r)goto S_8660;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7318);}while(r);
}
S_8663:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7319);if(r)goto S_8663;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7319);}while(r);
}
S_8666:;
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(7320);if(r)goto S_8666;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7321);}while(r);
do{
goto LABEL_FIELDGOTFW;
if(!qbevent)break;evnt(7321);}while(r);
}
S_8670:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7323);if(r)goto S_8670;}
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(7323);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7323);}while(r);
}
fornext_continue_1040:;
}
fornext_exit_1040:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7325);}while(r);
LABEL_FIELDGOTFW:;
if(qbevent){evnt(7326);r=0;}
S_8677:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7327);if(r)goto S_8677;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7327);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7328);}while(r);
S_8681:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7329);if(r)goto S_8681;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7329);}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(7330);}while(r);
do{
qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1044= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7331);}while(r);
S_8686:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7332);if(r)goto S_8686;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7332);}while(r);
}
S_8689:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7335);if(r)goto S_8689;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7335);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7336);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7336);}while(r);
S_8694:;
fornext_value1046=*__LONG_I;
fornext_finalvalue1046=*__LONG_N;
fornext_step1046= 1 ;
if (fornext_step1046<0) fornext_step_negative1046=1; else fornext_step_negative1046=0;
if (is_error_pending()) goto fornext_error1046;
goto fornext_entrylabel1046;
while(1){
fornext_value1046=fornext_step1046+(*__LONG_I);
fornext_entrylabel1046:
*__LONG_I=fornext_value1046;
if (fornext_step_negative1046){
if (fornext_value1046<fornext_finalvalue1046) break;
}else{
if (fornext_value1046>fornext_finalvalue1046) break;
}
fornext_error1046:;
if(qbevent){evnt(7337);if(r)goto S_8694;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7338);}while(r);
S_8696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7339);if(r)goto S_8696;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7339);}while(r);
}
S_8699:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(7340);if(r)goto S_8699;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7340);}while(r);
}
S_8702:;
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(7341);if(r)goto S_8702;}
S_8703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7342);if(r)goto S_8703;}
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(7342);}while(r);
}
S_8706:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7343);if(r)goto S_8706;}
S_8707:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7344);if(r)goto S_8707;}
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(7344);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7344);}while(r);
}
}
do{
goto LABEL_FIELDGOTFNAME;
if(!qbevent)break;evnt(7346);}while(r);
}
S_8715:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||is_error_pending()){
if(qbevent){evnt(7348);if(r)goto S_8715;}
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(7348);}while(r);
}else{
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7348);}while(r);
}
fornext_continue_1045:;
}
fornext_exit_1045:;
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7350);}while(r);
LABEL_FIELDGOTFNAME:;
if(qbevent){evnt(7351);r=0;}
S_8722:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7352);if(r)goto S_8722;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7352);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7354);}while(r);
S_8726:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7355);if(r)goto S_8726;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7355);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7356);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7357);}while(r);
S_8731:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7358);if(r)goto S_8731;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7358);}while(r);
}
S_8734:;
if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(7359);if(r)goto S_8734;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7359);}while(r);
}
S_8737:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(7360);if(r)goto S_8737;}
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(7360);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7360);}while(r);
}
S_8741:;
if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(7361);if(r)goto S_8741;}
do{
goto LABEL_FIELDERROR;
if(!qbevent)break;evnt(7361);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1050= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7362);}while(r);
S_8745:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7363);if(r)goto S_8745;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7363);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1051=*__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(7364);}while(r);
S_8749:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7366);if(r)goto S_8749;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7367);}while(r);
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7368);}while(r);
S_8752:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(7369);if(r)goto S_8752;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7369);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7369);}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(7370);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7371);}while(r);
do{
goto LABEL_FIELDNEXT;
if(!qbevent)break;evnt(7372);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7375);}while(r);
S_8761:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7375);if(r)goto S_8761;}
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(7375);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7375);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7376);}while(r);
LABEL_FIELDERROR:;
if(qbevent){evnt(7378);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(7378);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7378);}while(r);
}
S_8770:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(7391);if(r)goto S_8770;}
S_8771:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(7392);if(r)goto S_8771;}
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(7394);}while(r);
S_8773:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||is_error_pending()){
if(qbevent){evnt(7396);if(r)goto S_8773;}
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(7398);}while(r);
S_8775:;
fornext_value1054=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1054= 1 ;
fornext_step1054= -1 ;
if (fornext_step1054<0) fornext_step_negative1054=1; else fornext_step_negative1054=0;
if (is_error_pending()) goto fornext_error1054;
goto fornext_entrylabel1054;
while(1){
fornext_value1054=fornext_step1054+(*__LONG_I);
fornext_entrylabel1054:
*__LONG_I=fornext_value1054;
if (fornext_step_negative1054){
if (fornext_value1054<fornext_finalvalue1054) break;
}else{
if (fornext_value1054>fornext_finalvalue1054) break;
}
fornext_error1054:;
if(qbevent){evnt(7399);if(r)goto S_8775;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7400);}while(r);
S_8777:;
if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||is_error_pending()){
if(qbevent){evnt(7401);if(r)goto S_8777;}
do{
SUB_WRITEBUFLINE(&(pass1055=*__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(7402);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7403);}while(r);
S_8780:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7403);if(r)goto S_8780;}
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(7403);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7403);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7404);}while(r);
}
fornext_continue_1053:;
}
fornext_exit_1053:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7407);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7407);}while(r);
}
S_8791:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||is_error_pending()){
if(qbevent){evnt(7410);if(r)goto S_8791;}
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(7412);}while(r);
S_8793:;
fornext_value1058=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1058= 1 ;
fornext_step1058= -1 ;
if (fornext_step1058<0) fornext_step_negative1058=1; else fornext_step_negative1058=0;
if (is_error_pending()) goto fornext_error1058;
goto fornext_entrylabel1058;
while(1){
fornext_value1058=fornext_step1058+(*__LONG_I);
fornext_entrylabel1058:
*__LONG_I=fornext_value1058;
if (fornext_step_negative1058){
if (fornext_value1058<fornext_finalvalue1058) break;
}else{
if (fornext_value1058>fornext_finalvalue1058) break;
}
fornext_error1058:;
if(qbevent){evnt(7413);if(r)goto S_8793;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7414);}while(r);
S_8795:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(7415);if(r)goto S_8795;}
do{
SUB_WRITEBUFLINE(&(pass1059=*__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(7416);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7417);}while(r);
S_8798:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7417);if(r)goto S_8798;}
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(7417);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7417);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7418);}while(r);
}
fornext_continue_1057:;
}
fornext_exit_1057:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7421);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7421);}while(r);
}
S_8809:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||is_error_pending()){
if(qbevent){evnt(7424);if(r)goto S_8809;}
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(7426);}while(r);
S_8811:;
fornext_value1062=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1062= 1 ;
fornext_step1062= -1 ;
if (fornext_step1062<0) fornext_step_negative1062=1; else fornext_step_negative1062=0;
if (is_error_pending()) goto fornext_error1062;
goto fornext_entrylabel1062;
while(1){
fornext_value1062=fornext_step1062+(*__LONG_I);
fornext_entrylabel1062:
*__LONG_I=fornext_value1062;
if (fornext_step_negative1062){
if (fornext_value1062<fornext_finalvalue1062) break;
}else{
if (fornext_value1062>fornext_finalvalue1062) break;
}
fornext_error1062:;
if(qbevent){evnt(7427);if(r)goto S_8811;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7428);}while(r);
S_8813:;
if ((-(*__LONG_T== 5 ))||is_error_pending()){
if(qbevent){evnt(7429);if(r)goto S_8813;}
do{
SUB_WRITEBUFLINE(&(pass1063=*__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(7430);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7431);}while(r);
S_8816:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7431);if(r)goto S_8816;}
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(7431);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7431);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7432);}while(r);
}
fornext_continue_1061:;
}
fornext_exit_1061:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7435);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7435);}while(r);
}
S_8827:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||is_error_pending()){
if(qbevent){evnt(7438);if(r)goto S_8827;}
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(7440);}while(r);
S_8829:;
fornext_value1066=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1066= 1 ;
fornext_step1066= -1 ;
if (fornext_step1066<0) fornext_step_negative1066=1; else fornext_step_negative1066=0;
if (is_error_pending()) goto fornext_error1066;
goto fornext_entrylabel1066;
while(1){
fornext_value1066=fornext_step1066+(*__LONG_I);
fornext_entrylabel1066:
*__LONG_I=fornext_value1066;
if (fornext_step_negative1066){
if (fornext_value1066<fornext_finalvalue1066) break;
}else{
if (fornext_value1066>fornext_finalvalue1066) break;
}
fornext_error1066:;
if(qbevent){evnt(7441);if(r)goto S_8829;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7442);}while(r);
S_8831:;
if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||is_error_pending()){
if(qbevent){evnt(7443);if(r)goto S_8831;}
do{
SUB_WRITEBUFLINE(&(pass1067=*__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(7444);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7445);}while(r);
S_8834:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7445);if(r)goto S_8834;}
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(7445);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7445);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7446);}while(r);
}
fornext_continue_1065:;
}
fornext_exit_1065:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7449);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7449);}while(r);
}
S_8845:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||is_error_pending()){
if(qbevent){evnt(7452);if(r)goto S_8845;}
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(7454);}while(r);
S_8847:;
fornext_value1070=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1070= 1 ;
fornext_step1070= -1 ;
if (fornext_step1070<0) fornext_step_negative1070=1; else fornext_step_negative1070=0;
if (is_error_pending()) goto fornext_error1070;
goto fornext_entrylabel1070;
while(1){
fornext_value1070=fornext_step1070+(*__LONG_I);
fornext_entrylabel1070:
*__LONG_I=fornext_value1070;
if (fornext_step_negative1070){
if (fornext_value1070<fornext_finalvalue1070) break;
}else{
if (fornext_value1070>fornext_finalvalue1070) break;
}
fornext_error1070:;
if(qbevent){evnt(7455);if(r)goto S_8847;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(7456);}while(r);
S_8849:;
if ((-(*__LONG_T== 18 ))||is_error_pending()){
if(qbevent){evnt(7457);if(r)goto S_8849;}
do{
SUB_WRITEBUFLINE(&(pass1071=*__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(7458);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7459);}while(r);
S_8852:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7459);if(r)goto S_8852;}
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(7459);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7459);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7460);}while(r);
S_8858:;
}else{
if (-(*__LONG_T== 19 )){
if(qbevent){evnt(7461);if(r)goto S_8858;}
do{
SUB_WRITEBUFLINE(&(pass1073=*__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(7462);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7463);}while(r);
S_8861:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(7463);if(r)goto S_8861;}
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(7463);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7463);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7464);}while(r);
}
}
fornext_continue_1069:;
}
fornext_exit_1069:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7467);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7467);}while(r);
}
}
}
S_8874:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7480);if(r)goto S_8874;}
S_8875:;
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(7481);if(r)goto S_8875;}
do{
SUB_SETDEPENDENCY(&(pass1075= 10ll ));
if(!qbevent)break;evnt(7482);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7483);}while(r);
S_8878:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7484);if(r)goto S_8878;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7484);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7484);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7485);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7485);}while(r);
S_8884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7486);if(r)goto S_8884;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7486);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7486);}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(7487);}while(r);
S_8889:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7488);if(r)goto S_8889;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7488);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7489);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7490);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7491);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7492);}while(r);
S_8897:;
fornext_value1077=*__LONG_I;
fornext_finalvalue1077=*__LONG_N;
fornext_step1077= 1 ;
if (fornext_step1077<0) fornext_step_negative1077=1; else fornext_step_negative1077=0;
if (is_error_pending()) goto fornext_error1077;
goto fornext_entrylabel1077;
while(1){
fornext_value1077=fornext_step1077+(*__LONG_I);
fornext_entrylabel1077:
*__LONG_I=fornext_value1077;
if (fornext_step_negative1077){
if (fornext_value1077<fornext_finalvalue1077) break;
}else{
if (fornext_value1077>fornext_finalvalue1077) break;
}
fornext_error1077:;
if(qbevent){evnt(7493);if(r)goto S_8897;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7494);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7495);}while(r);
S_8900:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7496);if(r)goto S_8900;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7496);}while(r);
}
S_8903:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7497);if(r)goto S_8903;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7497);}while(r);
}
S_8906:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7498);if(r)goto S_8906;}
do{
goto LABEL_ONSTRIGGOTARG;
if(!qbevent)break;evnt(7498);}while(r);
}
S_8909:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7499);if(r)goto S_8909;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7500);}while(r);
S_8911:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7501);if(r)goto S_8911;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7501);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7501);}while(r);
}
S_8915:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7502);if(r)goto S_8915;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7502);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7502);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7503);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7504);}while(r);
}else{
S_8922:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7506);if(r)goto S_8922;}
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(7506);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7506);}while(r);
}
}
fornext_continue_1076:;
}
fornext_exit_1076:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7509);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7509);}while(r);
LABEL_ONSTRIGGOTARG:;
if(qbevent){evnt(7510);r=0;}
S_8931:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7511);if(r)goto S_8931;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7511);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7511);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1079=*__LONG_MAINTXTBUF),qbs_new_txt_len("onstrig_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7512);}while(r);
S_8936:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7515);if(r)goto S_8936;}
do{
qbs_set(__STRING_OPTI,__STRING_E3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7516);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7517);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7518);}while(r);
}else{
do{
qbs_set(__STRING_OPTI,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7520);}while(r);
do{
qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7521);}while(r);
do{
qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7522);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7526);}while(r);
S_8946:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7526);if(r)goto S_8946;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7526);}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(7527);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1081= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7528);}while(r);
S_8951:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7528);if(r)goto S_8951;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7528);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1082=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7529);}while(r);
S_8955:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(7532);if(r)goto S_8955;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7533);}while(r);
S_8957:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7533);if(r)goto S_8957;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7533);}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(7534);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1083= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7535);}while(r);
S_8962:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7535);if(r)goto S_8962;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7535);}while(r);
}
}else{
do{
qbs_set(__STRING_E,__STRING_OPTCONTROLLER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7537);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1084=*__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(7539);}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(7541);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7543);}while(r);
S_8971:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7544);if(r)goto S_8971;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7544);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7544);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7545);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7545);}while(r);
do{
*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ;
if(!qbevent)break;evnt(7546);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1085=*__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(7547);}while(r);
S_8979:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7549);if(r)goto S_8979;}
S_8980:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7550);if(r)goto S_8980;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7550);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7550);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7551);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7551);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1086=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7553);}while(r);
S_8987:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7555);if(r)goto S_8987;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7555);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7555);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1087= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7557);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7558);}while(r);
LABEL_LABCHK60Z:;
if(qbevent){evnt(7559);r=0;}
S_8993:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7560);if(r)goto S_8993;}
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(7561);}while(r);
S_8995:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7562);if(r)goto S_8995;}
S_8996:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7563);if(r)goto S_8996;}
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(7563);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7564);}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(7565);}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(7566);}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(7567);}while(r);
}else{
S_9004:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7569);if(r)goto S_9004;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7569);}while(r);
do{
goto LABEL_LABCHK60Z;
if(!qbevent)break;evnt(7569);}while(r);
}
}
}
S_9010:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7572);if(r)goto S_9010;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7574);}while(r);
S_9012:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7574);if(r)goto S_9012;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7574);}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(7574);}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(7575);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1088= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7576);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7577);}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(7578);}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(7579);}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(7580);}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(7581);}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(7582);}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(7584);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1089=*__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(7586);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1090=*__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(7588);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1091=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7589);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1092=*__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(7590);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1093=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7591);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1094=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7592);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1095=*__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(7593);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1096=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7594);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1097=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7595);}while(r);
S_9035:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7597);if(r)goto S_9035;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7597);}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(7597);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7598);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7599);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7604);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7605);}while(r);
S_9045:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7606);if(r)goto S_9045;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7606);}while(r);
}
S_9048:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7607);if(r)goto S_9048;}
S_9049:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7608);if(r)goto S_9049;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7608);}while(r);
do{
goto dl_exit_1099;
if(!qbevent)break;evnt(7608);}while(r);
}
S_9053:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7609);if(r)goto S_9053;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7609);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7609);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7609);}while(r);
}
S_9059:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7610);if(r)goto S_9059;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7610);}while(r);
}
dl_continue_1099:;
}
dl_exit_1099:;
S_9063:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7612);if(r)goto S_9063;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7612);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7612);}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(7614);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1100=*__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(7616);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1101=*__LONG_STRIGTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7617);}while(r);
S_9070:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7619);if(r)goto S_9070;}
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(7619);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7619);}while(r);
}
S_9074:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7621);if(r)goto S_9074;}
S_9075:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7623);if(r)goto S_9075;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7623);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7623);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1102=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7624);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1103=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7625);}while(r);
}else{
S_9082:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7629);if(r)goto S_9082;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7629);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7629);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7631);}while(r);
do{
*__LONG_B=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(7632);}while(r);
S_9088:;
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(7633);if(r)goto S_9088;}
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(7633);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7633);}while(r);
}
S_9092:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7634);if(r)goto S_9092;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7634);}while(r);
}
S_9095:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7635);if(r)goto S_9095;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7635);}while(r);
}
S_9098:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7636);if(r)goto S_9098;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7636);}while(r);
}
S_9101:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7637);if(r)goto S_9101;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7637);}while(r);
}
S_9104:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7638);if(r)goto S_9104;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7638);}while(r);
}
S_9107:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7639);if(r)goto S_9107;}
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(7639);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1104=*__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(7640);}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(7642);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7643);}while(r);
S_9113:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7644);if(r)goto S_9113;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7644);}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(7645);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1105=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7646);}while(r);
S_9118:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7647);if(r)goto S_9118;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7647);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1106=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7648);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1107=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7652);}while(r);
S_9124:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7653);if(r)goto S_9124;}
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);
}
}
}
S_9134:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7672);if(r)goto S_9134;}
S_9135:;
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(7673);if(r)goto S_9135;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7674);}while(r);
S_9137:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7675);if(r)goto S_9137;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7675);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7675);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7676);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7676);}while(r);
S_9143:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7677);if(r)goto S_9143;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7677);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7677);}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(7678);}while(r);
S_9148:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7679);if(r)goto S_9148;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7679);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7679);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7680);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7681);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7682);}while(r);
do{
qbs_set(__STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7683);}while(r);
S_9156:;
fornext_value1110=*__LONG_I;
fornext_finalvalue1110=*__LONG_N;
fornext_step1110= 1 ;
if (fornext_step1110<0) fornext_step_negative1110=1; else fornext_step_negative1110=0;
if (is_error_pending()) goto fornext_error1110;
goto fornext_entrylabel1110;
while(1){
fornext_value1110=fornext_step1110+(*__LONG_I);
fornext_entrylabel1110:
*__LONG_I=fornext_value1110;
if (fornext_step_negative1110){
if (fornext_value1110<fornext_finalvalue1110) break;
}else{
if (fornext_value1110>fornext_finalvalue1110) break;
}
fornext_error1110:;
if(qbevent){evnt(7684);if(r)goto S_9156;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7685);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7686);}while(r);
S_9159:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7687);if(r)goto S_9159;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7687);}while(r);
}
S_9162:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7688);if(r)goto S_9162;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7688);}while(r);
}
S_9165:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7689);if(r)goto S_9165;}
do{
goto LABEL_ONTIMGOTARG;
if(!qbevent)break;evnt(7689);}while(r);
}
S_9168:;
if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||is_error_pending()){
if(qbevent){evnt(7690);if(r)goto S_9168;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(7691);}while(r);
S_9170:;
if ((-(*__LONG_X> 1 ))||is_error_pending()){
if(qbevent){evnt(7692);if(r)goto S_9170;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7692);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7692);}while(r);
}
S_9174:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7693);if(r)goto S_9174;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7693);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7693);}while(r);
}
do{
qbs_set(__STRING_E3,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7694);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7695);}while(r);
}else{
S_9181:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7697);if(r)goto S_9181;}
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(7697);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7697);}while(r);
}
}
fornext_continue_1109:;
}
fornext_exit_1109:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7700);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7700);}while(r);
LABEL_ONTIMGOTARG:;
if(qbevent){evnt(7701);r=0;}
S_9190:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7702);if(r)goto S_9190;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7702);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7702);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1112=*__LONG_MAINTXTBUF),qbs_new_txt_len("ontimer_setup(",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7703);}while(r);
S_9195:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||is_error_pending()){
if(qbevent){evnt(7705);if(r)goto S_9195;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7706);}while(r);
S_9197:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7707);if(r)goto S_9197;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7707);}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(7708);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1114= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7709);}while(r);
S_9202:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7710);if(r)goto S_9202;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7710);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1115=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7711);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1116=*__LONG_MAINTXTBUF),qbs_new_txt_len("0,",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7713);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7714);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7717);}while(r);
S_9211:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7718);if(r)goto S_9211;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7718);}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(7719);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1117=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7720);}while(r);
S_9216:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7721);if(r)goto S_9216;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7721);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1118=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7722);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7723);}while(r);
S_9221:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7724);if(r)goto S_9221;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7724);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7724);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7725);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7725);}while(r);
do{
*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ;
if(!qbevent)break;evnt(7726);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1119=*__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(7727);}while(r);
S_9229:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7729);if(r)goto S_9229;}
S_9230:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7730);if(r)goto S_9230;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7730);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7730);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7731);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7731);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1120=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7733);}while(r);
S_9237:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7735);if(r)goto S_9237;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7735);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7735);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1121= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7737);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7738);}while(r);
LABEL_LABCHK60:;
if(qbevent){evnt(7739);r=0;}
S_9243:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7740);if(r)goto S_9243;}
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(7741);}while(r);
S_9245:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7742);if(r)goto S_9245;}
S_9246:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7743);if(r)goto S_9246;}
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(7743);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7744);}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(7745);}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(7746);}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(7747);}while(r);
}else{
S_9254:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7749);if(r)goto S_9254;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7749);}while(r);
do{
goto LABEL_LABCHK60;
if(!qbevent)break;evnt(7749);}while(r);
}
}
}
S_9260:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7752);if(r)goto S_9260;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7754);}while(r);
S_9262:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7754);if(r)goto S_9262;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7754);}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(7754);}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(7755);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1122= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7756);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7757);}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(7758);}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(7759);}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(7760);}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(7761);}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(7762);}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(7764);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1123=*__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(7766);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1124=*__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(7768);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1125=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7769);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1126=*__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(7770);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1127=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7771);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1128=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7772);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1129=*__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(7773);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1130=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7774);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1131=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7775);}while(r);
S_9285:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7785);if(r)goto S_9285;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7785);}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(7785);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7786);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7787);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7791);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7792);}while(r);
S_9295:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7793);if(r)goto S_9295;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7793);}while(r);
}
S_9298:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7794);if(r)goto S_9298;}
S_9299:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7795);if(r)goto S_9299;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7795);}while(r);
do{
goto dl_exit_1133;
if(!qbevent)break;evnt(7795);}while(r);
}
S_9303:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7796);if(r)goto S_9303;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7796);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7796);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7796);}while(r);
}
S_9309:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7797);if(r)goto S_9309;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7797);}while(r);
}
dl_continue_1133:;
}
dl_exit_1133:;
S_9313:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7799);if(r)goto S_9313;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7799);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7799);}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(7801);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1134=*__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(7803);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1135=*__LONG_TIMETXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7804);}while(r);
S_9320:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7806);if(r)goto S_9320;}
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(7806);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7806);}while(r);
}
S_9324:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7808);if(r)goto S_9324;}
S_9325:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7810);if(r)goto S_9325;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7810);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7810);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1136=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7811);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1137=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7812);}while(r);
}else{
S_9332:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7816);if(r)goto S_9332;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7816);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7816);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7818);}while(r);
do{
*__LONG_B=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(7819);}while(r);
S_9338:;
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(7820);if(r)goto S_9338;}
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(7820);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7820);}while(r);
}
S_9342:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7821);if(r)goto S_9342;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7821);}while(r);
}
S_9345:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7822);if(r)goto S_9345;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7822);}while(r);
}
S_9348:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7823);if(r)goto S_9348;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7823);}while(r);
}
S_9351:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7824);if(r)goto S_9351;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7824);}while(r);
}
S_9354:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7825);if(r)goto S_9354;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7825);}while(r);
}
S_9357:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7826);if(r)goto S_9357;}
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(7826);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1138=*__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(7827);}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(7829);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7830);}while(r);
S_9363:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7831);if(r)goto S_9363;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7831);}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(7832);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1139=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7833);}while(r);
S_9368:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7834);if(r)goto S_9368;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7834);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1140=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7835);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1141=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7839);}while(r);
S_9374:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7840);if(r)goto S_9374;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7840);}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(7840);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7841);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7842);}while(r);
}
}
}
S_9384:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(7851);if(r)goto S_9384;}
S_9385:;
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(7852);if(r)goto S_9385;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(7853);}while(r);
S_9387:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7854);if(r)goto S_9387;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7854);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7854);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7855);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7855);}while(r);
S_9393:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(7856);if(r)goto S_9393;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7856);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7856);}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(7857);}while(r);
S_9398:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7858);if(r)goto S_9398;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7858);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7858);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(7859);}while(r);
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7860);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7861);}while(r);
S_9405:;
fornext_value1144=*__LONG_I;
fornext_finalvalue1144=*__LONG_N;
fornext_step1144= 1 ;
if (fornext_step1144<0) fornext_step_negative1144=1; else fornext_step_negative1144=0;
if (is_error_pending()) goto fornext_error1144;
goto fornext_entrylabel1144;
while(1){
fornext_value1144=fornext_step1144+(*__LONG_I);
fornext_entrylabel1144:
*__LONG_I=fornext_value1144;
if (fornext_step_negative1144){
if (fornext_value1144<fornext_finalvalue1144) break;
}else{
if (fornext_value1144>fornext_finalvalue1144) break;
}
fornext_error1144:;
if(qbevent){evnt(7862);if(r)goto S_9405;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7863);}while(r);
do{
*__LONG_A=qbs_asc(__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7864);}while(r);
S_9408:;
if ((-(*__LONG_A== 40 ))||is_error_pending()){
if(qbevent){evnt(7867);if(r)goto S_9408;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(7867);}while(r);
}
S_9411:;
if ((-(*__LONG_A== 41 ))||is_error_pending()){
if(qbevent){evnt(7868);if(r)goto S_9411;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(7868);}while(r);
}
S_9414:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(7869);if(r)goto S_9414;}
do{
goto fornext_exit_1143;
if(!qbevent)break;evnt(7869);}while(r);
}
S_9417:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||is_error_pending()){
if(qbevent){evnt(7870);if(r)goto S_9417;}
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(7870);}while(r);
}else{
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7870);}while(r);
}
fornext_continue_1143:;
}
fornext_exit_1143:;
S_9423:;
if ((-(*__LONG_I==(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(7872);if(r)goto S_9423;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7872);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7872);}while(r);
}
S_9427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(7873);if(r)goto S_9427;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7873);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7873);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7875);}while(r);
S_9432:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7876);if(r)goto S_9432;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7876);}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(7877);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1146=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7878);}while(r);
S_9437:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7879);if(r)goto S_9437;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7879);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1147=*__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(7880);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7882);}while(r);
S_9442:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7883);if(r)goto S_9442;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7883);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7883);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7884);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7884);}while(r);
do{
*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ;
if(!qbevent)break;evnt(7885);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1148=*__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(7886);}while(r);
S_9450:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(7888);if(r)goto S_9450;}
S_9451:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7889);if(r)goto S_9451;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7889);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7889);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7890);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(7890);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1149=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7892);}while(r);
S_9458:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(7894);if(r)goto S_9458;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7894);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7894);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1150= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7896);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7897);}while(r);
LABEL_LABCHK61:;
if(qbevent){evnt(7898);r=0;}
S_9464:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(7899);if(r)goto S_9464;}
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(7900);}while(r);
S_9466:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(7901);if(r)goto S_9466;}
S_9467:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(7902);if(r)goto S_9467;}
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(7902);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7903);}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(7904);}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(7905);}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(7906);}while(r);
}else{
S_9475:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(7908);if(r)goto S_9475;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(7908);}while(r);
do{
goto LABEL_LABCHK61;
if(!qbevent)break;evnt(7908);}while(r);
}
}
}
S_9481:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(7911);if(r)goto S_9481;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(7913);}while(r);
S_9483:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(7913);if(r)goto S_9483;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(7913);}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(7913);}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(7914);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1151= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7915);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(7916);}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(7917);}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(7918);}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(7919);}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(7920);}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(7921);}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(7923);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1152=*__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(7925);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1153=*__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(7927);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1154=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7928);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1155=*__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(7929);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1156=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7930);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1157=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7931);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1158=*__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(7932);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1159=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7933);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1160=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7934);}while(r);
S_9506:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7936);if(r)goto S_9506;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7936);}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(7936);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7937);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7938);}while(r);
}else{
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(7942);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7943);}while(r);
S_9516:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7944);if(r)goto S_9516;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7944);}while(r);
}
S_9519:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(7945);if(r)goto S_9519;}
S_9520:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
if(qbevent){evnt(7946);if(r)goto S_9520;}
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(7946);}while(r);
do{
goto dl_exit_1162;
if(!qbevent)break;evnt(7946);}while(r);
}
S_9524:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(7947);if(r)goto S_9524;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(7947);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7947);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(7947);}while(r);
}
S_9530:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7948);if(r)goto S_9530;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7948);}while(r);
}
dl_continue_1162:;
}
dl_exit_1162:;
S_9534:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(7950);if(r)goto S_9534;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7950);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7950);}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(7952);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1163=*__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(7954);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1164=*__LONG_KEYTXTBUF),qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7955);}while(r);
S_9541:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))> 1 ))||is_error_pending()){
if(qbevent){evnt(7957);if(r)goto S_9541;}
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(7957);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7957);}while(r);
}
S_9545:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(7959);if(r)goto S_9545;}
S_9546:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(7961);if(r)goto S_9546;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7961);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7961);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1165=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7962);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1166=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7963);}while(r);
}else{
S_9553:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+813)))== 0 ))||is_error_pending()){
if(qbevent){evnt(7967);if(r)goto S_9553;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7967);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7967);}while(r);
}
do{
*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7969);}while(r);
do{
*__LONG_B=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(7970);}while(r);
S_9559:;
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(7971);if(r)goto S_9559;}
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(7971);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7971);}while(r);
}
S_9563:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(7972);if(r)goto S_9563;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7972);}while(r);
}
S_9566:;
if ((-(*__LONG_B== 16 ))||is_error_pending()){
if(qbevent){evnt(7973);if(r)goto S_9566;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7973);}while(r);
}
S_9569:;
if ((-(*__LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(7974);if(r)goto S_9569;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7974);}while(r);
}
S_9572:;
if ((-(*__LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(7975);if(r)goto S_9572;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7975);}while(r);
}
S_9575:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(7976);if(r)goto S_9575;}
do{
qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7976);}while(r);
}
S_9578:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(7977);if(r)goto S_9578;}
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(7977);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1167=*__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(7978);}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(7980);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7981);}while(r);
S_9584:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7982);if(r)goto S_9584;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7982);}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(7983);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1168=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7984);}while(r);
S_9589:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(7985);if(r)goto S_9589;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(7985);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1169=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7986);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1170=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7990);}while(r);
S_9595:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(7991);if(r)goto S_9595;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(7991);}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(7991);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(7992);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(7993);}while(r);
}
}
}
S_9605:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(8004);if(r)goto S_9605;}
S_9606:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(8005);if(r)goto S_9606;}
S_9607:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(8006);if(r)goto S_9607;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8006);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8006);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8007);}while(r);
S_9612:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(8008);if(r)goto S_9612;}
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(8008);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8008);}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(8012);}while(r);
LABEL_SUBFUNCSHR:;
if(qbevent){evnt(8013);r=0;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8016);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8016);}while(r);
S_9619:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8018);if(r)goto S_9619;}
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(8018);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8018);}while(r);
}
S_9623:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8020);if(r)goto S_9623;}
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(8022);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8023);}while(r);
S_9626:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8024);if(r)goto S_9626;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8024);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8025);}while(r);
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(8028);}while(r);
S_9631:;
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(8029);if(r)goto S_9631;}
S_9632:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1172=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8030);if(r)goto S_9632;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8030);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8030);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(8031);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(8032);}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(8033);}while(r);
}
do{
*__LONG_METHOD= 1 ;
if(!qbevent)break;evnt(8036);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8039);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8040);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8041);}while(r);
S_9644:;
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(8042);if(r)goto S_9644;}
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(8043);}while(r);
LABEL_GETSHRTYP:;
if(qbevent){evnt(8044);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8045);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8046);}while(r);
S_9648:;
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(8047);if(r)goto S_9648;}
S_9649:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8048);if(r)goto S_9649;}
do{
qbs_set(__STRING_T,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8048);}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(8048);}while(r);
}
S_9654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8049);if(r)goto S_9654;}
do{
qbs_set(__STRING_T3,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8049);}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(8049);}while(r);
}
do{
goto LABEL_GETSHRTYP;
if(!qbevent)break;evnt(8050);}while(r);
}
S_9661:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8052);if(r)goto S_9661;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8052);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8052);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8054);}while(r);
S_9666:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8055);if(r)goto S_9666;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8055);}while(r);
}
S_9669:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(8056);if(r)goto S_9669;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(8056);}while(r);
}
S_9672:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(8057);if(r)goto S_9672;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(8057);}while(r);
}
S_9675:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(8058);if(r)goto S_9675;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(8058);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8059);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(8060);}while(r);
S_9680:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8061);if(r)goto S_9680;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8062);}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(8063);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8065);}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(8066);}while(r);
}
S_9687:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8068);if(r)goto S_9687;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8068);}while(r);
}
}
S_9691:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||is_error_pending()){
if(qbevent){evnt(8072);if(r)goto S_9691;}
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(8072);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8072);}while(r);
}
S_9695:;
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(8075);if(r)goto S_9695;}
S_9696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(8076);if(r)goto S_9696;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(8076);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8076);}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(8077);}while(r);
}
LABEL_NORMALSHAREDBLOCK:;
if(qbevent){evnt(8080);r=0;}
do{
qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8082);}while(r);
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8083);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(8084);}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(8085);}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(8086);}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(8089);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8090);}while(r);
S_9710:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8091);if(r)goto S_9710;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8091);}while(r);
}
S_9713:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(8092);if(r)goto S_9713;}
S_9714:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(8093);if(r)goto S_9714;}
S_9715:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(8096);if(r)goto S_9715;}
S_9716:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8097);if(r)goto S_9716;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(8097);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(8098);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(8098);}while(r);
S_9721:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(8099);if(r)goto S_9721;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(8099);}while(r);
}
S_9724:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(8100);if(r)goto S_9724;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(8100);}while(r);
}
S_9727:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(8101);if(r)goto S_9727;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(8101);}while(r);
}
S_9730:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(8102);if(r)goto S_9730;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(8102);}while(r);
}
}
}else{
S_9735:;
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
if(qbevent){evnt(8108);if(r)goto S_9735;}
S_9736:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8109);if(r)goto S_9736;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(8109);}while(r);
}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(8110);}while(r);
do{
*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(8110);}while(r);
S_9741:;
if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(8111);if(r)goto S_9741;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(8111);}while(r);
}
S_9744:;
if ((*__LONG_T2&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(8112);if(r)goto S_9744;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(8112);}while(r);
}
S_9747:;
if ((*__LONG_T2&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(8113);if(r)goto S_9747;}
do{
*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(8113);}while(r);
}
S_9750:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(8115);if(r)goto S_9750;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1178;
sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0);
if (is_error_pending()) goto skip1178;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0);
if (is_error_pending()) goto skip1178;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0);
if (is_error_pending()) goto skip1178;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0);
if (is_error_pending()) goto skip1178;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1);
if (is_error_pending()) goto skip1178;
skip1178:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(8115);}while(r);
}
S_9753:;
if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||is_error_pending()){
if(qbevent){evnt(8117);if(r)goto S_9753;}
do{
goto LABEL_SHRFOUND;
if(!qbevent)break;evnt(8117);}while(r);
}
}
}
S_9758:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(8122);if(r)goto S_9758;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(8122);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8122);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(8122);}while(r);
}
S_9764:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8123);if(r)goto S_9764;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8123);}while(r);
}
dl_continue_1175:;
}
dl_exit_1175:;
S_9768:;
if ((*__LONG_A)||is_error_pending()){
if(qbevent){evnt(8126);if(r)goto S_9768;}
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(8126);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8126);}while(r);
}
S_9772:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(8128);if(r)goto S_9772;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8128);}while(r);
}else{
do{
qbs_set(__STRING_TYP,__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8128);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(8129);}while(r);
S_9778:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||is_error_pending()){
if(qbevent){evnt(8130);if(r)goto S_9778;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8130);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8130);}while(r);
}
S_9782:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(8131);if(r)goto S_9782;}
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(8131);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8131);}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(8132);}while(r);
do{
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1180= 0 ),&(pass1181= 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8133);}while(r);
S_9788:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8134);if(r)goto S_9788;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8134);}while(r);
}
LABEL_SHRFOUND:;
if(qbevent){evnt(8137);r=0;}
S_9791:;
if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||is_error_pending()){
if(qbevent){evnt(8138);if(r)goto S_9791;}
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(8139);}while(r);
}else{
S_9794:;
if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||is_error_pending()){
if(qbevent){evnt(8141);if(r)goto S_9794;}
do{
*__LONG_SHAREDASLAYOUTADDED= -1 ;
if(!qbevent)break;evnt(8142);}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(8143);}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(8145);}while(r);
}
}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))| 2 ;
if(!qbevent)break;evnt(8149);}while(r);
do{
*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8152);}while(r);
do{
*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8152);}while(r);
S_9804:;
if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||is_error_pending()){
if(qbevent){evnt(8153);if(r)goto S_9804;}
S_9805:;
if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||is_error_pending()){
if(qbevent){evnt(8154);if(r)goto S_9805;}
do{
*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ;
if(!qbevent)break;evnt(8155);}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(8156);}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]))*2973+532))),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+524))),8,1));
if(!qbevent)break;evnt(8157);}while(r);
}
}
do{
qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8162);}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(8163);}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(8164);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF;
if(!qbevent)break;evnt(8165);}while(r);
S_9815:;
if ((*__LONG_NEWSHAREDSYNTAX)||is_error_pending()){
if(qbevent){evnt(8167);if(r)goto S_9815;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(8167);}while(r);
}
S_9818:;
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(8169);if(r)goto S_9818;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8169);}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(8169);}while(r);
do{
goto LABEL_SUBFUNCSHR;
if(!qbevent)break;evnt(8169);}while(r);
}
S_9823:;
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(8170);if(r)goto S_9823;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8170);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8170);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8172);}while(r);
S_9828:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8172);if(r)goto S_9828;}
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(8172);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8172);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8173);}while(r);
}else{
do{
*__LONG_I=*__LONG_I- 1 ;
if(!qbevent)break;evnt(8176);}while(r);
do{
qbs_set(__STRING_T,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8179);}while(r);
do{
qbs_set(__STRING_TS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8180);}while(r);
do{
qbs_set(__STRING_T3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8181);}while(r);
do{
qbs_set(__STRING_N,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8182);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8183);}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(8184);}while(r);
do{
*__LONG_SHAREDASLAYOUTADDED= 0 ;
if(!qbevent)break;evnt(8185);}while(r);
LABEL_GETSHRTYP2:;
if(qbevent){evnt(8186);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8187);}while(r);
do{
qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8188);}while(r);
S_9845:;
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(8189);if(r)goto S_9845;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8191);}while(r);
S_9847:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(8193);if(r)goto S_9847;}
S_9848:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8194);if(r)goto S_9848;}
do{
qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8194);}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(8194);}while(r);
}
S_9853:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8195);if(r)goto S_9853;}
do{
qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8195);}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(8195);}while(r);
}
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8197);}while(r);
do{
goto LABEL_GETSHRTYP2;
if(!qbevent)break;evnt(8198);}while(r);
}
S_9862:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8200);if(r)goto S_9862;}
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(8200);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8200);}while(r);
}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8202);}while(r);
S_9867:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8203);if(r)goto S_9867;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8203);}while(r);
}
S_9870:;
if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(8204);if(r)goto S_9870;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(8204);}while(r);
}
S_9873:;
if ((*__LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(8205);if(r)goto S_9873;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(8205);}while(r);
}
S_9876:;
if ((*__LONG_T&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(8206);if(r)goto S_9876;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(8206);}while(r);
}
do{
*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8207);}while(r);
do{
*__LONG_METHOD= 0 ;
if(!qbevent)break;evnt(8208);}while(r);
S_9881:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(8209);if(r)goto S_9881;}
do{
qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8210);}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(8211);}while(r);
}else{
do{
qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8213);}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(8214);}while(r);
}
S_9888:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8216);if(r)goto S_9888;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8216);}while(r);
}
LABEL_SUBFUNCSHR2:;
if(qbevent){evnt(8218);r=0;}
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8219);}while(r);
S_9892:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8220);if(r)goto S_9892;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8220);}while(r);
}
S_9895:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8221);if(r)goto S_9895;}
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(8222);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8223);}while(r);
}
do{
*__LONG_A= 0 ;
if(!qbevent)break;evnt(8227);}while(r);
do{
qbs_set(__STRING_L3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8228);}while(r);
S_9901:;
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(8229);if(r)goto S_9901;}
S_9902:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1184=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8230);if(r)goto S_9902;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8230);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8230);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(8231);}while(r);
do{
*__LONG_A= 1 ;
if(!qbevent)break;evnt(8232);}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(8233);}while(r);
}
do{
*__LONG_NEWSHAREDSYNTAX= -1 ;
if(!qbevent)break;evnt(8236);}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(8237);}while(r);
do{
*__LONG_NEWSHAREDSYNTAX= 0 ;
if(!qbevent)break;evnt(8238);}while(r);
S_9913:;
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(8240);if(r)goto S_9913;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8241);}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(8242);}while(r);
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8245);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8245);}while(r);
do{
goto LABEL_SUBFUNCSHR2;
if(!qbevent)break;evnt(8246);}while(r);
}
S_9920:;
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(8248);if(r)goto S_9920;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8248);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8248);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8250);}while(r);
S_9925:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8250);if(r)goto S_9925;}
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(8250);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8250);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8251);}while(r);
}
}
}
S_9934:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8257);if(r)goto S_9934;}
S_9935:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||is_error_pending()){
if(qbevent){evnt(8258);if(r)goto S_9935;}
do{
*__LONG_SF= 0 ;
if(!qbevent)break;evnt(8259);}while(r);
S_9937:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||is_error_pending()){
if(qbevent){evnt(8260);if(r)goto S_9937;}
do{
*__LONG_SF= 1 ;
if(!qbevent)break;evnt(8260);}while(r);
}
S_9940:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||is_error_pending()){
if(qbevent){evnt(8261);if(r)goto S_9940;}
do{
*__LONG_SF= 2 ;
if(!qbevent)break;evnt(8261);}while(r);
}
S_9943:;
if ((*__LONG_SF)||is_error_pending()){
if(qbevent){evnt(8262);if(r)goto S_9943;}
S_9944:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8264);if(r)goto S_9944;}
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(8264);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8264);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1187=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto exit_subfunc;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8266);}while(r);
S_9949:;
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(8267);if(r)goto S_9949;}
do{
qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8267);}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(8267);}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(8268);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8269);}while(r);
S_9956:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8269);if(r)goto S_9956;}
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(8269);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8269);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8270);}while(r);
}
}
}
S_9965:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5))))||is_error_pending()){
if(qbevent){evnt(8277);if(r)goto S_9965;}
S_9966:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(8278);if(r)goto S_9966;}
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(8279);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8279);}while(r);
}
}
S_9971:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(8285);if(r)goto S_9971;}
S_9972:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(8286);if(r)goto S_9972;}
S_9973:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1189= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8287);if(r)goto S_9973;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8287);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8287);}while(r);
}
do{
*__LONG_USEPOSITION= 0 ;
if(!qbevent)break;evnt(8290);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(8291);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8292);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8293);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8294);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8295);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8296);}while(r);
S_9984:;
do{
if(qbevent){evnt(8297);if(r)goto S_9984;}
S_9985:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8299);if(r)goto S_9985;}
S_9986:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8300);if(r)goto S_9986;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8300);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8300);}while(r);
}
do{
qbs_set(__STRING_EXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8301);}while(r);
do{
goto dl_exit_1190;
if(!qbevent)break;evnt(8302);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8305);}while(r);
S_9994:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8306);if(r)goto S_9994;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8306);}while(r);
}
S_9997:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8307);if(r)goto S_9997;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8307);}while(r);
}
S_10000:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(8309);if(r)goto S_10000;}
S_10001:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8311);if(r)goto S_10001;}
S_10002:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1192=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8312);if(r)goto S_10002;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8312);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8312);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8313);}while(r);
do{
qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8314);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8315);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8315);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8315);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8315);}while(r);
}
S_10013:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8318);if(r)goto S_10013;}
S_10014:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1193=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8319);if(r)goto S_10014;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8319);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8319);}while(r);
}
do{
*__LONG_USEPOSITION= 1 ;
if(!qbevent)break;evnt(8320);}while(r);
do{
qbs_set(__STRING_POSITION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8321);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8322);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8322);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8322);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8322);}while(r);
}
}
S_10026:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(8329);if(r)goto S_10026;}
S_10027:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8330);if(r)goto S_10027;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8330);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(8330);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8330);}while(r);
do{
goto LABEL_ASCGOTPART;
if(!qbevent)break;evnt(8330);}while(r);
}
}
S_10034:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(8333);if(r)goto S_10034;}
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(8333);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8333);}while(r);
}
LABEL_ASCGOTPART:;
if(qbevent){evnt(8334);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8335);}while(r);
dl_continue_1190:;
}while(1);
dl_exit_1190:;
S_10041:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(8337);if(r)goto S_10041;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8337);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8337);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8340);}while(r);
S_10046:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8341);if(r)goto S_10046;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8341);}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(8342);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8344);}while(r);
S_10051:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8345);if(r)goto S_10051;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8345);}while(r);
}
S_10054:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(8346);if(r)goto S_10054;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8346);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8346);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8347);}while(r);
S_10059:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8348);if(r)goto S_10059;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8348);}while(r);
}
S_10062:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(8352);if(r)goto S_10062;}
S_10063:;
if ((*__LONG_USEPOSITION)||is_error_pending()){
if(qbevent){evnt(8353);if(r)goto S_10063;}
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(8353);}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(8353);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1197=*__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(8355);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8356);}while(r);
S_10070:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8357);if(r)goto S_10070;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8357);}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(8358);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1198= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8359);}while(r);
S_10075:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8360);if(r)goto S_10075;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8360);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1199=*__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(8361);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1200=*__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(8362);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1201=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8363);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1202=*__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(8367);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8368);}while(r);
S_10084:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8369);if(r)goto S_10084;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8369);}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(8370);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1203= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8371);}while(r);
S_10089:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8372);if(r)goto S_10089;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8372);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1204=*__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(8373);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8374);}while(r);
S_10094:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8375);if(r)goto S_10094;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8375);}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(8376);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1205= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8377);}while(r);
S_10099:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8378);if(r)goto S_10099;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8378);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1206=*__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(8379);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1207=*__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(8380);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1208=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}}",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8381);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8384);}while(r);
S_10107:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8384);if(r)goto S_10107;}
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(8384);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8384);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8385);}while(r);
}
}
S_10115:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(8393);if(r)goto S_10115;}
S_10116:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||is_error_pending()){
if(qbevent){evnt(8394);if(r)goto S_10116;}
S_10117:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1210= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8395);if(r)goto S_10117;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8395);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8395);}while(r);
}
do{
qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8397);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(8398);}while(r);
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8399);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8400);}while(r);
do{
qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8401);}while(r);
do{
qbs_set(__STRING_START,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8402);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8403);}while(r);
S_10128:;
do{
if(qbevent){evnt(8404);if(r)goto S_10128;}
S_10129:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8405);if(r)goto S_10129;}
S_10130:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(8406);if(r)goto S_10130;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8406);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8406);}while(r);
}
do{
qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8407);}while(r);
do{
goto dl_exit_1211;
if(!qbevent)break;evnt(8408);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8410);}while(r);
S_10138:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8411);if(r)goto S_10138;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8411);}while(r);
}
S_10141:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8412);if(r)goto S_10141;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8412);}while(r);
}
S_10144:;
if ((-(*__LONG_B== -1 ))||is_error_pending()){
if(qbevent){evnt(8413);if(r)goto S_10144;}
S_10145:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8414);if(r)goto S_10145;}
S_10146:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1212=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8415);if(r)goto S_10146;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8415);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8415);}while(r);
}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8416);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(8416);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8416);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8416);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8416);}while(r);
}
S_10156:;
if ((-(*__LONG_PART== 3 ))||is_error_pending()){
if(qbevent){evnt(8418);if(r)goto S_10156;}
S_10157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1213=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(8419);if(r)goto S_10157;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8419);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8419);}while(r);
}
S_10161:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8420);if(r)goto S_10161;}
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(8420);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8420);}while(r);
}
do{
qbs_set(__STRING_LENGTH,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8421);}while(r);
do{
*__LONG_PART= 4 ;
if(!qbevent)break;evnt(8421);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8421);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8421);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8421);}while(r);
}
}
S_10172:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(8424);if(r)goto S_10172;}
S_10173:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(8425);if(r)goto S_10173;}
do{
qbs_set(__STRING_STRINGVARIABLE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8425);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(8425);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8425);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8425);}while(r);
}
S_10179:;
if ((-(*__LONG_PART== 2 ))||is_error_pending()){
if(qbevent){evnt(8426);if(r)goto S_10179;}
do{
qbs_set(__STRING_START,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8426);}while(r);
do{
*__LONG_PART= 3 ;
if(!qbevent)break;evnt(8426);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8426);}while(r);
do{
goto LABEL_MIDGOTPART;
if(!qbevent)break;evnt(8426);}while(r);
}
}
S_10186:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(8428);if(r)goto S_10186;}
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(8428);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8428);}while(r);
}
LABEL_MIDGOTPART:;
if(qbevent){evnt(8429);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8430);}while(r);
dl_continue_1211:;
}while(1);
dl_exit_1211:;
S_10193:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8432);if(r)goto S_10193;}
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(8432);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8432);}while(r);
}
S_10197:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8433);if(r)goto S_10197;}
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(8433);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8433);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8435);}while(r);
S_10202:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8436);if(r)goto S_10202;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8436);}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(8437);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8438);}while(r);
S_10207:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8439);if(r)goto S_10207;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8439);}while(r);
}
S_10210:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(8440);if(r)goto S_10210;}
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(8440);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8440);}while(r);
}
do{
qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8441);}while(r);
S_10215:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8442);if(r)goto S_10215;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8442);}while(r);
}
do{
qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8444);}while(r);
S_10219:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8445);if(r)goto S_10219;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8445);}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(8446);}while(r);
do{
qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1215= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8447);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8449);}while(r);
S_10225:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8450);if(r)goto S_10225;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8450);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8451);}while(r);
do{
qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8452);}while(r);
S_10230:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8453);if(r)goto S_10230;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8453);}while(r);
}
S_10233:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||is_error_pending()){
if(qbevent){evnt(8455);if(r)goto S_10233;}
do{
qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8456);}while(r);
S_10235:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8457);if(r)goto S_10235;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8457);}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(8458);}while(r);
do{
qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1217= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8459);}while(r);
S_10240:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8460);if(r)goto S_10240;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8460);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1218=*__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(8461);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1219=*__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(8463);}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(8466);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8467);}while(r);
S_10249:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8467);if(r)goto S_10249;}
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(8467);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8467);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8468);}while(r);
}
}
S_10257:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8473);if(r)goto S_10257;}
S_10258:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||is_error_pending()){
if(qbevent){evnt(8474);if(r)goto S_10258;}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8475);}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(8476);}while(r);
LABEL_ERASENEXTARRAY:;
if(qbevent){evnt(8477);r=0;}
do{
*__LONG_TARGETFIRST=*__LONG_I;
if(!qbevent)break;evnt(8482);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8483);}while(r);
S_10263:;
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8484);if(r)goto S_10263;}
do{
qbs_set(__STRING_TARGETTOKEN,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8485);}while(r);
S_10265:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8486);if(r)goto S_10265;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8486);}while(r);
}
S_10268:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8487);if(r)goto S_10268;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8487);}while(r);
}
S_10271:;
if ((-(*__LONG_B< 0 ))||is_error_pending()){
if(qbevent){evnt(8488);if(r)goto S_10271;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8488);}while(r);
}
S_10275:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_TARGETTOKEN,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8489);if(r)goto S_10275;}
do{
goto dl_exit_1221;
if(!qbevent)break;evnt(8489);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8490);}while(r);
dl_continue_1221:;
}
dl_exit_1221:;
S_10280:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(8492);if(r)goto S_10280;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8492);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8492);}while(r);
}
do{
*__LONG_TARGETLAST=*__LONG_I- 1 ;
if(!qbevent)break;evnt(8493);}while(r);
S_10285:;
if ((-(*__LONG_TARGETLAST<*__LONG_TARGETFIRST))||is_error_pending()){
if(qbevent){evnt(8494);if(r)goto S_10285;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8494);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8494);}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(8495);}while(r);
S_10290:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISEMPTYPARENTHESIZEDTARGET(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8500);if(r)goto S_10290;}
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(8500);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8500);}while(r);
}
S_10294:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8501);if(r)goto S_10294;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8501);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8501);}while(r);
}
do{
qbs_set(__STRING_X,__STRING_VAR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8503);}while(r);
do{
qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8503);}while(r);
S_10300:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8504);if(r)goto S_10300;}
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(8504);}while(r);
}
S_10303:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||is_error_pending()){
if(qbevent){evnt(8506);if(r)goto S_10303;}
S_10304:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8507);if(r)goto S_10304;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8507);}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(8508);}while(r);
LABEL_CLEARERASE:;
if(qbevent){evnt(8510);r=0;}
do{
qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8511);}while(r);
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv((*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ), 8 )),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8512);}while(r);
do{
*__LONG_UDT= 0 ;
if(!qbevent)break;evnt(8513);}while(r);
S_10311:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(8514);if(r)goto S_10311;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8514);}while(r);
}
S_10314:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(8515);if(r)goto S_10314;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs_add(qbs__tostr((int64)((*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll )),NULL,0),qbs_new_txt_len("/8+1",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8515);}while(r);
}
S_10317:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(8516);if(r)goto S_10317;}
do{
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
if(!qbevent)break;evnt(8517);}while(r);
S_10319:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
if(qbevent){evnt(8518);if(r)goto S_10319;}
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(__LONG_UDT), 8 )),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8519);}while(r);
}else{
do{
qbs_set(__STRING_BYTESPERELEMENT,qbs__tostr((int64)(qb_safe_idiv(((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(8521);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1222=*__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(8524);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1223=*__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(8525);}while(r);
S_10327:;
if (((-(*__LONG_UDT> 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1224=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
if(qbevent){evnt(8526);if(r)goto S_10327;}
do{
SUB_WRITEBUFRAWDATA(&(pass1225=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8530);}while(r);
S_10329:;
fornext_value1227= 1 ;
fornext_finalvalue1227=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1227= 1 ;
if (fornext_step1227<0) fornext_step_negative1227=1; else fornext_step_negative1227=0;
if (is_error_pending()) goto fornext_error1227;
goto fornext_entrylabel1227;
while(1){
fornext_value1227=fornext_step1227+(*__LONG_I2);
fornext_entrylabel1227:
*__LONG_I2=fornext_value1227;
if (fornext_step_negative1227){
if (fornext_value1227<fornext_finalvalue1227) break;
}else{
if (fornext_value1227>fornext_finalvalue1227) break;
}
fornext_error1227:;
if(qbevent){evnt(8531);if(r)goto S_10329;}
S_10330:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8532);if(r)goto S_10330;}
do{
SUB_WRITEBUFRAWDATA(&(pass1228=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8532);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1229=*__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(8533);}while(r);
fornext_continue_1226:;
}
fornext_exit_1226:;
do{
SUB_WRITEBUFLINE(&(pass1230=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8535);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1231=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8536);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8537);}while(r);
do{
SUB_APPENDDYNUDTDESCFREE(qbs_add(__STRING_N,qbs_new_txt_len("[0]",3)),__LONG_UDT,&(pass1232= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC,&(pass1233=*(int16*)(((char*)__UDT_ID)+((0+522)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8538);}while(r);
S_10339:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8539);if(r)goto S_10339;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8539);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1234=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8540);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1235=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8541);}while(r);
}
S_10345:;
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(8543);if(r)goto S_10345;}
do{
SUB_WRITEBUFRAWDATA(&(pass1236=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8544);}while(r);
S_10347:;
fornext_value1238= 1 ;
fornext_finalvalue1238=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1238= 1 ;
if (fornext_step1238<0) fornext_step_negative1238=1; else fornext_step_negative1238=0;
if (is_error_pending()) goto fornext_error1238;
goto fornext_entrylabel1238;
while(1){
fornext_value1238=fornext_step1238+(*__LONG_I2);
fornext_entrylabel1238:
*__LONG_I2=fornext_value1238;
if (fornext_step_negative1238){
if (fornext_value1238<fornext_finalvalue1238) break;
}else{
if (fornext_value1238>fornext_finalvalue1238) break;
}
fornext_error1238:;
if(qbevent){evnt(8545);if(r)goto S_10347;}
S_10348:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8546);if(r)goto S_10348;}
do{
SUB_WRITEBUFRAWDATA(&(pass1239=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8546);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1240=*__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(8547);}while(r);
fornext_continue_1237:;
}
fornext_exit_1237:;
do{
SUB_WRITEBUFLINE(&(pass1241=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8549);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1242=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8550);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1243=*__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(8551);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1244=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8552);}while(r);
S_10357:;
}else{
if ((-(*__LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1245=*(int16*)(((char*)__UDT_ID)+((0+522))))))))){
if(qbevent){evnt(8553);if(r)goto S_10357;}
do{
SUB_WRITEBUFRAWDATA(&(pass1246=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8555);}while(r);
S_10359:;
fornext_value1248= 1 ;
fornext_finalvalue1248=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1248= 1 ;
if (fornext_step1248<0) fornext_step_negative1248=1; else fornext_step_negative1248=0;
if (is_error_pending()) goto fornext_error1248;
goto fornext_entrylabel1248;
while(1){
fornext_value1248=fornext_step1248+(*__LONG_I2);
fornext_entrylabel1248:
*__LONG_I2=fornext_value1248;
if (fornext_step_negative1248){
if (fornext_value1248<fornext_finalvalue1248) break;
}else{
if (fornext_value1248>fornext_finalvalue1248) break;
}
fornext_error1248:;
if(qbevent){evnt(8556);if(r)goto S_10359;}
S_10360:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8557);if(r)goto S_10360;}
do{
SUB_WRITEBUFRAWDATA(&(pass1249=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8557);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1250=*__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(8558);}while(r);
fornext_continue_1247:;
}
fornext_exit_1247:;
do{
SUB_WRITEBUFLINE(&(pass1251=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8560);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1252=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8561);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8562);}while(r);
do{
SUB_CLEAR_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1253= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8563);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1254=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8564);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1255=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8565);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1256=*__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(8569);}while(r);
S_10373:;
fornext_value1258= 1 ;
fornext_finalvalue1258=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1258= 1 ;
if (fornext_step1258<0) fornext_step_negative1258=1; else fornext_step_negative1258=0;
if (is_error_pending()) goto fornext_error1258;
goto fornext_entrylabel1258;
while(1){
fornext_value1258=fornext_step1258+(*__LONG_I2);
fornext_entrylabel1258:
*__LONG_I2=fornext_value1258;
if (fornext_step_negative1258){
if (fornext_value1258<fornext_finalvalue1258) break;
}else{
if (fornext_value1258>fornext_finalvalue1258) break;
}
fornext_error1258:;
if(qbevent){evnt(8570);if(r)goto S_10373;}
S_10374:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8571);if(r)goto S_10374;}
do{
SUB_WRITEBUFRAWDATA(&(pass1259=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8571);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1260=*__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(8572);}while(r);
fornext_continue_1257:;
}
fornext_exit_1257:;
do{
SUB_WRITEBUFLINE(&(pass1261=*__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(8574);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1262=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8576);}while(r);
S_10382:;
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(8578);if(r)goto S_10382;}
do{
SUB_WRITEBUFRAWDATA(&(pass1263=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8580);}while(r);
S_10384:;
fornext_value1265= 1 ;
fornext_finalvalue1265=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1265= 1 ;
if (fornext_step1265<0) fornext_step_negative1265=1; else fornext_step_negative1265=0;
if (is_error_pending()) goto fornext_error1265;
goto fornext_entrylabel1265;
while(1){
fornext_value1265=fornext_step1265+(*__LONG_I2);
fornext_entrylabel1265:
*__LONG_I2=fornext_value1265;
if (fornext_step_negative1265){
if (fornext_value1265<fornext_finalvalue1265) break;
}else{
if (fornext_value1265>fornext_finalvalue1265) break;
}
fornext_error1265:;
if(qbevent){evnt(8581);if(r)goto S_10384;}
S_10385:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8582);if(r)goto S_10385;}
do{
SUB_WRITEBUFRAWDATA(&(pass1266=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8582);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1267=*__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(8583);}while(r);
fornext_continue_1264:;
}
fornext_exit_1264:;
do{
SUB_WRITEBUFLINE(&(pass1268=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8585);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1269=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8586);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1270=*__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(8587);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1271=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8588);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1272=*__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(8590);}while(r);
}else{
S_10396:;
if (((-(*__LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1273=*(int16*)(((char*)__UDT_ID)+((0+522)))))))))||is_error_pending()){
if(qbevent){evnt(8592);if(r)goto S_10396;}
do{
SUB_WRITEBUFRAWDATA(&(pass1274=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8594);}while(r);
S_10398:;
fornext_value1276= 1 ;
fornext_finalvalue1276=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1276= 1 ;
if (fornext_step1276<0) fornext_step_negative1276=1; else fornext_step_negative1276=0;
if (is_error_pending()) goto fornext_error1276;
goto fornext_entrylabel1276;
while(1){
fornext_value1276=fornext_step1276+(*__LONG_I2);
fornext_entrylabel1276:
*__LONG_I2=fornext_value1276;
if (fornext_step_negative1276){
if (fornext_value1276<fornext_finalvalue1276) break;
}else{
if (fornext_value1276>fornext_finalvalue1276) break;
}
fornext_error1276:;
if(qbevent){evnt(8595);if(r)goto S_10398;}
S_10399:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8596);if(r)goto S_10399;}
do{
SUB_WRITEBUFRAWDATA(&(pass1277=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8596);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1278=*__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(8597);}while(r);
fornext_continue_1275:;
}
fornext_exit_1275:;
do{
SUB_WRITEBUFLINE(&(pass1279=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8599);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1280=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8600);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8601);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(__STRING_N,__LONG_UDT,&(pass1281= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8602);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1282=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8603);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1283=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8604);}while(r);
}
S_10411:;
if (((-(*__LONG_UDT> 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1284=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
if(qbevent){evnt(8606);if(r)goto S_10411;}
do{
SUB_WRITEBUFLINE(&(pass1285=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&8){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8607);}while(r);
do{
SUB_WRITEBUFRAWDATA(&(pass1286=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8608);}while(r);
S_10414:;
fornext_value1288= 1 ;
fornext_finalvalue1288=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1288= 1 ;
if (fornext_step1288<0) fornext_step_negative1288=1; else fornext_step_negative1288=0;
if (is_error_pending()) goto fornext_error1288;
goto fornext_entrylabel1288;
while(1){
fornext_value1288=fornext_step1288+(*__LONG_I2);
fornext_entrylabel1288:
*__LONG_I2=fornext_value1288;
if (fornext_step_negative1288){
if (fornext_value1288<fornext_finalvalue1288) break;
}else{
if (fornext_value1288>fornext_finalvalue1288) break;
}
fornext_error1288:;
if(qbevent){evnt(8609);if(r)goto S_10414;}
S_10415:;
if ((-(*__LONG_I2!= 1 ))||is_error_pending()){
if(qbevent){evnt(8610);if(r)goto S_10415;}
do{
SUB_WRITEBUFRAWDATA(&(pass1289=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8610);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1290=*__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(8611);}while(r);
fornext_continue_1287:;
}
fornext_exit_1287:;
do{
SUB_WRITEBUFLINE(&(pass1291=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8613);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1292=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8614);}while(r);
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8615);}while(r);
do{
SUB_APPENDDYNUDTDESCFREE(qbs_add(__STRING_N,qbs_new_txt_len("[0]",3)),__LONG_UDT,&(pass1293= 0 ),__STRING_BYTESPERELEMENT,__STRING_ACC,&(pass1294=*(int16*)(((char*)__UDT_ID)+((0+522)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8616);}while(r);
S_10424:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8617);if(r)goto S_10424;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8617);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1295=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8618);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1296=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8619);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1297=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8620);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1298=*__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(8623);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1299=*__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(8624);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1300=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8625);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1301=*__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(8626);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1302=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8627);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1303=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8630);}while(r);
S_10438:;
fornext_value1305= 1 ;
fornext_finalvalue1305=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+((0+516)))));
fornext_step1305= 1 ;
if (fornext_step1305<0) fornext_step_negative1305=1; else fornext_step_negative1305=0;
if (is_error_pending()) goto fornext_error1305;
goto fornext_entrylabel1305;
while(1){
fornext_value1305=fornext_step1305+(*__LONG_I2);
fornext_entrylabel1305:
*__LONG_I2=fornext_value1305;
if (fornext_step_negative1305){
if (fornext_value1305<fornext_finalvalue1305) break;
}else{
if (fornext_value1305>fornext_finalvalue1305) break;
}
fornext_error1305:;
if(qbevent){evnt(8632);if(r)goto S_10438;}
do{
*__LONG_B=*__LONG_I2* 4 ;
if(!qbevent)break;evnt(8633);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1306=*__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(8634);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1307=*__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(8635);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1308=*__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(8636);}while(r);
fornext_continue_1304:;
}
fornext_exit_1304:;
S_10444:;
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(8638);if(r)goto S_10444;}
do{
SUB_WRITEBUFLINE(&(pass1309=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8639);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1310=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8641);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1311=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8643);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1312=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8644);}while(r);
S_10451:;
if ((-(*__LONG_CLEARERASERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(8645);if(r)goto S_10451;}
do{
*__LONG_CLEARERASERETURN= 0 ;
if(!qbevent)break;evnt(8645);}while(r);
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(8645);}while(r);
}
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8646);}while(r);
}
S_10457:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8648);if(r)goto S_10457;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8648);}while(r);
}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(8652);}while(r);
do{
qbs_set(__STRING_TARGETREF,FUNC_EVALUATE(__STRING_VAR,__LONG_TARGETTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8653);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(8654);}while(r);
S_10463:;
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
if(qbevent){evnt(8655);if(r)goto S_10463;}
S_10464:;
if (((-((*__LONG_TARGETTYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*__LONG_TARGETTYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
if(qbevent){evnt(8656);if(r)goto S_10464;}
do{
*__LONG_S1=func_instr(NULL,__STRING_TARGETREF,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8657);}while(r);
S_10466:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(8658);if(r)goto S_10466;}
do{
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8658);}while(r);
}else{
do{
*__LONG_S2= 0 ;
if(!qbevent)break;evnt(8658);}while(r);
}
S_10471:;
if ((*__LONG_S2)||is_error_pending()){
if(qbevent){evnt(8659);if(r)goto S_10471;}
do{
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_TARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8659);}while(r);
}else{
do{
*__LONG_S3= 0 ;
if(!qbevent)break;evnt(8659);}while(r);
}
S_10476:;
if ((*__LONG_S3)||is_error_pending()){
if(qbevent){evnt(8660);if(r)goto S_10476;}
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(8661);}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(8662);}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(8663);}while(r);
do{
SUB_GETID(__LONG_IDNUM);
if(!qbevent)break;evnt(8664);}while(r);
S_10481:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8665);if(r)goto S_10481;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8665);}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(8666);}while(r);
S_10485:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
if(qbevent){evnt(8667);if(r)goto S_10485;}
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(8667);}while(r);
}
do{
qbs_set(__STRING_BASE,qbs_add(FUNC_SCOPE(),__STRING_BASE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8668);}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(8669);}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(8670);}while(r);
S_10491:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(__LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
if(qbevent){evnt(8672);if(r)goto S_10491;}
do{
qbs_set(__STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8673);}while(r);
do{
SUB_APPENDDYNMEMBERLOCKBUMP(__STRING_PTR,__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8674);}while(r);
do{
SUB_APPENDDYNMEMBERERASETYPED(__STRING_PTR,&(pass1318=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(__LONG_MEMBER_ELEMENT_ID)),&(pass1319= 0 ),&(pass1320=FUNC_DYNMEMVARSTR(__LONG_MEMBER_ELEMENT_ID)),__STRING_ACC,&(pass1321=*(int16*)(((char*)__UDT_ID)+((0+522)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8675);}while(r);
S_10495:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8676);if(r)goto S_10495;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8676);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1322=*__LONG_MAINTXTBUF),__STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8677);}while(r);
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8678);}while(r);
}
do{
*__LONG_MEMBERBYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 );
if(!qbevent)break;evnt(8681);}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(8682);}while(r);
S_10503:;
if ((-(*__LONG_MEMBERELEMS<= 0 ))||is_error_pending()){
if(qbevent){evnt(8683);if(r)goto S_10503;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8683);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8683);}while(r);
}
do{
*__LONG_ELEMENTBYTES=qb_safe_idiv(*__LONG_MEMBERBYTES,*__LONG_MEMBERELEMS);
if(!qbevent)break;evnt(8684);}while(r);
S_10508:;
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(8686);if(r)goto S_10508;}
S_10509:;
fornext_value1324= 0 ;
fornext_finalvalue1324=*__LONG_MEMBERELEMS- 1 ;
fornext_step1324= 1 ;
if (fornext_step1324<0) fornext_step_negative1324=1; else fornext_step_negative1324=0;
if (is_error_pending()) goto fornext_error1324;
goto fornext_entrylabel1324;
while(1){
fornext_value1324=fornext_step1324+(*__LONG_I2);
fornext_entrylabel1324:
*__LONG_I2=fornext_value1324;
if (fornext_step_negative1324){
if (fornext_value1324<fornext_finalvalue1324) break;
}else{
if (fornext_value1324>fornext_finalvalue1324) break;
}
fornext_error1324:;
if(qbevent){evnt(8687);if(r)goto S_10509;}
do{
SUB_WRITEBUFLINE(&(pass1325=*__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(8688);}while(r);
fornext_continue_1323:;
}
fornext_exit_1323:;
S_10512:;
}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(8690);if(r)goto S_10512;}
do{
SUB_WRITEBUFLINE(&(pass1326=*__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(8693);}while(r);
S_10514:;
}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])]& 4095ll )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]){
if(qbevent){evnt(8694);if(r)goto S_10514;}
S_10515:;
fornext_value1328= 0 ;
fornext_finalvalue1328=*__LONG_MEMBERELEMS- 1 ;
fornext_step1328= 1 ;
if (fornext_step1328<0) fornext_step_negative1328=1; else fornext_step_negative1328=0;
if (is_error_pending()) goto fornext_error1328;
goto fornext_entrylabel1328;
while(1){
fornext_value1328=fornext_step1328+(*__LONG_I2);
fornext_entrylabel1328:
*__LONG_I2=fornext_value1328;
if (fornext_step_negative1328){
if (fornext_value1328<fornext_finalvalue1328) break;
}else{
if (fornext_value1328>fornext_finalvalue1328) break;
}
fornext_error1328:;
if(qbevent){evnt(8695);if(r)goto S_10515;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_PTR,&(pass1329=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ),__LONG_MAINTXTBUF,&(pass1330=*__LONG_I2**__LONG_ELEMENTBYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8696);}while(r);
fornext_continue_1327:;
}
fornext_exit_1327:;
}else{
do{
SUB_WRITEBUFLINE(&(pass1331=*__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(8699);}while(r);
}
}
}
do{
goto LABEL_ERASEDARRAY;
if(!qbevent)break;evnt(8701);}while(r);
}
}
}else{
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(8705);}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(8707);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8707);}while(r);
LABEL_ERASEDARRAY:;
if(qbevent){evnt(8709);r=0;}
S_10529:;
if ((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8710);if(r)goto S_10529;}
do{
qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8711);}while(r);
S_10531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(8712);if(r)goto S_10531;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8712);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8712);}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(8713);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8714);}while(r);
S_10537:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8714);if(r)goto S_10537;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8714);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8714);}while(r);
}
do{
goto LABEL_ERASENEXTARRAY;
if(!qbevent)break;evnt(8715);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8718);}while(r);
S_10544:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(8718);if(r)goto S_10544;}
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(8718);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8718);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8719);}while(r);
}
}
S_10552:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(8725);if(r)goto S_10552;}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8726);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8726);}while(r);
do{
*__LONG_COMMONOPTION= 0 ;
if(!qbevent)break;evnt(8726);}while(r);
S_10556:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||is_error_pending()){
if(qbevent){evnt(8727);if(r)goto S_10556;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8727);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8727);}while(r);
}
S_10560:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||is_error_pending()){
if(qbevent){evnt(8728);if(r)goto S_10560;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8729);}while(r);
do{
*__INTEGER_DIMOPTION= 2 ;
if(!qbevent)break;evnt(8730);}while(r);
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(8730);}while(r);
S_10564:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||is_error_pending()){
if(qbevent){evnt(8731);if(r)goto S_10564;}
do{
*__INTEGER_REDIMOPTION= 2 ;
if(!qbevent)break;evnt(8732);}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(8733);}while(r);
S_10567:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8734);if(r)goto S_10567;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _PRESERVE ...",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8734);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8734);}while(r);
}
}
S_10572:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_RETAIN",7))))||is_error_pending()){
if(qbevent){evnt(8736);if(r)goto S_10572;}
do{
*__INTEGER_REDIMOPTION= 3 ;
if(!qbevent)break;evnt(8737);}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(8738);}while(r);
S_10575:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(8739);if(r)goto S_10575;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _RETAIN ...",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8739);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8739);}while(r);
}
}
}
S_10581:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||is_error_pending()){
if(qbevent){evnt(8742);if(r)goto S_10581;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8742);}while(r);
do{
*__INTEGER_DIMOPTION= 3 ;
if(!qbevent)break;evnt(8742);}while(r);
}
S_10585:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||is_error_pending()){
if(qbevent){evnt(8743);if(r)goto S_10585;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8743);}while(r);
do{
*__INTEGER_DIMOPTION= 1 ;
if(!qbevent)break;evnt(8743);}while(r);
do{
*__LONG_COMMONOPTION= 1 ;
if(!qbevent)break;evnt(8743);}while(r);
}
S_10590:;
if ((*__INTEGER_DIMOPTION)||is_error_pending()){
if(qbevent){evnt(8744);if(r)goto S_10590;}
S_10591:;
if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||is_error_pending()){
if(qbevent){evnt(8746);if(r)goto S_10591;}
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(8746);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8746);}while(r);
}
S_10595:;
if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||is_error_pending()){
if(qbevent){evnt(8747);if(r)goto S_10595;}
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(8747);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8747);}while(r);
}
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(8749);}while(r);
S_10600:;
if ((-(*__INTEGER_REDIMOPTION>= 2 ))||is_error_pending()){
if(qbevent){evnt(8750);if(r)goto S_10600;}
do{
*__LONG_I= 3 ;
if(!qbevent)break;evnt(8750);}while(r);
}
S_10603:;
if ((-(*__INTEGER_DIMOPTION!= 3 ))||is_error_pending()){
if(qbevent){evnt(8752);if(r)goto S_10603;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8753);}while(r);
S_10605:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||is_error_pending()){
if(qbevent){evnt(8754);if(r)goto S_10605;}
S_10606:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(8755);if(r)goto S_10606;}
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(8755);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8755);}while(r);
}
do{
*__INTEGER_DIMSHARED= 1 ;
if(!qbevent)break;evnt(8756);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8757);}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(8758);}while(r);
}
}
S_10615:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(8762);if(r)goto S_10615;}
do{
*__LONG_DIMSTATIC= 1 ;
if(!qbevent)break;evnt(8762);}while(r);
do{
*__LONG_ALLOWLOCALNAME= 1 ;
if(!qbevent)break;evnt(8762);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8765);}while(r);
S_10620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8766);if(r)goto S_10620;}
LABEL_DIMNEXT:;
if(qbevent){evnt(8768);r=0;}
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(8769);}while(r);
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(8770);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(8771);}while(r);
do{
*__LONG_REDIMMEMBERHANDLED= 0 ;
if(!qbevent)break;evnt(8782);}while(r);
do{
*__LONG_REDIMTARGETCOMMA= 0 ;
if(!qbevent)break;evnt(8783);}while(r);
S_10626:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(8784);if(r)goto S_10626;}
do{
*__LONG_REDIMTARGETFIRST=*__LONG_I;
if(!qbevent)break;evnt(8785);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(8786);}while(r);
S_10629:;
while((-(*__LONG_I<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8787);if(r)goto S_10629;}
do{
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8788);}while(r);
S_10631:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8789);if(r)goto S_10631;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(8789);}while(r);
}
S_10634:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(8790);if(r)goto S_10634;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(8790);}while(r);
}
S_10637:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(8791);if(r)goto S_10637;}
do{
goto dl_exit_1333;
if(!qbevent)break;evnt(8791);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8792);}while(r);
dl_continue_1333:;
}
dl_exit_1333:;
do{
*__LONG_REDIMTARGETCOMMA=*__LONG_I;
if(!qbevent)break;evnt(8794);}while(r);
do{
*__LONG_REDIMTARGETLAST=*__LONG_I- 1 ;
if(!qbevent)break;evnt(8795);}while(r);
S_10644:;
if ((-(*__LONG_REDIMTARGETLAST>=*__LONG_REDIMTARGETFIRST))||is_error_pending()){
if(qbevent){evnt(8796);if(r)goto S_10644;}
do{
qbs_set(__STRING_REDIMFULLTARGET,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,__LONG_REDIMTARGETLAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8797);}while(r);
do{
*__LONG_REDIMLASTOPEN= 0 ;
if(!qbevent)break;evnt(8800);}while(r);
do{
*__LONG_REDIMLASTCLOSE= 0 ;
if(!qbevent)break;evnt(8801);}while(r);
do{
*__LONG_REDIMDEPTH= 0 ;
if(!qbevent)break;evnt(8802);}while(r);
do{
*__LONG_REDIMOPENCANDIDATE= 0 ;
if(!qbevent)break;evnt(8803);}while(r);
do{
qbs_set(__STRING_REDIMTARGETEXPR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8804);}while(r);
do{
qbs_set(__STRING_REDIMBOUNDS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8805);}while(r);
S_10652:;
fornext_value1335=*__LONG_REDIMTARGETFIRST;
fornext_finalvalue1335=*__LONG_REDIMTARGETLAST;
fornext_step1335= 1 ;
if (fornext_step1335<0) fornext_step_negative1335=1; else fornext_step_negative1335=0;
if (is_error_pending()) goto fornext_error1335;
goto fornext_entrylabel1335;
while(1){
fornext_value1335=fornext_step1335+(*__LONG_REDIMSCAN);
fornext_entrylabel1335:
*__LONG_REDIMSCAN=fornext_value1335;
if (fornext_step_negative1335){
if (fornext_value1335<fornext_finalvalue1335) break;
}else{
if (fornext_value1335>fornext_finalvalue1335) break;
}
fornext_error1335:;
if(qbevent){evnt(8807);if(r)goto S_10652;}
do{
qbs_set(__STRING_REDIMTOK,FUNC_GETELEMENT(__STRING_CA,__LONG_REDIMSCAN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8808);}while(r);
S_10654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8809);if(r)goto S_10654;}
S_10655:;
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
if(qbevent){evnt(8810);if(r)goto S_10655;}
do{
*__LONG_REDIMOPENCANDIDATE=*__LONG_REDIMSCAN;
if(!qbevent)break;evnt(8810);}while(r);
}
do{
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH+ 1 ;
if(!qbevent)break;evnt(8811);}while(r);
S_10659:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTOK,qbs_new_txt_len(")",1)))){
if(qbevent){evnt(8812);if(r)goto S_10659;}
do{
*__LONG_REDIMDEPTH=*__LONG_REDIMDEPTH- 1 ;
if(!qbevent)break;evnt(8813);}while(r);
S_10661:;
if ((-(*__LONG_REDIMDEPTH< 0 ))||is_error_pending()){
if(qbevent){evnt(8814);if(r)goto S_10661;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8814);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8814);}while(r);
}
S_10665:;
if ((-(*__LONG_REDIMDEPTH== 0 ))||is_error_pending()){
if(qbevent){evnt(8815);if(r)goto S_10665;}
do{
*__LONG_REDIMLASTOPEN=*__LONG_REDIMOPENCANDIDATE;
if(!qbevent)break;evnt(8816);}while(r);
do{
*__LONG_REDIMLASTCLOSE=*__LONG_REDIMSCAN;
if(!qbevent)break;evnt(8817);}while(r);
}
}
}
fornext_continue_1334:;
}
fornext_exit_1334:;
S_10671:;
if ((-(*__LONG_REDIMDEPTH!= 0 ))||is_error_pending()){
if(qbevent){evnt(8821);if(r)goto S_10671;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8821);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8821);}while(r);
}
S_10675:;
if (((-(*__LONG_REDIMLASTOPEN!= 0 ))&(-(*__LONG_REDIMLASTCLOSE!= 0 )))||is_error_pending()){
if(qbevent){evnt(8823);if(r)goto S_10675;}
do{
*__LONG_REDIMMEMBERDECLOK= 0 ;
if(!qbevent)break;evnt(8824);}while(r);
do{
qbs_set(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8825);}while(r);
S_10678:;
if ((-(*__LONG_REDIMLASTCLOSE==*__LONG_REDIMTARGETLAST))||is_error_pending()){
if(qbevent){evnt(8827);if(r)goto S_10678;}
do{
*__LONG_REDIMMEMBERDECLOK= -1 ;
if(!qbevent)break;evnt(8828);}while(r);
S_10680:;
}else{
if (-(*__LONG_REDIMLASTCLOSE<*__LONG_REDIMTARGETLAST)){
if(qbevent){evnt(8829);if(r)goto S_10680;}
S_10681:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETELEMENT(__STRING_CA,&(pass1336=*__LONG_REDIMLASTCLOSE+ 1 ))),qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(8830);if(r)goto S_10681;}
do{
*__LONG_REDIMMEMBERDECLOK= -1 ;
if(!qbevent)break;evnt(8831);}while(r);
do{
qbs_set(__STRING_REDIMTYPESUFFIX,FUNC_GETELEMENTS(__STRING_A,&(pass1337=*__LONG_REDIMLASTCLOSE+ 1 ),__LONG_REDIMTARGETLAST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8835);}while(r);
}
}
}
S_10686:;
if ((*__LONG_REDIMMEMBERDECLOK)||is_error_pending()){
if(qbevent){evnt(8839);if(r)goto S_10686;}
do{
qbs_set(__STRING_REDIMTARGETEXPR,FUNC_GETELEMENTS(__STRING_CA,__LONG_REDIMTARGETFIRST,&(pass1338=*__LONG_REDIMLASTOPEN- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8840);}while(r);
do{
qbs_set(__STRING_REDIMBOUNDS,FUNC_GETELEMENTS(__STRING_CA,&(pass1339=*__LONG_REDIMLASTOPEN+ 1 ),&(pass1340=*__LONG_REDIMLASTCLOSE- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8841);}while(r);
}
}
S_10691:;
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(8845);if(r)goto S_10691;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(8849);}while(r);
do{
qbs_set(__STRING_REDIMTARGETREF,FUNC_EVALUATE(__STRING_REDIMTARGETEXPR,__LONG_REDIMTARGETTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8850);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(8851);}while(r);
S_10695:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8852);if(r)goto S_10695;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8852);}while(r);
}
S_10698:;
if (((-((*__LONG_REDIMTARGETTYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_REDIMTARGETTYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(8853);if(r)goto S_10698;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8854);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8854);}while(r);
}
do{
*__LONG_REDIMS1=func_instr(NULL,__STRING_REDIMTARGETREF,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8857);}while(r);
S_10703:;
if ((*__LONG_REDIMS1)||is_error_pending()){
if(qbevent){evnt(8858);if(r)goto S_10703;}
do{
*__LONG_REDIMS2=func_instr(*__LONG_REDIMS1+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8858);}while(r);
}else{
do{
*__LONG_REDIMS2= 0 ;
if(!qbevent)break;evnt(8858);}while(r);
}
S_10708:;
if ((*__LONG_REDIMS2)||is_error_pending()){
if(qbevent){evnt(8859);if(r)goto S_10708;}
do{
*__LONG_REDIMS3=func_instr(*__LONG_REDIMS2+1,__STRING_REDIMTARGETREF,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8859);}while(r);
}else{
do{
*__LONG_REDIMS3= 0 ;
if(!qbevent)break;evnt(8859);}while(r);
}
S_10713:;
if ((-(*__LONG_REDIMS3== 0 ))||is_error_pending()){
if(qbevent){evnt(8860);if(r)goto S_10713;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8860);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8860);}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(8862);}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(8863);}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(8864);}while(r);
do{
SUB_GETID(__LONG_REDIMIDNUM);
if(!qbevent)break;evnt(8866);}while(r);
S_10721:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8867);if(r)goto S_10721;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8867);}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(8869);}while(r);
S_10725:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
if(qbevent){evnt(8870);if(r)goto S_10725;}
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(8870);}while(r);
}
do{
qbs_set(__STRING_REDIMBASE,qbs_add(FUNC_SCOPE(),__STRING_REDIMBASE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8871);}while(r);
S_10729:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8873);if(r)goto S_10729;}
S_10730:;
if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_NUMELEMENTS(__STRING_REDIMTYPESUFFIX)< 2 ))|(qbs_notequal(qbs_ucase(FUNC_GETELEMENT(__STRING_REDIMTYPESUFFIX,&(pass1346= 1 ))),qbs_new_txt_len("AS",2)))))||is_error_pending()){
if(qbevent){evnt(8874);if(r)goto S_10730;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8874);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8874);}while(r);
}
do{
qbs_set(__STRING_REDIMTYPENAME,qbs_ucase(FUNC_GETELEMENTS(__STRING_REDIMTYPESUFFIX,&(pass1347= 2 ),&(pass1348=FUNC_NUMELEMENTS(__STRING_REDIMTYPESUFFIX)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8875);}while(r);
S_10735:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMTYPENAME,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8876);if(r)goto S_10735;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8876);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8876);}while(r);
}
do{
*__LONG_REDIMTYPEVALUE=FUNC_TYPNAME2TYP(__STRING_REDIMTYPENAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8877);}while(r);
S_10740:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8878);if(r)goto S_10740;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8878);}while(r);
}
S_10743:;
if ((-(*__LONG_REDIMTYPEVALUE== 0 ))||is_error_pending()){
if(qbevent){evnt(8879);if(r)goto S_10743;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8879);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8879);}while(r);
}
do{
*__LONG_REDIMTYPESIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(8880);}while(r);
do{
*__LONG_REDIMTYPEMASK=*__LONG_REDIMTYPEVALUE&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISOFFSETINBITS);
if(!qbevent)break;evnt(8881);}while(r);
do{
*__LONG_REDIMMEMBERMASK=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISOFFSETINBITS);
if(!qbevent)break;evnt(8882);}while(r);
S_10750:;
if (((-(*__LONG_REDIMTYPEMASK!=*__LONG_REDIMMEMBERMASK))|(-(*__LONG_REDIMTYPESIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||is_error_pending()){
if(qbevent){evnt(8883);if(r)goto S_10750;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("REDIM type does not match the declared TYPE member array",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8884);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8884);}while(r);
}
}else{
do{
qbs_set(__STRING_REDIMCHECKNAME,FUNC_GETELEMENT(__STRING_CA,&(pass1349=*__LONG_REDIMLASTOPEN- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8893);}while(r);
do{
qbs_set(__STRING_REDIMCHECKSYM,FUNC_REMOVESYMBOL(__STRING_REDIMCHECKNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8894);}while(r);
S_10757:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8895);if(r)goto S_10757;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8895);}while(r);
}
S_10760:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_REDIMCHECKSYM,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8896);if(r)goto S_10760;}
S_10761:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BOUNDSHAVETOPTO(__STRING_REDIMBOUNDS)== 0 )))||is_error_pending()){
if(qbevent){evnt(8897);if(r)goto S_10761;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("REDIM of a TYPE member array must include AS <type> or explicit lower TO upper bounds",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8898);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8898);}while(r);
}
}
}
do{
qbs_set(__STRING_REDIMLAYOUTBOUNDS,FUNC_COMPACTMEMBERREFLAYOUT(__STRING_REDIMBOUNDS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8905);}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_REDIMLAYOUTBOUNDS),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8906);}while(r);
S_10769:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_REDIMTYPESUFFIX,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8908);if(r)goto S_10769;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_REDIMTYPESUFFIX));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8908);}while(r);
}
S_10772:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(__LONG_REDIME))||is_error_pending()){
if(qbevent){evnt(8910);if(r)goto S_10772;}
do{
*__LONG_REDIMMEMBERELEMS=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])];
if(!qbevent)break;evnt(8914);}while(r);
do{
*__LONG_REDIMELEMENTBYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(__LONG_REDIME);
if(!qbevent)break;evnt(8915);}while(r);
do{
*__LONG_REDIMELEMUDT= 0 ;
if(!qbevent)break;evnt(8916);}while(r);
S_10776:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
if(qbevent){evnt(8917);if(r)goto S_10776;}
do{
*__LONG_REDIMELEMUDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(8917);}while(r);
}
do{
qbs_set(__STRING_REDIMSLOT,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(8918);}while(r);
do{
qbs_set(__STRING_REDIMACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8919);}while(r);
do{
qbs_set(__STRING_REDIMDYNPREFIX,qbs_add(qbs_new_txt_len("dyn_mem_rt_",11),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8920);}while(r);
do{
SUB_BUILDDYNMEMBERBOUNDSPREP(__STRING_REDIMBOUNDS,__STRING_REDIMDYNPREFIX,__LONG_REDIMDYNDIMS,__STRING_REDIMACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8921);}while(r);
S_10783:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8922);if(r)goto S_10783;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8922);}while(r);
}
do{
SUB_APPENDDYNMEMBERREDIM(__STRING_REDIMDYNPREFIX,__LONG_REDIMDYNDIMS,__STRING_REDIMSLOT,__LONG_REDIMELEMENTBYTES,__LONG_REDIMELEMUDT,&(pass1350=FUNC_DYNMEMVARSTR(__LONG_REDIME)),&(pass1351=*__INTEGER_REDIMOPTION),__STRING_REDIMACC,&(pass1352=*(int16*)(((char*)__UDT_ID)+((0+522)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8923);}while(r);
S_10787:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(8924);if(r)goto S_10787;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8924);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1353=*__LONG_MAINTXTBUF),__STRING_REDIMACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8925);}while(r);
}else{
S_10792:;
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(8930);if(r)goto S_10792;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8930);}while(r);
}
S_10795:;
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(8931);if(r)goto S_10795;}
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(8932);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8932);}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(8936);}while(r);
S_10800:;
if ((-(*__INTEGER_REDIMOPTION== 1 ))||is_error_pending()){
if(qbevent){evnt(8938);if(r)goto S_10800;}
do{
*__LONG_REDIMMEMBERBYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 );
if(!qbevent)break;evnt(8939);}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(8940);}while(r);
do{
*__LONG_REDIMELEMENTBYTES=qb_safe_idiv(*__LONG_REDIMMEMBERBYTES,*__LONG_REDIMMEMBERELEMS);
if(!qbevent)break;evnt(8941);}while(r);
S_10804:;
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(8946);if(r)goto S_10804;}
S_10805:;
fornext_value1355= 0 ;
fornext_finalvalue1355=*__LONG_REDIMMEMBERELEMS- 1 ;
fornext_step1355= 1 ;
if (fornext_step1355<0) fornext_step_negative1355=1; else fornext_step_negative1355=0;
if (is_error_pending()) goto fornext_error1355;
goto fornext_entrylabel1355;
while(1){
fornext_value1355=fornext_step1355+(*__LONG_REDIMI2);
fornext_entrylabel1355:
*__LONG_REDIMI2=fornext_value1355;
if (fornext_step_negative1355){
if (fornext_value1355<fornext_finalvalue1355) break;
}else{
if (fornext_value1355>fornext_finalvalue1355) break;
}
fornext_error1355:;
if(qbevent){evnt(8947);if(r)goto S_10805;}
do{
SUB_WRITEBUFLINE(&(pass1356=*__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(8948);}while(r);
fornext_continue_1354:;
}
fornext_exit_1354:;
S_10808:;
}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(8950);if(r)goto S_10808;}
do{
SUB_WRITEBUFLINE(&(pass1357=*__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(8953);}while(r);
S_10810:;
}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])]& 4095ll )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]){
if(qbevent){evnt(8954);if(r)goto S_10810;}
S_10811:;
fornext_value1359= 0 ;
fornext_finalvalue1359=*__LONG_REDIMMEMBERELEMS- 1 ;
fornext_step1359= 1 ;
if (fornext_step1359<0) fornext_step_negative1359=1; else fornext_step_negative1359=0;
if (is_error_pending()) goto fornext_error1359;
goto fornext_entrylabel1359;
while(1){
fornext_value1359=fornext_step1359+(*__LONG_REDIMI2);
fornext_entrylabel1359:
*__LONG_REDIMI2=fornext_value1359;
if (fornext_step_negative1359){
if (fornext_value1359<fornext_finalvalue1359) break;
}else{
if (fornext_value1359>fornext_finalvalue1359) break;
}
fornext_error1359:;
if(qbevent){evnt(8955);if(r)goto S_10811;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_REDIMPTR,&(pass1360=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_REDIME)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ),__LONG_MAINTXTBUF,&(pass1361=*__LONG_REDIMI2**__LONG_REDIMELEMENTBYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8956);}while(r);
fornext_continue_1358:;
}
fornext_exit_1358:;
}else{
do{
SUB_WRITEBUFLINE(&(pass1362=*__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(8959);}while(r);
}
}
}
}
}
do{
*__LONG_REDIMMEMBERHANDLED= -1 ;
if(!qbevent)break;evnt(8964);}while(r);
}
}
}
S_10823:;
if ((*__LONG_REDIMMEMBERHANDLED)||is_error_pending()){
if(qbevent){evnt(8969);if(r)goto S_10823;}
S_10824:;
if ((-(*__LONG_REDIMTARGETCOMMA<=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8970);if(r)goto S_10824;}
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(8971);}while(r);
do{
*__LONG_I=*__LONG_REDIMTARGETCOMMA+ 1 ;
if(!qbevent)break;evnt(8972);}while(r);
S_10827:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(8973);if(r)goto S_10827;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8973);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8973);}while(r);
}
do{
goto LABEL_DIMNEXT;
if(!qbevent)break;evnt(8974);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(8977);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(8978);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(8979);}while(r);
S_10836:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(8980);if(r)goto S_10836;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(8980);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(8981);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(8983);}while(r);
S_10841:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(8984);if(r)goto S_10841;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8984);}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(8984);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(8986);}while(r);
}
S_10848:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(8989);if(r)goto S_10848;}
do{
*__LONG_I=*__LONG_REDIMTARGETFIRST;
if(!qbevent)break;evnt(8989);}while(r);
}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8990);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8990);}while(r);
S_10853:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(8991);if(r)goto S_10853;}
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(8991);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(8991);}while(r);
}
S_10857:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(8994);if(r)goto S_10857;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8994);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8994);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(8994);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(8997);}while(r);
S_10864:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(8999);if(r)goto S_10864;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(9000);}while(r);
S_10866:;
fornext_value1365=*__LONG_I;
fornext_finalvalue1365=*__LONG_N;
fornext_step1365= 1 ;
if (fornext_step1365<0) fornext_step_negative1365=1; else fornext_step_negative1365=0;
if (is_error_pending()) goto fornext_error1365;
goto fornext_entrylabel1365;
while(1){
fornext_value1365=fornext_step1365+(*__LONG_I);
fornext_entrylabel1365:
*__LONG_I=fornext_value1365;
if (fornext_step_negative1365){
if (fornext_value1365<fornext_finalvalue1365) break;
}else{
if (fornext_value1365>fornext_finalvalue1365) break;
}
fornext_error1365:;
if(qbevent){evnt(9001);if(r)goto S_10866;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9002);}while(r);
S_10868:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9003);if(r)goto S_10868;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9003);}while(r);
}
S_10871:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9004);if(r)goto S_10871;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9004);}while(r);
}
S_10874:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(9005);if(r)goto S_10874;}
do{
goto fornext_exit_1364;
if(!qbevent)break;evnt(9005);}while(r);
}
S_10877:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9006);if(r)goto S_10877;}
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(9006);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9006);}while(r);
}
fornext_continue_1364:;
}
fornext_exit_1364:;
S_10883:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(9008);if(r)goto S_10883;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9008);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9008);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9009);}while(r);
S_10888:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(9011);if(r)goto S_10888;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9011);}while(r);
}
S_10891:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9014);if(r)goto S_10891;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1367;
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 skip1367;
skip1367:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9014);}while(r);
}
S_10894:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(9019);if(r)goto S_10894;}
S_10895:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9020);if(r)goto S_10895;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(9021);}while(r);
}
}
S_10899:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(9027);if(r)goto S_10899;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9027);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9027);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9027);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9029);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(9031);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9033);}while(r);
do{
qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9034);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9035);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9038);}while(r);
S_10912:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9039);if(r)goto S_10912;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9039);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(9040);}while(r);
S_10916:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(9041);if(r)goto S_10916;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9041);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9041);}while(r);
}
S_10920:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9043);if(r)goto S_10920;}
do{
qbs_set(__STRING_TYP,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9044);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(9045);}while(r);
do{
qbs_set(__STRING_APPENDNAME,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9046);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(9047);}while(r);
}
S_10926:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||is_error_pending()){
if(qbevent){evnt(9050);if(r)goto S_10926;}
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(9051);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9052);}while(r);
S_10929:;
fornext_value1370=*__LONG_I;
fornext_finalvalue1370=*__LONG_N;
fornext_step1370= 1 ;
if (fornext_step1370<0) fornext_step_negative1370=1; else fornext_step_negative1370=0;
if (is_error_pending()) goto fornext_error1370;
goto fornext_entrylabel1370;
while(1){
fornext_value1370=fornext_step1370+(*__LONG_I);
fornext_entrylabel1370:
*__LONG_I=fornext_value1370;
if (fornext_step_negative1370){
if (fornext_value1370<fornext_finalvalue1370) break;
}else{
if (fornext_value1370>fornext_finalvalue1370) break;
}
fornext_error1370:;
if(qbevent){evnt(9053);if(r)goto S_10929;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9054);}while(r);
S_10931:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(9055);if(r)goto S_10931;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9055);}while(r);
do{
goto fornext_exit_1369;
if(!qbevent)break;evnt(9055);}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(9056);}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(9057);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9058);}while(r);
fornext_continue_1369:;
}
fornext_exit_1369:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9060);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9061);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(9062);}while(r);
}
do{
*__LONG_NOTYPE= 1 ;
if(!qbevent)break;evnt(9066);}while(r);
S_10944:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(9067);if(r)goto S_10944;}
do{
*__LONG_V= 27 ;
if(!qbevent)break;evnt(9067);}while(r);
}else{
do{
*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9067);}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(9068);}while(r);
do{
*__LONG_DIMMETHOD= 1 ;
if(!qbevent)break;evnt(9069);}while(r);
do{
goto LABEL_DIMGOTTYP;
if(!qbevent)break;evnt(9070);}while(r);
LABEL_DIMGOTTYP:;
if(qbevent){evnt(9072);r=0;}
S_10952:;
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(9073);if(r)goto S_10952;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9073);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9073);}while(r);
}
S_10956:;
if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||is_error_pending()){
if(qbevent){evnt(9076);if(r)goto S_10956;}
S_10957:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9077);if(r)goto S_10957;}
S_10958:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(9078);if(r)goto S_10958;}
S_10959:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+524))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9079);if(r)goto S_10959;}
do{
qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9080);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(9081);}while(r);
}
}
}
}
LABEL_NORMALDIMBLOCK:;
if(qbevent){evnt(9087);r=0;}
S_10966:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||is_error_pending()){
if(qbevent){evnt(9088);if(r)goto S_10966;}
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9090);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9091);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(9091);}while(r);
S_10970:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(9093);if(r)goto S_10970;}
S_10971:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(9094);if(r)goto S_10971;}
S_10972:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9095);if(r)goto S_10972;}
S_10973:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9097);if(r)goto S_10973;}
S_10974:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9098);if(r)goto S_10974;}
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(9099);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9099);}while(r);
}
}
}else{
S_10980:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9103);if(r)goto S_10980;}
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(9104);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9104);}while(r);
}else{
S_10984:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9107);if(r)goto S_10984;}
S_10985:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9108);if(r)goto S_10985;}
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(9109);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9109);}while(r);
}
}
}
}
}
}
S_10994:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9117);if(r)goto S_10994;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9118);}while(r);
S_10996:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9119);if(r)goto S_10996;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9119);}while(r);
}
S_10999:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(9120);if(r)goto S_10999;}
S_11000:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(9121);if(r)goto S_11000;}
S_11001:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9122);if(r)goto S_11001;}
S_11002:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9124);if(r)goto S_11002;}
S_11003:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9125);if(r)goto S_11003;}
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(9126);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9126);}while(r);
}
}
}else{
S_11009:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9130);if(r)goto S_11009;}
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(9131);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9131);}while(r);
}else{
S_11013:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9134);if(r)goto S_11013;}
S_11014:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9135);if(r)goto S_11014;}
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(9136);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9136);}while(r);
}
}
}
}
}
}
}
}
S_11025:;
if ((*__LONG_LISTARRAY)||is_error_pending()){
if(qbevent){evnt(9146);if(r)goto S_11025;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(9151);}while(r);
S_11027:;
fornext_value1374= 1 ;
fornext_finalvalue1374=*__LONG_STATICARRAYLISTN;
fornext_step1374= 1 ;
if (fornext_step1374<0) fornext_step_negative1374=1; else fornext_step_negative1374=0;
if (is_error_pending()) goto fornext_error1374;
goto fornext_entrylabel1374;
while(1){
fornext_value1374=fornext_step1374+(*__LONG_X);
fornext_entrylabel1374:
*__LONG_X=fornext_value1374;
if (fornext_step_negative1374){
if (fornext_value1374<fornext_finalvalue1374) break;
}else{
if (fornext_value1374>fornext_finalvalue1374) break;
}
fornext_error1374:;
if(qbevent){evnt(9152);if(r)goto S_11027;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9153);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9153);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9154);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9154);}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(9155);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9155);}while(r);
S_11034:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(9157);if(r)goto S_11034;}
S_11035:;
if ((-(*__LONG_DIMMETHOD2== 1 ))||is_error_pending()){
if(qbevent){evnt(9158);if(r)goto S_11035;}
S_11036:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(9160);if(r)goto S_11036;}
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(9160);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9160);}while(r);
}
}else{
S_11041:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9163);if(r)goto S_11041;}
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(9164);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9164);}while(r);
}else{
S_11045:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(9166);if(r)goto S_11045;}
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(9166);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9166);}while(r);
}
}
}
}
fornext_continue_1373:;
}
fornext_exit_1373:;
do{
qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9173);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9174);}while(r);
do{
*__LONG_TS=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(9174);}while(r);
S_11056:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||is_error_pending()){
if(qbevent){evnt(9176);if(r)goto S_11056;}
S_11057:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(9177);if(r)goto S_11057;}
S_11058:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9178);if(r)goto S_11058;}
S_11059:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9180);if(r)goto S_11059;}
S_11060:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9181);if(r)goto S_11060;}
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(9182);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9182);}while(r);
}
}
}else{
S_11066:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9186);if(r)goto S_11066;}
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(9187);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9187);}while(r);
}else{
S_11070:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9190);if(r)goto S_11070;}
S_11071:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9191);if(r)goto S_11071;}
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(9192);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9192);}while(r);
}
}
}
}
}
}
S_11080:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9200);if(r)goto S_11080;}
do{
qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9201);}while(r);
S_11082:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9202);if(r)goto S_11082;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9202);}while(r);
}
S_11085:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||is_error_pending()){
if(qbevent){evnt(9203);if(r)goto S_11085;}
S_11086:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2645)))==*__LONG_SUBFUNCN))||is_error_pending()){
if(qbevent){evnt(9204);if(r)goto S_11086;}
S_11087:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9205);if(r)goto S_11087;}
S_11088:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9207);if(r)goto S_11088;}
S_11089:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9208);if(r)goto S_11089;}
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(9209);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9209);}while(r);
}
}
}else{
S_11095:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9213);if(r)goto S_11095;}
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(9214);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9214);}while(r);
}else{
S_11099:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 4095ll +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||is_error_pending()){
if(qbevent){evnt(9217);if(r)goto S_11099;}
S_11100:;
if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+((0+544)))))||is_error_pending()){
if(qbevent){evnt(9218);if(r)goto S_11100;}
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(9219);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9219);}while(r);
}
}
}
}
}
}
}
S_11110:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(9229);if(r)goto S_11110;}
do{
qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9229);}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(9230);}while(r);
S_11114:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9231);if(r)goto S_11114;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9231);}while(r);
}
do{
*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(9232);}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(9233);}while(r);
}else{
do{
*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
if(!qbevent)break;evnt(9238);}while(r);
S_11121:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9241);if(r)goto S_11121;}
S_11122:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(9242);if(r)goto S_11122;}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(9243);}while(r);
S_11124:;
fornext_value1378= 1 ;
fornext_finalvalue1378=*__LONG_STATICARRAYLISTN;
fornext_step1378= 1 ;
if (fornext_step1378<0) fornext_step_negative1378=1; else fornext_step_negative1378=0;
if (is_error_pending()) goto fornext_error1378;
goto fornext_entrylabel1378;
while(1){
fornext_value1378=fornext_step1378+(*__LONG_X);
fornext_entrylabel1378:
*__LONG_X=fornext_value1378;
if (fornext_step_negative1378){
if (fornext_value1378<fornext_finalvalue1378) break;
}else{
if (fornext_value1378>fornext_finalvalue1378) break;
}
fornext_error1378:;
if(qbevent){evnt(9244);if(r)goto S_11124;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9245);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9245);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9246);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9246);}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(9247);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9247);}while(r);
S_11131:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(9249);if(r)goto S_11131;}
S_11132:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(9250);if(r)goto S_11132;}
S_11133:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9251);if(r)goto S_11133;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9251);}while(r);
}
S_11136:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(9252);if(r)goto S_11136;}
do{
qbs_set(__STRING_VARNAME,__STRING_VARNAME2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9254);}while(r);
do{
*__LONG_DIMSTATIC= 3 ;
if(!qbevent)break;evnt(9255);}while(r);
S_11139:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(9256);if(r)goto S_11139;}
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(9256);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9256);}while(r);
}
}
}
}
fornext_continue_1377:;
}
fornext_exit_1377:;
}
}
S_11149:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(9267);if(r)goto S_11149;}
S_11150:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9268);if(r)goto S_11150;}
S_11151:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||is_error_pending()){
if(qbevent){evnt(9271);if(r)goto S_11151;}
do{
qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9271);}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(9273);}while(r);
S_11155:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9274);if(r)goto S_11155;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9274);}while(r);
}
do{
*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ;
if(!qbevent)break;evnt(9275);}while(r);
S_11159:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9276);if(r)goto S_11159;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1381;
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 skip1381;
skip1381:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9276);}while(r);
}
S_11162:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9277);if(r)goto S_11162;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9277);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9279);}while(r);
do{
qbs_set(__STRING_V,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9281);}while(r);
S_11167:;
if ((-(*__LONG_DIMMETHOD== 1 ))||is_error_pending()){
if(qbevent){evnt(9282);if(r)goto S_11167;}
do{
qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9282);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9283);}while(r);
S_11171:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9284);if(r)goto S_11171;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9284);}while(r);
}
S_11174:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(9285);if(r)goto S_11174;}
S_11175:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(9286);if(r)goto S_11175;}
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9288);}while(r);
S_11177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9289);if(r)goto S_11177;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9289);}while(r);
}
do{
*__LONG_S=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(9290);}while(r);
do{
*__LONG_MATCH= 1 ;
if(!qbevent)break;evnt(9291);}while(r);
S_11182:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9293);if(r)goto S_11182;}
do{
*__LONG_T2=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(9294);}while(r);
do{
*__LONG_S2=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(9295);}while(r);
S_11185:;
if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||is_error_pending()){
if(qbevent){evnt(9296);if(r)goto S_11185;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9296);}while(r);
}
S_11188:;
if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(9297);if(r)goto S_11188;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9297);}while(r);
}
S_11191:;
if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(9298);if(r)goto S_11191;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9298);}while(r);
}
S_11194:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||is_error_pending()){
if(qbevent){evnt(9299);if(r)goto S_11194;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9299);}while(r);
}
S_11197:;
if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||is_error_pending()){
if(qbevent){evnt(9300);if(r)goto S_11197;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9300);}while(r);
}
S_11200:;
if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||is_error_pending()){
if(qbevent){evnt(9301);if(r)goto S_11200;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9301);}while(r);
}
S_11203:;
if ((-((*__LONG_T& 4095ll )!=(*__LONG_T2& 4095ll )))||is_error_pending()){
if(qbevent){evnt(9302);if(r)goto S_11203;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9302);}while(r);
}
S_11206:;
if ((-(*__LONG_S!=*__LONG_S2))||is_error_pending()){
if(qbevent){evnt(9303);if(r)goto S_11206;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9303);}while(r);
}
do{
*__LONG_OLDMETHOD= 0 ;
if(!qbevent)break;evnt(9305);}while(r);
S_11210:;
if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1)))->len)))||is_error_pending()){
if(qbevent){evnt(9305);if(r)goto S_11210;}
do{
*__LONG_OLDMETHOD= 1 ;
if(!qbevent)break;evnt(9305);}while(r);
}
S_11213:;
if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||is_error_pending()){
if(qbevent){evnt(9306);if(r)goto S_11213;}
do{
*__LONG_MATCH= 0 ;
if(!qbevent)break;evnt(9306);}while(r);
}
}
S_11217:;
if ((*__LONG_MATCH)||is_error_pending()){
if(qbevent){evnt(9309);if(r)goto S_11217;}
do{
*__LONG_X=*__LONG_CURRENTID;
if(!qbevent)break;evnt(9310);}while(r);
S_11219:;
if ((*__INTEGER_DIMSHARED)||is_error_pending()){
if(qbevent){evnt(9311);if(r)goto S_11219;}
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2649)))= 1 ;
if(!qbevent)break;evnt(9311);}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(9312);}while(r);
S_11223:;
if ((-(*__LONG_DIMMETHOD== 0 ))||is_error_pending()){
if(qbevent){evnt(9314);if(r)goto S_11223;}
S_11224:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(9315);if(r)goto S_11224;}
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 4095ll )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9316);}while(r);
}else{
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9318);}while(r);
S_11228:;
while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||is_error_pending()){
if(qbevent){evnt(9319);if(r)goto S_11228;}
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(9320);}while(r);
dl_continue_1383:;
}
dl_exit_1383:;
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9322);}while(r);
}
}
do{
goto dl_exit_1382;
if(!qbevent)break;evnt(9326);}while(r);
}
}
S_11237:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(9330);if(r)goto S_11237;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(9330);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_V);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9330);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(9330);}while(r);
}
S_11243:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9331);if(r)goto S_11243;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9331);}while(r);
}
dl_continue_1382:;
}
dl_exit_1382:;
S_11247:;
if ((-(*__LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(9334);if(r)goto S_11247;}
do{
*__LONG_X=*__LONG_IDN+ 1 ;
if(!qbevent)break;evnt(9334);}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(9337);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1384=*__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(9339);}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(9341);}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(9343);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1385=*__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(9345);}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(9347);}while(r);
S_11256:;
if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||is_error_pending()){
if(qbevent){evnt(9350);if(r)goto S_11256;}
do{
goto LABEL_SKIPDIM;
if(!qbevent)break;evnt(9350);}while(r);
}
do{
goto LABEL_DIMCOMMONARRAY;
if(!qbevent)break;evnt(9351);}while(r);
}
}
S_11262:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9358);if(r)goto S_11262;}
S_11263:;
if ((-(*__LONG_SUBFUNCN== 0 ))||is_error_pending()){
if(qbevent){evnt(9359);if(r)goto S_11263;}
S_11264:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9361);if(r)goto S_11264;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1387;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1);
if (is_error_pending()) goto skip1387;
skip1387:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9361);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(9363);}while(r);
S_11268:;
fornext_value1389= 1 ;
fornext_finalvalue1389=*__LONG_COMMONARRAYLISTN;
fornext_step1389= 1 ;
if (fornext_step1389<0) fornext_step_negative1389=1; else fornext_step_negative1389=0;
if (is_error_pending()) goto fornext_error1389;
goto fornext_entrylabel1389;
while(1){
fornext_value1389=fornext_step1389+(*__LONG_X);
fornext_entrylabel1389:
*__LONG_X=fornext_value1389;
if (fornext_step_negative1389){
if (fornext_value1389<fornext_finalvalue1389) break;
}else{
if (fornext_value1389>fornext_finalvalue1389) break;
}
fornext_error1389:;
if(qbevent){evnt(9364);if(r)goto S_11268;}
do{
qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9365);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9365);}while(r);
do{
qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9366);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9366);}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(9367);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9367);}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(9368);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(9368);}while(r);
S_11277:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9369);if(r)goto S_11277;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1390;
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 skip1390;
skip1390:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9369);}while(r);
}
S_11280:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||is_error_pending()){
if(qbevent){evnt(9371);if(r)goto S_11280;}
S_11281:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||is_error_pending()){
if(qbevent){evnt(9372);if(r)goto S_11281;}
S_11282:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9373);if(r)goto S_11282;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9373);}while(r);
}
S_11285:;
if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||is_error_pending()){
if(qbevent){evnt(9374);if(r)goto S_11285;}
S_11286:;
if ((*__LONG_DIMSHARED2)||is_error_pending()){
if(qbevent){evnt(9378);if(r)goto S_11286;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ;
if(!qbevent)break;evnt(9378);}while(r);
}
}
}
}
fornext_continue_1388:;
}
fornext_exit_1388:;
}
}
LABEL_DIMCOMMONARRAY:;
if(qbevent){evnt(9390);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(9391);}while(r);
S_11296:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9392);if(r)goto S_11296;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9392);}while(r);
}
LABEL_SKIPDIM:;
if(qbevent){evnt(9393);r=0;}
S_11299:;
if ((-(*__INTEGER_DIMSHARED>= 2 ))||is_error_pending()){
if(qbevent){evnt(9394);if(r)goto S_11299;}
do{
*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ;
if(!qbevent)break;evnt(9394);}while(r);
}
S_11302:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||is_error_pending()){
if(qbevent){evnt(9397);if(r)goto S_11302;}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(9401);}while(r);
do{
*__LONG_MAINTXTBUFPREV=*__LONG_MAINTXTBUF;
if(!qbevent)break;evnt(9404);}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(9405);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9406);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1392=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=1;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9408);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1393=*__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(9409);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(9411);}while(r);
do{
*__LONG_BITS=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(9412);}while(r);
S_11311:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(9413);if(r)goto S_11311;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 4095ll )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(9413);}while(r);
}
S_11314:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(9414);if(r)goto S_11314;}
S_11315:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9415);if(r)goto S_11315;}
do{
*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+((0+544)))* 8 ;
if(!qbevent)break;evnt(9416);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1394=*__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(9418);}while(r);
do{
*__LONG_BITS= 0 ;
if(!qbevent)break;evnt(9419);}while(r);
}
}
S_11322:;
if ((*__LONG_BITS)||is_error_pending()){
if(qbevent){evnt(9423);if(r)goto S_11322;}
do{
SUB_WRITEBUFLINE(&(pass1395=*__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(9424);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1396=*__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(9426);}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(9429);}while(r);
S_11327:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9431);if(r)goto S_11327;}
S_11328:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9432);if(r)goto S_11328;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9433);}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(9435);}while(r);
S_11332:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9436);if(r)goto S_11332;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9436);}while(r);
}
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1397= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9439);}while(r);
S_11338:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9440);if(r)goto S_11338;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9440);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1398=*__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(9442);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9444);}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(9449);}while(r);
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9450);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1399=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==1){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9453);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1400=*__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(9455);}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(9458);}while(r);
do{
*__LONG_T=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(9459);}while(r);
S_11349:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(9460);if(r)goto S_11349;}
S_11350:;
if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(9461);if(r)goto S_11350;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9462);}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(9464);}while(r);
S_11354:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9465);if(r)goto S_11354;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9465);}while(r);
}
}
}
S_11359:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(9469);if(r)goto S_11359;}
S_11360:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(9470);if(r)goto S_11360;}
do{
SUB_WRITEBUFLINE(&(pass1401=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9471);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1402=*__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(9472);}while(r);
}
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1403= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9477);}while(r);
S_11366:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9478);if(r)goto S_11366;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9478);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1404=*__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(9479);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1405=*__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(9481);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1406=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9482);}while(r);
do{
qbs_set(__STRING_TLAYOUT,__STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9484);}while(r);
do{
*__LONG_MAINTXTBUF=*__LONG_MAINTXTBUFPREV;
if(!qbevent)break;evnt(9486);}while(r);
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(9488);}while(r);
}
LABEL_COMMONARRAYLISTED:;
if(qbevent){evnt(9492);r=0;}
S_11376:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||is_error_pending()){
if(qbevent){evnt(9494);if(r)goto S_11376;}
S_11377:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(9495);if(r)goto S_11377;}
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(9495);}while(r);
}
S_11380:;
if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||is_error_pending()){
if(qbevent){evnt(9496);if(r)goto S_11380;}
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ;
if(!qbevent)break;evnt(9497);}while(r);
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9498);}while(r);
}
}
do{
*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9502);}while(r);
do{
qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1409= 1 ))),__STRING_APPENDNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9503);}while(r);
S_11387:;
if ((-(*__LONG_N2> 1 ))||is_error_pending()){
if(qbevent){evnt(9504);if(r)goto S_11387;}
do{
qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1410= 2 ),__LONG_N2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9505);}while(r);
}
S_11390:;
if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||is_error_pending()){
if(qbevent){evnt(9508);if(r)goto S_11390;}
S_11391:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||is_error_pending()){
if(qbevent){evnt(9509);if(r)goto S_11391;}
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(9509);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9510);}while(r);
}
do{
*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC;
if(!qbevent)break;evnt(9515);}while(r);
}
S_11398:;
if ((*__LONG_NEWDIMSYNTAX)||is_error_pending()){
if(qbevent){evnt(9519);if(r)goto S_11398;}
do{
#include "ret0.txt"
if(!qbevent)break;evnt(9519);}while(r);
}
S_11401:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(9521);if(r)goto S_11401;}
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(9521);}while(r);
do{
goto LABEL_DIMNEXT;
if(!qbevent)break;evnt(9521);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(9523);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(9524);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(9525);}while(r);
S_11408:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(9526);if(r)goto S_11408;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(9526);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(9527);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9529);}while(r);
S_11413:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9530);if(r)goto S_11413;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9530);}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(9530);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9532);}while(r);
}else{
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9535);}while(r);
do{
*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ;
if(!qbevent)break;evnt(9536);}while(r);
do{
qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9539);}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(9540);}while(r);
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9541);}while(r);
do{
qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9542);}while(r);
do{
qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9543);}while(r);
S_11427:;
fornext_value1415=*__LONG_I;
fornext_finalvalue1415=*__LONG_N;
fornext_step1415= 1 ;
if (fornext_step1415<0) fornext_step_negative1415=1; else fornext_step_negative1415=0;
if (is_error_pending()) goto fornext_error1415;
goto fornext_entrylabel1415;
while(1){
fornext_value1415=fornext_step1415+(*__LONG_I);
fornext_entrylabel1415:
*__LONG_I=fornext_value1415;
if (fornext_step_negative1415){
if (fornext_value1415<fornext_finalvalue1415) break;
}else{
if (fornext_value1415>fornext_finalvalue1415) break;
}
fornext_error1415:;
if(qbevent){evnt(9544);if(r)goto S_11427;}
do{
qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9545);}while(r);
S_11429:;
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(9546);if(r)goto S_11429;}
do{
goto fornext_exit_1414;
if(!qbevent)break;evnt(9546);}while(r);
}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9547);}while(r);
S_11433:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||is_error_pending()){
if(qbevent){evnt(9548);if(r)goto S_11433;}
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(9549);}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(9550);}while(r);
}
do{
qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9552);}while(r);
do{
qbs_set(__STRING_D,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9553);}while(r);
fornext_continue_1414:;
}
fornext_exit_1414:;
do{
qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9555);}while(r);
do{
qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9556);}while(r);
LABEL_DIMNEXT2:;
if(qbevent){evnt(9558);r=0;}
do{
*__LONG_NOTYPE= 0 ;
if(!qbevent)break;evnt(9559);}while(r);
do{
*__LONG_LISTARRAY= 0 ;
if(!qbevent)break;evnt(9560);}while(r);
S_11444:;
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(9562);if(r)goto S_11444;}
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(9562);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9562);}while(r);
}
S_11448:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(9565);if(r)goto S_11448;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9565);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9565);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9565);}while(r);
}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9568);}while(r);
S_11455:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9570);if(r)goto S_11455;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(9571);}while(r);
S_11457:;
fornext_value1418=*__LONG_I;
fornext_finalvalue1418=*__LONG_N;
fornext_step1418= 1 ;
if (fornext_step1418<0) fornext_step_negative1418=1; else fornext_step_negative1418=0;
if (is_error_pending()) goto fornext_error1418;
goto fornext_entrylabel1418;
while(1){
fornext_value1418=fornext_step1418+(*__LONG_I);
fornext_entrylabel1418:
*__LONG_I=fornext_value1418;
if (fornext_step_negative1418){
if (fornext_value1418<fornext_finalvalue1418) break;
}else{
if (fornext_value1418>fornext_finalvalue1418) break;
}
fornext_error1418:;
if(qbevent){evnt(9572);if(r)goto S_11457;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9573);}while(r);
S_11459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(9574);if(r)goto S_11459;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(9574);}while(r);
}
S_11462:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(9575);if(r)goto S_11462;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(9575);}while(r);
}
S_11465:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(9576);if(r)goto S_11465;}
do{
goto fornext_exit_1417;
if(!qbevent)break;evnt(9576);}while(r);
}
S_11468:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||is_error_pending()){
if(qbevent){evnt(9577);if(r)goto S_11468;}
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(9577);}while(r);
}else{
do{
qbs_set(__STRING_ELEMENTS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9577);}while(r);
}
fornext_continue_1417:;
}
fornext_exit_1417:;
S_11474:;
if ((-(*__LONG_B!= 0 ))||is_error_pending()){
if(qbevent){evnt(9579);if(r)goto S_11474;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9579);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9579);}while(r);
}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9580);}while(r);
S_11479:;
if ((*__LONG_COMMONOPTION)||is_error_pending()){
if(qbevent){evnt(9582);if(r)goto S_11479;}
do{
qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9582);}while(r);
}
S_11482:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(9585);if(r)goto S_11482;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1420;
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 skip1420;
skip1420:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(9585);}while(r);
}
S_11485:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(9590);if(r)goto S_11485;}
S_11486:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9591);if(r)goto S_11486;}
do{
*__LONG_LISTARRAY= 1 ;
if(!qbevent)break;evnt(9592);}while(r);
}
}
S_11490:;
if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||is_error_pending()){
if(qbevent){evnt(9598);if(r)goto S_11490;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9598);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9598);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9598);}while(r);
}
}
do{
qbs_set(__STRING_D,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9600);}while(r);
do{
*__LONG_DIMMETHOD= 0 ;
if(!qbevent)break;evnt(9602);}while(r);
do{
qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9604);}while(r);
do{
qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9607);}while(r);
S_11501:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9608);if(r)goto S_11501;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9608);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(9609);}while(r);
S_11505:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||is_error_pending()){
if(qbevent){evnt(9610);if(r)goto S_11505;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9610);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9610);}while(r);
}
S_11509:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(9612);if(r)goto S_11509;}
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(9613);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9614);}while(r);
}
S_11513:;
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(9617);if(r)goto S_11513;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9617);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9617);}while(r);
}
do{
*__LONG_NEWDIMSYNTAX= -1 ;
if(!qbevent)break;evnt(9619);}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(9620);}while(r);
do{
*__LONG_NEWDIMSYNTAX= 0 ;
if(!qbevent)break;evnt(9621);}while(r);
S_11520:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(9623);if(r)goto S_11520;}
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(9624);}while(r);
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9625);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(9625);}while(r);
do{
goto LABEL_DIMNEXT2;
if(!qbevent)break;evnt(9626);}while(r);
}
do{
*__INTEGER_DIMOPTION= 0 ;
if(!qbevent)break;evnt(9629);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(9630);}while(r);
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(9631);}while(r);
S_11529:;
if ((-(*__LONG_DIMSTATIC== 1 ))||is_error_pending()){
if(qbevent){evnt(9632);if(r)goto S_11529;}
do{
*__LONG_DIMSTATIC= 0 ;
if(!qbevent)break;evnt(9632);}while(r);
}
do{
*__LONG_ALLOWLOCALNAME= 0 ;
if(!qbevent)break;evnt(9633);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9635);}while(r);
S_11534:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(9636);if(r)goto S_11534;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9636);}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(9636);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9638);}while(r);
}
}
}
S_11543:;
if ((-(*__LONG_THENGOTO== 1 ))||is_error_pending()){
if(qbevent){evnt(9654);if(r)goto S_11543;}
S_11544:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9655);if(r)goto S_11544;}
do{
qbs_set(__STRING_L,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9656);}while(r);
do{
*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9657);}while(r);
S_11547:;
if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||is_error_pending()){
if(qbevent){evnt(9658);if(r)goto S_11547;}
do{
qbs_set(__STRING_A2,__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9658);}while(r);
do{
goto LABEL_THENGOTO;
if(!qbevent)break;evnt(9658);}while(r);
}
}
}
S_11553:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(9663);if(r)goto S_11553;}
S_11554:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1423= 1 )),qbs_new_txt_len("GOTO",4))))||is_error_pending()){
if(qbevent){evnt(9664);if(r)goto S_11554;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9665);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1424= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9666);}while(r);
LABEL_THENGOTO:;
if(qbevent){evnt(9667);r=0;}
S_11557:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(9668);if(r)goto S_11557;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9668);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9668);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1425= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9670);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9671);}while(r);
LABEL_LABCHK2:;
if(qbevent){evnt(9672);r=0;}
S_11563:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9673);if(r)goto S_11563;}
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(9674);}while(r);
S_11565:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9675);if(r)goto S_11565;}
S_11566:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9676);if(r)goto S_11566;}
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(9676);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9677);}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(9678);}while(r);
}else{
S_11572:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9680);if(r)goto S_11572;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9680);}while(r);
do{
goto LABEL_LABCHK2;
if(!qbevent)break;evnt(9680);}while(r);
}
}
}
S_11578:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9683);if(r)goto S_11578;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9685);}while(r);
S_11580:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9685);if(r)goto S_11580;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9685);}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(9685);}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(9686);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1426= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9687);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9688);}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(9689);}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(9690);}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(9691);}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(9692);}while(r);
}
S_11592:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||is_error_pending()){
if(qbevent){evnt(9695);if(r)goto S_11592;}
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(9695);}while(r);
}else{
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9695);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9696);}while(r);
S_11598:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9696);if(r)goto S_11598;}
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(9696);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9696);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1429=*__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(9697);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9698);}while(r);
}
}
S_11607:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9702);if(r)goto S_11607;}
S_11608:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||is_error_pending()){
if(qbevent){evnt(9703);if(r)goto S_11608;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9704);}while(r);
S_11610:;
fornext_value1431=*__INTEGER_CONTROLLEVEL;
fornext_finalvalue1431= 1 ;
fornext_step1431= -1 ;
if (fornext_step1431<0) fornext_step_negative1431=1; else fornext_step_negative1431=0;
if (is_error_pending()) goto fornext_error1431;
goto fornext_entrylabel1431;
while(1){
fornext_value1431=fornext_step1431+(*__LONG_I);
fornext_entrylabel1431:
*__LONG_I=fornext_value1431;
if (fornext_step_negative1431){
if (fornext_value1431<fornext_finalvalue1431) break;
}else{
if (fornext_value1431>fornext_finalvalue1431) break;
}
fornext_error1431:;
if(qbevent){evnt(9706);if(r)goto S_11610;}
do{
*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(!qbevent)break;evnt(9707);}while(r);
S_11612:;
if ((-(*__LONG_T== 2 ))||is_error_pending()){
if(qbevent){evnt(9708);if(r)goto S_11612;}
do{
SUB_WRITEBUFLINE(&(pass1432=*__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(9709);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9710);}while(r);
S_11615:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9710);if(r)goto S_11615;}
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(9710);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9710);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9711);}while(r);
S_11621:;
}else{
if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){
if(qbevent){evnt(9712);if(r)goto S_11621;}
do{
SUB_WRITEBUFLINE(&(pass1434=*__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(9713);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9714);}while(r);
S_11624:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9714);if(r)goto S_11624;}
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(9714);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9714);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9715);}while(r);
S_11630:;
}else{
if (-(*__LONG_T== 5 )){
if(qbevent){evnt(9716);if(r)goto S_11630;}
do{
SUB_WRITEBUFLINE(&(pass1436=*__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(9717);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9718);}while(r);
S_11633:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9718);if(r)goto S_11633;}
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(9718);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9718);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9719);}while(r);
}
}
}
fornext_continue_1430:;
}
fornext_exit_1430:;
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(9722);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9722);}while(r);
}
}
S_11645:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||is_error_pending()){
if(qbevent){evnt(9726);if(r)goto S_11645;}
S_11646:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9727);if(r)goto S_11646;}
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(9728);}while(r);
}
}
S_11650:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||is_error_pending()){
if(qbevent){evnt(9732);if(r)goto S_11650;}
S_11651:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9733);if(r)goto S_11651;}
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(9734);}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(9736);}while(r);
S_11655:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9737);if(r)goto S_11655;}
do{
SUB_WRITEBUFLINE(&(pass1438=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9739);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1439=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9740);}while(r);
S_11658:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(9741);if(r)goto S_11658;}
do{
SUB_WRITEBUFLINE(&(pass1441=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9742);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1442=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto S_0;",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9744);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1443= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9748);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9749);}while(r);
S_11666:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9750);if(r)goto S_11666;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9750);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9751);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9752);}while(r);
S_11671:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9753);if(r)goto S_11671;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9753);}while(r);
}
S_11674:;
if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||is_error_pending()){
if(qbevent){evnt(9754);if(r)goto S_11674;}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1444= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9756);}while(r);
S_11676:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(9757);if(r)goto S_11676;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9757);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9757);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1445= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9759);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9760);}while(r);
LABEL_LABCHK501:;
if(qbevent){evnt(9761);r=0;}
S_11682:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9762);if(r)goto S_11682;}
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(9763);}while(r);
S_11684:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9764);if(r)goto S_11684;}
S_11685:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9765);if(r)goto S_11685;}
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(9765);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9766);}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(9767);}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(9768);}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(9769);}while(r);
}else{
S_11693:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9771);if(r)goto S_11693;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9771);}while(r);
do{
goto LABEL_LABCHK501;
if(!qbevent)break;evnt(9771);}while(r);
}
}
}
S_11699:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9774);if(r)goto S_11699;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9776);}while(r);
S_11701:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9776);if(r)goto S_11701;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9776);}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(9776);}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(9777);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1446= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9778);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9779);}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(9780);}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(9781);}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(9782);}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(9783);}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(9784);}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(9787);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1447=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9788);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1448=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9789);}while(r);
S_11717:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(9790);if(r)goto S_11717;}
do{
SUB_WRITEBUFLINE(&(pass1450=*__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(9791);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1451=*__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(9792);}while(r);
do{
*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ;
if(!qbevent)break;evnt(9793);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1452=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9794);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1453=*__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(9796);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9800);}while(r);
S_11727:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9801);if(r)goto S_11727;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9801);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1454=*__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(9802);}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(9803);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9806);}while(r);
S_11735:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9806);if(r)goto S_11735;}
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(9806);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9806);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9807);}while(r);
}
S_11742:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||is_error_pending()){
if(qbevent){evnt(9814);if(r)goto S_11742;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9815);}while(r);
S_11744:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9816);if(r)goto S_11744;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1456= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9817);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9818);}while(r);
S_11747:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9818);if(r)goto S_11747;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9818);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9819);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9820);}while(r);
S_11752:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9820);if(r)goto S_11752;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9820);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9821);}while(r);
S_11756:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(9822);if(r)goto S_11756;}
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(9823);}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(9824);}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(9825);}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(9826);}while(r);
}
S_11762:;
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(9828);if(r)goto S_11762;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9828);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9828);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1458=*__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(9829);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1459=*__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(9830);}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(9831);}while(r);
}
do{
SUB_XEND();
if(!qbevent)break;evnt(9833);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9834);}while(r);
S_11773:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9834);if(r)goto S_11773;}
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(9834);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9834);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9835);}while(r);
}
S_11780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||is_error_pending()){
if(qbevent){evnt(9838);if(r)goto S_11780;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9839);}while(r);
S_11782:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9840);if(r)goto S_11782;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1461= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9841);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9842);}while(r);
S_11785:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9842);if(r)goto S_11785;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9842);}while(r);
}
do{
qbs_set(__STRING_L2,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9843);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9844);}while(r);
S_11790:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9844);if(r)goto S_11790;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9844);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9845);}while(r);
S_11794:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(9846);if(r)goto S_11794;}
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(9847);}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(9848);}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(9849);}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(9850);}while(r);
}
S_11800:;
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(9852);if(r)goto S_11800;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9852);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9852);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1463=*__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(9853);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1464=*__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(9854);}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(9855);}while(r);
}
S_11809:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(9859);if(r)goto S_11809;}
S_11810:;
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(9860);if(r)goto S_11810;}
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1465= 0 ));
if(!qbevent)break;evnt(9861);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1466=*__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(9863);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1467=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (sub_gl_called) error(271);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9865);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1468=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9866);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1469=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9867);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9868);}while(r);
S_11819:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9868);if(r)goto S_11819;}
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(9868);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9868);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9869);}while(r);
}
S_11826:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9872);if(r)goto S_11826;}
S_11827:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||is_error_pending()){
if(qbevent){evnt(9873);if(r)goto S_11827;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9874);}while(r);
S_11829:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(9875);if(r)goto S_11829;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1471= 2 ),__LONG_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9876);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9877);}while(r);
S_11832:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9878);if(r)goto S_11832;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9878);}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(9879);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1472= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9880);}while(r);
S_11837:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9881);if(r)goto S_11837;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9881);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9884);}while(r);
S_11842:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9884);if(r)goto S_11842;}
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(9884);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9884);}while(r);
}
S_11847:;
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(9885);if(r)goto S_11847;}
do{
SUB_WRITEBUFLINE(&(pass1474=*__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(9886);}while(r);
do{
SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1475= 0 ));
if(!qbevent)break;evnt(9887);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1476=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9889);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1477=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9890);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9892);}while(r);
}
}
S_11857:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(9896);if(r)goto S_11857;}
S_11858:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||is_error_pending()){
if(qbevent){evnt(9897);if(r)goto S_11858;}
do{
SUB_XGOSUB(__STRING_CA);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9898);}while(r);
S_11860:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(9899);if(r)goto S_11860;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9899);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9901);}while(r);
}
}
S_11866:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9905);if(r)goto S_11866;}
S_11867:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||is_error_pending()){
if(qbevent){evnt(9906);if(r)goto S_11867;}
S_11868:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9907);if(r)goto S_11868;}
do{
SUB_WRITEBUFLINE(&(pass1478=*__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(9908);}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(9909);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9910);}while(r);
S_11872:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9910);if(r)goto S_11872;}
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(9910);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9910);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9911);}while(r);
}else{
S_11879:;
if ((-(*__LONG_SUBFUNCN!= 0 ))||is_error_pending()){
if(qbevent){evnt(9914);if(r)goto S_11879;}
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(9914);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9914);}while(r);
}
S_11883:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9915);if(r)goto S_11883;}
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(9915);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9915);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1480=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!next_return_point) error(3);",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9916);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1481=*__LONG_MAINTXTBUF),qbs_new_txt_len("next_return_point--;",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9917);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1482= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9918);}while(r);
S_11890:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||is_error_pending()){
if(qbevent){evnt(9919);if(r)goto S_11890;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9919);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9919);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1483= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9921);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9922);}while(r);
LABEL_LABCHK505:;
if(qbevent){evnt(9923);r=0;}
S_11896:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9924);if(r)goto S_11896;}
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(9925);}while(r);
S_11898:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9926);if(r)goto S_11898;}
S_11899:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9927);if(r)goto S_11899;}
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(9927);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9928);}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(9929);}while(r);
}else{
S_11905:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9931);if(r)goto S_11905;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9931);}while(r);
do{
goto LABEL_LABCHK505;
if(!qbevent)break;evnt(9931);}while(r);
}
}
}
S_11911:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9934);if(r)goto S_11911;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9936);}while(r);
S_11913:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9936);if(r)goto S_11913;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9936);}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(9936);}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(9937);}while(r);
do{
SUB_HASHADD(__STRING_A2,&(pass1484= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9938);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9939);}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(9940);}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(9941);}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(9942);}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(9943);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1485=*__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(9946);}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(9947);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9948);}while(r);
S_11928:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9948);if(r)goto S_11928;}
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(9948);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9948);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9949);}while(r);
}
}
}
S_11937:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(9954);if(r)goto S_11937;}
S_11938:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||is_error_pending()){
if(qbevent){evnt(9955);if(r)goto S_11938;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9956);}while(r);
S_11940:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(9957);if(r)goto S_11940;}
LABEL_RESUMEPREV:;
if(qbevent){evnt(9958);r=0;}
do{
SUB_WRITEBUFLINE(&(pass1487=*__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(9961);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9963);}while(r);
S_11943:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9963);if(r)goto S_11943;}
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(9963);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9963);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9964);}while(r);
}
S_11950:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(9966);if(r)goto S_11950;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9966);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9966);}while(r);
}
do{
qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1489= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9967);}while(r);
S_11955:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||is_error_pending()){
if(qbevent){evnt(9968);if(r)goto S_11955;}
do{
SUB_WRITEBUFLINE(&(pass1490=*__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(9971);}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(9973);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(9974);}while(r);
S_11959:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(9974);if(r)goto S_11959;}
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(9974);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9974);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(9975);}while(r);
}
S_11966:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(9977);if(r)goto S_11966;}
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(9977);}while(r);
do{
goto LABEL_RESUMEPREV;
if(!qbevent)break;evnt(9977);}while(r);
}
S_11970:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||is_error_pending()){
if(qbevent){evnt(9978);if(r)goto S_11970;}
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(9978);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(9978);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1492= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9980);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(9981);}while(r);
LABEL_LABCHK506:;
if(qbevent){evnt(9982);r=0;}
S_11976:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(9983);if(r)goto S_11976;}
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(9984);}while(r);
S_11978:;
if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(9985);if(r)goto S_11978;}
S_11979:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(9986);if(r)goto S_11979;}
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(9986);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(9987);}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(9988);}while(r);
}else{
S_11985:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(9990);if(r)goto S_11985;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(9990);}while(r);
do{
goto LABEL_LABCHK506;
if(!qbevent)break;evnt(9990);}while(r);
}
}
}
S_11991:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(9993);if(r)goto S_11991;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(9995);}while(r);
S_11993:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(9995);if(r)goto S_11993;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(9995);}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(9995);}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(9996);}while(r);
do{
SUB_HASHADD(__STRING_S,&(pass1493= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(9997);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(9998);}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(9999);}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(10000);}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(10001);}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(10002);}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(10005);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10006);}while(r);
S_12007:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10006);if(r)goto S_12007;}
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(10006);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10006);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1495=*__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(10007);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10008);}while(r);
}
}
S_12016:;
if (((-(*__LONG_N== 4 ))|(-(*__LONG_N== 5 )))||is_error_pending()){
if(qbevent){evnt(10012);if(r)goto S_12016;}
S_12017:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1496= 1 ),&(pass1497= 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(10013);if(r)goto S_12017;}
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(10014);}while(r);
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1498= 4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10015);}while(r);
do{
qbs_set(__STRING_HHC,qbs_ucase(__STRING_LBL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10016);}while(r);
S_12021:;
if ((-(*__LONG_N== 5 ))||is_error_pending()){
if(qbevent){evnt(10017);if(r)goto S_12021;}
S_12022:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12))))||is_error_pending()){
if(qbevent){evnt(10018);if(r)goto S_12022;}
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(10018);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10018);}while(r);
}
S_12026:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(10019);if(r)goto S_12026;}
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(10019);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10019);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1499= 5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10020);}while(r);
S_12031:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(10021);if(r)goto S_12031;}
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(10021);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10021);}while(r);
}
}
S_12036:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(10023);if(r)goto S_12036;}
do{
SUB_WRITEBUFLINE(&(pass1500=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line=0;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10024);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1501=*__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(10025);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1502=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10026);}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(10027);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10028);}while(r);
S_12042:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10028);if(r)goto S_12042;}
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(10028);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10028);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10029);}while(r);
S_12048:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11)))){
if(qbevent){evnt(10030);if(r)goto S_12048;}
S_12049:;
if ((-(*__LONG_N== 4 ))||is_error_pending()){
if(qbevent){evnt(10031);if(r)goto S_12049;}
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(10031);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10031);}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(10032);}while(r);
S_12054:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_LASTHANDLER",12)))){
if(qbevent){evnt(10033);if(r)goto S_12054;}
do{
SUB_WRITEBUFLINE(&(pass1504=*__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(10034);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1505=*__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(10035);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1506=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10036);}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(10037);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10038);}while(r);
S_12060:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10038);if(r)goto S_12060;}
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(10038);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10038);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10039);}while(r);
}
}
}
S_12067:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(10041);if(r)goto S_12067;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10041);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10041);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1508= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10043);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(10044);}while(r);
LABEL_LABCHK6:;
if(qbevent){evnt(10045);r=0;}
S_12073:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(10046);if(r)goto S_12073;}
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(10047);}while(r);
S_12075:;
if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||is_error_pending()){
if(qbevent){evnt(10048);if(r)goto S_12075;}
S_12076:;
if ((-(*__LONG_S== -1 ))||is_error_pending()){
if(qbevent){evnt(10049);if(r)goto S_12076;}
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(10049);}while(r);
}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(10050);}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(10051);}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(10052);}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(10053);}while(r);
}else{
S_12084:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(10055);if(r)goto S_12084;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R);
if(!qbevent)break;evnt(10055);}while(r);
do{
goto LABEL_LABCHK6;
if(!qbevent)break;evnt(10055);}while(r);
}
}
}
S_12090:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(10058);if(r)goto S_12090;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(10060);}while(r);
S_12092:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(10060);if(r)goto S_12092;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(10060);}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(10060);}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(10061);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1509= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10062);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(10063);}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(10064);}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(10065);}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(10066);}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(10067);}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(10068);}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(10071);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10072);}while(r);
S_12107:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10072);if(r)goto S_12107;}
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(10072);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10072);}while(r);
}
do{
*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ;
if(!qbevent)break;evnt(10073);}while(r);
S_12113:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HHC,qbs_new_txt_len("_NEWHANDLER",11))))||is_error_pending()){
if(qbevent){evnt(10074);if(r)goto S_12113;}
do{
SUB_WRITEBUFLINE(&(pass1511=*__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(10075);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1512=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base, 0);",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10076);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1513=*__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(10078);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1514=*__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(10079);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10080);}while(r);
}
}
S_12122:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10084);if(r)goto S_12122;}
S_12123:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||is_error_pending()){
if(qbevent){evnt(10085);if(r)goto S_12123;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10086);}while(r);
S_12125:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10087);if(r)goto S_12125;}
do{
SUB_WRITEBUFLINE(&(pass1515=*__LONG_MAINTXTBUF),qbs_new_txt_len("data_offset=0;",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10088);}while(r);
}else{
S_12128:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(10090);if(r)goto S_12128;}
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(10090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10090);}while(r);
}
do{
qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1516= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10091);}while(r);
S_12133:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||is_error_pending()){
if(qbevent){evnt(10092);if(r)goto S_12133;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10092);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10092);}while(r);
}
do{
*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1517= 2ll ),__LONG_IGNORE,__LONG_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10096);}while(r);
do{
*__LONG_X= 1 ;
if(!qbevent)break;evnt(10097);}while(r);
S_12139:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(10098);if(r)goto S_12139;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(10099);}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(10100);}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(10101);}while(r);
S_12143:;
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(10102);if(r)goto S_12143;}
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(10102);}while(r);
}
}
S_12147:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(10104);if(r)goto S_12147;}
do{
*__LONG_NLABELS=*__LONG_NLABELS+ 1 ;
if(!qbevent)break;evnt(10105);}while(r);
S_12149:;
if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||is_error_pending()){
if(qbevent){evnt(10105);if(r)goto S_12149;}
do{
*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ;
if(!qbevent)break;evnt(10105);}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(10105);}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(10106);}while(r);
do{
SUB_HASHADD(__STRING_LBL,&(pass1518= 2ll ),__LONG_NLABELS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10107);}while(r);
do{
*__LONG_R=*__LONG_NLABELS;
if(!qbevent)break;evnt(10108);}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(10109);}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(10110);}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(10111);}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(10112);}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(10113);}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(10116);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1519=*__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(10117);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10119);}while(r);
S_12166:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10119);if(r)goto S_12166;}
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(10119);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10119);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10120);}while(r);
}
}
S_12174:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10127);if(r)goto S_12174;}
S_12175:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||is_error_pending()){
if(qbevent){evnt(10128);if(r)goto S_12175;}
do{
SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10129);}while(r);
S_12177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10130);if(r)goto S_12177;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10130);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10131);}while(r);
}
}
S_12183:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10137);if(r)goto S_12183;}
S_12184:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(10138);if(r)goto S_12184;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10140);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10141);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(10142);}while(r);
S_12188:;
fornext_value1522= 2 ;
fornext_finalvalue1522=*__LONG_N;
fornext_step1522= 1 ;
if (fornext_step1522<0) fornext_step_negative1522=1; else fornext_step_negative1522=0;
if (is_error_pending()) goto fornext_error1522;
goto fornext_entrylabel1522;
while(1){
fornext_value1522=fornext_step1522+(*__LONG_I2);
fornext_entrylabel1522:
*__LONG_I2=fornext_value1522;
if (fornext_step_negative1522){
if (fornext_value1522<fornext_finalvalue1522) break;
}else{
if (fornext_value1522>fornext_finalvalue1522) break;
}
fornext_error1522:;
if(qbevent){evnt(10143);if(r)goto S_12188;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10144);}while(r);
S_12190:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10145);if(r)goto S_12190;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10145);}while(r);
}
S_12193:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10146);if(r)goto S_12193;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10146);}while(r);
}
S_12196:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10147);if(r)goto S_12196;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(10148);}while(r);
S_12198:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(10149);if(r)goto S_12198;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10149);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10149);}while(r);
}
S_12202:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(10150);if(r)goto S_12202;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10150);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10150);}while(r);
}
S_12206:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10151);if(r)goto S_12206;}
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(10151);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10151);}while(r);
}
}else{
S_12211:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(10153);if(r)goto S_12211;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10153);}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(10153);}while(r);
}
}
fornext_continue_1521:;
}
fornext_exit_1521:;
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10156);}while(r);
S_12219:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||is_error_pending()){
if(qbevent){evnt(10157);if(r)goto S_12219;}
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(10157);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10157);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10159);}while(r);
S_12224:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10159);if(r)goto S_12224;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10159);}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(10160);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10162);}while(r);
S_12229:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10162);if(r)goto S_12229;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10162);}while(r);
}
S_12232:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
if(qbevent){evnt(10163);if(r)goto S_12232;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10163);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10163);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1524= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10164);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10171);}while(r);
S_12238:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10171);if(r)goto S_12238;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10171);}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(10172);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1525=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10173);}while(r);
S_12243:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10173);if(r)goto S_12243;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10173);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10174);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10177);}while(r);
S_12248:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10177);if(r)goto S_12248;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10177);}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(10178);}while(r);
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1526= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10179);}while(r);
S_12253:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10179);if(r)goto S_12253;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10179);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1527= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10180);}while(r);
S_12257:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10180);if(r)goto S_12257;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10180);}while(r);
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10190);}while(r);
S_12261:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(10191);if(r)goto S_12261;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10191);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10191);}while(r);
}
S_12265:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(10192);if(r)goto S_12265;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10192);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10192);}while(r);
}
S_12269:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(10193);if(r)goto S_12269;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(10193);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10193);}while(r);
}
S_12273:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(10194);if(r)goto S_12273;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(10194);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10194);}while(r);
}
S_12277:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10196);if(r)goto S_12277;}
S_12278:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(10198);if(r)goto S_12278;}
do{
SUB_WRITEBUFLINE(&(pass1528=*__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(10199);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1529=*__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(10201);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1530=*__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(10205);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1531=*__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(10207);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1532=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10209);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1533=*__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(10210);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1534=*__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(10211);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1535=*__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(10212);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1536=*__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(10214);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1537=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10215);}while(r);
S_12292:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(10216);if(r)goto S_12292;}
do{
SUB_WRITEBUFLINE(&(pass1538=*__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(10217);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1539=*__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(10219);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1540=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10221);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1541=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10222);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10225);}while(r);
S_12301:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10225);if(r)goto S_12301;}
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(10225);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10225);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10226);}while(r);
}
}
S_12309:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10234);if(r)goto S_12309;}
S_12310:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||is_error_pending()){
if(qbevent){evnt(10235);if(r)goto S_12310;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10237);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10238);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10239);}while(r);
do{
*__LONG_NE= 0 ;
if(!qbevent)break;evnt(10240);}while(r);
S_12315:;
fornext_value1544= 2 ;
fornext_finalvalue1544=*__LONG_N;
fornext_step1544= 1 ;
if (fornext_step1544<0) fornext_step_negative1544=1; else fornext_step_negative1544=0;
if (is_error_pending()) goto fornext_error1544;
goto fornext_entrylabel1544;
while(1){
fornext_value1544=fornext_step1544+(*__LONG_I2);
fornext_entrylabel1544:
*__LONG_I2=fornext_value1544;
if (fornext_step_negative1544){
if (fornext_value1544<fornext_finalvalue1544) break;
}else{
if (fornext_value1544>fornext_finalvalue1544) break;
}
fornext_error1544:;
if(qbevent){evnt(10241);if(r)goto S_12315;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10242);}while(r);
S_12317:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10243);if(r)goto S_12317;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10243);}while(r);
}
S_12320:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10244);if(r)goto S_12320;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10244);}while(r);
}
S_12323:;
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(10245);if(r)goto S_12323;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(10246);}while(r);
S_12325:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(10247);if(r)goto S_12325;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10247);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10247);}while(r);
}
S_12329:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(10248);if(r)goto S_12329;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10248);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10248);}while(r);
}
S_12333:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10249);if(r)goto S_12333;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
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(10249);}while(r);
}
S_12337:;
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(10250);if(r)goto S_12337;}
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(10250);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10250);}while(r);
}
}else{
S_12342:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(10252);if(r)goto S_12342;}
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_1543:;
}
fornext_exit_1543:;
S_12349:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(10255);if(r)goto S_12349;}
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(10255);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10255);}while(r);
}
S_12353:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(10256);if(r)goto S_12353;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10256);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10256);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10258);}while(r);
S_12359:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10258);if(r)goto S_12359;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10258);}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(10259);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10261);}while(r);
S_12364:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10261);if(r)goto S_12364;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10261);}while(r);
}
S_12367:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
if(qbevent){evnt(10262);if(r)goto S_12367;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10262);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10262);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1546= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10263);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10265);}while(r);
S_12373:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10265);if(r)goto S_12373;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10265);}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(10266);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1547=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10267);}while(r);
S_12378:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10267);if(r)goto S_12378;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10267);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10268);}while(r);
S_12382:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(10270);if(r)goto S_12382;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10271);}while(r);
S_12384:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10271);if(r)goto S_12384;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10271);}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(10272);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(10276);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10277);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(10278);}while(r);
S_12391:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10279);if(r)goto S_12391;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10279);}while(r);
}
S_12394:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10280);if(r)goto S_12394;}
do{
SUB_WRITEBUFLINE(&(pass1548=*__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(10281);}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(10282);}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(10283);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1549= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10285);}while(r);
S_12400:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10285);if(r)goto S_12400;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10285);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1550= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10286);}while(r);
S_12404:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10286);if(r)goto S_12404;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10286);}while(r);
}
}
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10290);}while(r);
S_12409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(10291);if(r)goto S_12409;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10291);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int8",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10291);}while(r);
}
S_12413:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||is_error_pending()){
if(qbevent){evnt(10292);if(r)goto S_12413;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10292);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int16",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10292);}while(r);
}
S_12417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||is_error_pending()){
if(qbevent){evnt(10293);if(r)goto S_12417;}
do{
*__LONG_S= 4 ;
if(!qbevent)break;evnt(10293);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int32",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10293);}while(r);
}
S_12421:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||is_error_pending()){
if(qbevent){evnt(10294);if(r)goto S_12421;}
do{
*__LONG_S= 8 ;
if(!qbevent)break;evnt(10294);}while(r);
do{
qbs_set(__STRING_ST,qbs_new_txt_len("int64",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10294);}while(r);
}
S_12425:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10296);if(r)goto S_12425;}
S_12426:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(10298);if(r)goto S_12426;}
do{
SUB_WRITEBUFLINE(&(pass1551=*__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(10299);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1552=*__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(10301);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(&(pass1553=*__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(10305);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1554=*__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(10307);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1555=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10309);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1556=*__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(10310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1557=*__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(10311);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1558=*__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(10312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1559=*__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(10314);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1560=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10315);}while(r);
S_12440:;
if ((*__LONG_S)||is_error_pending()){
if(qbevent){evnt(10316);if(r)goto S_12440;}
do{
SUB_WRITEBUFLINE(&(pass1561=*__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(10317);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1562=*__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(10319);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1563=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10321);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1564=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10322);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10330);}while(r);
S_12450:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(10331);if(r)goto S_12450;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10331);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10331);}while(r);
}
S_12454:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10332);if(r)goto S_12454;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMPUT requires numeric type",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10332);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10332);}while(r);
}
S_12458:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10333);if(r)goto S_12458;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10333);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10335);}while(r);
S_12462:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10335);if(r)goto S_12462;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10335);}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(10336);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10337);}while(r);
S_12467:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10337);if(r)goto S_12467;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10337);}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(10338);}while(r);
do{
qbs_set(__STRING_VARSIZE,qbs__tostr((int64)(qb_safe_idiv((*__LONG_T& 4095ll ), 8 )),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10339);}while(r);
S_12472:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10340);if(r)goto S_12472;}
do{
SUB_WRITEBUFLINE(&(pass1565=*__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(10342);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1566=*__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(10345);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1567=*__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(10347);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1568=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10349);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1569=*__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(10350);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1570=*__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(10351);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1571=*__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(10352);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1572=*__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(10354);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1573=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10355);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1574=*__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(10356);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1575=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10357);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1576=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10358);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10363);}while(r);
S_12489:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10363);if(r)goto S_12489;}
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(10363);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10363);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10364);}while(r);
}
}
S_12497:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10373);if(r)goto S_12497;}
S_12498:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||is_error_pending()){
if(qbevent){evnt(10374);if(r)goto S_12498;}
do{
qbs_set(__STRING_TYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10376);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
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_NE= 0 ;
if(!qbevent)break;evnt(10379);}while(r);
S_12503:;
fornext_value1579= 2 ;
fornext_finalvalue1579=*__LONG_N;
fornext_step1579= 1 ;
if (fornext_step1579<0) fornext_step_negative1579=1; else fornext_step_negative1579=0;
if (is_error_pending()) goto fornext_error1579;
goto fornext_entrylabel1579;
while(1){
fornext_value1579=fornext_step1579+(*__LONG_I2);
fornext_entrylabel1579:
*__LONG_I2=fornext_value1579;
if (fornext_step_negative1579){
if (fornext_value1579<fornext_finalvalue1579) break;
}else{
if (fornext_value1579>fornext_finalvalue1579) break;
}
fornext_error1579:;
if(qbevent){evnt(10380);if(r)goto S_12503;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10381);}while(r);
S_12505:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10382);if(r)goto S_12505;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10382);}while(r);
}
S_12508:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10383);if(r)goto S_12508;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10383);}while(r);
}
S_12511:;
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(10384);if(r)goto S_12511;}
do{
*__LONG_NE=*__LONG_NE+ 1 ;
if(!qbevent)break;evnt(10385);}while(r);
S_12513:;
if ((-(*__LONG_NE== 1 ))||is_error_pending()){
if(qbevent){evnt(10386);if(r)goto S_12513;}
do{
qbs_set(__STRING_BLK,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10386);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10386);}while(r);
}
S_12517:;
if ((-(*__LONG_NE== 2 ))||is_error_pending()){
if(qbevent){evnt(10387);if(r)goto S_12517;}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10387);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10387);}while(r);
}
S_12521:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10388);if(r)goto S_12521;}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10388);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10388);}while(r);
}
S_12525:;
if ((-(*__LONG_NE== 4 ))||is_error_pending()){
if(qbevent){evnt(10389);if(r)goto S_12525;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10389);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10389);}while(r);
}
S_12529:;
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(10390);if(r)goto S_12529;}
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(10390);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10390);}while(r);
}
}else{
S_12534:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||is_error_pending()){
if(qbevent){evnt(10392);if(r)goto S_12534;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10392);}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(10392);}while(r);
}
}
fornext_continue_1578:;
}
fornext_exit_1578:;
S_12541:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(10395);if(r)goto S_12541;}
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(10395);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10395);}while(r);
}
S_12545:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10396);if(r)goto S_12545;}
do{
qbs_set(__STRING_VAR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10396);}while(r);
}else{
do{
qbs_set(__STRING_TYP,qbs_ucase(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10396);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10398);}while(r);
S_12551:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10398);if(r)goto S_12551;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10398);}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(10399);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10401);}while(r);
S_12556:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10401);if(r)goto S_12556;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10401);}while(r);
}
S_12559:;
if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 4095ll )!= 1 )))||is_error_pending()){
if(qbevent){evnt(10402);if(r)goto S_12559;}
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(10402);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10402);}while(r);
}
do{
qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1581= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10403);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10405);}while(r);
S_12565:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10405);if(r)goto S_12565;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10405);}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(10406);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1582=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10407);}while(r);
S_12570:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10407);if(r)goto S_12570;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10407);}while(r);
}
do{
qbs_set(__STRING_OFFS,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10408);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10410);}while(r);
S_12575:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10410);if(r)goto S_12575;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10410);}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(10411);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1583=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10412);}while(r);
S_12580:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10412);if(r)goto S_12580;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10412);}while(r);
}
do{
qbs_set(__STRING_BYTES,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10413);}while(r);
S_12584:;
if ((-(*__LONG_NE== 3 ))||is_error_pending()){
if(qbevent){evnt(10415);if(r)goto S_12584;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10416);}while(r);
S_12586:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10416);if(r)goto S_12586;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10416);}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(10417);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(10420);}while(r);
do{
qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10421);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(10422);}while(r);
S_12593:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10423);if(r)goto S_12593;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10423);}while(r);
}
S_12596:;
if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10424);if(r)goto S_12596;}
do{
SUB_WRITEBUFLINE(&(pass1584=*__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(10425);}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(10426);}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(10427);}while(r);
}else{
do{
qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1585= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10429);}while(r);
S_12602:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10429);if(r)goto S_12602;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10429);}while(r);
}
do{
qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1586= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10430);}while(r);
S_12606:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10430);if(r)goto S_12606;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10430);}while(r);
}
}
S_12610:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10433);if(r)goto S_12610;}
do{
SUB_WRITEBUFLINE(&(pass1587=*__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(10434);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1588=*__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(10436);}while(r);
}
}else{
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10442);}while(r);
S_12617:;
if ((-(*__LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(10443);if(r)goto S_12617;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10443);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10443);}while(r);
}
S_12621:;
if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||is_error_pending()){
if(qbevent){evnt(10444);if(r)goto S_12621;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("_MEMFILL requires numeric type",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10444);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10444);}while(r);
}
S_12625:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(10445);if(r)goto S_12625;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(10445);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10447);}while(r);
S_12629:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10447);if(r)goto S_12629;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10447);}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(10448);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10449);}while(r);
S_12634:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10449);if(r)goto S_12634;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10449);}while(r);
}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10451);}while(r);
S_12638:;
if ((-(*__LONG_CHECKINGON== 0 ))||is_error_pending()){
if(qbevent){evnt(10452);if(r)goto S_12638;}
do{
qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10452);}while(r);
}
S_12641:;
if ((*__LONG_T&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(10453);if(r)goto S_12641;}
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(10454);}while(r);
}else{
S_12644:;
if ((*__LONG_T&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(10456);if(r)goto S_12644;}
S_12645:;
if ((-((*__LONG_T& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(10457);if(r)goto S_12645;}
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(10457);}while(r);
}
S_12648:;
if ((-((*__LONG_T& 4095ll )== 64 ))||is_error_pending()){
if(qbevent){evnt(10458);if(r)goto S_12648;}
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(10458);}while(r);
}
S_12651:;
if ((-((*__LONG_T& 4095ll )== 256 ))||is_error_pending()){
if(qbevent){evnt(10459);if(r)goto S_12651;}
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(10459);}while(r);
}
}else{
do{
qbs_set(__STRING_C,qbs_add(__STRING_C,qbs__tostr((int64)(qb_safe_idiv((*__LONG_T& 4095ll ), 8 )),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10461);}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(10464);}while(r);
S_12659:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(10465);if(r)goto S_12659;}
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(10465);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1589=*__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(10466);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10469);}while(r);
S_12665:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10469);if(r)goto S_12665;}
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(10469);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10469);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10470);}while(r);
}
}
do{
*__LONG_CISPECIAL= 0 ;
if(!qbevent)break;evnt(10488);}while(r);
S_12674:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10489);if(r)goto S_12674;}
S_12675:;
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(10490);if(r)goto S_12675;}
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,&(pass1591= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10491);}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,&(pass1592= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10492);}while(r);
do{
*__LONG_N=*__LONG_N+ 3 ;
if(!qbevent)break;evnt(10493);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10494);}while(r);
do{
*__LONG_CISPECIAL= 1 ;
if(!qbevent)break;evnt(10495);}while(r);
}
}
do{
*__LONG_USECALL= 0 ;
if(!qbevent)break;evnt(10500);}while(r);
S_12684:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||is_error_pending()){
if(qbevent){evnt(10501);if(r)goto S_12684;}
do{
*__LONG_USECALL= 1 ;
if(!qbevent)break;evnt(10502);}while(r);
S_12686:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10503);if(r)goto S_12686;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10503);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10503);}while(r);
}
do{
qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1593= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10504);}while(r);
do{
qbs_set(__STRING_N,qbs_ucase(__STRING_CN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10504);}while(r);
S_12692:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(10506);if(r)goto S_12692;}
S_12693:;
if ((-(*__LONG_N<= 4 ))||is_error_pending()){
if(qbevent){evnt(10508);if(r)goto S_12693;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10508);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10508);}while(r);
}
S_12697:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1594= 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(10509);if(r)goto S_12697;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10509);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10509);}while(r);
}
do{
qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1595= 4 ),&(pass1596=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10510);}while(r);
do{
qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1597= 4 ),&(pass1598=*__LONG_N- 1 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10511);}while(r);
S_12703:;
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(10514);if(r)goto S_12703;}
S_12704:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||is_error_pending()){
if(qbevent){evnt(10516);if(r)goto S_12704;}
do{
SUB_WRITEBUFRAWDATA(&(pass1599=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interrupt(",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10516);}while(r);
}else{
do{
SUB_WRITEBUFRAWDATA(&(pass1600=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interruptx(",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10516);}while(r);
}
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(10517);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10518);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10519);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10520);}while(r);
S_12713:;
fornext_value1602= 2 ;
fornext_finalvalue1602=*__LONG_N;
fornext_step1602= 1 ;
if (fornext_step1602<0) fornext_step_negative1602=1; else fornext_step_negative1602=0;
if (is_error_pending()) goto fornext_error1602;
goto fornext_entrylabel1602;
while(1){
fornext_value1602=fornext_step1602+(*__LONG_I);
fornext_entrylabel1602:
*__LONG_I=fornext_value1602;
if (fornext_step_negative1602){
if (fornext_value1602<fornext_finalvalue1602) break;
}else{
if (fornext_value1602>fornext_finalvalue1602) break;
}
fornext_error1602:;
if(qbevent){evnt(10521);if(r)goto S_12713;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10522);}while(r);
S_12715:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10523);if(r)goto S_12715;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10523);}while(r);
}
S_12718:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10524);if(r)goto S_12718;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10524);}while(r);
}
S_12721:;
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(10525);if(r)goto S_12721;}
S_12722:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10526);if(r)goto S_12722;}
S_12723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10527);if(r)goto S_12723;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10527);}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(10527);}while(r);
}
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(10529);}while(r);
S_12730:;
if ((-(*__LONG_ARGN== 1 ))||is_error_pending()){
if(qbevent){evnt(10530);if(r)goto S_12730;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10531);}while(r);
S_12732:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10532);if(r)goto S_12732;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10532);}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(10533);}while(r);
S_12736:;
if ((-(*__LONG_CISPECIAL== 1 ))||is_error_pending()){
if(qbevent){evnt(10534);if(r)goto S_12736;}
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(10534);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1603= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10535);}while(r);
S_12740:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10536);if(r)goto S_12740;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10536);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1604=*__LONG_MAINTXTBUF),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10538);}while(r);
}
S_12745:;
if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||is_error_pending()){
if(qbevent){evnt(10540);if(r)goto S_12745;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10541);}while(r);
S_12747:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10542);if(r)goto S_12747;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10542);}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(10543);}while(r);
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10544);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1605= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10545);}while(r);
S_12753:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10546);if(r)goto S_12753;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10546);}while(r);
}
do{
SUB_WRITEBUFRAWDATA(&(pass1606=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len(",",1),__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10548);}while(r);
}
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10550);}while(r);
}else{
S_12760:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10552);if(r)goto S_12760;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10552);}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(10552);}while(r);
}
}
fornext_continue_1601:;
}
fornext_exit_1601:;
S_12767:;
if ((-(*__LONG_ARGN!= 3 ))||is_error_pending()){
if(qbevent){evnt(10555);if(r)goto S_12767;}
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(10555);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10555);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1607=*__LONG_MAINTXTBUF),qbs_new_txt_len(");",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10556);}while(r);
S_12772:;
if ((-(*__LONG_CISPECIAL== 0 ))||is_error_pending()){
if(qbevent){evnt(10557);if(r)goto S_12772;}
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(10557);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10558);}while(r);
S_12776:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10558);if(r)goto S_12776;}
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(10558);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10558);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10560);}while(r);
}
S_12783:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||is_error_pending()){
if(qbevent){evnt(10571);if(r)goto S_12783;}
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(10572);}while(r);
do{
*__LONG_ARGN= 0 ;
if(!qbevent)break;evnt(10573);}while(r);
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10574);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10575);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10576);}while(r);
S_12789:;
fornext_value1610= 2 ;
fornext_finalvalue1610=*__LONG_N;
fornext_step1610= 1 ;
if (fornext_step1610<0) fornext_step_negative1610=1; else fornext_step_negative1610=0;
if (is_error_pending()) goto fornext_error1610;
goto fornext_entrylabel1610;
while(1){
fornext_value1610=fornext_step1610+(*__LONG_I);
fornext_entrylabel1610:
*__LONG_I=fornext_value1610;
if (fornext_step_negative1610){
if (fornext_value1610<fornext_finalvalue1610) break;
}else{
if (fornext_value1610>fornext_finalvalue1610) break;
}
fornext_error1610:;
if(qbevent){evnt(10577);if(r)goto S_12789;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10578);}while(r);
S_12791:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10579);if(r)goto S_12791;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10579);}while(r);
}
S_12794:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10580);if(r)goto S_12794;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10580);}while(r);
}
S_12797:;
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(10581);if(r)goto S_12797;}
S_12798:;
if ((-(*__LONG_I<*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10582);if(r)goto S_12798;}
S_12799:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10583);if(r)goto S_12799;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10583);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10583);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10585);}while(r);
S_12804:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10586);if(r)goto S_12804;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10586);}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(10587);}while(r);
do{
qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10588);}while(r);
S_12809:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10589);if(r)goto S_12809;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10589);}while(r);
}
S_12812:;
if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||is_error_pending()){
if(qbevent){evnt(10591);if(r)goto S_12812;}
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(10595);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1611=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10596);}while(r);
S_12815:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10597);if(r)goto S_12815;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10597);}while(r);
}
}else{
S_12819:;
if ((*__LONG_TYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(10603);if(r)goto S_12819;}
S_12820:;
if ((-((*__LONG_TYP& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(10604);if(r)goto S_12820;}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1612=*__LONG_SINGLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10605);}while(r);
S_12822:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10606);if(r)goto S_12822;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10606);}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(10607);}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(10608);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1613=*__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(10609);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1614=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10610);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1615=*__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(10611);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1616=*__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(10612);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1617=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10613);}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(10614);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1618=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10616);}while(r);
S_12835:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10617);if(r)goto S_12835;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10617);}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(10618);}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(10619);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1619=*__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(10620);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1620=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10621);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1621=*__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(10622);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1622=*__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(10623);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1623=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10624);}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(10625);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1624=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10628);}while(r);
S_12849:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10629);if(r)goto S_12849;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10629);}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(10630);}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(10631);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1625=*__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(10632);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1626=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10633);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1627=*__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(10634);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1628=*__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(10635);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1629=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10636);}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(10637);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1630=*__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(10642);}while(r);
}else{
S_12864:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10644);if(r)goto S_12864;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10644);}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(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_12870:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10646);if(r)goto S_12870;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10646);}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(10647);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1631=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10648);}while(r);
S_12875:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10649);if(r)goto S_12875;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10649);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1632=*__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(10650);}while(r);
}
do{
*__LONG_ARGN=*__LONG_ARGN+ 1 ;
if(!qbevent)break;evnt(10652);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10653);}while(r);
}else{
S_12883:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10655);if(r)goto S_12883;}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10655);}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(10655);}while(r);
}
}
fornext_continue_1609:;
}
fornext_exit_1609:;
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10658);}while(r);
S_12891:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10658);if(r)goto S_12891;}
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(10658);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10658);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10659);}while(r);
}
}else{
do{
qbs_set(__STRING_A,__STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10664);}while(r);
do{
qbs_set(__STRING_CA,__STRING_CN);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10665);}while(r);
do{
*__LONG_USECALL= 2 ;
if(!qbevent)break;evnt(10666);}while(r);
}
do{
*__LONG_N=FUNC_NUMELEMENTS(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10670);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1634= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10671);}while(r);
do{
*__LONG_VALIDSUB= 0 ;
if(!qbevent)break;evnt(10674);}while(r);
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10675);}while(r);
S_12907:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10675);if(r)goto S_12907;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1635= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10675);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10676);}while(r);
S_12911:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10677);if(r)goto S_12911;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10677);}while(r);
}
S_12914:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(10678);if(r)goto S_12914;}
S_12915:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
if(qbevent){evnt(10679);if(r)goto S_12915;}
do{
*__LONG_VALIDSUB= 1 ;
if(!qbevent)break;evnt(10679);}while(r);
do{
goto dl_exit_1636;
if(!qbevent)break;evnt(10679);}while(r);
}
S_12919:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(10680);if(r)goto S_12919;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10681);}while(r);
S_12921:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10681);if(r)goto S_12921;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1637= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10681);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(10682);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10683);}while(r);
S_12926:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10684);if(r)goto S_12926;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10684);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(10686);}while(r);
}
dl_continue_1636:;
}
dl_exit_1636:;
S_12933:;
if ((-(*__LONG_VALIDSUB== 0 ))||is_error_pending()){
if(qbevent){evnt(10689);if(r)goto S_12933;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10689);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10689);}while(r);
}
}
S_12938:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(10693);if(r)goto S_12938;}
S_12939:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||is_error_pending()){
if(qbevent){evnt(10695);if(r)goto S_12939;}
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10695);}while(r);
}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10697);}while(r);
S_12943:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10697);if(r)goto S_12943;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1638= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10697);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10698);}while(r);
S_12947:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10699);if(r)goto S_12947;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10699);}while(r);
}
S_12950:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(10700);if(r)goto S_12950;}
S_12951:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 2 ))||is_error_pending()){
if(qbevent){evnt(10701);if(r)goto S_12951;}
do{
*__LONG_SUBISINTERNAL=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+552)));
if(!qbevent)break;evnt(10704);}while(r);
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(10707);}while(r);
S_12954:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10708);if(r)goto S_12954;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10708);}while(r);
}
S_12957:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+532))),8,1))== 36 )))||is_error_pending()){
if(qbevent){evnt(10709);if(r)goto S_12957;}
S_12958:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(10710);if(r)goto S_12958;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10710);}while(r);
}
}else{
S_12962:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||is_error_pending()){
if(qbevent){evnt(10712);if(r)goto S_12962;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10712);}while(r);
}
}
S_12966:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10715);if(r)goto S_12966;}
S_12967:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+((0+1617))),256,1))!= 61 )))||is_error_pending()){
if(qbevent){evnt(10716);if(r)goto S_12967;}
S_12968:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1641= 2 )))== 61 )))||is_error_pending()){
if(qbevent){evnt(10717);if(r)goto S_12968;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10717);}while(r);
}
}
}
S_12973:;
if ((*__LONG_SUBISINTERNAL)||is_error_pending()){
if(qbevent){evnt(10724);if(r)goto S_12973;}
S_12974:;
if ((-(*__LONG_N> 2 ))||is_error_pending()){
if(qbevent){evnt(10725);if(r)goto S_12974;}
S_12975:;
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(10726);if(r)goto S_12975;}
S_12976:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1642= 2 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10727);if(r)goto S_12976;}
do{
*__LONG_B= 1 ;
if(!qbevent)break;evnt(10728);}while(r);
S_12978:;
fornext_value1644= 3 ;
fornext_finalvalue1644=*__LONG_N;
fornext_step1644= 1 ;
if (fornext_step1644<0) fornext_step_negative1644=1; else fornext_step_negative1644=0;
if (is_error_pending()) goto fornext_error1644;
goto fornext_entrylabel1644;
while(1){
fornext_value1644=fornext_step1644+(*__LONG_I);
fornext_entrylabel1644:
*__LONG_I=fornext_value1644;
if (fornext_step_negative1644){
if (fornext_value1644<fornext_finalvalue1644) break;
}else{
if (fornext_value1644>fornext_finalvalue1644) break;
}
fornext_error1644:;
if(qbevent){evnt(10729);if(r)goto S_12978;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10730);}while(r);
S_12980:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10731);if(r)goto S_12980;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10731);}while(r);
}
S_12983:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10732);if(r)goto S_12983;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10733);}while(r);
S_12985:;
if ((-(*__LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(10734);if(r)goto S_12985;}
S_12986:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10735);if(r)goto S_12986;}
do{
goto fornext_exit_1643;
if(!qbevent)break;evnt(10735);}while(r);
}
S_12989:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1645=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(10736);if(r)goto S_12989;}
do{
goto LABEL_NOTSUBCALL;
if(!qbevent)break;evnt(10736);}while(r);
}
}
}
fornext_continue_1643:;
}
fornext_exit_1643:;
}
}
}
}
S_12999:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||is_error_pending()){
if(qbevent){evnt(10747);if(r)goto S_12999;}
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(10748);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10748);}while(r);
}
S_13003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||is_error_pending()){
if(qbevent){evnt(10751);if(r)goto S_13003;}
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(10752);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10752);}while(r);
}
S_13007:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||is_error_pending()){
if(qbevent){evnt(10755);if(r)goto S_13007;}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10757);}while(r);
S_13009:;
fornext_value1647= 2 ;
fornext_finalvalue1647=*__LONG_N;
fornext_step1647= 1 ;
if (fornext_step1647<0) fornext_step_negative1647=1; else fornext_step_negative1647=0;
if (is_error_pending()) goto fornext_error1647;
goto fornext_entrylabel1647;
while(1){
fornext_value1647=fornext_step1647+(*__LONG_X);
fornext_entrylabel1647:
*__LONG_X=fornext_value1647;
if (fornext_step_negative1647){
if (fornext_value1647<fornext_finalvalue1647) break;
}else{
if (fornext_value1647>fornext_finalvalue1647) break;
}
fornext_error1647:;
if(qbevent){evnt(10758);if(r)goto S_13009;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10759);}while(r);
S_13011:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10760);if(r)goto S_13011;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10760);}while(r);
}
S_13014:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10761);if(r)goto S_13014;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10761);}while(r);
}
S_13017:;
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(10762);if(r)goto S_13017;}
do{
goto fornext_exit_1646;
if(!qbevent)break;evnt(10762);}while(r);
}
S_13020:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(10763);if(r)goto S_13020;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(10764);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10765);}while(r);
S_13023:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10766);if(r)goto S_13023;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10766);}while(r);
}
do{
goto fornext_exit_1646;
if(!qbevent)break;evnt(10767);}while(r);
}
fornext_continue_1646:;
}
fornext_exit_1646:;
}
S_13030:;
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(10777);if(r)goto S_13030;}
S_13031:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||is_error_pending()){
if(qbevent){evnt(10778);if(r)goto S_13031;}
S_13032:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10779);if(r)goto S_13032;}
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(10779);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10779);}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(10780);}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(10782);}while(r);
}
S_13040:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(10785);if(r)goto S_13040;}
do{
SUB_WRITEBUFLINE(&(pass1648=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_close(NULL,0);",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10786);}while(r);
}else{
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10788);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10789);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10790);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10791);}while(r);
S_13047:;
fornext_value1650= 2 ;
fornext_finalvalue1650=*__LONG_N;
fornext_step1650= 1 ;
if (fornext_step1650<0) fornext_step_negative1650=1; else fornext_step_negative1650=0;
if (is_error_pending()) goto fornext_error1650;
goto fornext_entrylabel1650;
while(1){
fornext_value1650=fornext_step1650+(*__LONG_X);
fornext_entrylabel1650:
*__LONG_X=fornext_value1650;
if (fornext_step_negative1650){
if (fornext_value1650<fornext_finalvalue1650) break;
}else{
if (fornext_value1650>fornext_finalvalue1650) break;
}
fornext_error1650:;
if(qbevent){evnt(10792);if(r)goto S_13047;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10793);}while(r);
S_13049:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10794);if(r)goto S_13049;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10794);}while(r);
}
S_13052:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10795);if(r)goto S_13052;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10795);}while(r);
}
S_13055:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10796);if(r)goto S_13055;}
S_13056:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(10797);if(r)goto S_13056;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(10797);}while(r);
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10797);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10797);}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(10798);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(10799);}while(r);
}
S_13065:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10802);if(r)goto S_13065;}
S_13066:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(10803);if(r)goto S_13066;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10804);}while(r);
S_13068:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10805);if(r)goto S_13068;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10805);}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(10806);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1651= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10807);}while(r);
S_13073:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10808);if(r)goto S_13073;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10808);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1652=*__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(10809);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10810);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(10811);}while(r);
do{
goto LABEL_CLOSENEXTA;
if(!qbevent)break;evnt(10812);}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(10814);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10814);}while(r);
}
}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(10818);}while(r);
S_13086:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10819);if(r)goto S_13086;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10819);}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(10819);}while(r);
}
LABEL_CLOSENEXTA:;
if(qbevent){evnt(10821);r=0;}
fornext_continue_1649:;
}
fornext_exit_1649:;
S_13092:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(10824);if(r)goto S_13092;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10825);}while(r);
S_13094:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10826);if(r)goto S_13094;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10826);}while(r);
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10827);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1653= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10828);}while(r);
S_13099:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10829);if(r)goto S_13099;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10829);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1654=*__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(10830);}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(10832);}while(r);
}
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(10836);}while(r);
S_13108:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(10836);if(r)goto S_13108;}
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(10836);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10836);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10837);}while(r);
}
S_13115:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||is_error_pending()){
if(qbevent){evnt(10856);if(r)goto S_13115;}
do{
SUB_XREAD(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10857);}while(r);
S_13117:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10858);if(r)goto S_13117;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10858);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(10860);}while(r);
}
do{
*__LONG_LINEINPUT= 0 ;
if(!qbevent)break;evnt(10899);}while(r);
S_13123:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(10900);if(r)goto S_13123;}
S_13124:;
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(10901);if(r)goto S_13124;}
do{
*__LONG_LINEINPUT= 1 ;
if(!qbevent)break;evnt(10902);}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(10903);}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(10903);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(10903);}while(r);
do{
qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10904);}while(r);
}
}
S_13132:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(10908);if(r)goto S_13132;}
S_13133:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(10909);if(r)goto S_13133;}
S_13134:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1659= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(10910);if(r)goto S_13134;}
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(10911);}while(r);
S_13136:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10911);if(r)goto S_13136;}
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(10911);}while(r);
}
do{
qbs_set(__STRING_U,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10913);}while(r);
S_13140:;
if ((-(*__LONG_N== 2 ))||is_error_pending()){
if(qbevent){evnt(10915);if(r)goto S_13140;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10915);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10915);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10916);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10917);}while(r);
S_13146:;
fornext_value1661= 3 ;
fornext_finalvalue1661=*__LONG_N;
fornext_step1661= 1 ;
if (fornext_step1661<0) fornext_step_negative1661=1; else fornext_step_negative1661=0;
if (is_error_pending()) goto fornext_error1661;
goto fornext_entrylabel1661;
while(1){
fornext_value1661=fornext_step1661+(*__LONG_I);
fornext_entrylabel1661:
*__LONG_I=fornext_value1661;
if (fornext_step_negative1661){
if (fornext_value1661<fornext_finalvalue1661) break;
}else{
if (fornext_value1661>fornext_finalvalue1661) break;
}
fornext_error1661:;
if(qbevent){evnt(10918);if(r)goto S_13146;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10919);}while(r);
S_13148:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10920);if(r)goto S_13148;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10920);}while(r);
}
S_13151:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10921);if(r)goto S_13151;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10921);}while(r);
}
S_13154:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10922);if(r)goto S_13154;}
S_13155:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10923);if(r)goto S_13155;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20));
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{
goto LABEL_INPUTGOTFN;
if(!qbevent)break;evnt(10924);}while(r);
}
S_13161:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10926);if(r)goto S_13161;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10926);}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(10926);}while(r);
}
fornext_continue_1660:;
}
fornext_exit_1660:;
LABEL_INPUTGOTFN:;
if(qbevent){evnt(10928);r=0;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10929);}while(r);
S_13168:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10930);if(r)goto S_13168;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10930);}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(10931);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1662= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10932);}while(r);
S_13173:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10933);if(r)goto S_13173;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10933);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1663=*__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(10934);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1664=*__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(10935);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(10936);}while(r);
S_13179:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10937);if(r)goto S_13179;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10937);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10937);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10938);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10939);}while(r);
S_13185:;
fornext_value1666=*__LONG_I;
fornext_finalvalue1666=*__LONG_N;
fornext_step1666= 1 ;
if (fornext_step1666<0) fornext_step_negative1666=1; else fornext_step_negative1666=0;
if (is_error_pending()) goto fornext_error1666;
goto fornext_entrylabel1666;
while(1){
fornext_value1666=fornext_step1666+(*__LONG_I);
fornext_entrylabel1666:
*__LONG_I=fornext_value1666;
if (fornext_step_negative1666){
if (fornext_value1666<fornext_finalvalue1666) break;
}else{
if (fornext_value1666>fornext_finalvalue1666) break;
}
fornext_error1666:;
if(qbevent){evnt(10940);if(r)goto S_13185;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10941);}while(r);
S_13187:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(10942);if(r)goto S_13187;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(10942);}while(r);
}
S_13190:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(10943);if(r)goto S_13190;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(10943);}while(r);
}
S_13193:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10944);if(r)goto S_13193;}
S_13194:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10945);if(r)goto S_13194;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10945);}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(10945);}while(r);
}
do{
qbs_set(__STRING_A2,qbs_new_txt_len(",",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10946);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(10946);}while(r);
}
S_13202:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(10948);if(r)goto S_13202;}
S_13203:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10949);if(r)goto S_13203;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10949);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10949);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10950);}while(r);
S_13208:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10951);if(r)goto S_13208;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10951);}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(10952);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10953);}while(r);
S_13213:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10954);if(r)goto S_13213;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10954);}while(r);
}
S_13216:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(10955);if(r)goto S_13216;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10955);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10955);}while(r);
}
S_13220:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(10956);if(r)goto S_13220;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1667= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10957);}while(r);
S_13222:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10958);if(r)goto S_13222;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10958);}while(r);
}
S_13225:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10959);if(r)goto S_13225;}
do{
SUB_WRITEBUFLINE(&(pass1668=*__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(10960);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1669=*__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(10961);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1670=*__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(10963);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1671=*__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(10964);}while(r);
}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(10966);}while(r);
}else{
S_13234:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10968);if(r)goto S_13234;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10968);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10968);}while(r);
}
S_13238:;
if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 4095ll )!= 64 )))||is_error_pending()){
if(qbevent){evnt(10971);if(r)goto S_13238;}
S_13239:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(10972);if(r)goto S_13239;}
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)),&(pass1672= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10973);}while(r);
S_13241:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10974);if(r)goto S_13241;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10974);}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)),&(pass1673= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10976);}while(r);
S_13246:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10977);if(r)goto S_13246;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10977);}while(r);
}
}
}else{
S_13251:;
if ((*__LONG_T&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(10980);if(r)goto S_13251;}
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1674= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10981);}while(r);
S_13253:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10982);if(r)goto S_13253;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10982);}while(r);
}
}else{
do{
SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1675= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10984);}while(r);
S_13258:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(10985);if(r)goto S_13258;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10985);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(&(pass1676=*__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(10989);}while(r);
}
S_13265:;
if ((-(*__LONG_I==*__LONG_N))||is_error_pending()){
if(qbevent){evnt(10992);if(r)goto S_13265;}
do{
goto fornext_exit_1665;
if(!qbevent)break;evnt(10992);}while(r);
}
S_13268:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(10993);if(r)goto S_13268;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10993);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(10993);}while(r);
}
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10994);}while(r);
do{
qbs_set(__STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10994);}while(r);
}
S_13275:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(10996);if(r)goto S_13275;}
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10996);}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(10996);}while(r);
}
fornext_continue_1665:;
}
fornext_exit_1665:;
do{
SUB_WRITEBUFLINE(&(pass1677=*__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(10998);}while(r);
S_13282:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(10999);if(r)goto S_13282;}
do{
SUB_WRITEBUFLINE(&(pass1678=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(10999);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11000);}while(r);
S_13286:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11000);if(r)goto S_13286;}
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(11000);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11000);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11001);}while(r);
}
}
}
S_13295:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(11007);if(r)goto S_13295;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11008);}while(r);
S_13297:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(11008);if(r)goto S_13297;}
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(11008);}while(r);
}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(11009);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(11010);}while(r);
do{
*__LONG_NEWLINE= 1 ;
if(!qbevent)break;evnt(11012);}while(r);
S_13303:;
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(11012);if(r)goto S_13303;}
do{
*__LONG_NEWLINE= 0 ;
if(!qbevent)break;evnt(11012);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(11012);}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(11012);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11014);}while(r);
S_13309:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(11015);if(r)goto S_13309;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11016);}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(11016);}while(r);
S_13312:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11017);if(r)goto S_13312;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11017);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1680=*__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(11018);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(11019);}while(r);
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11021);}while(r);
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(11022);}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(11023);}while(r);
S_13320:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(11024);if(r)goto S_13320;}
S_13321:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(11025);if(r)goto S_13321;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(11025);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1681=*__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(11026);}while(r);
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(11027);}while(r);
}
S_13327:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11029);if(r)goto S_13327;}
do{
goto LABEL_FINISHEDPROMPTSTRING;
if(!qbevent)break;evnt(11030);}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(11032);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11032);}while(r);
}
S_13333:;
if ((-(*__LONG_LINEINPUT== 0 ))||is_error_pending()){
if(qbevent){evnt(11035);if(r)goto S_13333;}
do{
SUB_WRITEBUFLINE(&(pass1682=*__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(11035);}while(r);
}
LABEL_FINISHEDPROMPTSTRING:;
if(qbevent){evnt(11036);r=0;}
do{
*__LONG_NUMVAR= 0 ;
if(!qbevent)break;evnt(11037);}while(r);
S_13337:;
fornext_value1684=*__LONG_I;
fornext_finalvalue1684=*__LONG_N;
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(11038);if(r)goto S_13337;}
S_13338:;
if ((-(*__LONG_COMMANEEDED== 1 ))||is_error_pending()){
if(qbevent){evnt(11039);if(r)goto S_13338;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11040);}while(r);
S_13340:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11041);if(r)goto S_13340;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11041);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11041);}while(r);
}
}else{
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(11044);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11045);}while(r);
S_13347:;
fornext_value1686=*__LONG_I;
fornext_finalvalue1686=*__LONG_N;
fornext_step1686= 1 ;
if (fornext_step1686<0) fornext_step_negative1686=1; else fornext_step_negative1686=0;
if (is_error_pending()) goto fornext_error1686;
goto fornext_entrylabel1686;
while(1){
fornext_value1686=fornext_step1686+(*__LONG_I2);
fornext_entrylabel1686:
*__LONG_I2=fornext_value1686;
if (fornext_step_negative1686){
if (fornext_value1686<fornext_finalvalue1686) break;
}else{
if (fornext_value1686>fornext_finalvalue1686) break;
}
fornext_error1686:;
if(qbevent){evnt(11046);if(r)goto S_13347;}
do{
qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11047);}while(r);
S_13349:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(11048);if(r)goto S_13349;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(11048);}while(r);
}
S_13352:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(11049);if(r)goto S_13352;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(11049);}while(r);
}
S_13355:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(11050);if(r)goto S_13355;}
do{
*__LONG_I2=*__LONG_I2- 1 ;
if(!qbevent)break;evnt(11050);}while(r);
do{
goto fornext_exit_1685;
if(!qbevent)break;evnt(11050);}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(11051);}while(r);
fornext_continue_1685:;
}
fornext_exit_1685:;
do{
*__LONG_I=*__LONG_I2;
if(!qbevent)break;evnt(11053);}while(r);
S_13362:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(11053);if(r)goto S_13362;}
do{
*__LONG_I=*__LONG_N;
if(!qbevent)break;evnt(11053);}while(r);
}
S_13365:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11054);if(r)goto S_13365;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11054);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11054);}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(11055);}while(r);
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11056);}while(r);
S_13371:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11057);if(r)goto S_13371;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11057);}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(11058);}while(r);
S_13375:;
if ((-(*__LONG_I!=*__LONG_N))||is_error_pending()){
if(qbevent){evnt(11058);if(r)goto S_13375;}
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(11058);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11059);}while(r);
S_13379:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11060);if(r)goto S_13379;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11060);}while(r);
}
S_13382:;
if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(11061);if(r)goto S_13382;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11061);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11061);}while(r);
}
S_13386:;
if (((*__LONG_T&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11063);if(r)goto S_13386;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1688= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11064);}while(r);
S_13388:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11065);if(r)goto S_13388;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11065);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(11066);}while(r);
S_13392:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(11067);if(r)goto S_13392;}
do{
SUB_WRITEBUFLINE(&(pass1689=*__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(11068);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1690=*__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(11070);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1691=*__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(11072);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(11073);}while(r);
}
S_13400:;
if ((*__LONG_LINEINPUT)||is_error_pending()){
if(qbevent){evnt(11076);if(r)goto S_13400;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11076);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11076);}while(r);
}
S_13404:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11077);if(r)goto S_13404;}
S_13405:;
if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(11078);if(r)goto S_13405;}
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(11079);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11079);}while(r);
}
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1692= 0 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11082);}while(r);
S_13411:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11083);if(r)goto S_13411;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11083);}while(r);
}
S_13414:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11086);if(r)goto S_13414;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(11086);}while(r);
}
S_13417:;
if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
if(qbevent){evnt(11087);if(r)goto S_13417;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(11087);}while(r);
}
S_13420:;
if (((*__LONG_T&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11088);if(r)goto S_13420;}
do{
*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(11088);}while(r);
}
do{
*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ;
if(!qbevent)break;evnt(11099);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1693=*__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(11100);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1694=*__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(11101);}while(r);
do{
goto LABEL_GOTINPUTVAR;
if(!qbevent)break;evnt(11102);}while(r);
}
LABEL_GOTINPUTVAR:;
if(qbevent){evnt(11105);r=0;}
do{
*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ;
if(!qbevent)break;evnt(11106);}while(r);
S_13429:;
if ((-(*__LONG_COMMANEEDED== 2 ))||is_error_pending()){
if(qbevent){evnt(11106);if(r)goto S_13429;}
do{
*__LONG_COMMANEEDED= 0 ;
if(!qbevent)break;evnt(11106);}while(r);
}
fornext_continue_1683:;
}
fornext_exit_1683:;
S_13433:;
if ((-(*__LONG_NUMVAR== 0 ))||is_error_pending()){
if(qbevent){evnt(11108);if(r)goto S_13433;}
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(11108);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11108);}while(r);
}
S_13437:;
if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||is_error_pending()){
if(qbevent){evnt(11109);if(r)goto S_13437;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11109);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11109);}while(r);
}
S_13441:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(11110);if(r)goto S_13441;}
do{
SUB_WRITEBUFLINE(&(pass1695=*__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(11111);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1696=*__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(11113);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1697=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (stop_program) end();",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11114);}while(r);
S_13446:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(11115);if(r)goto S_13446;}
do{
SUB_WRITEBUFLINE(&(pass1698=*__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(11116);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1699=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11118);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11119);}while(r);
S_13451:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11119);if(r)goto S_13451;}
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(11119);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11119);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11120);}while(r);
}
S_13458:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(11125);if(r)goto S_13458;}
S_13459:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(11126);if(r)goto S_13459;}
S_13460:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1701= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11127);if(r)goto S_13460;}
do{
SUB_XFILEWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11128);}while(r);
S_13462:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11129);if(r)goto S_13462;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11129);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11130);}while(r);
}
}
}
S_13469:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||is_error_pending()){
if(qbevent){evnt(11135);if(r)goto S_13469;}
do{
SUB_XWRITE(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11136);}while(r);
S_13471:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11137);if(r)goto S_13471;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11137);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11138);}while(r);
}
S_13476:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||is_error_pending()){
if(qbevent){evnt(11141);if(r)goto S_13476;}
S_13477:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(11142);if(r)goto S_13477;}
S_13478:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1702= 2 )),qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11143);if(r)goto S_13478;}
do{
SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11144);}while(r);
S_13480:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11145);if(r)goto S_13480;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11145);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11146);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11147);}while(r);
S_13485:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11147);if(r)goto S_13485;}
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(11147);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11147);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11148);}while(r);
}
}
}
S_13494:;
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(11153);if(r)goto S_13494;}
S_13495:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(11154);if(r)goto S_13495;}
do{
*__LONG_ELEMENTON= 2 ;
if(!qbevent)break;evnt(11155);}while(r);
LABEL_REDOSEMI:;
if(qbevent){evnt(11156);r=0;}
S_13497:;
fornext_value1705=*__LONG_ELEMENTON;
fornext_finalvalue1705=*__LONG_N- 1 ;
fornext_step1705= 1 ;
if (fornext_step1705<0) fornext_step_negative1705=1; else fornext_step_negative1705=0;
if (is_error_pending()) goto fornext_error1705;
goto fornext_entrylabel1705;
while(1){
fornext_value1705=fornext_step1705+(*__LONG_I);
fornext_entrylabel1705:
*__LONG_I=fornext_value1705;
if (fornext_step_negative1705){
if (fornext_value1705<fornext_finalvalue1705) break;
}else{
if (fornext_value1705>fornext_finalvalue1705) break;
}
fornext_error1705:;
if(qbevent){evnt(11157);if(r)goto S_13497;}
do{
qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1706=*__LONG_I+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11158);}while(r);
S_13499:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+)<=>=<>",10),__STRING_NEXTCHAR,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(11161);if(r)goto S_13499;}
do{
qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11162);}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(11163);}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(11164);}while(r);
S_13503:;
if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||is_error_pending()){
if(qbevent){evnt(11165);if(r)goto S_13503;}
do{
*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ;
if(!qbevent)break;evnt(11167);}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(11168);}while(r);
S_13506:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||is_error_pending()){
if(qbevent){evnt(11169);if(r)goto S_13506;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11170);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11171);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(11172);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(11173);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(11174);}while(r);
}
}
S_13514:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||is_error_pending()){
if(qbevent){evnt(11177);if(r)goto S_13514;}
S_13515:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(11178);if(r)goto S_13515;}
S_13516:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(";,+(<=>=<>",10),__STRING_TEMP1,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(11179);if(r)goto S_13516;}
do{
SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11181);}while(r);
do{
SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11182);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(11183);}while(r);
do{
*__LONG_ELEMENTON=*__LONG_I+ 2 ;
if(!qbevent)break;evnt(11184);}while(r);
do{
goto LABEL_REDOSEMI;
if(!qbevent)break;evnt(11185);}while(r);
}
}
}
}
fornext_continue_1704:;
}
fornext_exit_1704:;
}
do{
SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11193);}while(r);
S_13529:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11194);if(r)goto S_13529;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11194);}while(r);
}
do{
qbs_set(__STRING_L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11195);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11196);}while(r);
S_13534:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11196);if(r)goto S_13534;}
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(11196);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11196);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11197);}while(r);
}
S_13541:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||is_error_pending()){
if(qbevent){evnt(11202);if(r)goto S_13541;}
S_13542:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11203);if(r)goto S_13542;}
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(11203);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11203);}while(r);
}
S_13546:;
fornext_value1709= 2 ;
fornext_finalvalue1709=*__LONG_N;
fornext_step1709= 1 ;
if (fornext_step1709<0) fornext_step_negative1709=1; else fornext_step_negative1709=0;
if (is_error_pending()) goto fornext_error1709;
goto fornext_entrylabel1709;
while(1){
fornext_value1709=fornext_step1709+(*__LONG_I2);
fornext_entrylabel1709:
*__LONG_I2=fornext_value1709;
if (fornext_step_negative1709){
if (fornext_value1709<fornext_finalvalue1709) break;
}else{
if (fornext_value1709>fornext_finalvalue1709) break;
}
fornext_error1709:;
if(qbevent){evnt(11204);if(r)goto S_13546;}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11205);}while(r);
S_13548:;
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(11206);if(r)goto S_13548;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11206);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11206);}while(r);
}
fornext_continue_1708:;
}
fornext_exit_1708:;
}
S_13554:;
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(11211);if(r)goto S_13554;}
S_13555:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(11212);if(r)goto S_13555;}
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(11212);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11212);}while(r);
}
S_13559:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(11213);if(r)goto S_13559;}
do{
qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11213);}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(11213);}while(r);
}
do{
qbs_set(__STRING_DEST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11214);}while(r);
do{
qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11215);}while(r);
do{
*__LONG_PART= 1 ;
if(!qbevent)break;evnt(11216);}while(r);
do{
*__LONG_I= 2 ;
if(!qbevent)break;evnt(11217);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11218);}while(r);
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(11219);}while(r);
S_13570:;
do{
if(qbevent){evnt(11220);if(r)goto S_13570;}
S_13571:;
if ((-(*__LONG_I>*__LONG_N))||is_error_pending()){
if(qbevent){evnt(11221);if(r)goto S_13571;}
S_13572:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(11222);if(r)goto S_13572;}
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(11222);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11222);}while(r);
}
do{
qbs_set(__STRING_SOURCE,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11223);}while(r);
do{
goto dl_exit_1710;
if(!qbevent)break;evnt(11224);}while(r);
}
do{
qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11226);}while(r);
S_13580:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(11227);if(r)goto S_13580;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(11227);}while(r);
}
S_13583:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(11228);if(r)goto S_13583;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(11228);}while(r);
}
S_13586:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(11229);if(r)goto S_13586;}
S_13587:;
if ((-(*__LONG_PART== 1 ))||is_error_pending()){
if(qbevent){evnt(11230);if(r)goto S_13587;}
do{
qbs_set(__STRING_DEST,__STRING_A3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11230);}while(r);
do{
*__LONG_PART= 2 ;
if(!qbevent)break;evnt(11230);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11230);}while(r);
do{
goto LABEL_LRSETGOTPART;
if(!qbevent)break;evnt(11230);}while(r);
}
}
S_13594:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||is_error_pending()){
if(qbevent){evnt(11232);if(r)goto S_13594;}
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(11232);}while(r);
}else{
do{
qbs_set(__STRING_A3,__STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11232);}while(r);
}
LABEL_LRSETGOTPART:;
if(qbevent){evnt(11233);r=0;}
do{
*__LONG_I=*__LONG_I+ 1 ;
if(!qbevent)break;evnt(11234);}while(r);
dl_continue_1710:;
}while(1);
dl_exit_1710:;
S_13601:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11236);if(r)goto S_13601;}
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(11236);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11236);}while(r);
}
do{
qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11238);}while(r);
S_13606:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11239);if(r)goto S_13606;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11239);}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(11240);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11241);}while(r);
S_13611:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11242);if(r)goto S_13611;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11242);}while(r);
}
S_13614:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(11243);if(r)goto S_13614;}
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(11243);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11243);}while(r);
}
do{
qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11244);}while(r);
S_13619:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11245);if(r)goto S_13619;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11245);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11246);}while(r);
S_13623:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11247);if(r)goto S_13623;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11247);}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(11248);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11249);}while(r);
S_13628:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11249);if(r)goto S_13628;}
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(11249);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11249);}while(r);
}
do{
qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11250);}while(r);
S_13634:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11251);if(r)goto S_13634;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11251);}while(r);
}
S_13637:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||is_error_pending()){
if(qbevent){evnt(11252);if(r)goto S_13637;}
do{
SUB_WRITEBUFLINE(&(pass1713=*__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(11253);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1714=*__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(11255);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11257);}while(r);
}
S_13644:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||is_error_pending()){
if(qbevent){evnt(11261);if(r)goto S_13644;}
S_13645:;
if ((-(*__LONG_N< 4 ))||is_error_pending()){
if(qbevent){evnt(11262);if(r)goto S_13645;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11262);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11262);}while(r);
}
do{
*__LONG_B= 0 ;
if(!qbevent)break;evnt(11263);}while(r);
do{
*__LONG_ELE= 1 ;
if(!qbevent)break;evnt(11264);}while(r);
do{
qbs_set(__STRING_E1,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11265);}while(r);
do{
qbs_set(__STRING_E2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11266);}while(r);
S_13653:;
fornext_value1716= 2 ;
fornext_finalvalue1716=*__LONG_N;
fornext_step1716= 1 ;
if (fornext_step1716<0) fornext_step_negative1716=1; else fornext_step_negative1716=0;
if (is_error_pending()) goto fornext_error1716;
goto fornext_entrylabel1716;
while(1){
fornext_value1716=fornext_step1716+(*__LONG_I);
fornext_entrylabel1716:
*__LONG_I=fornext_value1716;
if (fornext_step_negative1716){
if (fornext_value1716<fornext_finalvalue1716) break;
}else{
if (fornext_value1716>fornext_finalvalue1716) break;
}
fornext_error1716:;
if(qbevent){evnt(11267);if(r)goto S_13653;}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11268);}while(r);
S_13655:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(11269);if(r)goto S_13655;}
do{
*__LONG_B=*__LONG_B+ 1 ;
if(!qbevent)break;evnt(11269);}while(r);
}
S_13658:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(11270);if(r)goto S_13658;}
do{
*__LONG_B=*__LONG_B- 1 ;
if(!qbevent)break;evnt(11270);}while(r);
}
S_13661:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(11271);if(r)goto S_13661;}
S_13662:;
if ((-(*__LONG_ELE== 2 ))||is_error_pending()){
if(qbevent){evnt(11272);if(r)goto S_13662;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11272);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11272);}while(r);
}
do{
*__LONG_ELE= 2 ;
if(!qbevent)break;evnt(11273);}while(r);
}else{
S_13668:;
if ((-(*__LONG_ELE== 1 ))||is_error_pending()){
if(qbevent){evnt(11275);if(r)goto S_13668;}
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(11275);}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(11275);}while(r);
}
}
fornext_continue_1715:;
}
fornext_exit_1715:;
S_13675:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11278);if(r)goto S_13675;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11278);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11278);}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(11279);}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(11279);}while(r);
do{
qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11281);}while(r);
S_13682:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11282);if(r)goto S_13682;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11282);}while(r);
}
do{
qbs_set(__STRING_E1L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11283);}while(r);
do{
qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11284);}while(r);
S_13687:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11285);if(r)goto S_13687;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11285);}while(r);
}
do{
qbs_set(__STRING_E2L,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11286);}while(r);
do{
qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11287);}while(r);
do{
qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11287);}while(r);
S_13693:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11288);if(r)goto S_13693;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11288);}while(r);
}
S_13696:;
if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(11289);if(r)goto S_13696;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11289);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11289);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11291);}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(11292);}while(r);
S_13702:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(11293);if(r)goto S_13702;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11293);}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(11293);}while(r);
}
S_13707:;
if (((*__LONG_E1TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11296);if(r)goto S_13707;}
S_13708:;
if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11297);if(r)goto S_13708;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11297);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11297);}while(r);
}
do{
qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1720= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11298);}while(r);
do{
qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1721= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11298);}while(r);
S_13714:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11299);if(r)goto S_13714;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11299);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1722=*__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(11300);}while(r);
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11301);}while(r);
}
S_13720:;
if ((*__LONG_E1TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11309);if(r)goto S_13720;}
do{
qbs_set(__STRING_A,__STRING_E1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11310);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11312);}while(r);
S_13723:;
if ((*__LONG_I)||is_error_pending()){
if(qbevent){evnt(11313);if(r)goto S_13723;}
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(11314);}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(11314);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER);
if(!qbevent)break;evnt(11315);}while(r);
S_13727:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11316);if(r)goto S_13727;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11316);}while(r);
}
do{
*__LONG_U=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11317);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11318);}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(11318);}while(r);
do{
*__LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11318);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11319);}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(11319);}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(11320);}while(r);
S_13737:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
if(qbevent){evnt(11320);if(r)goto S_13737;}
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(11320);}while(r);
}
do{
*__INTEGER_LHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
if(!qbevent)break;evnt(11321);}while(r);
do{
*__INTEGER_LHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
if(!qbevent)break;evnt(11322);}while(r);
S_13742:;
if ((-(*__LONG_MEMBER_ELEMENT_ID== 0 ))||is_error_pending()){
if(qbevent){evnt(11323);if(r)goto S_13742;}
do{
qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11324);}while(r);
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11325);}while(r);
do{
*__LONG_T2=*__LONG_E2TYP;
if(!qbevent)break;evnt(11325);}while(r);
S_13746:;
if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(11326);if(r)goto S_13746;}
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(11326);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11326);}while(r);
}
do{
*__LONG_IDNUMBER2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11327);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER2);
if(!qbevent)break;evnt(11328);}while(r);
S_13752:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11329);if(r)goto S_13752;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11329);}while(r);
}
do{
*__INTEGER_RHSDYNUDT=*(int16*)(((char*)__UDT_ID)+((0+520)));
if(!qbevent)break;evnt(11330);}while(r);
do{
*__INTEGER_RHSDYNMODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
if(!qbevent)break;evnt(11331);}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(11332);}while(r);
S_13758:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
if(qbevent){evnt(11332);if(r)goto S_13758;}
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(11332);}while(r);
}
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11333);}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(11333);}while(r);
do{
*__LONG_U2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11333);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11334);}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(11334);}while(r);
do{
*__LONG_E2=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11334);}while(r);
do{
*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11336);}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(11336);}while(r);
S_13769:;
if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||is_error_pending()){
if(qbevent){evnt(11338);if(r)goto S_13769;}
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(11338);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11338);}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(11339);}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(11340);}while(r);
S_13775:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_U,&(pass1729=*__INTEGER_LHSDYNMODE))&(*__INTEGER_LHSDYNUDT|*__INTEGER_RHSDYNUDT))||is_error_pending()){
if(qbevent){evnt(11341);if(r)goto S_13775;}
S_13776:;
if (((-(*__INTEGER_LHSDYNUDT== 0 ))|(-(*__INTEGER_RHSDYNUDT== 0 )))||is_error_pending()){
if(qbevent){evnt(11342);if(r)goto S_13776;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP these TYPE values because their nested-array storage layouts are incompatible",89));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11342);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11342);}while(r);
}
S_13780:;
if ((-(*__INTEGER_LHSDYNMODE!=*__INTEGER_RHSDYNMODE))||is_error_pending()){
if(qbevent){evnt(11343);if(r)goto S_13780;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP these TYPE values because their nested-array storage layouts are incompatible",89));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11343);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11343);}while(r);
}
do{
*__LONG_B=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(__LONG_U), 8 );
if(!qbevent)break;evnt(11344);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11345);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1730=*__LONG_MAINTXTBUF),qbs_new_txt_len("{",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11346);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1731=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *dyn_swap_tmp=(uint8*)malloc((size_t)",43),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11347);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1732=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!dyn_swap_tmp) error(257);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11348);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1733=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((void*)dyn_swap_tmp,(void*)(",35),__STRING_DST),qbs_new_txt_len("),(size_t)",10)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11349);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1734=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((void*)(",15),__STRING_DST),qbs_new_txt_len("),(void*)(",10)),__STRING_SRC),qbs_new_txt_len("),(size_t)",10)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11350);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1735=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((void*)(",15),__STRING_SRC),qbs_new_txt_len("),(void*)dyn_swap_tmp,(size_t)",30)),__STRING_SIZ),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11351);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1736=*__LONG_MAINTXTBUF),qbs_new_txt_len("free((void*)dyn_swap_tmp);",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11352);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1737=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11353);}while(r);
}else{
do{
*__LONG_B=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
if(!qbevent)break;evnt(11355);}while(r);
do{
qbs_set(__STRING_SIZ,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11356);}while(r);
S_13797:;
if ((-(*__LONG_B== 1 ))||is_error_pending()){
if(qbevent){evnt(11357);if(r)goto S_13797;}
do{
SUB_WRITEBUFLINE(&(pass1738=*__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(11357);}while(r);
}
S_13800:;
if ((-(*__LONG_B== 2 ))||is_error_pending()){
if(qbevent){evnt(11358);if(r)goto S_13800;}
do{
SUB_WRITEBUFLINE(&(pass1739=*__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(11358);}while(r);
}
S_13803:;
if ((-(*__LONG_B== 4 ))||is_error_pending()){
if(qbevent){evnt(11359);if(r)goto S_13803;}
do{
SUB_WRITEBUFLINE(&(pass1740=*__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(11359);}while(r);
}
S_13806:;
if ((-(*__LONG_B== 8 ))||is_error_pending()){
if(qbevent){evnt(11360);if(r)goto S_13806;}
do{
SUB_WRITEBUFLINE(&(pass1741=*__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(11360);}while(r);
}
S_13809:;
if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||is_error_pending()){
if(qbevent){evnt(11361);if(r)goto S_13809;}
do{
SUB_WRITEBUFLINE(&(pass1742=*__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(11361);}while(r);
}
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11363);}while(r);
}
}
}
do{
*__LONG_E1TYPC=*__LONG_E1TYP;
if(!qbevent)break;evnt(11369);}while(r);
S_13818:;
if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(11370);if(r)goto S_13818;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(11370);}while(r);
}
S_13821:;
if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(11371);if(r)goto S_13821;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(11371);}while(r);
}
S_13824:;
if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(11372);if(r)goto S_13824;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(11372);}while(r);
}
S_13827:;
if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(11373);if(r)goto S_13827;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(11373);}while(r);
}
S_13830:;
if ((*__LONG_E1TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11374);if(r)goto S_13830;}
do{
*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(11374);}while(r);
}
do{
*__LONG_E2TYPC=*__LONG_E2TYP;
if(!qbevent)break;evnt(11375);}while(r);
S_13834:;
if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(11376);if(r)goto S_13834;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(11376);}while(r);
}
S_13837:;
if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
if(qbevent){evnt(11377);if(r)goto S_13837;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY;
if(!qbevent)break;evnt(11377);}while(r);
}
S_13840:;
if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(11378);if(r)goto S_13840;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY;
if(!qbevent)break;evnt(11378);}while(r);
}
S_13843:;
if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(11379);if(r)goto S_13843;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(11379);}while(r);
}
S_13846:;
if ((*__LONG_E2TYPC&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11380);if(r)goto S_13846;}
do{
*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT;
if(!qbevent)break;evnt(11380);}while(r);
}
S_13849:;
if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||is_error_pending()){
if(qbevent){evnt(11381);if(r)goto S_13849;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11381);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11381);}while(r);
}
do{
*__LONG_T=*__LONG_E1TYP;
if(!qbevent)break;evnt(11382);}while(r);
S_13854:;
if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(11383);if(r)goto S_13854;}
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(11383);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11383);}while(r);
}
do{
*__LONG_B=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(11384);}while(r);
do{
qbs_set(__STRING_T,qbs__tostr((int32)(*__LONG_B),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11385);}while(r);
S_13860:;
if ((-(*__LONG_B> 64 ))||is_error_pending()){
if(qbevent){evnt(11385);if(r)goto S_13860;}
do{
qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11385);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1743=*__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,&(pass1744= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1745= 0 ))),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11386);}while(r);
S_13864:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11387);if(r)goto S_13864;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11387);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11388);}while(r);
}
S_13869:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||is_error_pending()){
if(qbevent){evnt(11391);if(r)goto S_13869;}
S_13870:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(11392);if(r)goto S_13870;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11392);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11392);}while(r);
}
S_13875:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(11393);if(r)goto S_13875;}
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(11393);}while(r);
}
S_13878:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(11394);if(r)goto S_13878;}
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(11394);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11394);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1746= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11395);}while(r);
S_13883:;
if(qbevent){evnt(11396);if(r)goto S_13883;}
S_13884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||is_error_pending()){
if(qbevent){evnt(11397);if(r)goto S_13884;}
do{
qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1748= 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11398);}while(r);
S_13886:;
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(11399);if(r)goto S_13886;}
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(11399);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11399);}while(r);
}
S_13890:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||is_error_pending()){
if(qbevent){evnt(11400);if(r)goto S_13890;}
do{
*__INTEGER_OPTIONBASE= 1 ;
if(!qbevent)break;evnt(11400);}while(r);
}else{
do{
*__INTEGER_OPTIONBASE= 0 ;
if(!qbevent)break;evnt(11400);}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(11401);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11402);}while(r);
S_13897:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11402);if(r)goto S_13897;}
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(11402);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11402);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11403);}while(r);
sc_ec_36_end:;
goto sc_1747_end;
}
S_13903:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||is_error_pending()){
if(qbevent){evnt(11404);if(r)goto S_13903;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ),&(pass1750= 1 ));
if(!qbevent)break;evnt(11405);}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(11406);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11407);}while(r);
S_13907:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11407);if(r)goto S_13907;}
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(11407);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11407);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11408);}while(r);
sc_ec_37_end:;
goto sc_1747_end;
}
S_13913:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||is_error_pending()){
if(qbevent){evnt(11409);if(r)goto S_13913;}
do{
SUB_SETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ),&(pass1752= 1 ));
if(!qbevent)break;evnt(11410);}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(11411);}while(r);
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(11412);}while(r);
S_13917:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(11412);if(r)goto S_13917;}
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(11412);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11412);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11413);}while(r);
sc_ec_38_end:;
goto sc_1747_end;
}
S_13924:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(11415);if(r)goto S_13924;}
do{
qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11415);}while(r);
}else{
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11415);}while(r);
}
S_13929:;
if ((-(FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) ))== 0 ))||is_error_pending()){
if(qbevent){evnt(11416);if(r)goto S_13929;}
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(11416);}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(11417);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11417);}while(r);
sc_1747_end:;
}
S_13936:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGTRACE",9))))||is_error_pending()){
if(qbevent){evnt(11421);if(r)goto S_13936;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1754= 2 ),__LONG_N),qbs_new_txt_len("TRACE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11422);}while(r);
S_13938:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11423);if(r)goto S_13938;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11423);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11424);}while(r);
}
S_13943:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGINFO",8))))||is_error_pending()){
if(qbevent){evnt(11427);if(r)goto S_13943;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1755= 2 ),__LONG_N),qbs_new_txt_len("INFO",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11428);}while(r);
S_13945:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11429);if(r)goto S_13945;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11429);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11430);}while(r);
}
S_13950:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGWARN",8))))||is_error_pending()){
if(qbevent){evnt(11433);if(r)goto S_13950;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1756= 2 ),__LONG_N),qbs_new_txt_len("WARN",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11434);}while(r);
S_13952:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11435);if(r)goto S_13952;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11435);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11436);}while(r);
}
S_13957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_LOGERROR",9))))||is_error_pending()){
if(qbevent){evnt(11439);if(r)goto S_13957;}
do{
SUB_EMITLOGGINGSTATEMENT(FUNC_GETELEMENTS(__STRING_CA,&(pass1757= 2 ),__LONG_N),qbs_new_txt_len("ERROR",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11440);}while(r);
S_13959:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11441);if(r)goto S_13959;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11441);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(11442);}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), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 522),(((char*)__UDT_ID)+((0+0))+ 522), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 524),(((char*)__UDT_ID)+((0+0))+ 524), 8);
memcpy((((char*)__UDT_ID2)+((0+0))+ 532),(((char*)__UDT_ID)+((0+0))+ 532), 8);
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), 4);
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), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 552),(((char*)__UDT_ID)+((0+0))+ 552), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 554),(((char*)__UDT_ID)+((0+0))+ 554), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 810),(((char*)__UDT_ID)+((0+0))+ 810), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 812),(((char*)__UDT_ID)+((0+0))+ 812), 1);
memcpy((((char*)__UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 815),(((char*)__UDT_ID)+((0+0))+ 815), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 817),(((char*)__UDT_ID)+((0+0))+ 817), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1217),(((char*)__UDT_ID)+((0+0))+ 1217), 400);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1617),(((char*)__UDT_ID)+((0+0))+ 1617), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 1873),(((char*)__UDT_ID)+((0+0))+ 1873), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2129),(((char*)__UDT_ID)+((0+0))+ 2129), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2389),(((char*)__UDT_ID)+((0+0))+ 2389), 256);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2649),(((char*)__UDT_ID)+((0+0))+ 2649), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2651),(((char*)__UDT_ID)+((0+0))+ 2651), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2751),(((char*)__UDT_ID)+((0+0))+ 2751), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 100);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2951),(((char*)__UDT_ID)+((0+0))+ 2951), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2955),(((char*)__UDT_ID)+((0+0))+ 2955), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2957),(((char*)__UDT_ID)+((0+0))+ 2957), 2);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2959),(((char*)__UDT_ID)+((0+0))+ 2959), 4);
memcpy((((char*)__UDT_ID2)+((0+0))+ 2963),(((char*)__UDT_ID)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2965), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2965));
if(!qbevent)break;evnt(11447);}while(r);
do{
*__LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(11449);}while(r);
S_13966:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_stub",8))))||is_error_pending()){
if(qbevent){evnt(11451);if(r)goto S_13966;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11451);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11451);}while(r);
}
S_13970:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(11453);if(r)goto S_13970;}
S_13971:;
if ((-(*(int16*)(((char*)__UDT_ID2)+((0+813)))== 0 ))||is_error_pending()){
if(qbevent){evnt(11454);if(r)goto S_13971;}
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(11454);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11454);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass1758=*(int16*)(((char*)__UDT_ID2)+((0+550)))));
if(!qbevent)break;evnt(11457);}while(r);
do{
*__LONG_SEPERATEARGS_ERROR= 0 ;
if(!qbevent)break;evnt(11459);}while(r);
do{
*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1759= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1760= 2 ),__LONG_N),__LONG_PASSED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11460);}while(r);
S_13979:;
if ((*__LONG_SEPERATEARGS_ERROR)||is_error_pending()){
if(qbevent){evnt(11461);if(r)goto S_13979;}
do{
qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11461);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11461);}while(r);
}
S_13983:;
fornext_value1762= 1 ;
fornext_finalvalue1762=*__LONG_OPTMAX;
fornext_step1762= 1 ;
if (fornext_step1762<0) fornext_step_negative1762=1; else fornext_step_negative1762=0;
if (is_error_pending()) goto fornext_error1762;
goto fornext_entrylabel1762;
while(1){
fornext_value1762=fornext_step1762+(*__LONG_I);
fornext_entrylabel1762:
*__LONG_I=fornext_value1762;
if (fornext_step_negative1762){
if (fornext_value1762<fornext_finalvalue1762) break;
}else{
if (fornext_value1762>fornext_finalvalue1762) break;
}
fornext_error1762:;
if(qbevent){evnt(11464);if(r)goto S_13983;}
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(11464);}while(r);
fornext_continue_1761:;
}
fornext_exit_1761:;
S_13986:;
fornext_value1764= 1 ;
fornext_finalvalue1764=*__LONG_OPTMAX+ 1 ;
fornext_step1764= 1 ;
if (fornext_step1764<0) fornext_step_negative1764=1; else fornext_step_negative1764=0;
if (is_error_pending()) goto fornext_error1764;
goto fornext_entrylabel1764;
while(1){
fornext_value1764=fornext_step1764+(*__LONG_I);
fornext_entrylabel1764:
*__LONG_I=fornext_value1764;
if (fornext_step_negative1764){
if (fornext_value1764<fornext_finalvalue1764) break;
}else{
if (fornext_value1764>fornext_finalvalue1764) break;
}
fornext_error1764:;
if(qbevent){evnt(11465);if(r)goto S_13986;}
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(11465);}while(r);
fornext_continue_1763:;
}
fornext_exit_1763:;
S_13989:;
fornext_value1766= 1 ;
fornext_finalvalue1766=*(int16*)(((char*)__UDT_ID2)+((0+813)));
fornext_step1766= 1 ;
if (fornext_step1766<0) fornext_step_negative1766=1; else fornext_step_negative1766=0;
if (is_error_pending()) goto fornext_error1766;
goto fornext_entrylabel1766;
while(1){
fornext_value1766=fornext_step1766+(*__LONG_I);
fornext_entrylabel1766:
*__LONG_I=fornext_value1766;
if (fornext_step_negative1766){
if (fornext_value1766<fornext_finalvalue1766) break;
}else{
if (fornext_value1766>fornext_finalvalue1766) break;
}
fornext_error1766:;
if(qbevent){evnt(11466);if(r)goto S_13989;}
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(11466);}while(r);
fornext_continue_1765:;
}
fornext_exit_1765:;
S_13992:;
fornext_value1768= 1 ;
fornext_finalvalue1768=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
fornext_step1768= 1 ;
if (fornext_step1768<0) fornext_step_negative1768=1; else fornext_step_negative1768=0;
if (is_error_pending()) goto fornext_error1768;
goto fornext_entrylabel1768;
while(1){
fornext_value1768=fornext_step1768+(*__LONG_I);
fornext_entrylabel1768:
*__LONG_I=fornext_value1768;
if (fornext_step_negative1768){
if (fornext_value1768<fornext_finalvalue1768) break;
}else{
if (fornext_value1768>fornext_finalvalue1768) break;
}
fornext_error1768:;
if(qbevent){evnt(11467);if(r)goto S_13992;}
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(11467);}while(r);
fornext_continue_1767:;
}
fornext_exit_1767:;
S_13995:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11471);if(r)goto S_13995;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1769;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1);
if (is_error_pending()) goto skip1769;
skip1769:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11472);}while(r);
S_13997:;
fornext_value1771= 1 ;
fornext_finalvalue1771=*(int16*)(((char*)__UDT_ID2)+((0+813)));
fornext_step1771= 1 ;
if (fornext_step1771<0) fornext_step_negative1771=1; else fornext_step_negative1771=0;
if (is_error_pending()) goto fornext_error1771;
goto fornext_entrylabel1771;
while(1){
fornext_value1771=fornext_step1771+(*__LONG_I);
fornext_entrylabel1771:
*__LONG_I=fornext_value1771;
if (fornext_step_negative1771){
if (fornext_value1771<fornext_finalvalue1771) break;
}else{
if (fornext_value1771>fornext_finalvalue1771) break;
}
fornext_error1771:;
if(qbevent){evnt(11472);if(r)goto S_13997;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1772;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1772;
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 skip1772;
skip1772:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11472);}while(r);
fornext_continue_1770:;
}
fornext_exit_1770:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1773;
sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 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(11473);}while(r);
S_14001:;
fornext_value1775= 1 ;
fornext_finalvalue1775=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
fornext_step1775= 1 ;
if (fornext_step1775<0) fornext_step_negative1775=1; else fornext_step_negative1775=0;
if (is_error_pending()) goto fornext_error1775;
goto fornext_entrylabel1775;
while(1){
fornext_value1775=fornext_step1775+(*__LONG_I);
fornext_entrylabel1775:
*__LONG_I=fornext_value1775;
if (fornext_step_negative1775){
if (fornext_value1775<fornext_finalvalue1775) break;
}else{
if (fornext_value1775>fornext_finalvalue1775) break;
}
fornext_error1775:;
if(qbevent){evnt(11473);if(r)goto S_14001;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1776;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0);
if (is_error_pending()) goto skip1776;
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 skip1776;
skip1776:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11473);}while(r);
fornext_continue_1774:;
}
fornext_exit_1774:;
}
S_14005:;
if ((*__LONG_USECALL)||is_error_pending()){
if(qbevent){evnt(11485);if(r)goto S_14005;}
S_14006:;
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
if(qbevent){evnt(11486);if(r)goto S_14006;}
S_14007:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11487);if(r)goto S_14007;}
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+532))),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11487);}while(r);
}
S_14010:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(11488);if(r)goto S_14010;}
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+532))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11488);}while(r);
}
}else{
S_14014:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(11490);if(r)goto S_14014;}
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+532))),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11490);}while(r);
}
S_14017:;
if ((-(*__LONG_USECALL== 2 ))||is_error_pending()){
if(qbevent){evnt(11491);if(r)goto S_14017;}
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+532))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11491);}while(r);
}
}
}else{
S_14022:;
if ((*(int16*)(((char*)__UDT_ID)+((0+552))))||is_error_pending()){
if(qbevent){evnt(11494);if(r)goto S_14022;}
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+532))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11495);}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+532))),8,1))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11497);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11501);}while(r);
do{
qbs_set(__STRING_SUBARGPREP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11502);}while(r);
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11503);}while(r);
do{
qbs_set(__STRING_DYNFILEPOST,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11504);}while(r);
do{
*__LONG_FIELDCALL= 0 ;
if(!qbevent)break;evnt(11506);}while(r);
S_14033:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_get",7)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_put",7)))))||is_error_pending()){
if(qbevent){evnt(11508);if(r)goto S_14033;}
S_14034:;
if ((*__LONG_PASSED& 2 )||is_error_pending()){
if(qbevent){evnt(11509);if(r)goto S_14034;}
do{
*__LONG_PASSED=*__LONG_PASSED- 2 ;
if(!qbevent)break;evnt(11511);}while(r);
}else{
S_14037:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_get",7))))||is_error_pending()){
if(qbevent){evnt(11514);if(r)goto S_14037;}
do{
*__LONG_FIELDCALL= 1 ;
if(!qbevent)break;evnt(11515);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11516);}while(r);
}else{
do{
*__LONG_FIELDCALL= 2 ;
if(!qbevent)break;evnt(11518);}while(r);
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11519);}while(r);
}
}
}
S_14046:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_key",7)))))||is_error_pending()){
if(qbevent){evnt(11524);if(r)goto S_14046;}
S_14047:;
if ((-(*__LONG_USECALL== 0 ))||is_error_pending()){
if(qbevent){evnt(11525);if(r)goto S_14047;}
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(11526);}while(r);
}
}
S_14051:;
fornext_value1779= 1 ;
fornext_finalvalue1779=*(int16*)(((char*)__UDT_ID2)+((0+813)));
fornext_step1779= 1 ;
if (fornext_step1779<0) fornext_step_negative1779=1; else fornext_step_negative1779=0;
if (is_error_pending()) goto fornext_error1779;
goto fornext_entrylabel1779;
while(1){
fornext_value1779=fornext_step1779+(*__LONG_I);
fornext_entrylabel1779:
*__LONG_I=fornext_value1779;
if (fornext_step_negative1779){
if (fornext_value1779<fornext_finalvalue1779) break;
}else{
if (fornext_value1779>fornext_finalvalue1779) break;
}
fornext_error1779:;
if(qbevent){evnt(11530);if(r)goto S_14051;}
do{
*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+817))),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11531);}while(r);
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2651))),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11532);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_I, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11533);}while(r);
do{
*__LONG_ADDLAYOUT= 1 ;
if(!qbevent)break;evnt(11535);}while(r);
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(11536);}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(11537);}while(r);
S_14058:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(11538);if(r)goto S_14058;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11539);}while(r);
S_14060:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(11540);if(r)goto S_14060;}
do{
*__LONG_CONVERTSPACING= 0 ;
if(!qbevent)break;evnt(11541);}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(11542);}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(11543);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(11545);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(11546);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11547);}while(r);
S_14067:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(11548);if(r)goto S_14067;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11548);}while(r);
}
S_14070:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(11549);if(r)goto S_14070;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11550);}while(r);
S_14072:;
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(11551);if(r)goto S_14072;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11551);}while(r);
}
}else{
S_14076:;
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(11553);if(r)goto S_14076;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(11553);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(11555);}while(r);
S_14081:;
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(11557);if(r)goto S_14081;}
do{
*__LONG_CONVERTSPACING= 1 ;
if(!qbevent)break;evnt(11557);}while(r);
}
S_14084:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||is_error_pending()){
if(qbevent){evnt(11560);if(r)goto S_14084;}
}
S_14086:;
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(11584);if(r)goto S_14086;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11588);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11589);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11590);}while(r);
}
S_14091:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(11593);if(r)goto S_14091;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11594);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11595);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11596);}while(r);
}
S_14096:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(11599);if(r)goto S_14096;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(11600);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11601);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11602);}while(r);
}
S_14101:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(11605);if(r)goto S_14101;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11605);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11605);}while(r);
}
S_14105:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(11608);if(r)goto S_14105;}
S_14106:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(11609);if(r)goto S_14106;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11609);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11609);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11610);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR;
if(!qbevent)break;evnt(11610);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11614);}while(r);
LABEL_CUSTOMLAYCHAR:;
if(qbevent){evnt(11620);r=0;}
S_14114:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(11621);if(r)goto S_14114;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(11621);}while(r);
}
S_14117:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(11622);if(r)goto S_14117;}
S_14118:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11623);if(r)goto S_14118;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11623);}while(r);
}
S_14121:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(11624);if(r)goto S_14121;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11624);}while(r);
}
S_14124:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(11625);if(r)goto S_14124;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11625);}while(r);
}
}
S_14128:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_key",7)))))&(-(*__LONG_I==*(int16*)(((char*)__UDT_ID2)+((0+813)))))))||is_error_pending()){
if(qbevent){evnt(11628);if(r)goto S_14128;}
S_14129:;
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(11629);if(r)goto S_14129;}
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(11630);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11634);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(11637);}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(11638);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(11640);}while(r);
dl_continue_1781:;
}
dl_exit_1781:;
S_14140:;
if ((-(*__LONG_TARGETTYP== -3 ))||is_error_pending()){
if(qbevent){evnt(11649);if(r)goto S_14140;}
S_14141:;
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(11650);if(r)goto S_14141;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11650);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11650);}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(11652);}while(r);
S_14146:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||is_error_pending()){
if(qbevent){evnt(11654);if(r)goto S_14146;}
do{
qbs_set(__STRING_TRY_STRING,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11655);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11656);}while(r);
S_14149:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11657);if(r)goto S_14149;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11657);}while(r);
}
S_14152:;
do{
if(qbevent){evnt(11658);if(r)goto S_14152;}
S_14153:;
if ((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(11659);if(r)goto S_14153;}
S_14154:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(11660);if(r)goto S_14154;}
S_14155:;
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11661);if(r)goto S_14155;}
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(11662);}while(r);
do{
goto dl_exit_1786;
if(!qbevent)break;evnt(11663);}while(r);
}
}
S_14160:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11667);if(r)goto S_14160;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11667);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11667);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11667);}while(r);
}
S_14166:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11668);if(r)goto S_14166;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11668);}while(r);
}
}
S_14170:;
if ((-(*__LONG_TRY== 0 ))||is_error_pending()){
if(qbevent){evnt(11670);if(r)goto S_14170;}
S_14171:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||is_error_pending()){
if(qbevent){evnt(11671);if(r)goto S_14171;}
S_14172:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11672);if(r)goto S_14172;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11672);}while(r);
}
do{
*__LONG_A=qbs_asc(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11673);}while(r);
S_14176:;
if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||is_error_pending()){
if(qbevent){evnt(11674);if(r)goto S_14176;}
do{
*__LONG_A=*__LONG_A- 32 ;
if(!qbevent)break;evnt(11674);}while(r);
}
S_14179:;
if ((-(*__LONG_A== 95 ))||is_error_pending()){
if(qbevent){evnt(11675);if(r)goto S_14179;}
do{
*__LONG_A= 91 ;
if(!qbevent)break;evnt(11675);}while(r);
}
do{
*__LONG_A=*__LONG_A- 64 ;
if(!qbevent)break;evnt(11676);}while(r);
S_14183:;
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(11677);if(r)goto S_14183;}
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(11677);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11677);}while(r);
}
S_14187:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11678);if(r)goto S_14187;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11678);}while(r);
}
}
}
S_14192:;
dl_continue_1786:;
}while((!(-(*__LONG_TRY== 0 )))&&(!is_error_pending()));
dl_exit_1786:;
if(qbevent){evnt(11681);if(r)goto S_14192;}
}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11686);}while(r);
S_14195:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11687);if(r)goto S_14195;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11687);}while(r);
}
S_14198:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11688);if(r)goto S_14198;}
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(11688);}while(r);
}
S_14201:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11689);if(r)goto S_14201;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11689);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11689);}while(r);
}
S_14205:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_WAVE",5))))||is_error_pending()){
if(qbevent){evnt(11694);if(r)goto S_14205;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11695);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11697);}while(r);
S_14208:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11698);if(r)goto S_14208;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11698);}while(r);
}
S_14211:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(11701);if(r)goto S_14211;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11702);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11702);}while(r);
}
S_14215:;
if ((((*__LONG_SOURCETYP&*__LONG_ISSTRING))|((*__LONG_SOURCETYP&*__LONG_ISFLOAT))|((*__LONG_SOURCETYP&*__LONG_ISOFFSET))|((*__LONG_SOURCETYP&*__LONG_ISUDT))|((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED))|(-((*__LONG_SOURCETYP& 4095ll )!= 8 )))||is_error_pending()){
if(qbevent){evnt(11706);if(r)goto S_14215;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected _BYTE array name",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11707);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11707);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11710);}while(r);
}
S_14221:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_SNDRAWBATCH",12))))||is_error_pending()){
if(qbevent){evnt(11714);if(r)goto S_14221;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11715);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11717);}while(r);
S_14224:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11718);if(r)goto S_14224;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11718);}while(r);
}
S_14227:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(11721);if(r)goto S_14227;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11722);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11722);}while(r);
}
S_14231:;
if (((-((*__LONG_SOURCETYP&*__LONG_ISFLOAT)== 0 ))|(-((*__LONG_SOURCETYP& 4095ll )!= 32 )))||is_error_pending()){
if(qbevent){evnt(11726);if(r)goto S_14231;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected SINGLE array name",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11727);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11727);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11730);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1789= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11735);}while(r);
S_14238:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11736);if(r)goto S_14238;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11736);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11737);}while(r);
}
S_14243:;
if ((-(*__LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(11741);if(r)goto S_14243;}
do{
qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11742);}while(r);
S_14245:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11743);if(r)goto S_14245;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11743);}while(r);
}
S_14248:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11744);if(r)goto S_14248;}
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(11744);}while(r);
}
S_14251:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11745);if(r)goto S_14251;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11745);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11745);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1791= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11746);}while(r);
S_14256:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11747);if(r)goto S_14256;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11747);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11748);}while(r);
}
S_14261:;
if ((-(*__LONG_TARGETTYP== -4 ))||is_error_pending()){
if(qbevent){evnt(11751);if(r)goto S_14261;}
S_14262:;
if ((*__LONG_FIELDCALL)||is_error_pending()){
if(qbevent){evnt(11753);if(r)goto S_14262;}
do{
*__LONG_I=*(int16*)(((char*)__UDT_ID2)+((0+813)))+ 1 ;
if(!qbevent)break;evnt(11754);}while(r);
do{
goto fornext_exit_1778;
if(!qbevent)break;evnt(11755);}while(r);
}
S_14266:;
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(11758);if(r)goto S_14266;}
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(11758);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11758);}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(11759);}while(r);
S_14271:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11760);if(r)goto S_14271;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11760);}while(r);
}
S_14274:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11761);if(r)goto S_14274;}
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(11761);}while(r);
}
S_14277:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11762);if(r)goto S_14277;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11762);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11762);}while(r);
}
S_14281:;
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(11765);if(r)goto S_14281;}
do{
qbs_set(__STRING_E2,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11766);}while(r);
do{
qbs_set(__STRING_DYNFILEARR,FUNC_WHOLEARRAYNAME(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11773);}while(r);
S_14284:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNFILEARR,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11774);if(r)goto S_14284;}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_DYNFILEARR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11775);}while(r);
S_14286:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11776);if(r)goto S_14286;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11776);}while(r);
}
S_14289:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(11777);if(r)goto S_14289;}
S_14290:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(11778);if(r)goto S_14290;}
S_14291:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
if(qbevent){evnt(11779);if(r)goto S_14291;}
do{
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
if(!qbevent)break;evnt(11780);}while(r);
S_14293:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1794=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
if(qbevent){evnt(11781);if(r)goto S_14293;}
S_14294:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
if(qbevent){evnt(11782);if(r)goto S_14294;}
do{
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1795=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1796=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1797= -1 ),__STRING_DYNFILEPOST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11783);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1798=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1799=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1800= 0 ),__STRING_DYNFILEPOST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11785);}while(r);
}
S_14299:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11787);if(r)goto S_14299;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11787);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11788);}while(r);
}
}
}
S_14306:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(11792);if(r)goto S_14306;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(11792);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_DYNFILEARR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11792);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(11792);}while(r);
}
S_14312:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11793);if(r)goto S_14312;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11793);}while(r);
}
dl_continue_1793:;
}
dl_exit_1793:;
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11797);}while(r);
S_14318:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11798);if(r)goto S_14318;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11798);}while(r);
}
S_14321:;
if (((*__LONG_SOURCETYP&*__LONG_ISARRAY)&(*__LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
if(qbevent){evnt(11799);if(r)goto S_14321;}
S_14322:;
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(11800);if(r)goto S_14322;}
do{
*__LONG_IDNUMBER=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(11801);}while(r);
do{
SUB_GETID(__LONG_IDNUMBER);
if(!qbevent)break;evnt(11802);}while(r);
S_14325:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11803);if(r)goto S_14325;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11803);}while(r);
}
S_14328:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
if(qbevent){evnt(11804);if(r)goto S_14328;}
do{
*__LONG_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
if(!qbevent)break;evnt(11805);}while(r);
S_14330:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(__LONG_UDT,&(pass1801=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
if(qbevent){evnt(11806);if(r)goto S_14330;}
S_14331:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
if(qbevent){evnt(11807);if(r)goto S_14331;}
do{
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1802=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1803=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1804= -1 ),__STRING_DYNFILEPOST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11808);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_UDTFILEARRAYBE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)),__LONG_UDT,&(pass1805=*(int16*)(((char*)__UDT_ID)+((0+522)))),&(pass1806=*(int16*)(((char*)__UDT_ID)+((0+516)))),&(pass1807= 0 ),__STRING_DYNFILEPOST));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11810);}while(r);
}
S_14336:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11812);if(r)goto S_14336;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11812);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11813);}while(r);
}
}
}
}
S_14344:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11818);if(r)goto S_14344;}
S_14345:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(11819);if(r)goto S_14345;}
do{
qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11821);}while(r);
S_14347:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||is_error_pending()){
if(qbevent){evnt(11823);if(r)goto S_14347;}
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(11824);}while(r);
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1809= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11825);}while(r);
S_14350:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11826);if(r)goto S_14350;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11826);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11827);}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(11829);}while(r);
}
}
}
do{
qbs_set(__STRING_E,__STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11834);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1810= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11837);}while(r);
S_14362:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11838);if(r)goto S_14362;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11838);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11839);}while(r);
}
S_14367:;
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(11842);if(r)goto S_14367;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11843);}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(11846);}while(r);
S_14371:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11847);if(r)goto S_14371;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11847);}while(r);
}
S_14374:;
if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||is_error_pending()){
if(qbevent){evnt(11848);if(r)goto S_14374;}
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(11848);}while(r);
}
S_14377:;
if ((*__LONG_ADDLAYOUT)||is_error_pending()){
if(qbevent){evnt(11849);if(r)goto S_14377;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11849);}while(r);
do{
*__LONG_ADDEDLAYOUT= 1 ;
if(!qbevent)break;evnt(11849);}while(r);
}
do{
*__LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
if(!qbevent)break;evnt(11851);}while(r);
do{
qbs_set(__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11852);}while(r);
S_14383:;
if ((-(*__LONG_TARGETTYP>= 0 ))||is_error_pending()){
if(qbevent){evnt(11856);if(r)goto S_14383;}
S_14384:;
if ((*__LONG_TARGETTYP&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(11857);if(r)goto S_14384;}
do{
*__LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(11858);}while(r);
do{
qbs_set(__STRING_MEMBER_ARRAY_ARG_SOURCE,((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(11859);}while(r);
}
}
S_14389:;
if ((*__LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(11862);if(r)goto S_14389;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(11862);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11863);}while(r);
S_14393:;
if ((*__LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(11864);if(r)goto S_14393;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(11864);}while(r);
}
S_14396:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11865);if(r)goto S_14396;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11865);}while(r);
}
S_14399:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(11871);if(r)goto S_14399;}
S_14400:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len(".",1),0)))||is_error_pending()){
if(qbevent){evnt(11872);if(r)goto S_14400;}
S_14401:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISWHOLEMEMBERARRAYREF(__STRING_E,__LONG_SOURCETYP)))||is_error_pending()){
if(qbevent){evnt(11873);if(r)goto S_14401;}
S_14402:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_HASFINALEMPTYARRAYBRACKETS(__STRING_MEMBER_ARRAY_ARG_SOURCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(11874);if(r)goto S_14402;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected: Array Name()",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11874);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11874);}while(r);
}
}
}
}
S_14409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(11879);if(r)goto S_14409;}
S_14410:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(11880);if(r)goto S_14410;}
S_14411:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(11881);if(r)goto S_14411;}
do{
*__LONG_TARGETTYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(11882);}while(r);
}
}
}
S_14416:;
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(11887);if(r)goto S_14416;}
do{
*__LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(11887);}while(r);
}else{
do{
*__LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(11887);}while(r);
}
S_14421:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(11890);if(r)goto S_14421;}
S_14422:;
if ((-(*__LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(11891);if(r)goto S_14422;}
S_14423:;
if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(11894);if(r)goto S_14423;}
S_14424:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(11895);if(r)goto S_14424;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11895);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11895);}while(r);
}
S_14428:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(11896);if(r)goto S_14428;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11896);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11896);}while(r);
}
S_14432:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(11897);if(r)goto S_14432;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1812;
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 skip1812;
skip1812:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(11897);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(11900);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(11900);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(11901);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(11902);}while(r);
S_14439:;
if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(11903);if(r)goto S_14439;}
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(11903);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11903);}while(r);
}
do{
*__LONG_MEMBER_ELEMENT_ID= 0 ;
if(!qbevent)break;evnt(11906);}while(r);
S_14444:;
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(11909);if(r)goto S_14444;}
}else{
do{
*__LONG_S1=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11912);}while(r);
S_14447:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(11913);if(r)goto S_14447;}
do{
*__LONG_S2=func_instr(*__LONG_S1+1,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11914);}while(r);
}else{
do{
*__LONG_S2= 0 ;
if(!qbevent)break;evnt(11916);}while(r);
}
S_14452:;
if ((*__LONG_S2)||is_error_pending()){
if(qbevent){evnt(11919);if(r)goto S_14452;}
do{
*__LONG_S3=func_instr(*__LONG_S2+1,__STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11920);}while(r);
}else{
do{
*__LONG_S3= 0 ;
if(!qbevent)break;evnt(11922);}while(r);
}
S_14457:;
if ((-(*__LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(11925);if(r)goto S_14457;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11925);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11925);}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(11927);}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(11928);}while(r);
S_14463:;
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(11930);if(r)goto S_14463;}
S_14464:;
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(11931);if(r)goto S_14464;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11931);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11931);}while(r);
}
S_14468:;
}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(11933);if(r)goto S_14468;}
}else{
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11936);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11936);}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(11940);}while(r);
do{
SUB_GETID(__LONG_IDNUM);
if(!qbevent)break;evnt(11941);}while(r);
S_14476:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11942);if(r)goto S_14476;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11942);}while(r);
}
S_14479:;
if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(11944);if(r)goto S_14479;}
do{
*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+1217))),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11945);}while(r);
do{
*__LONG_SOURCE_FIXED_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(11946);}while(r);
S_14482:;
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(11947);if(r)goto S_14482;}
do{
*__LONG_SOURCE_FIXED_SIZE=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])];
if(!qbevent)break;evnt(11947);}while(r);
}
S_14485:;
if ((-(*__LONG_SOURCE_FIXED_SIZE!=*__LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(11948);if(r)goto S_14485;}
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(11948);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11948);}while(r);
}
}
S_14490:;
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(11951);if(r)goto S_14490;}
S_14491:;
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(11952);if(r)goto S_14491;}
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(11953);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(11954);}while(r);
}
}
do{
*__LONG_SOURCE_DIMS= 0 ;
if(!qbevent)break;evnt(11958);}while(r);
S_14497:;
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(11959);if(r)goto S_14497;}
do{
*__LONG_SOURCE_DIMS=((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*__LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])];
if(!qbevent)break;evnt(11960);}while(r);
S_14499:;
}else{
if (-(*(int32*)(((char*)__UDT_ID)+((0+2951)))== 0 )){
if(qbevent){evnt(11961);if(r)goto S_14499;}
do{
*__LONG_SOURCE_DIMS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(11965);}while(r);
}
}
S_14502:;
if ((-(*__LONG_SOURCE_DIMS> 0 ))||is_error_pending()){
if(qbevent){evnt(11968);if(r)goto S_14502;}
S_14503:;
if ((-(*__LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(11969);if(r)goto S_14503;}
do{
*__LONG_NELEREQ=*__LONG_SOURCE_DIMS;
if(!qbevent)break;evnt(11970);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+2751))),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1);
if(!qbevent)break;evnt(11971);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+0))+ 520),(((char*)__UDT_ID2)+((0+0))+ 520), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 522),(((char*)__UDT_ID2)+((0+0))+ 522), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 524),(((char*)__UDT_ID2)+((0+0))+ 524), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 532),(((char*)__UDT_ID2)+((0+0))+ 532), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 544),(((char*)__UDT_ID2)+((0+0))+ 544), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 550),(((char*)__UDT_ID2)+((0+0))+ 550), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 552),(((char*)__UDT_ID2)+((0+0))+ 552), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 554),(((char*)__UDT_ID2)+((0+0))+ 554), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 810),(((char*)__UDT_ID2)+((0+0))+ 810), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 812),(((char*)__UDT_ID2)+((0+0))+ 812), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 813),(((char*)__UDT_ID2)+((0+0))+ 813), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 815),(((char*)__UDT_ID2)+((0+0))+ 815), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 817),(((char*)__UDT_ID2)+((0+0))+ 817), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1217),(((char*)__UDT_ID2)+((0+0))+ 1217), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1617),(((char*)__UDT_ID2)+((0+0))+ 1617), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1873),(((char*)__UDT_ID2)+((0+0))+ 1873), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2129),(((char*)__UDT_ID2)+((0+0))+ 2129), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2385),(((char*)__UDT_ID2)+((0+0))+ 2385), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2389),(((char*)__UDT_ID2)+((0+0))+ 2389), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2645),(((char*)__UDT_ID2)+((0+0))+ 2645), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2649),(((char*)__UDT_ID2)+((0+0))+ 2649), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2651),(((char*)__UDT_ID2)+((0+0))+ 2651), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2751),(((char*)__UDT_ID2)+((0+0))+ 2751), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2851),(((char*)__UDT_ID2)+((0+0))+ 2851), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2951),(((char*)__UDT_ID2)+((0+0))+ 2951), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2955),(((char*)__UDT_ID2)+((0+0))+ 2955), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2957),(((char*)__UDT_ID2)+((0+0))+ 2957), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2959),(((char*)__UDT_ID2)+((0+0))+ 2959), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2963),(((char*)__UDT_ID2)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2965), *(qbs**)(((char*)__UDT_ID2)+((0+0))+ 2965));
if(!qbevent)break;evnt(11972);}while(r);
S_14507:;
}else{
if (-(*__LONG_SOURCE_DIMS!=*__LONG_NELEREQ)){
if(qbevent){evnt(11973);if(r)goto S_14507;}
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(11974);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11974);}while(r);
}
}
}
S_14512:;
if ((-(*__LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(11978);if(r)goto S_14512;}
do{
qbs_set(__STRING_MEMBER_ARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11979);}while(r);
do{
qbs_set(__STRING_MEMBER_PREP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11979);}while(r);
do{
*__LONG_MEMBER_DIMS= 0 ;
if(!qbevent)break;evnt(11979);}while(r);
do{
SUB_BUILDUDTMEMBERARG(__STRING_E,__STRING_MEMBER_ARG,__STRING_MEMBER_PREP,__LONG_MEMBER_DIMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11980);}while(r);
S_14517:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11981);if(r)goto S_14517;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11981);}while(r);
}
do{
qbs_set(__STRING_E,__STRING_MEMBER_ARG);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11982);}while(r);
do{
qbs_set(__STRING_SUBARGPREP,qbs_add(__STRING_SUBARGPREP,__STRING_MEMBER_PREP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11983);}while(r);
}else{
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1818= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(11985);}while(r);
S_14524:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(11986);if(r)goto S_14524;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(11986);}while(r);
}
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(11988);}while(r);
}
S_14530:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(11995);if(r)goto S_14530;}
S_14531:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(11996);if(r)goto S_14531;}
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(11997);}while(r);
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP;
if(!qbevent)break;evnt(11999);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP;
if(!qbevent)break;evnt(11999);}while(r);
do{
*__LONG_ARR= 0 ;
if(!qbevent)break;evnt(12002);}while(r);
S_14536:;
if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(12002);if(r)goto S_14536;}
do{
*__LONG_ARR= 1 ;
if(!qbevent)break;evnt(12002);}while(r);
}
do{
*__LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(12003);}while(r);
S_14540:;
if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(12003);if(r)goto S_14540;}
do{
*__LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(12003);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(12003);}while(r);
}
do{
*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(12006);}while(r);
do{
*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(12007);}while(r);
S_14546:;
if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(12010);if(r)goto S_14546;}
S_14547:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12012);if(r)goto S_14547;}
do{
*__LONG_UDTREFID=qbr(qbs_val<long double>(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12016);}while(r);
do{
SUB_GETID(__LONG_UDTREFID);
if(!qbevent)break;evnt(12017);}while(r);
S_14550:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12018);if(r)goto S_14550;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12018);}while(r);
}
do{
*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12019);}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(12020);}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(12021);}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(12022);}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(12023);}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(12024);}while(r);
S_14559:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(12027);if(r)goto S_14559;}
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(12028);}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(12030);}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(12033);}while(r);
S_14565:;
if ((*__LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(12036);if(r)goto S_14565;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1820=*__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(12036);}while(r);
}
S_14568:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12037);if(r)goto S_14568;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12037);}while(r);
}
}else{
S_14572:;
if ((*__LONG_ARR)||is_error_pending()){
if(qbevent){evnt(12041);if(r)goto S_14572;}
S_14573:;
if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(12042);if(r)goto S_14573;}
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(12042);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12042);}while(r);
}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1821= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12043);}while(r);
S_14578:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12044);if(r)goto S_14578;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12044);}while(r);
}
}else{
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1822= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12046);}while(r);
S_14583:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12047);if(r)goto S_14583;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12047);}while(r);
}
}
S_14587:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(12051);if(r)goto S_14587;}
do{
qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1823=*__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(12052);}while(r);
S_14589:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12053);if(r)goto S_14589;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12053);}while(r);
}
}
}
S_14594:;
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(12058);if(r)goto S_14594;}
S_14595:;
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(12059);if(r)goto S_14595;}
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(12060);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12061);}while(r);
}
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(12065);}while(r);
}
}
}else{
S_14604:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(12070);if(r)goto S_14604;}
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(12071);}while(r);
S_14606:;
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(12072);if(r)goto S_14606;}
S_14607:;
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(12073);if(r)goto S_14607;}
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(12074);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12075);}while(r);
}
}
}
}
}
}
S_14616:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12087);if(r)goto S_14616;}
S_14617:;
if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(12088);if(r)goto S_14617;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(12089);}while(r);
S_14619:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(12090);if(r)goto S_14619;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12090);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12090);}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(12091);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12091);}while(r);
}
}
S_14627:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(12094);if(r)goto S_14627;}
S_14628:;
if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12095);if(r)goto S_14628;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(12096);}while(r);
S_14630:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(12097);if(r)goto S_14630;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12097);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12097);}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(12098);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12098);}while(r);
}
}
S_14638:;
if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(12103);if(r)goto S_14638;}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1824= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12104);}while(r);
S_14640:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12105);if(r)goto S_14640;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12105);}while(r);
}
}
S_14644:;
if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(12108);if(r)goto S_14644;}
S_14645:;
if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12109);if(r)goto S_14645;}
do{
*__LONG_NTH=*__LONG_I;
if(!qbevent)break;evnt(12110);}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& 4095ll )-__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(12111);}while(r);
S_14648:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(12112);if(r)goto S_14648;}
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(12112);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12112);}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(12113);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12113);}while(r);
}
}else{
S_14656:;
if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12116);if(r)goto S_14656;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12116);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12116);}while(r);
}
}
S_14661:;
if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(12120);if(r)goto S_14661;}
S_14662:;
if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12121);if(r)goto S_14662;}
do{
*__LONG_BITS=*__LONG_TARGETTYP& 4095ll ;
if(!qbevent)break;evnt(12123);}while(r);
S_14664:;
if ((-(*__LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(12124);if(r)goto S_14664;}
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(12124);}while(r);
}
S_14667:;
if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(12125);if(r)goto S_14667;}
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(12125);}while(r);
}
S_14670:;
if ((-(*__LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(12126);if(r)goto S_14670;}
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(12126);}while(r);
}
}
}
S_14675:;
if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(12130);if(r)goto S_14675;}
S_14676:;
if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(12131);if(r)goto S_14676;}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(12131);}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(12132);}while(r);
S_14680:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12133);if(r)goto S_14680;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12133);}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(12134);}while(r);
S_14684:;
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(12136);if(r)goto S_14684;}
do{
*__LONG_BYTESREQ=qb_safe_idiv(((*__LONG_TARGETTYP& 4095ll )+ 7 ), 8 );
if(!qbevent)break;evnt(12137);}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(12138);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1825=*__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(12139);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1826=*__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(12140);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1827=*__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(12141);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1828=*__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(12142);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1829=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12143);}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(12144);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1830=*__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(12146);}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(12147);}while(r);
}
do{
goto LABEL_SETE;
if(!qbevent)break;evnt(12149);}while(r);
}
}
LABEL_SETE:;
if(qbevent){evnt(12154);r=0;}
S_14700:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("sub_paint",9))))||is_error_pending()){
if(qbevent){evnt(12156);if(r)goto S_14700;}
S_14701:;
if ((-(*__LONG_I== 3 ))||is_error_pending()){
if(qbevent){evnt(12157);if(r)goto S_14701;}
S_14702:;
if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(12158);if(r)goto S_14702;}
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(12159);}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(12161);}while(r);
}
}
}
S_14709:;
if ((*(int16*)(((char*)__UDT_ID2)+((0+810))))||is_error_pending()){
if(qbevent){evnt(12166);if(r)goto S_14709;}
S_14710:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
if(qbevent){evnt(12169);if(r)goto S_14710;}
do{
qbs_set(__STRING_E,FUNC_REMOVECAST(__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12170);}while(r);
}
S_14713:;
if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12173);if(r)goto S_14713;}
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(12174);}while(r);
}
S_14716:;
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(12177);if(r)goto S_14716;}
do{
qbs_set(__STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12177);}while(r);
}
}
S_14720:;
if ((-(*__LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(12181);if(r)goto S_14720;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12181);}while(r);
}
do{
qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12182);}while(r);
fornext_continue_1778:;
}
fornext_exit_1778:;
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(12186);}while(r);
S_14726:;
while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||is_error_pending()){
if(qbevent){evnt(12187);if(r)goto S_14726;}
do{
*__LONG_X=qbs_asc(__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12188);}while(r);
S_14728:;
if ((*__LONG_X)||is_error_pending()){
if(qbevent){evnt(12189);if(r)goto S_14728;}
do{
qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12190);}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(12191);}while(r);
do{
*__LONG_S= 0 ;
if(!qbevent)break;evnt(12193);}while(r);
do{
*__LONG_AN= 0 ;
if(!qbevent)break;evnt(12194);}while(r);
do{
qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12195);}while(r);
S_14734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||is_error_pending()){
if(qbevent){evnt(12196);if(r)goto S_14734;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(12196);}while(r);
}
S_14737:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||is_error_pending()){
if(qbevent){evnt(12197);if(r)goto S_14737;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(12198);}while(r);
S_14739:;
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(12199);if(r)goto S_14739;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(12199);}while(r);
}
}else{
S_14743:;
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(12202);if(r)goto S_14743;}
do{
*__LONG_AN= 1 ;
if(!qbevent)break;evnt(12202);}while(r);
}
}
do{
*__LONG_S1=*__LONG_S;
if(!qbevent)break;evnt(12205);}while(r);
S_14748:;
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(12207);if(r)goto S_14748;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(12208);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12209);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12210);}while(r);
}
S_14753:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||is_error_pending()){
if(qbevent){evnt(12213);if(r)goto S_14753;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(12214);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12215);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12216);}while(r);
}
S_14758:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(12219);if(r)goto S_14758;}
do{
*__LONG_S= 1 ;
if(!qbevent)break;evnt(12220);}while(r);
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12221);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12222);}while(r);
}
S_14763:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||is_error_pending()){
if(qbevent){evnt(12225);if(r)goto S_14763;}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12225);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12225);}while(r);
}
S_14767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||is_error_pending()){
if(qbevent){evnt(12227);if(r)goto S_14767;}
S_14768:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||is_error_pending()){
if(qbevent){evnt(12228);if(r)goto S_14768;}
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(12228);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12228);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12229);}while(r);
do{
goto LABEL_CUSTOMLAYCHAR2;
if(!qbevent)break;evnt(12229);}while(r);
}
do{
qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12233);}while(r);
LABEL_CUSTOMLAYCHAR2:;
if(qbevent){evnt(12234);r=0;}
S_14776:;
if ((-(*__LONG_S== 0 ))||is_error_pending()){
if(qbevent){evnt(12235);if(r)goto S_14776;}
do{
*__LONG_S= 2 ;
if(!qbevent)break;evnt(12235);}while(r);
}
S_14779:;
if ((-(*__LONG_S!=*__LONG_S1))||is_error_pending()){
if(qbevent){evnt(12236);if(r)goto S_14779;}
S_14780:;
if ((*__LONG_S1)||is_error_pending()){
if(qbevent){evnt(12237);if(r)goto S_14780;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12237);}while(r);
}
S_14783:;
if ((-(*__LONG_S== 1 ))||is_error_pending()){
if(qbevent){evnt(12238);if(r)goto S_14783;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12238);}while(r);
}
S_14786:;
if ((-(*__LONG_S== 2 ))||is_error_pending()){
if(qbevent){evnt(12239);if(r)goto S_14786;}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12239);}while(r);
}
}
do{
qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12241);}while(r);
}else{
do{
*__LONG_ADDLAYOUT= 0 ;
if(!qbevent)break;evnt(12244);}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(12245);}while(r);
}
do{
*__LONG_ADDEDLAYOUT= 0 ;
if(!qbevent)break;evnt(12247);}while(r);
dl_continue_1832:;
}
dl_exit_1832:;
S_14797:;
if ((*__LONG_PASSEDNEEDED)||is_error_pending()){
if(qbevent){evnt(12255);if(r)goto S_14797;}
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(12256);}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(12258);}while(r);
S_14801:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBARGPREP,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(12259);if(r)goto S_14801;}
do{
qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[&](){",6),__STRING_SUBARGPREP),__STRING_SUBCALL),qbs_new_txt_len("}();",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12259);}while(r);
}
S_14804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(12261);if(r)goto S_14804;}
S_14805:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12262);if(r)goto S_14805;}
do{
SUB_WRITEBUFLINE(&(pass1836=*__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(12263);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1837=*__LONG_MAINTXTBUF),__STRING_SUBCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12267);}while(r);
S_14810:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNFILEPOST,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(12268);if(r)goto S_14810;}
do{
SUB_WRITEBUFLINE(&(pass1838=*__LONG_MAINTXTBUF),__STRING_DYNFILEPOST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12268);}while(r);
}
S_14813:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||is_error_pending()){
if(qbevent){evnt(12270);if(r)goto S_14813;}
S_14814:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12271);if(r)goto S_14814;}
do{
SUB_WRITEBUFLINE(&(pass1839=*__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(12272);}while(r);
}
}
do{
qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12276);}while(r);
S_14819:;
if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||is_error_pending()){
if(qbevent){evnt(12277);if(r)goto S_14819;}
do{
SUB_WRITEBUFLINE(&(pass1840=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12277);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(12279);}while(r);
do{
qbs_set(__STRING_X,qbs_right(__STRING_L, 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12280);}while(r);
S_14824:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||is_error_pending()){
if(qbevent){evnt(12280);if(r)goto S_14824;}
do{
qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12280);}while(r);
}
S_14827:;
if ((-(*__LONG_USECALL== 1 ))||is_error_pending()){
if(qbevent){evnt(12281);if(r)goto S_14827;}
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(12281);}while(r);
}
S_14830:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12282);if(r)goto S_14830;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1842;
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 skip1842;
skip1842:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12282);}while(r);
}
S_14833:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(12283);if(r)goto S_14833;}
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12283);}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(12283);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(12284);}while(r);
}
S_14840:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12289);if(r)goto S_14840;}
do{
qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12290);}while(r);
S_14842:;
if ((-(*__LONG_N>= 2 ))||is_error_pending()){
if(qbevent){evnt(12290);if(r)goto S_14842;}
do{
qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1844= 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12290);}while(r);
}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(12291);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12292);}while(r);
S_14847:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12293);if(r)goto S_14847;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12293);}while(r);
}
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(12295);}while(r);
}
dl_continue_1639:;
}
dl_exit_1639:;
}
LABEL_NOTSUBCALL:;
if(qbevent){evnt(12301);r=0;}
S_14855:;
if ((-(*__LONG_N>= 1 ))||is_error_pending()){
if(qbevent){evnt(12303);if(r)goto S_14855;}
S_14856:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||is_error_pending()){
if(qbevent){evnt(12304);if(r)goto S_14856;}
S_14857:;
if ((-(*__LONG_N== 1 ))||is_error_pending()){
if(qbevent){evnt(12305);if(r)goto S_14857;}
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(12305);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12305);}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(12306);}while(r);
do{
*__LONG_N=*__LONG_N- 1 ;
if(!qbevent)break;evnt(12307);}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(12308);}while(r);
S_14864:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(12309);if(r)goto S_14864;}
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(12309);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12309);}while(r);
}
do{
goto LABEL_LETUSED;
if(!qbevent)break;evnt(12311);}while(r);
}
}
S_14872:;
if ((-(*__LONG_N>= 3 ))||is_error_pending()){
if(qbevent){evnt(12316);if(r)goto S_14872;}
S_14873:;
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(12317);if(r)goto S_14873;}
LABEL_LETUSED:;
if(qbevent){evnt(12318);r=0;}
do{
SUB_ASSIGN(__STRING_CA,__LONG_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12319);}while(r);
S_14875:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12320);if(r)goto S_14875;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12320);}while(r);
}
do{
*__LONG_LAYOUTDONE= 1 ;
if(!qbevent)break;evnt(12321);}while(r);
S_14879:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||is_error_pending()){
if(qbevent){evnt(12322);if(r)goto S_14879;}
do{
qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12322);}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(12322);}while(r);
}
do{
goto LABEL_FINISHEDLINE;
if(!qbevent)break;evnt(12323);}while(r);
}
}
S_14887:;
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(12326);if(r)goto S_14887;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12326);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12326);}while(r);
}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12329);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12329);}while(r);
LABEL_FINISHEDLINE:;
if(qbevent){evnt(12331);r=0;}
do{
*__LONG_THENGOTO= 0 ;
if(!qbevent)break;evnt(12332);}while(r);
LABEL_FINISHEDLINE2:;
if(qbevent){evnt(12333);r=0;}
S_14894:;
if ((*__BYTE_INPUTFUNCTIONCALLED)||is_error_pending()){
if(qbevent){evnt(12335);if(r)goto S_14894;}
do{
*__BYTE_INPUTFUNCTIONCALLED= 0 ;
if(!qbevent)break;evnt(12336);}while(r);
S_14896:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12337);if(r)goto S_14896;}
do{
SUB_WRITEBUFLINE(&(pass1848=*__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(12338);}while(r);
}
}
S_14900:;
if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||is_error_pending()){
if(qbevent){evnt(12342);if(r)goto S_14900;}
do{
*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ;
if(!qbevent)break;evnt(12342);}while(r);
}
do{
qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12344);}while(r);
S_14904:;
if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||is_error_pending()){
if(qbevent){evnt(12345);if(r)goto S_14904;}
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(12346);}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(12347);}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(12348);}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(12349);}while(r);
}
S_14910:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(12351);if(r)goto S_14910;}
S_14911:;
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(12352);if(r)goto S_14911;}
do{
qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12352);}while(r);
}else{
do{
qbs_set(__STRING_TEMP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12352);}while(r);
}
S_14916:;
if ((*__LONG_DYNSCOPE)||is_error_pending()){
if(qbevent){evnt(12353);if(r)goto S_14916;}
do{
*__LONG_DYNSCOPE= 0 ;
if(!qbevent)break;evnt(12354);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1850=*__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(12355);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1851=*__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(12357);}while(r);
}
}
LABEL_FINISHEDNONEXEC:;
if(qbevent){evnt(12361);r=0;}
S_14923:;
if ((-(*__LONG_LAYOUTDONE== 0 ))||is_error_pending()){
if(qbevent){evnt(12363);if(r)goto S_14923;}
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(12363);}while(r);
}
S_14926:;
if ((-(*__LONG_CONTINUELINEFROM== 0 ))||is_error_pending()){
if(qbevent){evnt(12365);if(r)goto S_14926;}
S_14927:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||is_error_pending()){
if(qbevent){evnt(12368);if(r)goto S_14927;}
S_14928:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(12370);if(r)goto S_14928;}
do{
qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12372);}while(r);
do{
*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK;
if(!qbevent)break;evnt(12373);}while(r);
do{
qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12374);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL_BACKUP,__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12375);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE_BACKUP,__STRING_IDECOMPILEDLINE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12376);}while(r);
do{
*__LONG_IDEAUTOINDENT_BACKUP=*__LONG_IDEAUTOINDENT;
if(!qbevent)break;evnt(12377);}while(r);
do{
*__LONG_IDEAUTOLAYOUT_BACKUP=*__LONG_IDEAUTOLAYOUT;
if(!qbevent)break;evnt(12378);}while(r);
}
do{
qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12381);}while(r);
do{
qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12381);}while(r);
S_14939:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(12383);if(r)goto S_14939;}
do{
*__LONG_INCLUDINGFROMROOT= 0 ;
if(!qbevent)break;evnt(12384);}while(r);
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(12385);}while(r);
LABEL_AUTOINCLUDE:;
if(qbevent){evnt(12386);r=0;}
S_14942:;
if ((-(*__LONG_AUTOINCLUDEBUFFER!= -1 ))||is_error_pending()){
if(qbevent){evnt(12387);if(r)goto S_14942;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1853=*__LONG_AUTOINCLUDEBUFFER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12388);}while(r);
S_14944:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("-----",5))))||is_error_pending()){
if(qbevent){evnt(12389);if(r)goto S_14944;}
do{
*__LONG_MAINENDLINE= 3 ;
if(!qbevent)break;evnt(12389);}while(r);
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(12389);}while(r);
}
do{
*__INTEGER_AUTOINCLUDINGFILE= 1 ;
if(!qbevent)break;evnt(12390);}while(r);
S_14949:;
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(12391);if(r)goto S_14949;}
do{
*__INTEGER_AUTOINCLUDINGFILE= -1 ;
if(!qbevent)break;evnt(12392);}while(r);
}
do{
*__LONG_INCLUDINGFROMROOT= 1 ;
if(!qbevent)break;evnt(12394);}while(r);
}
}
S_14955:;
if ((-(*__LONG_INCLEVEL== 100 ))||is_error_pending()){
if(qbevent){evnt(12398);if(r)goto S_14955;}
S_14956:;
fornext_value1855= 200 ;
fornext_finalvalue1855= 299 ;
fornext_step1855= 1 ;
if (fornext_step1855<0) fornext_step_negative1855=1; else fornext_step_negative1855=0;
if (is_error_pending()) goto fornext_error1855;
goto fornext_entrylabel1855;
while(1){
fornext_value1855=fornext_step1855+(*__LONG_FH);
fornext_entrylabel1855:
*__LONG_FH=fornext_value1855;
if (fornext_step_negative1855){
if (fornext_value1855<fornext_finalvalue1855) break;
}else{
if (fornext_value1855>fornext_finalvalue1855) break;
}
fornext_error1855:;
if(qbevent){evnt(12399);if(r)goto S_14956;}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(12399);}while(r);
fornext_continue_1854:;
}
fornext_exit_1854:;
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(12400);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12400);}while(r);
}
S_14962:;
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(12403);if(r)goto S_14962;}
do{
qbs_set(__STRING_A,func_mid(__STRING_A, 3 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12403);}while(r);
}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(12404);}while(r);
do{
*__LONG_FIRSTTRYMETHOD= 1 ;
if(!qbevent)break;evnt(12406);}while(r);
S_14967:;
if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||is_error_pending()){
if(qbevent){evnt(12407);if(r)goto S_14967;}
do{
*__LONG_FIRSTTRYMETHOD= 2 ;
if(!qbevent)break;evnt(12407);}while(r);
}
S_14970:;
fornext_value1857=*__LONG_FIRSTTRYMETHOD;
fornext_finalvalue1857= 2 ;
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_TRY);
fornext_entrylabel1857:
*__LONG_TRY=fornext_value1857;
if (fornext_step_negative1857){
if (fornext_value1857<fornext_finalvalue1857) break;
}else{
if (fornext_value1857>fornext_finalvalue1857) break;
}
fornext_error1857:;
if(qbevent){evnt(12408);if(r)goto S_14970;}
S_14971:;
if ((-(*__LONG_TRY== 1 ))||is_error_pending()){
if(qbevent){evnt(12409);if(r)goto S_14971;}
S_14972:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(12410);if(r)goto S_14972;}
S_14973:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12411);if(r)goto S_14973;}
do{
qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12411);}while(r);
}else{
do{
qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12411);}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(12413);}while(r);
}
do{
qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12415);}while(r);
}
S_14983:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12417);if(r)goto S_14983;}
do{
qbs_set(__STRING_F,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12417);}while(r);
}
S_14986:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||is_error_pending()){
if(qbevent){evnt(12418);if(r)goto S_14986;}
do{
*__INTEGER_QBERRORHAPPENED= -2 ;
if(!qbevent)break;evnt(12419);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12420);}while(r);
LABEL_QBERRORHAPPENED2:;
if(qbevent){evnt(12421);r=0;}
S_14989:;
if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||is_error_pending()){
if(qbevent){evnt(12422);if(r)goto S_14989;}
do{
qbs_set(__STRING_INCDAT,func_space(func_lof(*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12424);}while(r);
do{
sub_get2(*__LONG_FH,NULL,__STRING_INCDAT,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12425);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(12426);}while(r);
do{
qbs_set(__STRING_INCDAT,qbs_ucase(__STRING_INCDAT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12427);}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(12428);}while(r);
S_14995:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(12429);if(r)goto S_14995;}
S_14996:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(12430);if(r)goto S_14996;}
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(12430);}while(r);
}
S_14999:;
if (((-(*__LONG_INCPOS== 0 ))|(-(*__LONG_INCPOS> 1 )))||is_error_pending()){
if(qbevent){evnt(12431);if(r)goto S_14999;}
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(12432);}while(r);
S_15001:;
if ((-(*__LONG_INCPOS== 0 ))||is_error_pending()){
if(qbevent){evnt(12433);if(r)goto S_15001;}
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(12433);}while(r);
}
}
}
S_15006:;
if ((-(*__LONG_INCPOS> 0 ))||is_error_pending()){
if(qbevent){evnt(12436);if(r)goto S_15006;}
do{
*__LONG_NUL=FUNC_SEEKBUF(&(pass1858=*__LONG_INCONEBUF),&(pass1859= 0 ),&(pass1860= -22ll ));
if(!qbevent)break;evnt(12437);}while(r);
S_15008:;
while((~(FUNC_ENDOFBUF(&(pass1862=*__LONG_INCONEBUF))))||is_error_pending()){
if(qbevent){evnt(12438);if(r)goto S_15008;}
S_15009:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func__fullpath(__STRING_F),FUNC_READBUFLINE(&(pass1863=*__LONG_INCONEBUF)))))||is_error_pending()){
if(qbevent){evnt(12439);if(r)goto S_15009;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(12440);}while(r);
do{
goto LABEL_SKIPINC2;
if(!qbevent)break;evnt(12441);}while(r);
}
ww_continue_1861:;
}
ww_exit_1861:;
}
do{
SUB_WRITEBUFLINE(&(pass1864=*__LONG_INCONEBUF),func__fullpath(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12445);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1865=*__LONG_EXTDEPBUF),qbs_add(qbs_new_txt_len("INCL: ",6),func__fullpath(__STRING_F)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12446);}while(r);
do{
sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12447);}while(r);
do{
goto fornext_exit_1856;
if(!qbevent)break;evnt(12449);}while(r);
}
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(12452);}while(r);
fornext_continue_1856:;
}
fornext_exit_1856:;
S_15023:;
if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||is_error_pending()){
if(qbevent){evnt(12454);if(r)goto S_15023;}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(12454);}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(12454);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12454);}while(r);
}
do{
*__INTEGER_QBERRORHAPPENED= 0 ;
if(!qbevent)break;evnt(12455);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ;
if(!qbevent)break;evnt(12456);}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(12456);}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(12456);}while(r);
}
S_15033:;
while((*__LONG_INCLEVEL)||is_error_pending()){
if(qbevent){evnt(12459);if(r)goto S_15033;}
do{
*__LONG_FH= 199 +*__LONG_INCLEVEL;
if(!qbevent)break;evnt(12460);}while(r);
S_15035:;
if ((-(func_eof(*__LONG_FH)== 0 ))||is_error_pending()){
if(qbevent){evnt(12462);if(r)goto S_15035;}
do{
tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip1867;
sub_file_line_input_string(tmp_fileno,__STRING_X);
if (is_error_pending()) goto skip1867;
skip1867:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12463);}while(r);
do{
qbs_set(__STRING_A3,__STRING_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12464);}while(r);
do{
*__LONG_CONTINUELINEFROM= 0 ;
if(!qbevent)break;evnt(12465);}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(12466);}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(12468);}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(12469);}while(r);
S_15042:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(12470);if(r)goto S_15042;}
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(12470);}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(12470);}while(r);
}
S_15047:;
if ((-(*__LONG_INCLEVEL> 1 ))||is_error_pending()){
if(qbevent){evnt(12471);if(r)goto S_15047;}
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(12472);}while(r);
S_15049:;
fornext_value1869= 1 ;
fornext_finalvalue1869=*__LONG_INCLEVEL- 1 ;
fornext_step1869= 1 ;
if (fornext_step1869<0) fornext_step_negative1869=1; else fornext_step_negative1869=0;
if (is_error_pending()) goto fornext_error1869;
goto fornext_entrylabel1869;
while(1){
fornext_value1869=fornext_step1869+(*__LONG_X);
fornext_entrylabel1869:
*__LONG_X=fornext_value1869;
if (fornext_step_negative1869){
if (fornext_value1869<fornext_finalvalue1869) break;
}else{
if (fornext_value1869>fornext_finalvalue1869) break;
}
fornext_error1869:;
if(qbevent){evnt(12473);if(r)goto S_15049;}
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(12474);}while(r);
S_15051:;
if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||is_error_pending()){
if(qbevent){evnt(12475);if(r)goto S_15051;}
S_15052:;
if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||is_error_pending()){
if(qbevent){evnt(12476);if(r)goto S_15052;}
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(12477);}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(12479);}while(r);
}
}
fornext_continue_1868:;
}
fornext_exit_1868:;
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12483);}while(r);
}
do{
qbs_set(__STRING_INCERROR,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12485);}while(r);
do{
*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ;
if(!qbevent)break;evnt(12486);}while(r);
S_15063:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12487);if(r)goto S_15063;}
do{
qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12487);}while(r);
do{
goto LABEL_SENDCOMMAND;
if(!qbevent)break;evnt(12487);}while(r);
}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(12488);}while(r);
}
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(12491);}while(r);
do{
*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ;
if(!qbevent)break;evnt(12492);}while(r);
LABEL_SKIPINC2:;
if(qbevent){evnt(12493);r=0;}
S_15071:;
if ((((-(*__LONG_INCLEVEL== 0 ))|(-(*__LONG_MAINENDLINE== 2 ))))||is_error_pending()){
if(qbevent){evnt(12494);if(r)goto S_15071;}
S_15072:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(12495);if(r)goto S_15072;}
S_15073:;
if ((~(FUNC_ENDOFBUF(&(pass1870=*__LONG_AUTOINCLUDEBUFFER))))||is_error_pending()){
if(qbevent){evnt(12496);if(r)goto S_15073;}
do{
goto LABEL_AUTOINCLUDE;
if(!qbevent)break;evnt(12496);}while(r);
}
}
S_15077:;
if ((-(*__LONG_INCLEVEL== 0 ))||is_error_pending()){
if(qbevent){evnt(12498);if(r)goto S_15077;}
do{
*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP;
if(!qbevent)break;evnt(12500);}while(r);
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12501);}while(r);
do{
qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12502);}while(r);
do{
qbs_set(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTORIGINAL_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12503);}while(r);
do{
qbs_set(__STRING_IDECOMPILEDLINE,__STRING_IDECOMPILEDLINE_BACKUP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12504);}while(r);
do{
*__LONG_IDEAUTOINDENT=*__LONG_IDEAUTOINDENT_BACKUP;
if(!qbevent)break;evnt(12505);}while(r);
do{
*__LONG_IDEAUTOLAYOUT=*__LONG_IDEAUTOLAYOUT_BACKUP;
if(!qbevent)break;evnt(12506);}while(r);
}
S_15086:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE!= 0 ))||is_error_pending()){
if(qbevent){evnt(12508);if(r)goto S_15086;}
do{
*__INTEGER_AUTOINCLUDINGFILE= 0 ;
if(!qbevent)break;evnt(12509);}while(r);
do{
#include "ret0.txt"
if(!qbevent)break;evnt(12510);}while(r);
}
}
dl_continue_1866:;
}
dl_exit_1866:;
}
S_15093:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12519);if(r)goto S_15093;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1871;
sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1);
if (is_error_pending()) goto skip1871;
skip1871:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12520);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1872;
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 skip1872;
skip1872:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12521);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1873;
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 skip1873;
skip1873:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12522);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1874;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1);
if (is_error_pending()) goto skip1874;
skip1874:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12523);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1875;
sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1);
if (is_error_pending()) goto skip1875;
skip1875:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12524);}while(r);
}
S_15100:;
if ((*__LONG_CONTINUELINEFROM)||is_error_pending()){
if(qbevent){evnt(12527);if(r)goto S_15100;}
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(12527);}while(r);
}
S_15103:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||is_error_pending()){
if(qbevent){evnt(12529);if(r)goto S_15103;}
S_15104:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||is_error_pending()){
if(qbevent){evnt(12530);if(r)goto S_15104;}
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(12530);}while(r);
}else{
do{
qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12530);}while(r);
}
}
S_15110:;
if ((-(*__LONG_LAYOUTOK== 0 ))||is_error_pending()){
if(qbevent){evnt(12533);if(r)goto S_15110;}
do{
qbs_set(__STRING_LAYOUT,qbs__trim(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12534);}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(12537);}while(r);
}
do{
*__LONG_X=*__LONG_LHSCONTROLLEVEL;
if(!qbevent)break;evnt(12539);}while(r);
S_15116:;
if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||is_error_pending()){
if(qbevent){evnt(12539);if(r)goto S_15116;}
do{
*__LONG_X=*__INTEGER_CONTROLLEVEL;
if(!qbevent)break;evnt(12539);}while(r);
}
S_15119:;
if ((-(*__LONG_DEFININGTYPE== 2 ))||is_error_pending()){
if(qbevent){evnt(12540);if(r)goto S_15119;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12540);}while(r);
}
S_15122:;
if ((-(*__LONG_DEFININGTYPE> 0 ))||is_error_pending()){
if(qbevent){evnt(12541);if(r)goto S_15122;}
do{
*__LONG_DEFININGTYPE= 2 ;
if(!qbevent)break;evnt(12541);}while(r);
}
S_15125:;
if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||is_error_pending()){
if(qbevent){evnt(12542);if(r)goto S_15125;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12542);}while(r);
}
S_15128:;
if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||is_error_pending()){
if(qbevent){evnt(12543);if(r)goto S_15128;}
do{
*__LONG_DECLARINGLIBRARY= 2 ;
if(!qbevent)break;evnt(12543);}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(12544);}while(r);
S_15132:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(12545);if(r)goto S_15132;}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12545);}while(r);
}
S_15135:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12547);if(r)goto S_15135;}
do{
goto LABEL_IDERET4;
if(!qbevent)break;evnt(12547);}while(r);
}
S_15138:;
if ((-(*__LONG_LASTLINERETURN== 1 ))||is_error_pending()){
if(qbevent){evnt(12548);if(r)goto S_15138;}
do{
goto dl_exit_399;
if(!qbevent)break;evnt(12548);}while(r);
}
LABEL_SKIP_INVALIDATED_LINE:;
if(qbevent){evnt(12550);r=0;}
S_15141:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(12551);if(r)goto S_15141;}
S_15142:;
if ((*__LONG_LINECONTINUATION)||is_error_pending()){
if(qbevent){evnt(12552);if(r)goto S_15142;}
do{
SUB_WRITEBUFLINE(&(pass1878=*__LONG_FORMATBUF),qbs_add(__STRING_LAYOUTORIGINAL,__STRING_LAYOUTCONTINUATIONS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12555);}while(r);
}else{
do{
qbs_set(__STRING_INDENTED,FUNC_APPLY_LAYOUT_INDENT(__STRING_LAYOUTORIGINAL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12557);}while(r);
S_15146:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_INDENTED->len))||is_error_pending()){
if(qbevent){evnt(12558);if(r)goto S_15146;}
do{
SUB_WRITEBUFLINE(&(pass1880=*__LONG_FORMATBUF),__STRING_INDENTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12558);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1881=*__LONG_FORMATBUF),__STRING_LAYOUTORIGINAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12558);}while(r);
}
}
}
dl_continue_399:;
}while(1);
dl_exit_399:;
S_15154:;
if ((-(*__LONG_LASTLINERETURN== 0 ))||is_error_pending()){
if(qbevent){evnt(12564);if(r)goto S_15154;}
do{
*__LONG_LASTLINERETURN= 1 ;
if(!qbevent)break;evnt(12565);}while(r);
do{
*__LONG_LASTLINE= 1 ;
if(!qbevent)break;evnt(12566);}while(r);
do{
qbs_set(__STRING_A3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12567);}while(r);
do{
goto LABEL_COMPILELINE;
if(!qbevent)break;evnt(12568);}while(r);
}
LABEL_IDE5:;
if(qbevent){evnt(12571);r=0;}
do{
*__LONG_LINENUMBER= 0 ;
if(!qbevent)break;evnt(12572);}while(r);
do{
SUB_CLOSEMAIN();
if(!qbevent)break;evnt(12573);}while(r);
S_15162:;
if ((*__LONG_DEFININGTYPE)||is_error_pending()){
if(qbevent){evnt(12575);if(r)goto S_15162;}
do{
*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR;
if(!qbevent)break;evnt(12575);}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(12575);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12575);}while(r);
}
S_15167:;
if ((*__INTEGER_CONTROLLEVEL)||is_error_pending()){
if(qbevent){evnt(12578);if(r)goto S_15167;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12579);}while(r);
S_15169:;
sc_1882=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])];
if(qbevent){evnt(12580);if(r)goto S_15169;}
S_15170:;
if (((sc_1882==( 1 )))||is_error_pending()){
if(qbevent){evnt(12581);if(r)goto S_15170;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12581);}while(r);
sc_ec_39_end:;
goto sc_1882_end;
}
S_15172:;
if (((sc_1882==( 2 )))||is_error_pending()){
if(qbevent){evnt(12582);if(r)goto S_15172;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12582);}while(r);
sc_ec_40_end:;
goto sc_1882_end;
}
S_15174:;
if (((sc_1882==( 3 ))||(sc_1882==( 4 )))||is_error_pending()){
if(qbevent){evnt(12583);if(r)goto S_15174;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12583);}while(r);
sc_ec_41_end:;
goto sc_1882_end;
}
S_15176:;
if (((sc_1882==( 5 )))||is_error_pending()){
if(qbevent){evnt(12584);if(r)goto S_15176;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12584);}while(r);
sc_ec_42_end:;
goto sc_1882_end;
}
S_15178:;
if (((sc_1882==( 6 )))||is_error_pending()){
if(qbevent){evnt(12585);if(r)goto S_15178;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12585);}while(r);
sc_ec_43_end:;
goto sc_1882_end;
}
S_15180:;
if ((((sc_1882>=( 10 ))&&(sc_1882<=( 19 ))))||is_error_pending()){
if(qbevent){evnt(12586);if(r)goto S_15180;}
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(12586);}while(r);
sc_ec_44_end:;
goto sc_1882_end;
}
S_15182:;
if (((sc_1882==( 32 )))||is_error_pending()){
if(qbevent){evnt(12587);if(r)goto S_15182;}
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(12587);}while(r);
sc_ec_45_end:;
goto sc_1882_end;
}
sc_1882_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(12589);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12590);}while(r);
}
S_15188:;
if ((-(*__LONG_IDEINDENTSUBS== 0 ))||is_error_pending()){
if(qbevent){evnt(12593);if(r)goto S_15188;}
S_15189:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||is_error_pending()){
if(qbevent){evnt(12594);if(r)goto S_15189;}
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(12594);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12594);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass1884=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12598);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1885=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12599);}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(12602);}while(r);
S_15197:;
fornext_value1887= 1 ;
fornext_finalvalue1887=*__LONG_IDN;
fornext_step1887= 1 ;
if (fornext_step1887<0) fornext_step_negative1887=1; else fornext_step_negative1887=0;
if (is_error_pending()) goto fornext_error1887;
goto fornext_entrylabel1887;
while(1){
fornext_value1887=fornext_step1887+(*__LONG_I);
fornext_entrylabel1887:
*__LONG_I=fornext_value1887;
if (fornext_step_negative1887){
if (fornext_value1887<fornext_finalvalue1887) break;
}else{
if (fornext_value1887>fornext_finalvalue1887) break;
}
fornext_error1887:;
if(qbevent){evnt(12604);if(r)goto S_15197;}
S_15198:;
if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+2957))))||is_error_pending()){
if(qbevent){evnt(12606);if(r)goto S_15198;}
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]))*2973+2389))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12607);}while(r);
do{
goto LABEL_CLEARSTATICSCOPE;
if(!qbevent)break;evnt(12608);}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]))*2973+2389))),256,1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12611);}while(r);
S_15203:;
if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||is_error_pending()){
if(qbevent){evnt(12612);if(r)goto S_15203;}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12613);}while(r);
LABEL_CLEARSTATICSCOPE:;
if(qbevent){evnt(12614);r=0;}
S_15205:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+512))))||is_error_pending()){
if(qbevent){evnt(12616);if(r)goto S_15205;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12617);}while(r);
S_15207:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12618);if(r)goto S_15207;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12618);}while(r);
}
S_15210:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(12619);if(r)goto S_15210;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(12619);}while(r);
}
S_15213:;
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+554))),256,1))),qbs_new_txt_len("@",1)),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(12620);if(r)goto S_15213;}
do{
goto LABEL_CLEARERASERETURNED;
if(!qbevent)break;evnt(12621);}while(r);
}
do{
*__LONG_CLEARERASERETURN= 1 ;
if(!qbevent)break;evnt(12623);}while(r);
do{
goto LABEL_CLEARERASE;
if(!qbevent)break;evnt(12623);}while(r);
}
S_15219:;
if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+540))))||is_error_pending()){
if(qbevent){evnt(12626);if(r)goto S_15219;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12627);}while(r);
S_15221:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12628);if(r)goto S_15221;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12628);}while(r);
}
do{
qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1888= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12629);}while(r);
S_15225:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12630);if(r)goto S_15225;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12630);}while(r);
}
do{
*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+((0+540)))+*__LONG_ISREFERENCE;
if(!qbevent)break;evnt(12632);}while(r);
S_15229:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12633);if(r)goto S_15229;}
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& 4095ll ),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(12634);}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(12636);}while(r);
}
do{
qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1889= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12638);}while(r);
S_15235:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12639);if(r)goto S_15235;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12639);}while(r);
}
S_15238:;
if ((*__LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(12640);if(r)goto S_15238;}
S_15239:;
if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(12641);if(r)goto S_15239;}
do{
SUB_WRITEBUFLINE(&(pass1890=*__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(12642);}while(r);
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12643);}while(r);
}else{
S_15243:;
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(12645);if(r)goto S_15243;}
do{
SUB_WRITEBUFLINE(&(pass1891=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12646);}while(r);
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12648);}while(r);
}
}
S_15249:;
if ((*__LONG_TYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(12651);if(r)goto S_15249;}
S_15250:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 4095ll )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(12652);if(r)goto S_15250;}
do{
SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1892=*__LONG_TYP& 4095ll ),__LONG_MAINTXTBUF,&(pass1893= 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12654);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1894=*__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(12656);}while(r);
}
}else{
S_15256:;
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(12659);if(r)goto S_15256;}
do{
SUB_WRITEBUFLINE(&(pass1895=*__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(12660);}while(r);
}
}
do{
goto LABEL_CLEARED;
if(!qbevent)break;evnt(12663);}while(r);
}
}
LABEL_CLEARED:;
if(qbevent){evnt(12668);r=0;}
LABEL_CLEARERASERETURNED:;
if(qbevent){evnt(12669);r=0;}
fornext_continue_1886:;
}
fornext_exit_1886:;
S_15264:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12672);if(r)goto S_15264;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1896;
sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1);
if (is_error_pending()) goto skip1896;
skip1896:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12673);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1897;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0);
if (is_error_pending()) goto skip1897;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1);
if (is_error_pending()) goto skip1897;
skip1897:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12674);}while(r);
}
S_15268:;
fornext_value1899= 1 ;
fornext_finalvalue1899=*__LONG_IDN;
fornext_step1899= 1 ;
if (fornext_step1899<0) fornext_step_negative1899=1; else fornext_step_negative1899=0;
if (is_error_pending()) goto fornext_error1899;
goto fornext_entrylabel1899;
while(1){
fornext_value1899=fornext_step1899+(*__LONG_I);
fornext_entrylabel1899:
*__LONG_I=fornext_value1899;
if (fornext_step_negative1899){
if (fornext_value1899<fornext_finalvalue1899) break;
}else{
if (fornext_value1899>fornext_finalvalue1899) break;
}
fornext_error1899:;
if(qbevent){evnt(12678);if(r)goto S_15268;}
S_15269:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(12679);if(r)goto S_15269;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12681);}while(r);
S_15271:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12682);if(r)goto S_15271;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12682);}while(r);
}
S_15274:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12684);if(r)goto S_15274;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1900;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0);
if (is_error_pending()) goto skip1900;
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 skip1900;
skip1900:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12684);}while(r);
}
S_15277:;
if ((*(int32*)(((char*)__UDT_ID)+((0+2959))))||is_error_pending()){
if(qbevent){evnt(12686);if(r)goto S_15277;}
S_15278:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12688);if(r)goto S_15278;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1901;
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 skip1901;
skip1901:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12688);}while(r);
}
do{
*__LONG_I2=*(int32*)(((char*)__UDT_ID)+((0+2959)));
if(!qbevent)break;evnt(12690);}while(r);
do{
*__LONG_X=*(int16*)(((char*)__UDT_ID)+((0+2963)));
if(!qbevent)break;evnt(12691);}while(r);
S_15283:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12693);if(r)goto S_15283;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1902;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0);
if (is_error_pending()) goto skip1902;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1902;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1902;
skip1902:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12693);}while(r);
}
S_15286:;
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(12696);if(r)goto S_15286;}
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(12697);}while(r);
S_15288:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12700);if(r)goto S_15288;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1903;
sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0);
if (is_error_pending()) goto skip1903;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1903;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1);
if (is_error_pending()) goto skip1903;
skip1903:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12700);}while(r);
}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12703);}while(r);
}
}
}
fornext_continue_1898:;
}
fornext_exit_1898:;
do{
*__LONG_UNRESOLVED= 0 ;
if(!qbevent)break;evnt(12709);}while(r);
S_15297:;
fornext_value1905= 1 ;
fornext_finalvalue1905=*__LONG_IDN;
fornext_step1905= 1 ;
if (fornext_step1905<0) fornext_step_negative1905=1; else fornext_step_negative1905=0;
if (is_error_pending()) goto fornext_error1905;
goto fornext_entrylabel1905;
while(1){
fornext_value1905=fornext_step1905+(*__LONG_I);
fornext_entrylabel1905:
*__LONG_I=fornext_value1905;
if (fornext_step_negative1905){
if (fornext_value1905<fornext_finalvalue1905) break;
}else{
if (fornext_value1905>fornext_finalvalue1905) break;
}
fornext_error1905:;
if(qbevent){evnt(12710);if(r)goto S_15297;}
do{
SUB_GETID(__LONG_I);
if(!qbevent)break;evnt(12711);}while(r);
S_15299:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12712);if(r)goto S_15299;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12712);}while(r);
}
S_15302:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12714);if(r)goto S_15302;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1906;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0);
if (is_error_pending()) goto skip1906;
sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1), 0, 0, 1);
if (is_error_pending()) goto skip1906;
skip1906:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12714);}while(r);
}
S_15305:;
if ((*(int16*)(((char*)__UDT_ID)+((0+548))))||is_error_pending()){
if(qbevent){evnt(12716);if(r)goto S_15305;}
S_15306:;
fornext_value1908= 1 ;
fornext_finalvalue1908=*(int16*)(((char*)__UDT_ID)+((0+813)));
fornext_step1908= 1 ;
if (fornext_step1908<0) fornext_step_negative1908=1; else fornext_step_negative1908=0;
if (is_error_pending()) goto fornext_error1908;
goto fornext_entrylabel1908;
while(1){
fornext_value1908=fornext_step1908+(*__LONG_I2);
fornext_entrylabel1908:
*__LONG_I2=fornext_value1908;
if (fornext_step_negative1908){
if (fornext_value1908<fornext_finalvalue1908) break;
}else{
if (fornext_value1908>fornext_finalvalue1908) break;
}
fornext_error1908:;
if(qbevent){evnt(12717);if(r)goto S_15306;}
do{
*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+817))),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12718);}while(r);
S_15308:;
if ((-(*__LONG_T> 0 ))||is_error_pending()){
if(qbevent){evnt(12719);if(r)goto S_15308;}
S_15309:;
if (((*__LONG_T&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(12720);if(r)goto S_15309;}
S_15310:;
if (((*__LONG_T&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(12721);if(r)goto S_15310;}
S_15311:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12723);if(r)goto S_15311;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1909;
sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0);
if (is_error_pending()) goto skip1909;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0);
if (is_error_pending()) goto skip1909;
sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0);
if (is_error_pending()) goto skip1909;
sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+((0+813))))), 1, 0, 1);
if (is_error_pending()) goto skip1909;
skip1909:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12723);}while(r);
}
do{
*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2651))),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12725);}while(r);
do{
*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+((0+2751))),100,1),*__LONG_I2, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12726);}while(r);
S_15316:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12728);if(r)goto S_15316;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1910;
sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0);
if (is_error_pending()) goto skip1910;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1);
if (is_error_pending()) goto skip1910;
skip1910:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12728);}while(r);
}
S_15319:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12729);if(r)goto S_15319;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1911;
sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0);
if (is_error_pending()) goto skip1911;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1);
if (is_error_pending()) goto skip1911;
skip1911:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12729);}while(r);
}
S_15322:;
if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(12731);if(r)goto S_15322;}
S_15323:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12733);if(r)goto S_15323;}
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("mismatch detected!",18), 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(12733);}while(r);
}
do{
*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ;
if(!qbevent)break;evnt(12735);}while(r);
do{
*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ;
if(!qbevent)break;evnt(12736);}while(r);
S_15328:;
if ((-(*__INTEGER_SFLISTN> 25000 ))||is_error_pending()){
if(qbevent){evnt(12737);if(r)goto S_15328;}
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(12738);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12739);}while(r);
}
do{
*__LONG_UBOUND_SF=func_ubound(__ARRAY_LONG_SFIDLIST,1,1);
if(!qbevent)break;evnt(12741);}while(r);
S_15333:;
if ((-(*__INTEGER_SFLISTN>*__LONG_UBOUND_SF))||is_error_pending()){
if(qbevent){evnt(12742);if(r)goto S_15333;}
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(12743);}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(12744);}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(12745);}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(12747);}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(12748);}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(12749);}while(r);
}
}
}
}
fornext_continue_1907:;
}
fornext_exit_1907:;
}
fornext_continue_1904:;
}
fornext_exit_1904:;
S_15348:;
if ((-(*__LONG_UNRESOLVED> 0 ))||is_error_pending()){
if(qbevent){evnt(12759);if(r)goto S_15348;}
S_15349:;
if ((-(*__LONG_LASTUNRESOLVED== -1 ))||is_error_pending()){
if(qbevent){evnt(12760);if(r)goto S_15349;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12762);}while(r);
S_15351:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12763);if(r)goto S_15351;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1913;
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 skip1913;
skip1913:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12764);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1914;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1914;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1914;
skip1914:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12765);}while(r);
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("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1915;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1915;
skip1915:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12766);}while(r);
}
}else{
S_15357:;
if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||is_error_pending()){
if(qbevent){evnt(12770);if(r)goto S_15357;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12771);}while(r);
S_15359:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12772);if(r)goto S_15359;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1916;
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 skip1916;
skip1916:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12773);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1917;
sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0);
if (is_error_pending()) goto skip1917;
sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1917;
skip1917:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12774);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1918;
sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0);
if (is_error_pending()) goto skip1918;
sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1);
if (is_error_pending()) goto skip1918;
skip1918:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12775);}while(r);
}
}
}
}
do{
*__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED;
if(!qbevent)break;evnt(12780);}while(r);
S_15368:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12806);if(r)goto S_15368;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1919;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1);
if (is_error_pending()) goto skip1919;
skip1919:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12806);}while(r);
}
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(12807);}while(r);
S_15372:;
fornext_value1921= 1 ;
fornext_finalvalue1921=*__LONG_COMMONARRAYLISTN;
fornext_step1921= 1 ;
if (fornext_step1921<0) fornext_step_negative1921=1; else fornext_step_negative1921=0;
if (is_error_pending()) goto fornext_error1921;
goto fornext_entrylabel1921;
while(1){
fornext_value1921=fornext_step1921+(*__LONG_X);
fornext_entrylabel1921:
*__LONG_X=fornext_value1921;
if (fornext_step_negative1921){
if (fornext_value1921<fornext_finalvalue1921) break;
}else{
if (fornext_value1921>fornext_finalvalue1921) break;
}
fornext_error1921:;
if(qbevent){evnt(12808);if(r)goto S_15372;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12809);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12809);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12810);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12810);}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(12811);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12811);}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(12812);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12812);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12814);}while(r);
S_15382:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12815);if(r)goto S_15382;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12815);}while(r);
}
S_15385:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12816);if(r)goto S_15385;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12816);}while(r);
}
S_15388:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12817);if(r)goto S_15388;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12817);}while(r);
}
S_15391:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12819);if(r)goto S_15391;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1922;
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 skip1922;
skip1922:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12819);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12821);}while(r);
S_15395:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12822);if(r)goto S_15395;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12822);}while(r);
}
S_15398:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(12823);if(r)goto S_15398;}
S_15399:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(12824);if(r)goto S_15399;}
do{
goto LABEL_FOUNDCOMMONARRAY2;
if(!qbevent)break;evnt(12824);}while(r);
}
S_15402:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(12825);if(r)goto S_15402;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(12825);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12825);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(12825);}while(r);
}
S_15408:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12826);if(r)goto S_15408;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12826);}while(r);
}
dl_continue_1923:;
}
dl_exit_1923:;
LABEL_FOUNDCOMMONARRAY2:;
if(qbevent){evnt(12828);r=0;}
S_15412:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12830);if(r)goto S_15412;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1924;
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 skip1924;
skip1924:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12830);}while(r);
}
S_15415:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(12832);if(r)goto S_15415;}
S_15416:;
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(12833);if(r)goto S_15416;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(12833);}while(r);
}
S_15419:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12834);if(r)goto S_15419;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1925;
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 skip1925;
skip1925:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12834);}while(r);
}
}
fornext_continue_1920:;
}
fornext_exit_1920:;
S_15424:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12837);if(r)goto S_15424;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1926;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1);
if (is_error_pending()) goto skip1926;
skip1926:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12837);}while(r);
}
S_15427:;
if ((*__INTEGER_RECOMPILE)||is_error_pending()){
if(qbevent){evnt(12839);if(r)goto S_15427;}
LABEL_DO_RECOMPILE:;
if(qbevent){evnt(12840);r=0;}
S_15428:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12841);if(r)goto S_15428;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1927;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1);
if (is_error_pending()) goto skip1927;
skip1927:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12841);}while(r);
}
do{
*__INTEGER_RECOMPILE= 0 ;
if(!qbevent)break;evnt(12842);}while(r);
S_15432:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(12843);if(r)goto S_15432;}
do{
*__LONG_IDERECOMPILE= 1 ;
if(!qbevent)break;evnt(12843);}while(r);
}
S_15435:;
fornext_value1929= 1 ;
fornext_finalvalue1929= 300 ;
fornext_step1929= 1 ;
if (fornext_step1929<0) fornext_step_negative1929=1; else fornext_step_negative1929=0;
if (is_error_pending()) goto fornext_error1929;
goto fornext_entrylabel1929;
while(1){
fornext_value1929=fornext_step1929+(*__LONG_CLOSEALL);
fornext_entrylabel1929:
*__LONG_CLOSEALL=fornext_value1929;
if (fornext_step_negative1929){
if (fornext_value1929<fornext_finalvalue1929) break;
}else{
if (fornext_value1929>fornext_finalvalue1929) break;
}
fornext_error1929:;
if(qbevent){evnt(12844);if(r)goto S_15435;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(12844);}while(r);
fornext_continue_1928:;
}
fornext_exit_1928:;
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(12845);}while(r);
do{
goto LABEL_RECOMPILE;
if(!qbevent)break;evnt(12846);}while(r);
}
S_15441:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12849);if(r)goto S_15441;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1930;
sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1);
if (is_error_pending()) goto skip1930;
skip1930:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12849);}while(r);
}
S_15444:;
fornext_value1932= 1 ;
fornext_finalvalue1932=*__LONG_NLABELS;
fornext_step1932= 1 ;
if (fornext_step1932<0) fornext_step_negative1932=1; else fornext_step_negative1932=0;
if (is_error_pending()) goto fornext_error1932;
goto fornext_entrylabel1932;
while(1){
fornext_value1932=fornext_step1932+(*__LONG_R);
fornext_entrylabel1932:
*__LONG_R=fornext_value1932;
if (fornext_step_negative1932){
if (fornext_value1932<fornext_finalvalue1932) break;
}else{
if (fornext_value1932>fornext_finalvalue1932) break;
}
fornext_error1932:;
if(qbevent){evnt(12850);if(r)goto S_15444;}
S_15445:;
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(12852);if(r)goto S_15445;}
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(12853);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12854);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1933= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12855);}while(r);
LABEL_ADDLABCHK7:;
if(qbevent){evnt(12856);r=0;}
S_15449:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(12857);if(r)goto S_15449;}
S_15450:;
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(12858);if(r)goto S_15450;}
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(12859);}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(12859);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12859);}while(r);
}
S_15455:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(12861);if(r)goto S_15455;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(12861);}while(r);
do{
goto LABEL_ADDLABCHK7;
if(!qbevent)break;evnt(12861);}while(r);
}
}
}
S_15461:;
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(12866);if(r)goto S_15461;}
S_15462:;
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(12868);if(r)goto S_15462;}
S_15463:;
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(12869);if(r)goto S_15463;}
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(12870);}while(r);
S_15465:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12871);if(r)goto S_15465;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1934;
sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0);
if (is_error_pending()) goto skip1934;
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 skip1934;
skip1934:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12871);}while(r);
}
do{
goto LABEL_DO_RECOMPILE;
if(!qbevent)break;evnt(12872);}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(12876);}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(12876);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12876);}while(r);
}
S_15475:;
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(12880);if(r)goto S_15475;}
do{
*__LONG_X= 0 ;
if(!qbevent)break;evnt(12883);}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(12884);}while(r);
do{
*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12885);}while(r);
do{
*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1935= 2ll ),__LONG_IGNORE,__LONG_R2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12886);}while(r);
LABEL_ADDLABCHK4:;
if(qbevent){evnt(12887);r=0;}
S_15480:;
if ((*__LONG_V)||is_error_pending()){
if(qbevent){evnt(12888);if(r)goto S_15480;}
do{
*__LONG_X=*__LONG_X+ 1 ;
if(!qbevent)break;evnt(12889);}while(r);
S_15482:;
if ((-(*__LONG_V== 2 ))||is_error_pending()){
if(qbevent){evnt(12890);if(r)goto S_15482;}
do{
*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2);
if(!qbevent)break;evnt(12890);}while(r);
do{
goto LABEL_ADDLABCHK4;
if(!qbevent)break;evnt(12890);}while(r);
}
}
S_15487:;
if ((-(*__LONG_X!= 1 ))||is_error_pending()){
if(qbevent){evnt(12892);if(r)goto S_15487;}
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(12892);}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(12892);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12892);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1936=*__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(12895);}while(r);
}
fornext_continue_1931:;
}
fornext_exit_1931:;
S_15495:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12900);if(r)goto S_15495;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1937;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1);
if (is_error_pending()) goto skip1937;
skip1937:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12900);}while(r);
}
do{
qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12910);}while(r);
do{
*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF;
if(!qbevent)break;evnt(12911);}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(12912);}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(12913);}while(r);
S_15502:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12915);if(r)goto S_15502;}
do{
SUB_WRITEBUFLINE(&(pass1938=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12916);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1939=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12918);}while(r);
}
S_15507:;
if ((*__LONG_SCREENHIDEON)||is_error_pending()){
if(qbevent){evnt(12921);if(r)goto S_15507;}
do{
SUB_WRITEBUFLINE(&(pass1940=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12922);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1941=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12924);}while(r);
}
S_15512:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_ASSERTSON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12927);if(r)goto S_15512;}
do{
SUB_WRITEBUFLINE(&(pass1942=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12928);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1943=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12930);}while(r);
}
S_15517:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12933);if(r)goto S_15517;}
do{
SUB_WRITEBUFLINE(&(pass1944=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12934);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass1945=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12936);}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(12939);}while(r);
S_15523:;
if ((*__LONG_RESIZEON)||is_error_pending()){
if(qbevent){evnt(12940);if(r)goto S_15523;}
do{
SUB_WRITEBUFLINE(&(pass1946=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12941);}while(r);
}
S_15526:;
if ((*__LONG_RESIZESCALE)||is_error_pending()){
if(qbevent){evnt(12943);if(r)goto S_15526;}
do{
SUB_WRITEBUFLINE(&(pass1947=*__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(12944);}while(r);
}
S_15529:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(12947);if(r)goto S_15529;}
do{
SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1948= 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12948);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1949=*__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(12953);}while(r);
S_15533:;
if ((-(*__LONG_DATAOFFSET== 0 ))||is_error_pending()){
if(qbevent){evnt(12954);if(r)goto S_15533;}
do{
SUB_WRITEBUFLINE(&(pass1950=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12956);}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(12961);}while(r);
do{
qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1951=*__LONG_FF),&(pass1953=FUNC_GETBUFLEN(&(pass1952=*__LONG_FF)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12962);}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(12964);}while(r);
do{
*__LONG_XL=__STRING_X->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12965);}while(r);
do{
qbs_set(__STRING_X2,func_space(*__LONG_XL**__LONG_IDSL));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12967);}while(r);
do{
*__LONG_X2OFS= 1 ;
if(!qbevent)break;evnt(12969);}while(r);
S_15542:;
fornext_value1957= 1 ;
fornext_finalvalue1957=*__LONG_XL;
fornext_step1957= 1 ;
if (fornext_step1957<0) fornext_step_negative1957=1; else fornext_step_negative1957=0;
if (is_error_pending()) goto fornext_error1957;
goto fornext_entrylabel1957;
while(1){
fornext_value1957=fornext_step1957+(*__LONG_I);
fornext_entrylabel1957:
*__LONG_I=fornext_value1957;
if (fornext_step_negative1957){
if (fornext_value1957<fornext_finalvalue1957) break;
}else{
if (fornext_value1957>fornext_finalvalue1957) break;
}
fornext_error1957:;
if(qbevent){evnt(12970);if(r)goto S_15542;}
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(12971);}while(r);
do{
*__LONG_X2OFS=*__LONG_X2OFS+*__LONG_IDSL;
if(!qbevent)break;evnt(12972);}while(r);
fornext_continue_1956:;
}
fornext_exit_1956:;
do{
SUB_WRITEBUFLINE(&(pass1958=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 inline_data[]={",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12975);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1959=*__LONG_GLOBTXTBUF),__STRING_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12976);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1960=*__LONG_GLOBTXTBUF),qbs_new_txt_len("0};",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12977);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1961=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12978);}while(r);
do{
qbs_set(__STRING_X,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12980);}while(r);
do{
qbs_set(__STRING_X2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12980);}while(r);
}
S_15553:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(12984);if(r)goto S_15553;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1962;
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 skip1962;
skip1962:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(12984);}while(r);
}
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ;
if(!qbevent)break;evnt(12985);}while(r);
do{
*__LONG_NCOMMONTMP= 0 ;
if(!qbevent)break;evnt(12986);}while(r);
do{
*__LONG_XI= 1 ;
if(!qbevent)break;evnt(12987);}while(r);
S_15559:;
fornext_value1964= 1 ;
fornext_finalvalue1964=*__LONG_COMMONARRAYLISTN;
fornext_step1964= 1 ;
if (fornext_step1964<0) fornext_step_negative1964=1; else fornext_step_negative1964=0;
if (is_error_pending()) goto fornext_error1964;
goto fornext_entrylabel1964;
while(1){
fornext_value1964=fornext_step1964+(*__LONG_X);
fornext_entrylabel1964:
*__LONG_X=fornext_value1964;
if (fornext_step_negative1964){
if (fornext_value1964<fornext_finalvalue1964) break;
}else{
if (fornext_value1964>fornext_finalvalue1964) break;
}
fornext_error1964:;
if(qbevent){evnt(12988);if(r)goto S_15559;}
do{
qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12989);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12989);}while(r);
do{
qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12990);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12990);}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(12991);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12991);}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(12992);}while(r);
do{
*__LONG_XI=*__LONG_XI+ 1 ;
if(!qbevent)break;evnt(12992);}while(r);
do{
qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12995);}while(r);
do{
*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12996);}while(r);
S_15570:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12997);if(r)goto S_15570;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12997);}while(r);
}
S_15573:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(12998);if(r)goto S_15573;}
do{
qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(12998);}while(r);
}
S_15576:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(12999);if(r)goto S_15576;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(12999);}while(r);
}
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13000);}while(r);
S_15580:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13001);if(r)goto S_15580;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13001);}while(r);
}
S_15583:;
while((*__LONG_TRY)||is_error_pending()){
if(qbevent){evnt(13002);if(r)goto S_15583;}
S_15584:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(13003);if(r)goto S_15584;}
do{
goto LABEL_FOUNDCOMMONARRAY;
if(!qbevent)break;evnt(13003);}while(r);
}
S_15587:;
if ((-(*__LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(13004);if(r)goto S_15587;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(13004);}while(r);
do{
*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13004);}while(r);
}else{
do{
*__LONG_TRY= 0 ;
if(!qbevent)break;evnt(13004);}while(r);
}
S_15593:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13005);if(r)goto S_15593;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13005);}while(r);
}
dl_continue_1965:;
}
dl_exit_1965:;
do{
qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13007);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13007);}while(r);
LABEL_FOUNDCOMMONARRAY:;
if(qbevent){evnt(13008);r=0;}
S_15599:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13009);if(r)goto S_15599;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip1966;
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 skip1966;
skip1966:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13009);}while(r);
}
do{
*__LONG_I=*__LONG_CURRENTID;
if(!qbevent)break;evnt(13011);}while(r);
do{
*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+((0+512)));
if(!qbevent)break;evnt(13012);}while(r);
do{
*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(13013);}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(13014);}while(r);
S_15606:;
if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||is_error_pending()){
if(qbevent){evnt(13015);if(r)goto S_15606;}
do{
qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13015);}while(r);
}
S_15609:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13016);if(r)goto S_15609;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13016);}while(r);
}
do{
qbs_set(__STRING_N,__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13017);}while(r);
do{
qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13018);}while(r);
do{
*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(13019);}while(r);
do{
*__LONG_COMMAND= 3 ;
if(!qbevent)break;evnt(13022);}while(r);
S_15616:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(13023);if(r)goto S_15616;}
S_15617:;
if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(13024);if(r)goto S_15617;}
do{
*__LONG_COMMAND= 4 ;
if(!qbevent)break;evnt(13025);}while(r);
}
}
S_15621:;
if ((-(*__LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(13037);if(r)goto S_15621;}
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(13043);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1967=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13044);}while(r);
do{
qbs_set(__STRING_X,qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13046);}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(13047);}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(13048);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1968=*__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(13049);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1969=*__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(13050);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1970=*__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(13052);}while(r);
S_15630:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13054);if(r)goto S_15630;}
do{
SUB_WRITEBUFLINE(&(pass1971=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13054);}while(r);
}
S_15633:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13055);if(r)goto S_15633;}
do{
SUB_WRITEBUFLINE(&(pass1972=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13055);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1973=*__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(13056);}while(r);
S_15637:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13058);if(r)goto S_15637;}
do{
SUB_WRITEBUFLINE(&(pass1974=*__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(13060);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1975=*__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(13061);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1976=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=int64val>>3;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13062);}while(r);
}
S_15642:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13065);if(r)goto S_15642;}
do{
SUB_WRITEBUFLINE(&(pass1977=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13065);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1978=*__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(13068);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1979=*__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(13069);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1980=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(int32val--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13072);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1981=*__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(13073);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1982=*__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(13074);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1983=*__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(13075);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1984=*__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(13076);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1985=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13077);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1986=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13078);}while(r);
S_15654:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13080);if(r)goto S_15654;}
do{
SUB_WRITEBUFLINE(&(pass1987=*__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(13082);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1988=*__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(13083);}while(r);
}
S_15658:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13086);if(r)goto S_15658;}
do{
SUB_WRITEBUFLINE(&(pass1989=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13087);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1990=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13088);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1991=*__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(13089);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1992=*__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(13090);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1993=*__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(13091);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1994=*__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(13092);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1995=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13093);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1996=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13094);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass1997=*__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(13098);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1998=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13099);}while(r);
do{
SUB_WRITEBUFLINE(&(pass1999=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13101);}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(13106);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2000=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13107);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2001=*__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(13108);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2002=*__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(13110);}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(13120);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2003=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13122);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2004=*__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(13123);}while(r);
S_15679:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13125);if(r)goto S_15679;}
do{
SUB_WRITEBUFLINE(&(pass2005=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13125);}while(r);
}
S_15682:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13126);if(r)goto S_15682;}
do{
SUB_WRITEBUFLINE(&(pass2006=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13126);}while(r);
}
S_15685:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13128);if(r)goto S_15685;}
do{
SUB_WRITEBUFLINE(&(pass2007=*__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(13130);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2008=*__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(13135);}while(r);
do{
qbs_set(__STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13138);}while(r);
S_15690:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13139);if(r)goto S_15690;}
do{
SUB_WRITEBUFLINE(&(pass2009=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13139);}while(r);
}
S_15693:;
fornext_value2011= 1 ;
fornext_finalvalue2011=*__LONG_ARRAYELEMENTS;
fornext_step2011= 1 ;
if (fornext_step2011<0) fornext_step_negative2011=1; else fornext_step_negative2011=0;
if (is_error_pending()) goto fornext_error2011;
goto fornext_entrylabel2011;
while(1){
fornext_value2011=fornext_step2011+(*__LONG_X2);
fornext_entrylabel2011:
*__LONG_X2=fornext_value2011;
if (fornext_step_negative2011){
if (fornext_value2011<fornext_finalvalue2011) break;
}else{
if (fornext_value2011>fornext_finalvalue2011) break;
}
fornext_error2011:;
if(qbevent){evnt(13140);if(r)goto S_15693;}
S_15694:;
if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||is_error_pending()){
if(qbevent){evnt(13143);if(r)goto S_15694;}
do{
*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ;
if(!qbevent)break;evnt(13144);}while(r);
S_15696:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13146);if(r)goto S_15696;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2012;
sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1);
if (is_error_pending()) goto skip2012;
skip2012:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13146);}while(r);
}
S_15699:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13147);if(r)goto S_15699;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13147);}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),&(pass2013= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13148);}while(r);
S_15703:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13149);if(r)goto S_15703;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13149);}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),&(pass2014= 0 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13150);}while(r);
S_15707:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13151);if(r)goto S_15707;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13151);}while(r);
}
S_15710:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13152);if(r)goto S_15710;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2015;
sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1);
if (is_error_pending()) goto skip2015;
skip2015:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13152);}while(r);
}
S_15713:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13153);if(r)goto S_15713;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13153);}while(r);
}
}
do{
SUB_WRITEBUFLINE(&(pass2016=*__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(13158);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2017=*__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(13159);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2018=*__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(13160);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2019=*__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(13161);}while(r);
S_15721:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13162);if(r)goto S_15721;}
do{
SUB_WRITEBUFLINE(&(pass2020=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13162);}while(r);
}
S_15724:;
if ((-(*__LONG_X2> 1 ))||is_error_pending()){
if(qbevent){evnt(13163);if(r)goto S_15724;}
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(13163);}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(13164);}while(r);
fornext_continue_2010:;
}
fornext_exit_2010:;
S_15729:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13167);if(r)goto S_15729;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2021;
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 skip2021;
skip2021:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13167);}while(r);
}
S_15732:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13168);if(r)goto S_15732;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13168);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 1 ;
if(!qbevent)break;evnt(13170);}while(r);
do{
*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass2022= 0 ),__STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13171);}while(r);
S_15737:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13172);if(r)goto S_15737;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13172);}while(r);
}
do{
*__INTEGER_REDIMOPTION= 0 ;
if(!qbevent)break;evnt(13173);}while(r);
S_15741:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13174);if(r)goto S_15741;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2023;
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 skip2023;
skip2023:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13174);}while(r);
}
S_15744:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13175);if(r)goto S_15744;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13175);}while(r);
}
S_15747:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13177);if(r)goto S_15747;}
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(13179);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass2024= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13180);}while(r);
S_15750:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13181);if(r)goto S_15750;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13181);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2025=*__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(13182);}while(r);
}
S_15755:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13185);if(r)goto S_15755;}
do{
SUB_WRITEBUFLINE(&(pass2026=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13186);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2027=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13187);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2028=*__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(13188);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2029=*__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(13189);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2030=*__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(13190);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2031=*__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(13191);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2032=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13192);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2033=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13193);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2034=*__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(13197);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2035=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13198);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2036=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13199);}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(13203);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2037=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13205);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2038=*__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(13206);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2039=*__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(13208);}while(r);
S_15772:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13210);if(r)goto S_15772;}
do{
SUB_WRITEBUFLINE(&(pass2040=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=3;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13210);}while(r);
}
S_15775:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13211);if(r)goto S_15775;}
do{
SUB_WRITEBUFLINE(&(pass2041=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=4;",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13211);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2042=*__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(13212);}while(r);
S_15779:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13214);if(r)goto S_15779;}
do{
*__LONG_BITS=*__LONG_T& 4095ll ;
if(!qbevent)break;evnt(13216);}while(r);
S_15781:;
if ((*__LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(13217);if(r)goto S_15781;}
do{
*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 4095ll )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])];
if(!qbevent)break;evnt(13217);}while(r);
}
S_15784:;
if ((*__LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(13218);if(r)goto S_15784;}
do{
*__LONG_BITS=*__LONG_TSIZE* 8 ;
if(!qbevent)break;evnt(13218);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2043=*__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(13219);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2044=*__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(13220);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2045=*__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(13223);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2046=*__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(13224);}while(r);
S_15792:;
if ((-(*__LONG_COMMAND== 3 ))||is_error_pending()){
if(qbevent){evnt(13226);if(r)goto S_15792;}
S_15793:;
fornext_value2048= 1 ;
fornext_finalvalue2048=*__LONG_ARRAYELEMENTS;
fornext_step2048= 1 ;
if (fornext_step2048<0) fornext_step_negative2048=1; else fornext_step_negative2048=0;
if (is_error_pending()) goto fornext_error2048;
goto fornext_entrylabel2048;
while(1){
fornext_value2048=fornext_step2048+(*__LONG_X2);
fornext_entrylabel2048:
*__LONG_X2=fornext_value2048;
if (fornext_step_negative2048){
if (fornext_value2048<fornext_finalvalue2048) break;
}else{
if (fornext_value2048>fornext_finalvalue2048) break;
}
fornext_error2048:;
if(qbevent){evnt(13228);if(r)goto S_15793;}
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(13230);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass2049= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13231);}while(r);
S_15796:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13232);if(r)goto S_15796;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13232);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2050=*__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(13233);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2051=*__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(13234);}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(13235);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass2052= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13236);}while(r);
S_15803:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13237);if(r)goto S_15803;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13237);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2053=*__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(13238);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2054=*__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(13239);}while(r);
fornext_continue_2047:;
}
fornext_exit_2047:;
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))),&(pass2055= -4 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13243);}while(r);
S_15810:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13244);if(r)goto S_15810;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13244);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2056=*__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(13245);}while(r);
}
S_15815:;
if ((-(*__LONG_COMMAND== 4 ))||is_error_pending()){
if(qbevent){evnt(13249);if(r)goto S_15815;}
do{
SUB_WRITEBUFLINE(&(pass2057=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13252);}while(r);
S_15817:;
fornext_value2059= 1 ;
fornext_finalvalue2059=*__LONG_ARRAYELEMENTS;
fornext_step2059= 1 ;
if (fornext_step2059<0) fornext_step_negative2059=1; else fornext_step_negative2059=0;
if (is_error_pending()) goto fornext_error2059;
goto fornext_entrylabel2059;
while(1){
fornext_value2059=fornext_step2059+(*__LONG_X2);
fornext_entrylabel2059:
*__LONG_X2=fornext_value2059;
if (fornext_step_negative2059){
if (fornext_value2059<fornext_finalvalue2059) break;
}else{
if (fornext_value2059>fornext_finalvalue2059) break;
}
fornext_error2059:;
if(qbevent){evnt(13253);if(r)goto S_15817;}
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(13254);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass2060= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13255);}while(r);
S_15820:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13256);if(r)goto S_15820;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13256);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2061=*__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(13257);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2062=*__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(13258);}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(13259);}while(r);
do{
qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass2063= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13260);}while(r);
S_15827:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(13261);if(r)goto S_15827;}
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13261);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2064=*__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(13262);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2065=*__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(13263);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2066=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13264);}while(r);
fornext_continue_2058:;
}
fornext_exit_2058:;
do{
SUB_WRITEBUFLINE(&(pass2067=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13267);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2068=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei<bytes){",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13268);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2069=*__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(13269);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2070=*__LONG_MAINTXTBUF),qbs_new_txt_len("int64val=tqbs->len; int64val<<=3;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13270);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2071=*__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(13271);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2072=*__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(13272);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2073=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13273);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2074=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13274);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2075=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13278);}while(r);
}
fornext_continue_1963:;
}
fornext_exit_1963:;
do{
*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ;
if(!qbevent)break;evnt(13285);}while(r);
S_15847:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(13286);if(r)goto S_15847;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2076;
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 skip2076;
skip2076:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13286);}while(r);
}
S_15850:;
fornext_value2078= 1 ;
fornext_finalvalue2078= 300 ;
fornext_step2078= 1 ;
if (fornext_step2078<0) fornext_step_negative2078=1; else fornext_step_negative2078=0;
if (is_error_pending()) goto fornext_error2078;
goto fornext_entrylabel2078;
while(1){
fornext_value2078=fornext_step2078+(*__LONG_CLOSEALL);
fornext_entrylabel2078:
*__LONG_CLOSEALL=fornext_value2078;
if (fornext_step_negative2078){
if (fornext_value2078<fornext_finalvalue2078) break;
}else{
if (fornext_value2078>fornext_finalvalue2078) break;
}
fornext_error2078:;
if(qbevent){evnt(13289);if(r)goto S_15850;}
do{
sub_close(*__LONG_CLOSEALL,1);
if(!qbevent)break;evnt(13289);}while(r);
fornext_continue_2077:;
}
fornext_exit_2077:;
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(13290);}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(13292);}while(r);
do{
sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13294);}while(r);
do{
sub_close( 1 ,1);
if(!qbevent)break;evnt(13294);}while(r);
S_15857:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(13296);if(r)goto S_15857;}
S_15858:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13297);if(r)goto S_15858;}
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 skip2079;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2079:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13298);}while(r);
}else{
do{
qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2);
if(!qbevent)break;evnt(13300);}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 skip2080;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2080:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13301);}while(r);
}
}
S_15865:;
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
if(qbevent){evnt(13305);if(r)goto S_15865;}
do{
*__LONG_TOTALUNUSEDVARIABLES= 0 ;
if(!qbevent)break;evnt(13306);}while(r);
S_15867:;
fornext_value2082= 1 ;
fornext_finalvalue2082=*__LONG_TOTALVARIABLESCREATED;
fornext_step2082= 1 ;
if (fornext_step2082<0) fornext_step_negative2082=1; else fornext_step_negative2082=0;
if (is_error_pending()) goto fornext_error2082;
goto fornext_entrylabel2082;
while(1){
fornext_value2082=fornext_step2082+(*__LONG_I);
fornext_entrylabel2082:
*__LONG_I=fornext_value2082;
if (fornext_step_negative2082){
if (fornext_value2082<fornext_finalvalue2082) break;
}else{
if (fornext_value2082>fornext_finalvalue2082) break;
}
fornext_error2082:;
if(qbevent){evnt(13307);if(r)goto S_15867;}
S_15868:;
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(13308);if(r)goto S_15868;}
do{
*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ;
if(!qbevent)break;evnt(13309);}while(r);
}
fornext_continue_2081:;
}
fornext_exit_2081:;
S_15872:;
if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||is_error_pending()){
if(qbevent){evnt(13313);if(r)goto S_15872;}
do{
*__LONG_MAXVARNAMELEN= 0 ;
if(!qbevent)break;evnt(13314);}while(r);
S_15874:;
fornext_value2084= 1 ;
fornext_finalvalue2084=*__LONG_TOTALVARIABLESCREATED;
fornext_step2084= 1 ;
if (fornext_step2084<0) fornext_step_negative2084=1; else fornext_step_negative2084=0;
if (is_error_pending()) goto fornext_error2084;
goto fornext_entrylabel2084;
while(1){
fornext_value2084=fornext_step2084+(*__LONG_I);
fornext_entrylabel2084:
*__LONG_I=fornext_value2084;
if (fornext_step_negative2084){
if (fornext_value2084<fornext_finalvalue2084) break;
}else{
if (fornext_value2084>fornext_finalvalue2084) break;
}
fornext_error2084:;
if(qbevent){evnt(13315);if(r)goto S_15874;}
S_15875:;
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(13316);if(r)goto S_15875;}
S_15876:;
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(13317);if(r)goto S_15876;}
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(13317);}while(r);
}
}
fornext_continue_2083:;
}
fornext_exit_2083:;
do{
qbs_set(__STRING_HEADER,qbs_new_txt_len("Unused variable",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13321);}while(r);
S_15882:;
fornext_value2086= 1 ;
fornext_finalvalue2086=*__LONG_TOTALVARIABLESCREATED;
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_I);
fornext_entrylabel2086:
*__LONG_I=fornext_value2086;
if (fornext_step_negative2086){
if (fornext_value2086<fornext_finalvalue2086) break;
}else{
if (fornext_value2086>fornext_finalvalue2086) break;
}
fornext_error2086:;
if(qbevent){evnt(13322);if(r)goto S_15882;}
S_15883:;
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(13323);if(r)goto S_15883;}
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(13324);}while(r);
}
fornext_continue_2085:;
}
fornext_exit_2085:;
}
}
S_15889:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13330);if(r)goto S_15889;}
do{
goto LABEL_IDERET5;
if(!qbevent)break;evnt(13330);}while(r);
}
LABEL_IDE6:;
if(qbevent){evnt(13331);r=0;}
S_15892:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_NOCCOMPILEMODE)))||is_error_pending()){
if(qbevent){evnt(13333);if(r)goto S_15892;}
S_15893:;
if ((~(*__BYTE_QUIETMODE))||is_error_pending()){
if(qbevent){evnt(13334);if(r)goto S_15893;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2087:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13335);}while(r);
S_15895:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13336);if(r)goto S_15895;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37));
if (is_error_pending()) goto skip2088;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2088:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13337);}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 skip2089;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2089:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13339);}while(r);
}
}
S_15901:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_CMDLINEOUTFILE->len> 0 )))||is_error_pending()){
if(qbevent){evnt(13344);if(r)goto S_15901;}
S_15902:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_CMDLINEOUTFILE->len))||is_error_pending()){
if(qbevent){evnt(13345);if(r)goto S_15902;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_CMDLINEOUTFILE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13347);}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(13348);}while(r);
S_15905:;
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(13350);if(r)goto S_15905;}
do{
qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13351);}while(r);
}else{
do{
qbs_set(__STRING_FILE,__STRING_F);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13353);}while(r);
}
}
S_15911:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len> 0 )))||is_error_pending()){
if(qbevent){evnt(13357);if(r)goto S_15911;}
do{
qbs_set(__STRING_CURRENTDIR,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13358);}while(r);
S_15913:;
if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||is_error_pending()){
if(qbevent){evnt(13360);if(r)goto S_15913;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2094:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13361);}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 skip2095;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2095:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13362);}while(r);
S_15916:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(13363);if(r)goto S_15916;}
do{
if(qbevent){evnt(13363);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(13363);}while(r);
}
do{
if(qbevent){evnt(13364);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(13364);}while(r);
}
do{
sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13367);}while(r);
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd());
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13368);}while(r);
do{
sub_chdir(__STRING_CURRENTDIR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13369);}while(r);
S_15924:;
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(13371);if(r)goto S_15924;}
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(13371);}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(13372);}while(r);
do{
*__LONG_SAVEEXEWITHSOURCE= -1ll ;
if(!qbevent)break;evnt(13374);}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(13377);}while(r);
S_15932:;
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(13378);if(r)goto S_15932;}
do{
*__LONG_E= 0 ;
if(!qbevent)break;evnt(13379);}while(r);
do{
error_goto_line=7;
if(!qbevent)break;evnt(13380);}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(13381);}while(r);
do{
error_goto_line=8;
if(!qbevent)break;evnt(13382);}while(r);
S_15937:;
if ((-(*__LONG_E== 1 ))||is_error_pending()){
if(qbevent){evnt(13383);if(r)goto S_15937;}
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(13384);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13384);}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(13387);}while(r);
}
S_15944:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(13390);if(r)goto S_15944;}
do{
*__LONG_LINENUMBER=*__LONG_EXEICONSET;
if(!qbevent)break;evnt(13391);}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(13392);}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(13396);}while(r);
S_15948:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(13397);if(r)goto S_15948;}
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(13397);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13397);}while(r);
}
}
S_15953:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(13400);if(r)goto S_15953;}
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(13401);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2096=*__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(13402);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2097=*__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(13403);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2098=*__LONG_MANIBUF),qbs_new_txt_len("<assemblyIdentity",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13404);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2099=*__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(13405);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2100=*__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(13406);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2101=*__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(13407);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2102=*__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(13408);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2103=*__LONG_MANIBUF),qbs_new_txt_len("/>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13409);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2104=*__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(13410);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2105=*__LONG_MANIBUF),qbs_new_txt_len("<dependency>",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13411);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2106=*__LONG_MANIBUF),qbs_new_txt_len("    <dependentAssembly>",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13412);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2107=*__LONG_MANIBUF),qbs_new_txt_len("        <assemblyIdentity",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13413);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2108=*__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(13414);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2109=*__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(13415);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2110=*__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(13416);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2111=*__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(13417);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2112=*__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(13418);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2113=*__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(13419);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2114=*__LONG_MANIBUF),qbs_new_txt_len("        />",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13420);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2115=*__LONG_MANIBUF),qbs_new_txt_len("    </dependentAssembly>",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13421);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2116=*__LONG_MANIBUF),qbs_new_txt_len("</dependency>",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13422);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2117=*__LONG_MANIBUF),qbs_new_txt_len("</assembly>",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13423);}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(13425);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2118=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13426);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2119=*__LONG_MANIBUF),qbs_new_txt_len("#define   RESOURCE_H",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13427);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2120=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13428);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2121=*__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(13429);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2122=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13430);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2123=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef    __cplusplus",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13431);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2124=*__LONG_MANIBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13432);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2125=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13433);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2126=*__LONG_MANIBUF),qbs_new_txt_len("#endif    /* RESOURCE_H */",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13434);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2127=*__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(13435);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2128=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST                       24",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13436);}while(r);
}
S_15990:;
if ((*__BYTE_VERSIONINFOSET|(-(*__LONG_EXEICONSET!= 0 )))||is_error_pending()){
if(qbevent){evnt(13439);if(r)goto S_15990;}
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(13440);}while(r);
S_15992:;
if ((-(*__LONG_EXEICONSET!= 0 ))||is_error_pending()){
if(qbevent){evnt(13442);if(r)goto S_15992;}
do{
SUB_WRITEBUFLINE(&(pass2129=*__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(13443);}while(r);
}
S_15995:;
if ((*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(13446);if(r)goto S_15995;}
do{
SUB_WRITEBUFLINE(&(pass2130=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13447);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2131=*__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(13448);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2132=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13449);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2133=*__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(13450);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2134=*__LONG_ICONRCBUF),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13451);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2135=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13452);}while(r);
S_16002:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(13453);if(r)goto S_16002;}
do{
SUB_WRITEBUFLINE(&(pass2137=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION     ",16),__STRING_VIFILEVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13453);}while(r);
}
S_16005:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||is_error_pending()){
if(qbevent){evnt(13454);if(r)goto S_16005;}
do{
SUB_WRITEBUFLINE(&(pass2139=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION  ",16),__STRING_VIPRODUCTVERSIONNUM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13454);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2140=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13455);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2141=*__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(13456);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2142=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13457);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2143=*__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(13458);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2144=*__LONG_ICONRCBUF),qbs_new_txt_len("        BEGIN",13));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13459);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2145=*__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(13460);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2146=*__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(13461);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2147=*__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(13462);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2148=*__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(13463);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2149=*__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(13464);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2150=*__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(13465);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2151=*__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(13466);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2152=*__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(13467);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2153=*__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(13468);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2154=*__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(13469);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2155=*__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(13470);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2156=*__LONG_ICONRCBUF),qbs_new_txt_len("        END",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13471);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2157=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13472);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2158=*__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(13473);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2159=*__LONG_ICONRCBUF),qbs_new_txt_len("    BEGIN",9));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13474);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2160=*__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(13475);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2161=*__LONG_ICONRCBUF),qbs_new_txt_len("    END",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13476);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2162=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13477);}while(r);
}
}
do{
SUB_WRITEBUFFERS(qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13483);}while(r);
S_16034:;
if ((*__BYTE_FORMATMODE)||is_error_pending()){
if(qbevent){evnt(13485);if(r)goto S_16034;}
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(13487);}while(r);
S_16036:;
if ((*__LONG_FAIL)||is_error_pending()){
if(qbevent){evnt(13488);if(r)goto S_16036;}
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(13488);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13488);}while(r);
}
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(13489);}while(r);
}
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(13493);}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(13494);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2163;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <stdint.h>",19), 0, 0, 1);
if (is_error_pending()) goto skip2163;
skip2163:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13496);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2164;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include <string.h>",19), 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(13497);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2165;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip2165;
sub_file_print(tmp_fileno,FUNC_ADDQUOTES(qbs_new_txt_len("../c/libqb.h",12)), 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(13498);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2166;
sub_file_print(tmp_fileno,qbs_new_txt_len("#include ",9), 0, 0, 0);
if (is_error_pending()) goto skip2166;
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 skip2166;
skip2166:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13499);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2167;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 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(13500);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(13501);}while(r);
do{
*__LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13506);}while(r);
S_16051:;
fornext_value2169= 0 ;
fornext_finalvalue2169=*__LONG_EFLUB;
fornext_step2169= 1 ;
if (fornext_step2169<0) fornext_step_negative2169=1; else fornext_step_negative2169=0;
if (is_error_pending()) goto fornext_error2169;
goto fornext_entrylabel2169;
while(1){
fornext_value2169=fornext_step2169+(*__LONG_I);
fornext_entrylabel2169:
*__LONG_I=fornext_value2169;
if (fornext_step_negative2169){
if (fornext_value2169<fornext_finalvalue2169) break;
}else{
if (fornext_value2169>fornext_finalvalue2169) break;
}
fornext_error2169:;
if(qbevent){evnt(13507);if(r)goto S_16051;}
S_16052:;
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(13508);if(r)goto S_16052;}
S_16053:;
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(13509);if(r)goto S_16053;}
do{
SUB_SETDEPENDENCY(&(pass2170= 11ll ));
if(!qbevent)break;evnt(13510);}while(r);
}
do{
SUB_SETDEPENDENCY(&(pass2171= 12ll ));
if(!qbevent)break;evnt(13512);}while(r);
}
fornext_continue_2168:;
}
fornext_exit_2168:;
do{
*__LONG_EFLFF=func_freefile();
if(!qbevent)break;evnt(13516);}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(13517);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2172;
sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *func__embedded(qbs *handle)",32), 0, 0, 1);
if (is_error_pending()) goto skip2172;
skip2172:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13519);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2173;
sub_file_print(tmp_fileno,qbs_new_txt_len("{",1), 0, 0, 1);
if (is_error_pending()) goto skip2173;
skip2173:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13520);}while(r);
S_16063:;
fornext_value2175= 0 ;
fornext_finalvalue2175=*__LONG_EFLUB;
fornext_step2175= 1 ;
if (fornext_step2175<0) fornext_step_negative2175=1; else fornext_step_negative2175=0;
if (is_error_pending()) goto fornext_error2175;
goto fornext_entrylabel2175;
while(1){
fornext_value2175=fornext_step2175+(*__LONG_I);
fornext_entrylabel2175:
*__LONG_I=fornext_value2175;
if (fornext_step_negative2175){
if (fornext_value2175<fornext_finalvalue2175) break;
}else{
if (fornext_value2175>fornext_finalvalue2175) break;
}
fornext_error2175:;
if(qbevent){evnt(13521);if(r)goto S_16063;}
S_16064:;
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(13522);if(r)goto S_16064;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2176;
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 skip2176;
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 skip2176;
sub_file_print(tmp_fileno,qbs_new_txt_len("))) {return GetArrayData_",25), 0, 0, 0);
if (is_error_pending()) goto skip2176;
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 skip2176;
sub_file_print(tmp_fileno,qbs_new_txt_len("();}",4), 0, 0, 1);
if (is_error_pending()) goto skip2176;
skip2176:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13523);}while(r);
}
fornext_continue_2174:;
}
fornext_exit_2174:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2177;
sub_file_print(tmp_fileno,qbs_new_txt_len("    return qbs_new_txt(",23), 0, 0, 0);
if (is_error_pending()) goto skip2177;
sub_file_print(tmp_fileno,i2string( 8738 ), 0, 0, 0);
if (is_error_pending()) goto skip2177;
sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0, 0, 1);
if (is_error_pending()) goto skip2177;
skip2177:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13526);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2178;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2178;
skip2178:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13527);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_EFLFF;
if (is_error_pending()) goto skip2179;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip2179;
skip2179:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13528);}while(r);
do{
sub_close(*__LONG_EFLFF,1);
if(!qbevent)break;evnt(13529);}while(r);
do{
qbs_set(__STRING_O,qbs_lcase(__STRING_OS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13534);}while(r);
do{
*__LONG_WIN= 0 ;
if(!qbevent)break;evnt(13535);}while(r);
S_16074:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(13535);if(r)goto S_16074;}
do{
*__LONG_WIN= 1 ;
if(!qbevent)break;evnt(13535);}while(r);
}
do{
*__LONG_LNX= 0 ;
if(!qbevent)break;evnt(13536);}while(r);
S_16078:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13536);if(r)goto S_16078;}
do{
*__LONG_LNX= 1 ;
if(!qbevent)break;evnt(13536);}while(r);
}
do{
*__LONG_MAC= 0 ;
if(!qbevent)break;evnt(13537);}while(r);
S_16082:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13537);if(r)goto S_16082;}
do{
*__LONG_MAC= 1 ;
if(!qbevent)break;evnt(13537);}while(r);
do{
qbs_set(__STRING_O,qbs_new_txt_len("osx",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13537);}while(r);
}
do{
qbs_set(__STRING_VER,__STRING_VERSION);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13538);}while(r);
do{
qbs_set(__STRING_LIBS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13539);}while(r);
do{
qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13540);}while(r);
do{
qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13542);}while(r);
S_16090:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13545);if(r)goto S_16090;}
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(13545);}while(r);
}
S_16093:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13546);if(r)goto S_16093;}
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(13546);}while(r);
}
S_16096:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13547);if(r)goto S_16096;}
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(13547);}while(r);
}
S_16099:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13548);if(r)goto S_16099;}
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(13548);}while(r);
}
S_16102:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13549);if(r)goto S_16102;}
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(13549);}while(r);
}
S_16105:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13550);if(r)goto S_16105;}
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(13550);}while(r);
}
S_16108:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13551);if(r)goto S_16108;}
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(13551);}while(r);
}
S_16111:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13552);if(r)goto S_16111;}
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(13552);}while(r);
}
S_16114:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13553);if(r)goto S_16114;}
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(13553);}while(r);
}
S_16117:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13554);if(r)goto S_16117;}
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(13554);}while(r);
}
S_16120:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13555);if(r)goto S_16120;}
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(13555);}while(r);
}
S_16123:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_CONSOLEON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(13556);if(r)goto S_16123;}
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(13556);}while(r);
}
S_16126:;
if (((-(*__LONG_EXEICONSET!= 0 ))|*__BYTE_VERSIONINFOSET)||is_error_pending()){
if(qbevent){evnt(13558);if(r)goto S_16126;}
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(13558);}while(r);
}
S_16129:;
if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2ll )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||is_error_pending()){
if(qbevent){evnt(13560);if(r)goto S_16129;}
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(13560);}while(r);
}
S_16132:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(13562);if(r)goto S_16132;}
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(13562);}while(r);
}
do{
qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13564);}while(r);
do{
qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13565);}while(r);
S_16137:;
if ((*__LONG_OPTIMIZECPPPROGRAM)||is_error_pending()){
if(qbevent){evnt(13568);if(r)goto S_16137;}
S_16138:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(13569);if(r)goto S_16138;}
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(13570);}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(13572);}while(r);
}
}else{
S_16144:;
if ((*__LONG_INCLUDEDEBUGINFO)||is_error_pending()){
if(qbevent){evnt(13575);if(r)goto S_16144;}
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(13576);}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(13580);}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(13584);}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(13587);}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(13588);}while(r);
S_16152:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13590);if(r)goto S_16152;}
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(13592);}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(13593);}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(13595);}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(13598);}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(13599);}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(13600);}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(13601);}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(13602);}while(r);
S_16163:;
if ((~(*__LONG_STRIPDEBUGSYMBOLS))||is_error_pending()){
if(qbevent){evnt(13604);if(r)goto S_16163;}
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(13605);}while(r);
}
S_16166:;
if ((*__LONG_GENERATELICENSEFILE&(~(*__BYTE_NOEXESAVED)))||is_error_pending()){
if(qbevent){evnt(13609);if(r)goto S_16166;}
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(13610);}while(r);
}
S_16169:;
fornext_value2181= 1 ;
fornext_finalvalue2181=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2181= 1 ;
if (fornext_step2181<0) fornext_step_negative2181=1; else fornext_step_negative2181=0;
if (is_error_pending()) goto fornext_error2181;
goto fornext_entrylabel2181;
while(1){
fornext_value2181=fornext_step2181+(*__LONG_X);
fornext_entrylabel2181:
*__LONG_X=fornext_value2181;
if (fornext_step_negative2181){
if (fornext_value2181<fornext_finalvalue2181) break;
}else{
if (fornext_value2181>fornext_finalvalue2181) break;
}
fornext_error2181:;
if(qbevent){evnt(13614);if(r)goto S_16169;}
S_16170:;
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(13615);if(r)goto S_16170;}
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])])),&(pass2183= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13616);}while(r);
S_16172:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13617);if(r)goto S_16172;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13617);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13617);}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])])),&(pass2184= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13619);}while(r);
S_16177:;
if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13620);if(r)goto S_16177;}
do{
sub_kill(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13620);}while(r);
do{
SUB_CLEARBUFFERS(__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13620);}while(r);
}
}
fornext_continue_2180:;
}
fornext_exit_2180:;
do{
error_goto_line=9;
if(!qbevent)break;evnt(13625);}while(r);
S_16184:;
if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||is_error_pending()){
if(qbevent){evnt(13626);if(r)goto S_16184;}
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(13627);}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(13629);}while(r);
}
do{
error_goto_line=10;
if(!qbevent)break;evnt(13631);}while(r);
S_16190:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||is_error_pending()){
if(qbevent){evnt(13633);if(r)goto S_16190;}
S_16191:;
if ((*__LONG_USESYSTEMMINGW)||is_error_pending()){
if(qbevent){evnt(13635);if(r)goto S_16191;}
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(13636);}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(13639);}while(r);
S_16195:;
fornext_value2186= 1 ;
fornext_finalvalue2186=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2186= 1 ;
if (fornext_step2186<0) fornext_step_negative2186=1; else fornext_step_negative2186=0;
if (is_error_pending()) goto fornext_error2186;
goto fornext_entrylabel2186;
while(1){
fornext_value2186=fornext_step2186+(*__LONG_X);
fornext_entrylabel2186:
*__LONG_X=fornext_value2186;
if (fornext_step_negative2186){
if (fornext_value2186<fornext_finalvalue2186) break;
}else{
if (fornext_value2186>fornext_finalvalue2186) break;
}
fornext_error2186:;
if(qbevent){evnt(13642);if(r)goto S_16195;}
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])])),&(pass2187= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13643);}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])])),&(pass2188= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13644);}while(r);
S_16198:;
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(13645);if(r)goto S_16198;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(13647);}while(r);
S_16200:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(13648);if(r)goto S_16200;}
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(13649);}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(13651);}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(13652);}while(r);
S_16205:;
while((!(FUNC_ENDOFBUF(&(pass2190=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13653);if(r)goto S_16205;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2192=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13654);}while(r);
S_16207:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13655);if(r)goto S_16207;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13657);}while(r);
S_16209:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13658);if(r)goto S_16209;}
S_16210:;
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(13659);if(r)goto S_16210;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13660);}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(13661);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13662);}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(13663);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2194;
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 skip2194;
skip2194:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13664);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13665);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13667);}while(r);
}
}
dl_continue_2191:;
}
dl_exit_2191:;
S_16222:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13671);if(r)goto S_16222;}
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(13671);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13671);}while(r);
}
S_16226:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13673);if(r)goto S_16226;}
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(13674);}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(13675);}while(r);
S_16229:;
while((!(FUNC_ENDOFBUF(&(pass2195=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13676);if(r)goto S_16229;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2197=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13677);}while(r);
S_16231:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13678);if(r)goto S_16231;}
S_16232:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(13681);if(r)goto S_16232;}
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(13684);}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(13686);}while(r);
}
S_16237:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13688);if(r)goto S_16237;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13689);}while(r);
S_16239:;
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(13690);if(r)goto S_16239;}
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(13691);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2202;
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 skip2202;
skip2202:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13692);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2203;
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 skip2203;
skip2203:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13693);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2204;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2204;
skip2204:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13694);}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(13696);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2205;
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 skip2205;
skip2205:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13697);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13699);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13700);}while(r);
do{
goto dl_exit_2196;
if(!qbevent)break;evnt(13701);}while(r);
}
}
dl_continue_2196:;
}
dl_exit_2196:;
}
S_16255:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13707);if(r)goto S_16255;}
S_16256:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(13708);if(r)goto S_16256;}
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(13709);}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(13711);}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(13712);}while(r);
S_16261:;
while((!(FUNC_ENDOFBUF(&(pass2206=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13713);if(r)goto S_16261;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2208=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13714);}while(r);
S_16263:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13715);if(r)goto S_16263;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13717);}while(r);
S_16265:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13718);if(r)goto S_16265;}
S_16266:;
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(13719);if(r)goto S_16266;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13720);}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(13721);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13722);}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(13723);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2210;
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 skip2210;
skip2210:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13724);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13725);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13727);}while(r);
}
}
dl_continue_2207:;
}
dl_exit_2207:;
S_16278:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13731);if(r)goto S_16278;}
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(13731);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13731);}while(r);
}
}
S_16283:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13734);if(r)goto S_16283;}
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(13735);}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(13736);}while(r);
S_16286:;
while((!(FUNC_ENDOFBUF(&(pass2211=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13737);if(r)goto S_16286;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2213=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13738);}while(r);
S_16288:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13739);if(r)goto S_16288;}
S_16289:;
if ((-(*__LONG_OS_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(13742);if(r)goto S_16289;}
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(13745);}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(13747);}while(r);
}
S_16294:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13749);if(r)goto S_16294;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13750);}while(r);
S_16296:;
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(13751);if(r)goto S_16296;}
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(13752);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2218;
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 skip2218;
skip2218:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13753);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2219;
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 skip2219;
skip2219:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13754);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2220;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2220;
skip2220:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13755);}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(13757);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2221;
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 skip2221;
skip2221:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13758);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13760);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13761);}while(r);
do{
goto dl_exit_2212;
if(!qbevent)break;evnt(13762);}while(r);
}
}
dl_continue_2212:;
}
dl_exit_2212:;
S_16311:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13766);if(r)goto S_16311;}
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(13766);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13766);}while(r);
}
}
}
fornext_continue_2185:;
}
fornext_exit_2185:;
S_16318:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(13772);if(r)goto S_16318;}
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(13773);}while(r);
S_16320:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(13775);if(r)goto S_16320;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2222= 0 ));
if(!qbevent)break;evnt(13777);}while(r);
}
}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13781);}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(13782);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2223;
sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1);
if (is_error_pending()) goto skip2223;
skip2223:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13783);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2224;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1);
if (is_error_pending()) goto skip2224;
skip2224:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13784);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2225;
sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1);
if (is_error_pending()) goto skip2225;
skip2225:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13785);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2226;
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 skip2226;
skip2226:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13786);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2227;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1);
if (is_error_pending()) goto skip2227;
skip2227:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13787);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2228;
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 skip2228;
skip2228:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13788);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2229;
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 skip2229;
skip2229:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13789);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2230;
sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1);
if (is_error_pending()) goto skip2230;
skip2230:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13790);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2231;
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 skip2231;
skip2231:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13791);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2232;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2232;
skip2232:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13792);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2233;
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 skip2233;
skip2233:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13793);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2234;
sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1);
if (is_error_pending()) goto skip2234;
skip2234:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13794);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13795);}while(r);
}
S_16340:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||is_error_pending()){
if(qbevent){evnt(13798);if(r)goto S_16340;}
S_16341:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13800);if(r)goto S_16341;}
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(13801);}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(13803);}while(r);
}
S_16346:;
fornext_value2236= 1 ;
fornext_finalvalue2236=*__LONG_RESOLVESTATICFUNCTIONS;
fornext_step2236= 1 ;
if (fornext_step2236<0) fornext_step_negative2236=1; else fornext_step_negative2236=0;
if (is_error_pending()) goto fornext_error2236;
goto fornext_entrylabel2236;
while(1){
fornext_value2236=fornext_step2236+(*__LONG_X);
fornext_entrylabel2236:
*__LONG_X=fornext_value2236;
if (fornext_step_negative2236){
if (fornext_value2236<fornext_finalvalue2236) break;
}else{
if (fornext_value2236>fornext_finalvalue2236) break;
}
fornext_error2236:;
if(qbevent){evnt(13806);if(r)goto S_16346;}
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])])),&(pass2237= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13807);}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])])),&(pass2238= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13808);}while(r);
S_16349:;
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(13809);if(r)goto S_16349;}
do{
*__LONG_N= 0 ;
if(!qbevent)break;evnt(13811);}while(r);
S_16351:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||is_error_pending()){
if(qbevent){evnt(13812);if(r)goto S_16351;}
S_16352:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(13813);if(r)goto S_16352;}
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(13813);}while(r);
}
S_16355:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13814);if(r)goto S_16355;}
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(13814);}while(r);
}
}
S_16359:;
if ((-(*__LONG_MACOSX== 0 ))||is_error_pending()){
if(qbevent){evnt(13817);if(r)goto S_16359;}
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(13818);}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(13819);}while(r);
S_16362:;
while((!(FUNC_ENDOFBUF(&(pass2240=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13820);if(r)goto S_16362;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2242=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13821);}while(r);
S_16364:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13822);if(r)goto S_16364;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13824);}while(r);
S_16366:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13825);if(r)goto S_16366;}
S_16367:;
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(13826);if(r)goto S_16367;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13827);}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(13828);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13829);}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(13830);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2244;
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 skip2244;
skip2244:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13831);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13832);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13834);}while(r);
}
}
dl_continue_2241:;
}
dl_exit_2241:;
S_16379:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13838);if(r)goto S_16379;}
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(13838);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13838);}while(r);
}
}
S_16384:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13841);if(r)goto S_16384;}
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(13842);}while(r);
do{
qbs_set(__STRING_S2,__STRING_S);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13842);}while(r);
S_16387:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13843);if(r)goto S_16387;}
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(13843);}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(13844);}while(r);
S_16391:;
while((!(FUNC_ENDOFBUF(&(pass2245=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13845);if(r)goto S_16391;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2247=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13846);}while(r);
S_16393:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13847);if(r)goto S_16393;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13849);}while(r);
S_16395:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13850);if(r)goto S_16395;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13851);}while(r);
S_16397:;
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(13852);if(r)goto S_16397;}
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(13853);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2250;
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 skip2250;
skip2250:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13854);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2251;
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 skip2251;
skip2251:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13855);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2252;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2252;
skip2252:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13856);}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(13858);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2253;
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 skip2253;
skip2253:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13859);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13861);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13862);}while(r);
do{
goto dl_exit_2246;
if(!qbevent)break;evnt(13863);}while(r);
}
}
dl_continue_2246:;
}
dl_exit_2246:;
}
S_16413:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13869);if(r)goto S_16413;}
S_16414:;
if ((*__LONG_MACOSX)||is_error_pending()){
if(qbevent){evnt(13870);if(r)goto S_16414;}
do{
goto LABEL_MACOSX_LIBFIND_FAILED;
if(!qbevent)break;evnt(13870);}while(r);
}
S_16417:;
if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||is_error_pending()){
if(qbevent){evnt(13871);if(r)goto S_16417;}
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(13872);}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(13874);}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(13875);}while(r);
S_16422:;
while((!(FUNC_ENDOFBUF(&(pass2254=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13876);if(r)goto S_16422;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2256=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13877);}while(r);
S_16424:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13878);if(r)goto S_16424;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13880);}while(r);
S_16426:;
if ((*__LONG_X1)||is_error_pending()){
if(qbevent){evnt(13881);if(r)goto S_16426;}
S_16427:;
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(13882);if(r)goto S_16427;}
do{
*__LONG_X1=*__LONG_X1+ 1 ;
if(!qbevent)break;evnt(13883);}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(13884);}while(r);
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13885);}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(13886);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2258;
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 skip2258;
skip2258:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13887);}while(r);
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13888);}while(r);
}
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13890);}while(r);
}
}
dl_continue_2255:;
}
dl_exit_2255:;
S_16439:;
if ((-(*__LONG_N> 1 ))||is_error_pending()){
if(qbevent){evnt(13894);if(r)goto S_16439;}
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(13894);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13894);}while(r);
}
}
S_16444:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13897);if(r)goto S_16444;}
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(13898);}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(13899);}while(r);
S_16447:;
while((!(FUNC_ENDOFBUF(&(pass2259=*__LONG_FH))))||is_error_pending()){
if(qbevent){evnt(13900);if(r)goto S_16447;}
do{
qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2261=*__LONG_FH)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13901);}while(r);
S_16449:;
if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||is_error_pending()){
if(qbevent){evnt(13902);if(r)goto S_16449;}
do{
*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(13904);}while(r);
S_16451:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||is_error_pending()){
if(qbevent){evnt(13905);if(r)goto S_16451;}
do{
*__LONG_FH2=func_freefile();
if(!qbevent)break;evnt(13906);}while(r);
S_16453:;
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(13907);if(r)goto S_16453;}
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(13908);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2264;
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 skip2264;
skip2264:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13909);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2265;
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 skip2265;
skip2265:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13910);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2266;
sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1);
if (is_error_pending()) goto skip2266;
skip2266:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13911);}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(13913);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH2;
if (is_error_pending()) goto skip2267;
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 skip2267;
skip2267:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13914);}while(r);
}
do{
sub_close(*__LONG_FH2,1);
if(!qbevent)break;evnt(13916);}while(r);
do{
*__LONG_N=*__LONG_N+ 1 ;
if(!qbevent)break;evnt(13917);}while(r);
do{
goto dl_exit_2260;
if(!qbevent)break;evnt(13918);}while(r);
}
}
dl_continue_2260:;
}
dl_exit_2260:;
LABEL_MACOSX_LIBFIND_FAILED:;
if(qbevent){evnt(13922);r=0;}
S_16468:;
if ((-(*__LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(13923);if(r)goto S_16468;}
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(13923);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(13923);}while(r);
}
}
}
fornext_continue_2235:;
}
fornext_exit_2235:;
S_16475:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(13929);if(r)goto S_16475;}
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13931);}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(13932);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2268;
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 skip2268;
skip2268:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13933);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2269;
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 skip2269;
skip2269:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13934);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2270;
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 skip2270;
skip2270:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13935);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2271;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2271;
skip2271:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13936);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2272;
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 skip2272;
skip2272:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13937);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13938);}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(13939);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13941);}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(13942);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2273;
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 skip2273;
skip2273:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13943);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2274;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2274;
skip2274:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13944);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2275;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2275;
skip2275:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13945);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2276;
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 skip2276;
skip2276:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13946);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2277;
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 skip2277;
skip2277:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13947);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2278;
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 skip2278;
skip2278:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13948);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2279;
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 skip2279;
skip2279:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13949);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2280;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2280;
skip2280:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13950);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2281;
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 skip2281;
skip2281:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13951);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2282;
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 skip2282;
skip2282:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13952);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2283;
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 skip2283;
skip2283:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13953);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2284;
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 skip2284;
skip2284:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13954);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2285;
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 skip2285;
skip2285:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13955);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2286;
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 skip2286;
skip2286:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13956);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2287;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2287;
skip2287:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13957);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13958);}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(13959);}while(r);
}else{
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13963);}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(13964);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2288;
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 skip2288;
skip2288:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13965);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2289;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2289;
skip2289:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13966);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2290;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2290;
skip2290:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13967);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2291;
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 skip2291;
skip2291:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13968);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2292;
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 skip2292;
skip2292:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13969);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2293;
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 skip2293;
skip2293:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13970);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2294;
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 skip2294;
skip2294:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13971);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2295;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2295;
skip2295:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13972);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2296;
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 skip2296;
skip2296:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13973);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2297;
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 skip2297;
skip2297:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13974);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2298;
sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2298;
skip2298:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13975);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2299;
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 skip2299;
skip2299:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13976);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2300;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2300;
skip2300:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13977);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13978);}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(13979);}while(r);
do{
*__LONG_FFH=func_freefile();
if(!qbevent)break;evnt(13981);}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(13982);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2301;
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 skip2301;
skip2301:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13983);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2302;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2302;
skip2302:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13984);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2303;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2303;
skip2303:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13985);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2304;
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 skip2304;
skip2304:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13986);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2305;
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 skip2305;
skip2305:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13987);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2306;
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 skip2306;
skip2306:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13988);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2307;
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 skip2307;
skip2307:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13989);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2308;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2308;
skip2308:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13990);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2309;
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 skip2309;
skip2309:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13991);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2310;
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 skip2310;
skip2310:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13992);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2311;
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 skip2311;
skip2311:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13993);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2312;
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 skip2312;
skip2312:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13994);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2313;
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 skip2313;
skip2313:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13995);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2314;
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 skip2314;
skip2314:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13996);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FFH;
if (is_error_pending()) goto skip2315;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0);
if (is_error_pending()) goto skip2315;
skip2315:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(13997);}while(r);
do{
sub_close(*__LONG_FFH,1);
if(!qbevent)break;evnt(13998);}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(13999);}while(r);
}
S_16542:;
if ((~(*__BYTE_NOCCOMPILEMODE))||is_error_pending()){
if(qbevent){evnt(14003);if(r)goto S_16542;}
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(14004);}while(r);
S_16544:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(14005);if(r)goto S_16544;}
do{
*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2316= 0 ));
if(!qbevent)break;evnt(14007);}while(r);
}
}
S_16548:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||is_error_pending()){
if(qbevent){evnt(14011);if(r)goto S_16548;}
do{
*__LONG_FF=func_freefile();
if(!qbevent)break;evnt(14012);}while(r);
S_16550:;
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(14013);if(r)goto S_16550;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14013);}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(14014);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2317;
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 skip2317;
skip2317:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14015);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2318;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2318;
skip2318:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14016);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2319;
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 skip2319;
skip2319:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14017);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2320;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2320;
skip2320:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14018);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2321;
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 skip2321;
skip2321:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14019);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2322;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2322;
skip2322:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14020);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2323;
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 skip2323;
skip2323:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14021);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2324;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2324;
skip2324:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14022);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2325;
sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0);
if (is_error_pending()) goto skip2325;
skip2325:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14023);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FF;
if (is_error_pending()) goto skip2326;
sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0);
if (is_error_pending()) goto skip2326;
skip2326:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14024);}while(r);
do{
sub_close(*__LONG_FF,1);
if(!qbevent)break;evnt(14025);}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(14026);}while(r);
}
}
S_16568:;
if ((*__BYTE_NOCCOMPILEMODE)||is_error_pending()){
if(qbevent){evnt(14031);if(r)goto S_16568;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(14031);}while(r);
do{
goto LABEL_NOCCOMPILE;
if(!qbevent)break;evnt(14031);}while(r);
}
S_16572:;
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(14032);if(r)goto S_16572;}
do{
qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_DEFAULTEXESAVEFOLDER);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14032);}while(r);
}
S_16575:;
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(14033);if(r)goto S_16575;}
do{
*__LONG_COMPFAILED= 0 ;
if(!qbevent)break;evnt(14034);}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(14035);}while(r);
}else{
do{
*__LONG_COMPFAILED= 1 ;
if(!qbevent)break;evnt(14037);}while(r);
}
S_16581:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(14040);if(r)goto S_16581;}
S_16582:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(14041);if(r)goto S_16582;}
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(14042);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(14043);}while(r);
}
S_16586:;
if ((*__LONG_COMPFAILED)||is_error_pending()){
if(qbevent){evnt(14045);if(r)goto S_16586;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30));
if (is_error_pending()) goto skip2327;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2327:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14046);}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 skip2328;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2328:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14047);}while(r);
}
}else{
S_16591:;
if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||is_error_pending()){
if(qbevent){evnt(14050);if(r)goto S_16591;}
do{
qbs_set(__STRING_LOCATION,__STRING_LASTBINARYGENERATED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14051);}while(r);
S_16593:;
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(14052);if(r)goto S_16593;}
do{
qbs_set(__STRING_LOCATION,qbs_add(func__cwd(),__STRING_LOCATION));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14052);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Output: ",8));
if (is_error_pending()) goto skip2329;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,FUNC_REMOVEDOUBLESLASHES(__STRING_LOCATION));
if (is_error_pending()) goto skip2329;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2329:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14053);}while(r);
}
}
LABEL_SKIP_BUILD:;
if(qbevent){evnt(14057);r=0;}
S_16599:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(14061);if(r)goto S_16599;}
do{
goto LABEL_IDERET6;
if(!qbevent)break;evnt(14061);}while(r);
}
LABEL_NOCCOMPILE:;
if(qbevent){evnt(14063);r=0;}
S_16602:;
if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(~(*__BYTE_CONSOLEMODE)))||is_error_pending()){
if(qbevent){evnt(14065);if(r)goto S_16602;}
do{
if(qbevent){evnt(14065);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(14065);}while(r);
}
S_16605:;
if ((-(*__LONG_COMPFAILED!= 0 ))||is_error_pending()){
if(qbevent){evnt(14066);if(r)goto S_16605;}
do{
if(qbevent){evnt(14066);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(14066);}while(r);
}
do{
if(qbevent){evnt(14067);}
exit_code= 0 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(14067);}while(r);
LABEL_QBERROR_TEST:;
if(qbevent){evnt(14069);r=0;}
do{
*__LONG_E= 1 ;
if(!qbevent)break;evnt(14070);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}
if(!qbevent)break;evnt(14071);}while(r);
LABEL_QBERROR:;
if(qbevent){evnt(14073);r=0;}
S_16611:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14074);if(r)goto S_16611;}
S_16612:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(14075);if(r)goto S_16612;}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2330:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14076);}while(r);
}else{
do{
sub__autodisplay();
if(!qbevent)break;evnt(14078);}while(r);
do{
qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13);
if(!qbevent)break;evnt(14079);}while(r);
do{
qbg_sub_color( 7 , 0 ,NULL,NULL,3);
if(!qbevent)break;evnt(14080);}while(r);
}
do{
sub__controlchr( 2 );
if(!qbevent)break;evnt(14082);}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 skip2331;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2331:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14083);}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 skip2332;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2332:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14084);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Error",5));
if (is_error_pending()) goto skip2333;
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 skip2333;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2333:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14085);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Description: ",13));
if (is_error_pending()) goto skip2334;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__errormessage(NULL,0));
if (is_error_pending()) goto skip2334;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2334:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14086);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Line",4));
if (is_error_pending()) goto skip2335;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2335;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2335:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14087);}while(r);
S_16625:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(14088);if(r)goto S_16625;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included line",13));
if (is_error_pending()) goto skip2336;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2336;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2336:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14089);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("Included file ",14));
if (is_error_pending()) goto skip2337;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,func__inclerrorfile());
if (is_error_pending()) goto skip2337;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2337:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14090);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2338:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14092);}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 skip2339;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2339:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14093);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ideerror =",10));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("linenumber =",12));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" ")));
if (is_error_pending()) goto skip2340;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2340:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14094);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7));
if (is_error_pending()) goto skip2341;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_CA);
if (is_error_pending()) goto skip2341;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18));
if (is_error_pending()) goto skip2341;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_IDECOMMAND);
if (is_error_pending()) goto skip2341;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2341;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2341:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14095);}while(r);
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16));
if (is_error_pending()) goto skip2342;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,__STRING_LINEFRAGMENT);
if (is_error_pending()) goto skip2342;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_set(tqbs,qbs_new_txt_len("}",1));
if (is_error_pending()) goto skip2342;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2342:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14096);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(14097);}while(r);
}
S_16636:;
if ((*__LONG_IDEERROR)||is_error_pending()){
if(qbevent){evnt(14100);if(r)goto S_16636;}
do{
*__LONG_FH=func_freefile();
if(!qbevent)break;evnt(14101);}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(14102);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2343;
sub_file_print(tmp_fileno,func_date(), 0, 0, 0);
if (is_error_pending()) goto skip2343;
sub_file_print(tmp_fileno,func_time(), 0, 0, 0);
if (is_error_pending()) goto skip2343;
sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1);
if (is_error_pending()) goto skip2343;
skip2343:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14103);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2344;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2344;
skip2344:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14104);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2345;
sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1);
if (is_error_pending()) goto skip2345;
skip2345:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14105);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2346;
sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1);
if (is_error_pending()) goto skip2346;
skip2346:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14106);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2347;
sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1);
if (is_error_pending()) goto skip2347;
skip2347:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14107);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*__LONG_FH;
if (is_error_pending()) goto skip2348;
sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1);
if (is_error_pending()) goto skip2348;
skip2348:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14108);}while(r);
do{
sub_close(*__LONG_FH,1);
if(!qbevent)break;evnt(14109);}while(r);
do{
qbs_set(__STRING_SENDC,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14110);}while(r);
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;}
if(!qbevent)break;evnt(14111);}while(r);
}
do{
*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED;
if(!qbevent)break;evnt(14114);}while(r);
do{
*__INTEGER_QBERRORHAPPENED= 1 ;
if(!qbevent)break;evnt(14115);}while(r);
S_16651:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14117);if(r)goto S_16651;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2349;
sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1);
if (is_error_pending()) goto skip2349;
skip2349:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14117);}while(r);
}
S_16654:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14118);if(r)goto S_16654;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2350;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0);
if (is_error_pending()) goto skip2350;
sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1);
if (is_error_pending()) goto skip2350;
skip2350:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14118);}while(r);
}
S_16657:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14119);if(r)goto S_16657;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2351;
sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0);
if (is_error_pending()) goto skip2351;
sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1);
if (is_error_pending()) goto skip2351;
skip2351:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14119);}while(r);
}
S_16660:;
if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||is_error_pending()){
if(qbevent){evnt(14121);if(r)goto S_16660;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER;
if(!qbevent)break;evnt(14123);}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(14124);}while(r);
S_16663:;
if ((get_error_err())||is_error_pending()){
if(qbevent){evnt(14125);if(r)goto S_16663;}
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(14125);}while(r);
}
S_16666:;
if ((func__errorline())||is_error_pending()){
if(qbevent){evnt(14126);if(r)goto S_16666;}
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(14126);}while(r);
}
S_16669:;
if ((func__inclerrorline())||is_error_pending()){
if(qbevent){evnt(14127);if(r)goto S_16669;}
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(14127);}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(14128);}while(r);
S_16673:;
if ((-(*__LONG_INCLEVEL> 0 ))||is_error_pending()){
if(qbevent){evnt(14129);if(r)goto S_16673;}
do{
qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14129);}while(r);
}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;}
if(!qbevent)break;evnt(14130);}while(r);
}
S_16678:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||is_error_pending()){
if(qbevent){evnt(14133);if(r)goto S_16678;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14134);}while(r);
do{
goto LABEL_ERRMES;
if(!qbevent)break;evnt(14134);}while(r);
}
do{
*__INTEGER_QBERRORCODE=get_error_err();
if(!qbevent)break;evnt(14138);}while(r);
do{
*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl());
if(!qbevent)break;evnt(14139);}while(r);
S_16684:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||is_error_pending()){
if(qbevent){evnt(14140);if(r)goto S_16684;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;}
if(!qbevent)break;evnt(14140);}while(r);
}
S_16687:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||is_error_pending()){
if(qbevent){evnt(14141);if(r)goto S_16687;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;}
if(!qbevent)break;evnt(14141);}while(r);
}
S_16690:;
if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||is_error_pending()){
if(qbevent){evnt(14142);if(r)goto S_16690;}
do{
if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;}
if(!qbevent)break;evnt(14142);}while(r);
}
do{
sub_end();
if(!qbevent)break;evnt(14143);}while(r);
LABEL_ERRMES:;
if(qbevent){evnt(14145);r=0;}
S_16694:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14146);if(r)goto S_16694;}
do{
qbs_set(__STRING_A,__STRING_ERROR_MESSAGE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14146);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(14146);}while(r);
}
do{
qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14147);}while(r);
do{
*__LONG_LAYOUTOK= 0 ;
if(!qbevent)break;evnt(14147);}while(r);
do{
*__LONG_ERLDIFF= 0 ;
if(!qbevent)break;evnt(14149);}while(r);
S_16701:;
if ((-(*__INTEGER_AUTOINCLUDINGFILE== 1 ))||is_error_pending()){
if(qbevent){evnt(14150);if(r)goto S_16701;}
S_16702:;
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(14152);if(r)goto S_16702;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Expected END SUB/FUNCTION",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14152);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14152);}while(r);
}
S_16706:;
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(14153);if(r)goto S_16706;}
do{
qbs_set(__STRING_A,qbs_new_txt_len("Syntax Error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14153);}while(r);
do{
qbs_set(__STRING_INCERROR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14153);}while(r);
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(14153);}while(r);
}
S_16711:;
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(14154);if(r)goto S_16711;}
do{
*__LONG_ERLDIFF= 1 ;
if(!qbevent)break;evnt(14154);}while(r);
}
}
S_16715:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(qbs_notequal(__STRING_INCERROR,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(14156);if(r)goto S_16715;}
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(14156);}while(r);
}
S_16718:;
if ((*__LONG_IDEMODE)||is_error_pending()){
if(qbevent){evnt(14158);if(r)goto S_16718;}
do{
*__LONG_IDEERRORLINE=*__LONG_LINENUMBER+*__LONG_ERLDIFF;
if(!qbevent)break;evnt(14159);}while(r);
do{
qbs_set(__STRING_IDEMESSAGE,__STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14160);}while(r);
do{
goto LABEL_IDEERROR;
if(!qbevent)break;evnt(14161);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_print(nothingstring,1);
skip2352:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14164);}while(r);
S_16724:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(14165);if(r)goto S_16724;}
S_16725:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||is_error_pending()){
if(qbevent){evnt(14166);if(r)goto S_16725;}
do{
qbg_sub_color( 4 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14167);}while(r);
}else{
do{
qbg_sub_color( 9 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14169);}while(r);
}
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_A);
if (is_error_pending()) goto skip2353;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2353:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14172);}while(r);
S_16732:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(14173);if(r)goto S_16732;}
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14173);}while(r);
}
S_16735:;
fornext_value2355= 1 ;
fornext_finalvalue2355=__STRING_LINEFRAGMENT->len;
fornext_step2355= 1 ;
if (fornext_step2355<0) fornext_step_negative2355=1; else fornext_step_negative2355=0;
if (is_error_pending()) goto fornext_error2355;
goto fornext_entrylabel2355;
while(1){
fornext_value2355=fornext_step2355+(*__LONG_I);
fornext_entrylabel2355:
*__LONG_I=fornext_value2355;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2355){
if (fornext_value2355<fornext_finalvalue2355) break;
}else{
if (fornext_value2355>fornext_finalvalue2355) break;
}
fornext_error2355:;
if(qbevent){evnt(14174);if(r)goto S_16735;}
S_16736:;
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(14175);if(r)goto S_16736;}
do{
sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(14175);}while(r);
}
fornext_continue_2354:;
}
fornext_exit_2354:;
S_16740:;
fornext_value2358= 1 ;
fornext_finalvalue2358=__STRING_WHOLELINE->len;
fornext_step2358= 1 ;
if (fornext_step2358<0) fornext_step_negative2358=1; else fornext_step_negative2358=0;
if (is_error_pending()) goto fornext_error2358;
goto fornext_entrylabel2358;
while(1){
fornext_value2358=fornext_step2358+(*__LONG_I);
fornext_entrylabel2358:
*__LONG_I=fornext_value2358;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2358){
if (fornext_value2358<fornext_finalvalue2358) break;
}else{
if (fornext_value2358>fornext_finalvalue2358) break;
}
fornext_error2358:;
if(qbevent){evnt(14177);if(r)goto S_16740;}
S_16741:;
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(14178);if(r)goto S_16741;}
do{
sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1);
if(!qbevent)break;evnt(14178);}while(r);
}
fornext_continue_2357:;
}
fornext_exit_2357:;
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 skip2360;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2360:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14180);}while(r);
S_16746:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(14181);if(r)goto S_16746;}
do{
qbg_sub_color( 8 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14181);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len("LINE ",5));
if (is_error_pending()) goto skip2361;
makefit(tqbs);
qbs_print(tqbs,0);
skip2361:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14182);}while(r);
S_16750:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(14183);if(r)goto S_16750;}
do{
qbg_sub_color( 15 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14183);}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 skip2362;
makefit(tqbs);
qbs_print(tqbs,0);
skip2362:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14184);}while(r);
S_16754:;
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
if(qbevent){evnt(14185);if(r)goto S_16754;}
do{
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
if(!qbevent)break;evnt(14185);}while(r);
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,__STRING_WHOLELINE);
if (is_error_pending()) goto skip2363;
makefit(tqbs);
qbs_print(tqbs,0);
qbs_print(nothingstring,1);
skip2363:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14186);}while(r);
S_16758:;
if ((*__BYTE_CONSOLEMODE)||is_error_pending()){
if(qbevent){evnt(14188);if(r)goto S_16758;}
do{
if(qbevent){evnt(14188);}
exit_code= 1 ;
if (sub_gl_called) error(271);
close_program=1;
end();
if(!qbevent)break;evnt(14188);}while(r);
}
do{
if(qbevent){evnt(14189);}
exit_code= 1 ;
sub_end();
if(!qbevent)break;evnt(14189);}while(r);
do{
sub_end();
if(!qbevent)break;evnt(28183,20,"aftermain.bas");}while(r);
sub_end();
return;
}
